From: Jan Büren <jan@kivitendo-premium.de>
Date: Wed, 3 Aug 2016 12:55:24 +0000 (+0200)
Subject: Workflow Lieferschein -> Rechnung. Kundenrabatt mit Nachkommastellen i.O.
X-Git-Tag: release-3.5.4~2155
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=251173163d156148d104e10d65626dafcb199049;p=kivitendo-erp.git

Workflow Lieferschein -> Rechnung. Kundenrabatt mit Nachkommastellen i.O.

Zu den weiteren lästigen Rabattfehlern nun auch noch der Fall,
wo der Workflow im Lieferschein beginnt und ein Kundenrabatt mit
Nachkommastellen existiert.
---

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"};
   }