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   my $part = $self->part;
  17
  18   return () unless $part;
  19
  20   # TODO: sellprice only in sales, lastcost in purchase
  21   return $self->make_sellprice($part);
  22 }
  23
  24 sub price_from_source {
  25   my ($self, $source, $spec) = @_;
  26
  27   if ($spec eq 'sellprice') {
  28     return $self->make_sellprice($self->part);
  29   }
  30 }
  31
  32 sub make_sellprice {
  33   my ($self, $part) = @_;
  34
  35   return SL::PriceSource::Price->new(
  36     price        => $part->sellprice,
  37     source       => 'master_data/sellprice',
  38     description  => t8('Sellprice'),
  39     price_source => $self,
  40   );
  41 }
  42
  43 1;