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