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 26e397b..1130788 100644 (file)
--- 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 059bfc4..7952be3 100644 (file)
--- 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);