Revision 0b6157e2
Von Jan Büren vor fast 10 Jahren hinzugefügt
bin/mozilla/oe.pl | ||
---|---|---|
1893 | 1893 |
|
1894 | 1894 |
# reset |
1895 | 1895 |
delete @{$form}{qw(id subject message cc bcc printed emailed queued creditlimit creditremaining discount tradediscount oldinvtotal closed delivered)}; |
1896 |
delete $form->{"orderitems_id_$_"} for 1 .. $form->{"rowcount"}; |
|
1897 | 1896 |
|
1898 | 1897 |
for my $i (1 .. $form->{rowcount}) { |
1899 | 1898 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice lastcost basefactor discount); |
1900 |
$form->{"converted_from_order_orderitems_id_$_"} = $form->{"orderitems_id_$_"} for 1 .. $form->{"rowcount"}; |
|
1899 |
$form->{"converted_from_order_orderitems_id_$i"} = $form->{"orderitems_id_$i"}; |
|
1900 |
delete $form->{"orderitems_id_$i"}; # even if they don't exist in form. cvars checks them before display_row |
|
1901 | 1901 |
} |
1902 | 1902 |
|
1903 | 1903 |
my %old_values = map { $_ => $form->{$_} } qw(customer_id oldcustomer customer vendor_id oldvendor vendor shipto_id); |
Auch abrufbar als: Unified diff
Positionen verknüpfen Auftrag -> Lieferschein