Revision 2f6636f6
Von Bernd Bleßmann vor mehr als 9 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1445 | 1445 |
$form->{cp_id} *= 1;
|
| 1446 | 1446 |
|
| 1447 | 1447 |
for my $i (1 .. $form->{rowcount}) {
|
| 1448 |
for (qw(ship qty sellprice listprice basefactor)) {
|
|
| 1448 |
for (qw(ship qty sellprice basefactor)) {
|
|
| 1449 | 1449 |
$form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"};
|
| 1450 | 1450 |
} |
| 1451 | 1451 |
$form->{"converted_from_orderitems_id_$i"} = delete $form->{"orderitems_id_$i"};
|
| ... | ... | |
| 1847 | 1847 |
}; |
| 1848 | 1848 |
|
| 1849 | 1849 |
for my $i (1 .. $form->{rowcount}) {
|
| 1850 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor discount lastcost);
|
|
| 1850 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice basefactor discount lastcost);
|
|
| 1851 | 1851 |
} |
| 1852 | 1852 |
|
| 1853 | 1853 |
my %saved_vars = map { $_ => $form->{$_} } grep { $form->{$_} } qw(currency);
|
| ... | ... | |
| 1909 | 1909 |
delete @{$form}{qw(id subject message cc bcc printed emailed queued creditlimit creditremaining discount tradediscount oldinvtotal closed delivered)};
|
| 1910 | 1910 |
|
| 1911 | 1911 |
for my $i (1 .. $form->{rowcount}) {
|
| 1912 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice lastcost basefactor discount);
|
|
| 1912 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice lastcost basefactor discount);
|
|
| 1913 | 1913 |
$form->{"converted_from_orderitems_id_$i"} = delete $form->{"orderitems_id_$i"};
|
| 1914 | 1914 |
} |
| 1915 | 1915 |
|
Auch abrufbar als: Unified diff
Listenpreis in Belegen u. Ausdruck richtig formatieren und nicht mehr parsen.
listprice wird in den Belegen nur angezeigt. Man kann ihn nicht eingeben und
auch nicht speichern. Deshalb wird er jetzt nur zur Ausgabe formatiert
(io.pl:display_row, OE.pm:order_details, IS.pm:invoice_details), aber nicht
formatiert gespeichert.
io.pl:display_row schreibt ihn auch unformatiert als hidden in die Form.
Das war wohl so gedacht, aber nicht konsequent eingehalten und auch von mir an
einigen Stellen "verschlimmbessert" worden.
Evtl. sollte der listprice gar nicht als hidden mitgeschliffen werden, sondern
immer aus der DB gelesen werden.
behebt #46 (redmine)