X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4a095dc9476ab88c6479e501219e6a2048142dad..7933b6bd762c5bac0f0a6bc401ede33c30ece67b:/bin/mozilla/is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index ae8c7748f..c6afe176c 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -210,7 +210,12 @@ sub prepare_invoice {
       $form->{"sellprice_$i"} =
         $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
                              $decimalplaces);
-      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
+      
+      (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
+      $dec_qty      = length $dec_qty;
+      
+      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"},
+        $dec_qty);
 
       map { $form->{"${_}_$i"} =~ s/\"/"/g }
         qw(partnumber description unit partnotes);