Revision 97908d77
Von Bernd Bleßmann vor mehr als 9 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 631 | 631 |
|
| 632 | 632 |
my $rows = scalar @{ $form->{item_list} };
|
| 633 | 633 |
|
| 634 |
# hier ist das problem fuer bug 817 $form->{discount} wird nicht durchgeschliffen
|
|
| 635 |
# ferner fallunterscheidung fuer verkauf oder einkauf s.a. bug 736 jb 04.05.2009 |
|
| 636 |
# select discount as vendor_discount from vendor || |
|
| 637 |
# select discount as customer_discount from customer |
|
| 638 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"$form->{vc}_discount"} * 100);
|
|
| 634 |
$form->{"discount_$i"} = $form->parse_amount(\%myconfig, $form->{"discount_$i"}) / 100.0;
|
|
| 635 |
$form->{"discount_$i"} ||= $form->{"$form->{vc}_discount"};
|
|
| 639 | 636 |
|
| 640 | 637 |
$form->{"lastcost_$i"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$i"});
|
| 641 | 638 |
|
| ... | ... | |
| 693 | 690 |
$form->{"sellprice_$i"} /= $exchangerate; # if there is an exchange rate adjust sellprice
|
| 694 | 691 |
} |
| 695 | 692 |
|
| 696 |
my $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100);
|
|
| 693 |
my $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"});
|
|
| 697 | 694 |
map { $form->{"${_}_base"} = 0 } split / /, $form->{taxaccounts};
|
| 698 | 695 |
map { $form->{"${_}_base"} += $amount } split / /, $form->{"taxaccounts_$i"};
|
| 699 | 696 |
map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{taxaccounts} if !$form->{taxincluded};
|
| ... | ... | |
| 703 | 700 |
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
|
| 704 | 701 |
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
|
| 705 | 702 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
| 703 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0);
|
|
| 706 | 704 |
} |
| 707 | 705 |
|
| 708 | 706 |
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)