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 best_price {
  35   $_[0]->record->is_sales
  36   ? $_[0]->make_sellprice
  37   : $_[0]->make_lastcost
  38 }
  39
  40 sub best_discount { }
  41
  42 sub make_sellprice {
  43   my ($self) = @_;
  44
  45   return SL::PriceSource::Price->new(
  46     price        => $self->part->sellprice,
  47     spec         => 'sellprice',
  48     description  => t8('Sellprice'),
  49     price_source => $self,
  50   );
  51 }
  52
  53 sub make_listprice {
  54   my ($self) = @_;
  55
  56   return SL::PriceSource::Price->new(
  57     price        => $self->part->listprice,
  58     spec         => 'listprice',
  59     description  => t8('List Price'),
  60     price_source => $self,
  61   );
  62 }
  63
  64 sub make_lastcost {
  65   my ($self) = @_;
  66
  67   return SL::PriceSource::Price->new(
  68     price        => $self->part->lastcost,
  69     spec         => 'lastcost',
  70     description  => t8('Lastcost'),
  71     price_source => $self,
  72   );
  73 }
  74
  75 1;