Revision 747bdb80
Von Geoffrey Richardson vor mehr als 15 Jahren hinzugefügt
| 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.