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