Probleme mit mehreren Währungen und Wechselkursen behoben.

[mfinanz.git] / SL / AP.pm

diff --git a/SL/AP.pm b/SL/AP.pm
index 0f2e8ee0736b5ce46e301af8141c380e8e09407a..3bd658cb570a0a1794465887cf3d9e15364598dd 100644 (file)
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -48,6 +48,8 @@ sub post_transaction {
   my ($null, $taxrate, $amount);
   my $exchangerate = 0;
 
+  $form->{defaultcurrency} = $form->get_default_currency($myconfig);
+
   ($null, $form->{department_id}) = split(/--/, $form->{department});
   $form->{department_id} *= 1;