Revision f3ea7204
Von Bernd Blessmann vor fast 14 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 179 | 179 |
# get customer / vendor |
| 180 | 180 |
if ($form->{vc} eq 'vendor') {
|
| 181 | 181 |
IR->get_vendor(\%myconfig, \%$form); |
| 182 |
$form->{discount} = $form->{vendor_discount};
|
|
| 182 | 183 |
} else {
|
| 183 | 184 |
IS->get_customer(\%myconfig, \%$form); |
| 184 |
# OFFEN tritt bug 1284 auch bei vendor auf? |
|
| 185 | 185 |
$form->{discount} = $form->{customer_discount};
|
| 186 | 186 |
} |
| 187 | 187 |
|
| ... | ... | |
| 733 | 733 |
|
| 734 | 734 |
for my $i (1 .. $form->{rowcount}) {
|
| 735 | 735 |
# für bug 1284 |
| 736 |
if ($form->{discount}){ # Falls wir einen Kundenrabatt haben
|
|
| 736 |
if ($form->{discount}){ # Falls wir einen Lieferanten-/Kundenrabatt haben
|
|
| 737 | 737 |
# und keinen anderen discount wert an $i ... |
| 738 |
$form->{"discount_$i"} ||= $form->{discount}*100; # ... nehmen wir den kundenrabatt
|
|
| 738 |
$form->{"discount_$i"} ||= $form->{discount}*100; # ... nehmen wir diesen Rabatt
|
|
| 739 | 739 |
} |
| 740 | 740 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice listprice lastcost basefactor);
|
| 741 | 741 |
} |
Auch abrufbar als: Unified diff
Lieferantenrabatt geht nicht mehr verloren.
Fix für Bug 1524