Wechselkurs ging bei Kreditoren/Debitoren-Buchungen verloren, wenn er kleiner 1 war.

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index d90b06209fe8590d6b40b4383fdc8a3686df71a0..bc2986c27e35c03568fbbc5d4e11b31f57a5b915 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -684,12 +684,13 @@ $jsscript
     # format amounts
     if ($form->{"paid_$i"}) {
       $form->{"paid_$i"} =
     # format amounts
     if ($form->{"paid_$i"}) {
       $form->{"paid_$i"} =

-      $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
+        $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);

     }
     }

-    $form->{"exchangerate_$i"} =
-      $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});

     if ($form->{"exchangerate_$i"} == 0) {
       $form->{"exchangerate_$i"} = "";
     if ($form->{"exchangerate_$i"} == 0) {
       $form->{"exchangerate_$i"} = "";

+    } else {
+      $form->{"exchangerate_$i"} =
+        $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});

     }
 
     print qq|<input type=hidden name="gldate_$i" value=$form->{"gldate_$i"}>\n|;
     }
 
     print qq|<input type=hidden name="gldate_$i" value=$form->{"gldate_$i"}>\n|;

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 8a04ac5172b3c662131c41a773738de95a551ebf..8ec365ada12d758fcf0dddf84e15c02a51f50ce8 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -727,11 +727,11 @@ $jsscript
       $form->{"paid_$i"} =
         $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
     }
       $form->{"paid_$i"} =
         $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
     }

-    $form->{"exchangerate_$i"} =
-      $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-

     if ($form->{"exchangerate_$i"} == 0) {
       $form->{"exchangerate_$i"} = "";
     if ($form->{"exchangerate_$i"} == 0) {
       $form->{"exchangerate_$i"} = "";

+    } else {
+      $form->{"exchangerate_$i"} =
+        $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});

     }
 
     $exchangerate = qq| |;
     }
 
     $exchangerate = qq| |;