From: G. Richardson <information@kivitendo-premium.de>
Date: Tue, 7 Jun 2016 14:22:05 +0000 (+0200)
Subject: BUG-Fix: Kreditorenbuchungen: Währung wird nicht übernommen
X-Git-Tag: release-3.4.1~24
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=76785737d502010ff059f356eb0a22ba34430e08;p=kivitendo-erp.git

BUG-Fix: Kreditorenbuchungen: Währung wird nicht übernommen

Es werden IMMER die Währungeinstellungen vom Lieferanten genommen.
Die Variable currency wird beim Holen der Lieferanten-Daten überschrieben.
Den Variablen-Wert vor dem Holen der Stammdaten sichern und danach
zurückschreiben.
---

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 26e397bf7..11307883e 100644
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -146,6 +146,7 @@ sub create_links {
   if (!$params{dont_save}) {
     %saved = map { ($_ => $form->{$_}) } qw(direct_debit taxincluded);
     $saved{duedate} = $form->{duedate} if $form->{duedate};
+    $saved{currency} = $form->{currency} if $form->{currency};
   }
 
   IR->get_vendor(\%myconfig, \%$form);
diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 059bfc415..7952be3a5 100644
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -159,6 +159,7 @@ sub create_links {
   if (!$params{dont_save}) {
     %saved = map { ($_ => $form->{$_}) } qw(direct_debit id taxincluded);
     $saved{duedate} = $form->{duedate} if $form->{duedate};
+    $saved{currency} = $form->{currency} if $form->{currency};
   }
 
   IS->get_customer(\%myconfig, \%$form);