Pflichtenheft: Zugriff auf nicht vorhandenes »visible_item« verhindern
[kivitendo-erp.git] / SL / PriceSource / MasterData.pm
1 package SL::PriceSource::MasterData;
2
3 use strict;
4 use parent qw(SL::PriceSource::Base);
5
6 use SL::PriceSource::Price;
7 use SL::Locale::String;
8
9 sub name { 'master_data' }
10
11 sub description { t8('Master Data') }
12
13 sub available_prices {
14   my ($self, %params) = @_;
15
16   return () unless $self->part;
17
18   grep { $_->price > 0 } $self->record->is_sales
19     ? ($self->make_sellprice, $self->make_listprice)
20     : ($self->make_lastcost,  $self->make_listprice);
21 }
22
23 sub available_discounts { }
24
25 sub price_from_source {
26   my ($self, $source, $spec) = @_;
27
28     $spec eq 'sellprice' ? $self->make_sellprice
29   : $spec eq 'lastcost'  ? $self->make_lastcost
30   : $spec eq 'listprice' ? $self->make_listprice
31   : do { die "unknown spec '$spec'" };
32 }
33
34 sub discount_from_source { }
35
36 sub best_price {
37   $_[0]->record->is_sales
38   ? $_[0]->make_sellprice
39   : $_[0]->make_lastcost
40 }
41
42 sub best_discount { }
43
44 sub unit_mul {
45   $_[0]->record_item ? $_[0]->record_item->unit_multiplier : 1
46 }
47
48 sub make_sellprice {
49   my ($self) = @_;
50
51   return SL::PriceSource::Price->new(
52     price        => $self->part->sellprice * $self->unit_mul,
53     spec         => 'sellprice',
54     description  => t8('Sellprice'),
55     price_source => $self,
56   );
57 }
58
59 sub make_listprice {
60   my ($self) = @_;
61
62   return SL::PriceSource::Price->new(
63     price        => $self->part->listprice * $self->unit_mul,
64     spec         => 'listprice',
65     description  => t8('List Price'),
66     price_source => $self,
67   );
68 }
69
70 sub make_lastcost {
71   my ($self) = @_;
72
73   return SL::PriceSource::Price->new(
74     price        => $self->part->lastcost * $self->unit_mul,
75     spec         => 'lastcost',
76     description  => t8('Lastcost'),
77     price_source => $self,
78   );
79 }
80
81 1;