Revision 97908d77
Von Bernd Bleßmann vor mehr als 9 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 655 | 655 |
} |
| 656 | 656 |
|
| 657 | 657 |
my $amount = |
| 658 |
$form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) *
|
|
| 658 |
$form->{"sellprice_$i"} * (1 - $form->{"discount_$i"}) *
|
|
| 659 | 659 |
$form->{"qty_$i"};
|
| 660 | 660 |
map { $form->{"${_}_base"} += $amount }
|
| 661 | 661 |
(split / /, $form->{"taxaccounts_$i"});
|
| ... | ... | |
| 672 | 672 |
$form->{"${_}_$i"} =
|
| 673 | 673 |
$form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces)
|
| 674 | 674 |
} qw(sellprice listprice lastcost qty) if $form->{item} ne 'assembly';
|
| 675 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0) if $form->{item} ne 'assembly';
|
|
| 675 | 676 |
|
| 676 | 677 |
delete $form->{nextsub};
|
| 677 | 678 |
|
Auch abrufbar als: Unified diff
parse/format-Fehler bei Rabatten behoben
Schon in der Maske eingegebene Rabatte wurden nicht geparsed,
Kunden-/Lieferanten und -Typ-Rabatte wurden teilweise ohne Berücksichtigung
schon eingegebener Rabatte gesetzt. Und beim Auswahl eines Artikels über die
Auswahlmaske, wurden Rabatte falsch formatiert.
behebt #50 (redmine) (unter anderem)