From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 17 Mar 2009 15:01:36 +0000 (+0000)
Subject: Bugfix für "Zahlung buchen":
X-Git-Tag: release-2.6.0beta2~133
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=ecd0ca84b40d3b1c54f50649c76c59d7247b5fd6;p=kivitendo-erp.git

Bugfix für "Zahlung buchen":

Wenn eine Rechnung anfangs keine Währung zugewiesen hat, weil noch keine
Währungen eingetragen wurden, später aber in den Benutzereinstellungen
Währungen definiert werden, so führte das dazu, dass bei Buchen der
Zahlungen Lx-Office fälschlicherweise angenommen hat, dass der Benutzer
plötzlich eine andere Währung ausgewählt hat. Um das zu vermeiden,
wird für diesen Fall die Standardwährung angenommen.
---

diff --git a/SL/AP.pm b/SL/AP.pm
index 514324522..e2709f734 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -578,6 +578,7 @@ sub post_payment {
 
   ($form->{defaultcurrency}) = selectrow_query($form, $dbh, qq|SELECT curr FROM defaults|);
   $form->{defaultcurrency}   = (split m/:/, $form->{defaultcurrency})[0];
+  $form->{currency}          = $form->{defaultcurrency} if ($form->{defaultcurrency} && ($form->{currency} =~ m/^\s*$/));
 
   $form->{exchangerate}      = $form->format_amount($myconfig, $form->{exchangerate});
 
diff --git a/SL/AR.pm b/SL/AR.pm
index 14fa809c4..4a29c434c 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -348,6 +348,7 @@ sub post_payment {
 
   ($form->{defaultcurrency}) = selectrow_query($form, $dbh, qq|SELECT curr FROM defaults|);
   $form->{defaultcurrency}   = (split m/:/, $form->{defaultcurrency})[0];
+  $form->{currency}          = $form->{defaultcurrency} if ($form->{defaultcurrency} && ($form->{currency} =~ m/^\s*$/));
 
   $form->{exchangerate}      = $form->format_amount($myconfig, $form->{exchangerate});