Revision e01d7de0
Von Sven Schöling vor mehr als 19 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
|
$dec = length $dec;
|
||
|
my $decimalplaces = ($dec > 2) ? $dec : 2;
|
||
|
|
||
|
my $discount =
|
||
|
$form->round_amount(
|
||
|
$sellprice * $form->parse_amount($myconfig,
|
||
|
$form->{"discount_$i"}) / 100,
|
||
|
$decimalplaces);
|
||
|
my $i_discount = $form->round_amount($sellprice *
|
||
|
$form->parse_amount($myconfig, $form->{"discount_$i"}) / 100, $decimalplaces);
|
||
|
|
||
|
my $discount = $form->round_amount($form->{"qty_$i"} * $i_discount, $decimalplaces);
|
||
|
|
||
|
# keep a netprice as well, (sellprice - discount)
|
||
|
$form->{"netprice_$i"} = $sellprice - $discount;
|
||
|
$form->{"netprice_$i"} = $sellprice - $i_discount;
|
||
|
|
||
|
push(@{ $form->{netprice} },
|
||
|
($form->{"netprice_$i"} != 0)
|
||
|
? $form->format_amount(
|
||
Auch abrufbar als: Unified diff
Fix zu Bug 220, Rabatt wurde nur fuer ein einzelnes Item berechnet.
Man sollte dazu noch erwaehnen, dass das anscheinend kein Bug,
sondern eine Designentscheidung im SQL-Ledger ist.