Bugfix für "Zahlung buchen":
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 17 Mar 2009 15:01:36 +0000 (15:01 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 17 Mar 2009 15:01:36 +0000 (15:01 +0000)
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
SL/AR.pm

index 5143245..e2709f7 100644 (file)
--- 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});
 
index 14fa809..4a29c43 100644 (file)
--- 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});