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