From ecd0ca84b40d3b1c54f50649c76c59d7247b5fd6 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 17 Mar 2009 15:01:36 +0000 Subject: [PATCH] =?utf8?q?Bugfix=20f=C3=BCr=20"Zahlung=20buchen":?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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. --- SL/AP.pm | 1 + SL/AR.pm | 1 + 2 files changed, 2 insertions(+) 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}); -- 2.20.1