Revision 747bdb80
Von Geoffrey Richardson vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 885 | 885 |
for $i (1 .. $form->{rowcount}) {
|
| 886 | 886 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"})
|
| 887 | 887 |
if ($form->{"${_}_${i}"}) }
|
| 888 |
qw(ship qty sellprice listprice basefactor)); |
|
| 888 |
qw(ship qty sellprice listprice basefactor discount));
|
|
| 889 | 889 |
} |
| 890 | 890 |
|
| 891 | 891 |
&prepare_order; |
| ... | ... | |
| 941 | 941 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
| 942 | 942 |
$form->{"${_}_${i}"})
|
| 943 | 943 |
if ($form->{"${_}_${i}"}) }
|
| 944 |
qw(ship qty sellprice listprice basefactor)); |
|
| 944 |
qw(ship qty sellprice listprice basefactor discount));
|
|
| 945 | 945 |
} |
| 946 | 946 |
|
| 947 | 947 |
&prepare_order; |
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1612 | 1612 |
ordnumber); |
| 1613 | 1613 |
|
| 1614 | 1614 |
for $i (1 .. $form->{rowcount}) {
|
| 1615 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor);
|
|
| 1615 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor discount);
|
|
| 1616 | 1616 |
} |
| 1617 | 1617 |
|
| 1618 | 1618 |
my %saved_vars = map { $_ => $form->{$_} } grep { $form->{$_} } qw(currency);
|
| ... | ... | |
| 1669 | 1669 |
delete @{$form}{qw(id subject message cc bcc printed emailed queued creditlimit creditremaining discount tradediscount oldinvtotal closed delivered)};
|
| 1670 | 1670 |
|
| 1671 | 1671 |
for $i (1 .. $form->{rowcount}) {
|
| 1672 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor);
|
|
| 1672 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor discount);
|
|
| 1673 | 1673 |
} |
| 1674 | 1674 |
|
| 1675 | 1675 |
my %old_values = map { $_ => $form->{$_} } qw(customer_id oldcustomer customer vendor_id oldvendor vendor);
|
Auch abrufbar als: Unified diff
discount formatting
Formatierung von discount, z.B. bei den Workflowschritten
Rechnung -> Auftrag
Auftrag -> Angebot
Wahrscheinlich muß das noch an vielen anderen Stellen geändert werden.