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 26e397bf705dde650a67e0aaef2e911e84767713..11307883efe00f2d957ce2b9eed9e4857228b094 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 059bfc415e5a35bafaa8a715d8e400de53f6b7fc..7952be3a5fa463ad909d43fc0d88e4a44bc979e1 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);