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 5143245224267d0a60a1c7b7af8f1ba4548cee89..e2709f7342cb48c83260244ea905e2557efcd093 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->{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});
 
 
   $form->{exchangerate}      = $form->format_amount($myconfig, $form->{exchangerate});
 

diff --git a/SL/AR.pm b/SL/AR.pm
index 14fa809c4d86ea4a4597bdc9a8a6bdb09d733047..4a29c434c05aaf40af24cad286beaed0954f693b 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->{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});
 
 
   $form->{exchangerate}      = $form->format_amount($myconfig, $form->{exchangerate});