Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision ecd0ca84

Von Moritz Bunkus vor fast 16 Jahren hinzugefügt

  • ID ecd0ca84b40d3b1c54f50649c76c59d7247b5fd6
  • Vorgänger f30b6f52
  • Nachfolger bc40c989

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.

Unterschiede anzeigen:

SL/AP.pm
578 578

  
579 579
  ($form->{defaultcurrency}) = selectrow_query($form, $dbh, qq|SELECT curr FROM defaults|);
580 580
  $form->{defaultcurrency}   = (split m/:/, $form->{defaultcurrency})[0];
581
  $form->{currency}          = $form->{defaultcurrency} if ($form->{defaultcurrency} && ($form->{currency} =~ m/^\s*$/));
581 582

  
582 583
  $form->{exchangerate}      = $form->format_amount($myconfig, $form->{exchangerate});
583 584

  
SL/AR.pm
348 348

  
349 349
  ($form->{defaultcurrency}) = selectrow_query($form, $dbh, qq|SELECT curr FROM defaults|);
350 350
  $form->{defaultcurrency}   = (split m/:/, $form->{defaultcurrency})[0];
351
  $form->{currency}          = $form->{defaultcurrency} if ($form->{defaultcurrency} && ($form->{currency} =~ m/^\s*$/));
351 352

  
352 353
  $form->{exchangerate}      = $form->format_amount($myconfig, $form->{exchangerate});
353 354

  

Auch abrufbar als: Unified diff