From 5775353eae5df3a7b1743946559ccb133d5c722e Mon Sep 17 00:00:00 2001 From: Philip Reetz Date: Wed, 7 Dec 2005 09:54:55 +0000 Subject: [PATCH] Noch ein paar Formatierungsfehler bei Umwandlung von Sammelbestellung in Rechnung --- SL/OE.pm | 20 +------------------- 1 file changed, 1 insertion(+), 19 deletions(-) diff --git a/SL/OE.pm b/SL/OE.pm index ecd46470a..29d8c09e7 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -483,30 +483,12 @@ sub close_orders { if ($form->{"qty_$i"}) { - map { $form->{"${_}_$i"} =~ s/\'/\'\'/g } - qw(partnumber description unit); - # set values to 0 if nothing entered $form->{"discount_$i"} = - $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100; + $form->parse_amount($myconfig, $form->{"discount_$i"}); $form->{"sellprice_$i"} = $form->parse_amount($myconfig, $form->{"sellprice_$i"}); - $fxsellprice = $form->{"sellprice_$i"}; - - my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); - $dec = length $dec; - my $decimalplaces = ($dec > 2) ? $dec : 2; - - $discount = - $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"}, - $decimalplaces); - $form->{"sellprice_$i"} = - $form->round_amount($form->{"sellprice_$i"} - $discount, - $decimalplaces); - - $form->{"inventory_accno_$i"} *= 1; - $form->{"expense_accno_$i"} *= 1; } } # get ids from $form -- 2.20.1