From a22b8118e0bd68acac8a2d7b02a2d4f9fd0eaff1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Fri, 7 Feb 2014 15:00:30 +0100 Subject: [PATCH] Rundungsfehler bei periodischen Rechnungen mit glatten Einzelpreisen und Rabatt behoben --- SL/DB/Helper/PriceTaxCalculator.pm | 9 ++++++++- doc/changelog | 2 ++ 2 files changed, 10 insertions(+), 1 deletion(-) 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! -- 2.20.1