From cbe2c598017fa2b598d0e125ee695448e4df9975 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Thu, 12 May 2011 11:17:50 +0200
Subject: [PATCH] =?utf8?q?Fix=20f=C3=BCr=20Bug=201642=20-=20Lieferantenrab?=
 =?utf8?q?att=20wird=20korrekt=20gespeichert,=20aber=20nicht=20mehr=20ange?=
 =?utf8?q?zeigt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

1.) Lieferant anlegen: Lieferantenrabatt 20%

2.) Einkaufsrechung erfassen: Rabatt ist korrekt

3.) Buchen

4.) Einkaufsrechnung neu aufrufen, Rabatt ist auf 2% gerutscht, acc_trans
Buchungen und ap.amount ist korrekt geblieben
---
 bin/mozilla/ir.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 3217bf00b..1f18c1fc3 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -226,6 +226,12 @@ sub prepare_invoice {
     foreach my $ref (@{ $form->{invoice_details} }) {
       $i++;
       map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
+      # übernommen aus is.pl Fix für Bug 1642. Nebenwirkungen? jb 12.5.2011
+      # getestet: Lieferantenauftrag -> Rechnung i.O.
+      #           Lieferantenauftrag -> Lieferschein -> Rechnung i.O.
+      # Werte: 20% (Lieferantenrabatt), 12,4% individuell und 0,4 individuell s.a. 
+      # Screenshot zu Bug 1642
+      $form->{"discount_$i"}   = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
 
       my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
       $dec           = length $dec;
-- 
2.20.1