From: Philip Reetz Date: Wed, 7 Dec 2005 09:54:55 +0000 (+0000) Subject: Noch ein paar Formatierungsfehler bei Umwandlung von Sammelbestellung in Rechnung X-Git-Tag: release-2.4.0^2~437 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=5775353eae5df3a7b1743946559ccb133d5c722e;p=kivitendo-erp.git Noch ein paar Formatierungsfehler bei Umwandlung von Sammelbestellung in Rechnung --- 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