Noch ein paar Fehler bei Zahlungseingaengen im Zusammenhang mit den Wechselkursen

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 5fa77109e93d4d3beea042e9e9891f3284c513fc..ff29c0bbcadde99bbaf88cf2e027806dd6f14d63 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -907,6 +907,9 @@ sub update {
 
 sub post_payment {
   $lxdebug->enter_sub();
+
+  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
+
   for $i (1 .. $form->{paidaccounts}) {
     if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
       $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index fbdbbc084f3b0456ce8d7f1d8c102aba1b613fed..82291f005f5741c157c290d586ea9a52906f7332 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -951,6 +951,9 @@ sub update {
 
 sub post_payment {
   $lxdebug->enter_sub();
+
+  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
+
   for $i (1 .. $form->{paidaccounts}) {
     if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
       $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 99ff95863b6e9268d13c25b1871a4dc5374ef7b0..7740edd00096fb583fb92fc67197b69a3aa5f592 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -227,6 +227,9 @@ sub form_header {
     $form->{salesman_id} = $form->{old_salesman_id};
   }
 
+  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
+
+
   $form->{radier} =
     ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
 
@@ -1057,6 +1060,8 @@ sub use_as_template {
 
 sub post_payment {
   $lxdebug->enter_sub();
+
+  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
   for $i (1 .. $form->{paidaccounts}) {
     if ($form->{"paid_$i"}) {
       $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);