From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 8 Jun 2007 14:29:32 +0000 (+0000)
Subject: Noch ein paar Fehler bei Zahlungseingaengen im Zusammenhang mit den Wechselkursen
X-Git-Tag: release-2.4.3^2~171
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a326f38598de691873a8d443558391c247749e1f;p=kivitendo-erp.git

Noch ein paar Fehler bei Zahlungseingaengen im Zusammenhang mit den Wechselkursen
---

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);