From: Udo Spallek <info@wissensvermittlung.com>
Date: Thu, 27 Oct 2005 19:23:41 +0000 (+0000)
Subject: Die Anzahl der dargestellten Nachkommastellen jedes einzelnen Preises sollte mit... 
X-Git-Tag: release-2.4.0^2~491
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=69c4afb76eaafbbe668a66775e6072df5ce5bd49;p=kivitendo-erp.git

Die Anzahl der dargestellten Nachkommastellen jedes einzelnen Preises sollte mit der eingegebenen Anzahl an Nachkommastellen ÃŒbereinstimmen. Die eingegebenen Preise sollten nicht gerundet werden.
(Änderungen bez. Email vom 27.10.2004 18:30 von Udo Spallek)
---

diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index 81db76741..6d49eab28 100644
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -1955,6 +1955,16 @@ sub link_part {
 sub form_header {
   $lxdebug->enter_sub();
 
+  my $dec = '';
+  
+  #decimalplaces for listprice
+  ($dec) = ($form->{listprice} =~ /\.(\d+)/);
+  $dec = length $dec;
+  my $decimalplaces = ($dec > 2) ? $dec : 2;
+  $form->{listprice} =
+    $form->format_amount(\%myconfig, $form->{listprice}, $decimalplaces);
+
+  #decimalplaces for sellprice and gv
   ($dec) = ($form->{sellprice} =~ /\.(\d+)/);
   $dec = length $dec;
   my $decimalplaces = ($dec > 2) ? $dec : 2;
@@ -1962,7 +1972,7 @@ sub form_header {
   map {
     $form->{$_} =
       $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces)
-  } qw(listprice sellprice gv);
+  } qw(sellprice gv);
 
   ($dec) = ($form->{lastcost} =~ /\.(\d+)/);
   $dec = length $dec;