Revision fd8558c8
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
| SL/OE.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 - $discount;
|
||
|
$form->{"netprice_$i"} = $sellprice - $i_discount;
|
||
|
|
||
|
my $linetotal =
|
||
|
$form->round_amount($form->{"qty_$i"} * $form->{"netprice_$i"}, 2);
|
||
Auch abrufbar als: Unified diff
Nachtrag zu Bug 220, Rabatt wurde nur fuer ein einzelnes Item berechnet.
Korrektur bei Angeboten