kivitendo/SL/PriceSource/MasterData.pm @ eebe8e90
| 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,
|
|||
source => 'master_data/sellprice',
|
|||
description => t8('Sellprice'),
|
|||
price_source => $self,
|
|||
);
|
|||
}
|
|||
1;
|