kivitendo/SL/PriceSource/MasterData.pm @ 0409db7c
| eebe8e90 | Sven Schöling | package SL::PriceSource::MasterData;
|
||
use strict;
|
||||
use parent qw(SL::PriceSource::Base);
|
||||
use SL::PriceSource::Price;
|
||||
use SL::Locale::String;
|
||||
sub name { 'master_data' }
|
||||
sub description { t8('Master Data') }
|
||||
sub available_prices {
|
||||
my ($self, %params) = @_;
|
||||
my $part = $self->part;
|
||||
return () unless $part;
|
||||
# TODO: sellprice only in sales, lastcost in purchase
|
||||
return $self->make_sellprice($part);
|
||||
}
|
||||
sub price_from_source {
|
||||
my ($self, $source, $spec) = @_;
|
||||
if ($spec eq 'sellprice') {
|
||||
return $self->make_sellprice($self->part);
|
||||
}
|
||||
}
|
||||
sub make_sellprice {
|
||||
my ($self, $part) = @_;
|
||||
return SL::PriceSource::Price->new(
|
||||
price => $part->sellprice,
|
||||
| 0409db7c | Sven Schöling | spec => 'sellprice',
|
||
| eebe8e90 | Sven Schöling | description => t8('Sellprice'),
|
||
price_source => $self,
|
||||
);
|
||||
}
|
||||
1;
|