Revision 79b7fc43
Von Bernd Bleßmann vor fast 10 Jahren hinzugefügt
| SL/PriceSource/Vendor.pm | ||
|---|---|---|
|
use parent qw(SL::PriceSource::Base);
|
||
|
|
||
|
use SL::DB::Vendor;
|
||
|
use SL::PriceSource::Price;
|
||
|
use SL::PriceSource::Discount;
|
||
|
use SL::Locale::String;
|
||
|
|
||
|
sub name { 'vendor_discount' }
|
||
| ... | ... | |
|
return unless $self->record->vendor;
|
||
|
return unless $self->record->vendor->discount != 0;
|
||
|
|
||
|
SL::PriceSource::Vendor->new(
|
||
|
SL::PriceSource::Discount->new(
|
||
|
discount => $self->record->vendor->discount,
|
||
|
spec => $self->record->vendor->id,
|
||
|
description => t8('Vendor Discount'),
|
||
Auch abrufbar als: Unified diff
PriceSource: Objekt der richtigen Klasse für Lieferanten-Rabtt erzeugen.