X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2e07a0cdb14d031d325b20f05e916105f385ac19..fb37acdc4c87cf9bc4ef6abb54e486c1b3829d6c:/SL/AP.pm?ds=inline

diff --git a/SL/AP.pm b/SL/AP.pm
index 0f2e8ee07..3bd658cb5 100644
--- 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;