From 5775353eae5df3a7b1743946559ccb133d5c722e Mon Sep 17 00:00:00 2001
From: Philip Reetz <p.reetz@linet-services.de>
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