1 package SL::PriceSource::MasterData;
4 use parent qw(SL::PriceSource::Base);
6 use SL::PriceSource::Price;
7 use SL::Locale::String;
9 sub name { 'master_data' }
11 sub description { t8('Master Data') }
13 sub available_prices {
14 my ($self, %params) = @_;
16 my $part = $self->part;
18 return () unless $part;
20 # TODO: sellprice only in sales, lastcost in purchase
21 return $self->make_sellprice($part);
24 sub price_from_source {
25 my ($self, $source, $spec) = @_;
27 if ($spec eq 'sellprice') {
28 return $self->make_sellprice($self->part);
33 my ($self, $part) = @_;
35 return SL::PriceSource::Price->new(
36 price => $part->sellprice,
38 description => t8('Sellprice'),
39 price_source => $self,