From a326f38598de691873a8d443558391c247749e1f Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 8 Jun 2007 14:29:32 +0000
Subject: [PATCH] Noch ein paar Fehler bei Zahlungseingaengen im Zusammenhang
 mit den Wechselkursen

---
 bin/mozilla/ap.pl | 3 +++
 bin/mozilla/ar.pl | 3 +++
 bin/mozilla/ir.pl | 5 +++++
 3 files changed, 11 insertions(+)

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 5fa77109e..ff29c0bbc 100644
--- 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 fbdbbc084..82291f005 100644
--- 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 99ff95863..7740edd00 100644
--- 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);
-- 
2.20.1