From: Jan Büren <jan@kivitendo-premium.de>
Date: Fri, 7 Feb 2014 14:00:30 +0000 (+0100)
Subject: Rundungsfehler bei periodischen Rechnungen mit glatten Einzelpreisen und Rabatt behoben
X-Git-Tag: release-3.1.0rc1~29
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a22b8118e0bd68acac8a2d7b02a2d4f9fd0eaff1;p=kivitendo-erp.git

Rundungsfehler bei periodischen Rechnungen mit glatten Einzelpreisen und Rabatt behoben
---

diff --git a/SL/DB/Helper/PriceTaxCalculator.pm b/SL/DB/Helper/PriceTaxCalculator.pm
index 2478292a4..d95d14309 100644
--- a/SL/DB/Helper/PriceTaxCalculator.pm
+++ b/SL/DB/Helper/PriceTaxCalculator.pm
@@ -74,7 +74,14 @@ sub _calculate_item {
   $item->base_qty($item_unit->convert_to($item->qty, $part_unit));
   $item->fxsellprice($item->sellprice) if $data->{is_invoice};
 
-  my $num_dec   = _num_decimal_places($item->sellprice);
+  my $num_dec   = _num_decimal_places($item->sellprice) || 2;
+  #  ^ we need at least 2 decimal places                   ^
+  # my test case 43.00 € with 0 decimal places and 0.5 discount ->
+  # : sellprice before:43.00000
+  # : num dec   before:0
+  # : discount / sellprice ratio:  22  /  21
+  # : discount = 43 * 0.5 _round(21.5, 0) = 22
+  # TODO write a test case
   my $discount  = _round($item->sellprice * ($item->discount || 0), $num_dec);
   my $sellprice = _round($item->sellprice - $discount,              $num_dec);
 
diff --git a/doc/changelog b/doc/changelog
index c4e5df7a9..66479121e 100644
--- a/doc/changelog
+++ b/doc/changelog
@@ -117,6 +117,8 @@ Wichtige Änderungen:
 - Perl v5.10.1 oder neuer und PostgreSQL v8.4 oder neuer werden
   zwingend vorausgesetzt.
 
+- Rundungsfehler bei periodischen Rechnungen mit Rabatt und glatten Einzelpreisen behoben
+
 Bugfixes:
 
 - Bugfix #182: Bug in bin/mozilla/gl.pl - Keine Steuerautomatik möglich!