From 251173163d156148d104e10d65626dafcb199049 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Wed, 3 Aug 2016 14:55:24 +0200 Subject: [PATCH] Workflow Lieferschein -> Rechnung. Kundenrabatt mit Nachkommastellen i.O. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Zu den weiteren lästigen Rabattfehlern nun auch noch der Fall, wo der Workflow im Lieferschein beginnt und ein Kundenrabatt mit Nachkommastellen existiert. --- bin/mozilla/do.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl index a583f8d14..89d012e2b 100644 --- a/bin/mozilla/do.pl +++ b/bin/mozilla/do.pl @@ -828,7 +828,10 @@ sub invoice { } for my $i (1 .. $form->{rowcount}) { + map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor discount); # für bug 1284 + # adds a customer/vendor discount, unless we have a workflow case + # CAVEAT: has to be done, after the above parse_amount unless ($form->{"ordnumber"}) { if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben # und rabattfähig sind, dann @@ -837,7 +840,6 @@ sub invoice { } } } - map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor discount); $form->{"donumber_$i"} = $form->{donumber}; $form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"}; } -- 2.20.1