Revision 97908d77
Von Bernd Bleßmann vor mehr als 9 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 484 | 484 |
|
| 485 | 485 |
my $rows = scalar @{ $form->{item_list} };
|
| 486 | 486 |
|
| 487 |
$form->{"discount_$i"} = $form->parse_amount(\%myconfig, $form->{"discount_$i"}) / 100.0;
|
|
| 488 |
$form->{"discount_$i"} ||= $form->{vendor_discount};
|
|
| 489 |
|
|
| 487 | 490 |
if ($rows) {
|
| 488 | 491 |
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
| 489 | 492 |
if( !$form->{"qty_$i"} ) {
|
| ... | ... | |
| 500 | 503 |
# override sellprice if there is one entered |
| 501 | 504 |
my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
|
| 502 | 505 |
|
| 503 |
# ergaenzung fuer bug 736 Lieferanten-Rabatt auch in Einkaufsrechnungen vorbelegen jb |
|
| 504 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{vendor_discount} * 100 );
|
|
| 505 | 506 |
map { $form->{item_list}[$i]{$_} =~ s/\"/"/g } qw(partnumber description unit);
|
| 506 | 507 |
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
|
| 507 | 508 |
|
| ... | ... | |
| 532 | 533 |
$form->{"sellprice_$i"} /= $exchangerate;
|
| 533 | 534 |
} |
| 534 | 535 |
|
| 535 |
my $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100);
|
|
| 536 |
my $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"});
|
|
| 536 | 537 |
$form->{creditremaining} -= $amount;
|
| 537 | 538 |
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
|
| 538 | 539 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
| 540 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0);
|
|
| 539 | 541 |
} |
| 540 | 542 |
|
| 541 | 543 |
&display_form; |
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)