Revision e01d7de0
Von Sven Schöling vor mehr als 18 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 141 | 141 |
$dec = length $dec; |
| 142 | 142 |
my $decimalplaces = ($dec > 2) ? $dec : 2; |
| 143 | 143 |
|
| 144 |
my $discount = |
|
| 145 |
$form->round_amount( |
|
| 146 |
$sellprice * $form->parse_amount($myconfig, |
|
| 147 |
$form->{"discount_$i"}) / 100,
|
|
| 148 |
$decimalplaces); |
|
| 144 |
my $i_discount = $form->round_amount($sellprice * |
|
| 145 |
$form->parse_amount($myconfig, $form->{"discount_$i"}) / 100, $decimalplaces);
|
|
| 146 |
|
|
| 147 |
my $discount = $form->round_amount($form->{"qty_$i"} * $i_discount, $decimalplaces);
|
|
| 149 | 148 |
|
| 150 | 149 |
# keep a netprice as well, (sellprice - discount) |
| 151 |
$form->{"netprice_$i"} = $sellprice - $discount;
|
|
| 150 |
$form->{"netprice_$i"} = $sellprice - $i_discount;
|
|
| 151 |
|
|
| 152 | 152 |
push(@{ $form->{netprice} },
|
| 153 | 153 |
($form->{"netprice_$i"} != 0)
|
| 154 | 154 |
? $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.