Revision 2d975c00
Von Sven Schöling vor mehr als 9 Jahren hinzugefügt
| SL/PriceSource/MasterData.pm | ||
|---|---|---|
|
|
||
|
sub best_discount { }
|
||
|
|
||
|
sub unit_mul {
|
||
|
$_[0]->record_item ? $_[0]->record_item->unit_multiplier : 1
|
||
|
}
|
||
|
|
||
|
sub make_sellprice {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return SL::PriceSource::Price->new(
|
||
|
price => $self->part->sellprice,
|
||
|
price => $self->part->sellprice * $self->unit_mul,
|
||
|
spec => 'sellprice',
|
||
|
description => t8('Sellprice'),
|
||
|
price_source => $self,
|
||
| ... | ... | |
|
my ($self) = @_;
|
||
|
|
||
|
return SL::PriceSource::Price->new(
|
||
|
price => $self->part->listprice,
|
||
|
price => $self->part->listprice * $self->unit_mul,
|
||
|
spec => 'listprice',
|
||
|
description => t8('List Price'),
|
||
|
price_source => $self,
|
||
| ... | ... | |
|
my ($self) = @_;
|
||
|
|
||
|
return SL::PriceSource::Price->new(
|
||
|
price => $self->part->lastcost,
|
||
|
price => $self->part->lastcost * $self->unit_mul,
|
||
|
spec => 'lastcost',
|
||
|
description => t8('Lastcost'),
|
||
|
price_source => $self,
|
||
Auch abrufbar als: Unified diff
PriceSource: Stammdaten beachten jetzt Einheiten