From 71f33f59bd3bfba9387fead69a4d707080842e17 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Fri, 7 Jan 2011 17:09:16 +0100 Subject: [PATCH] =?utf8?q?Fehler=20bei=20Kreditorenbuchungen=20exklusive?= =?utf8?q?=20Steuern=20mit=20Fremdw=C3=A4hrungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Fix zu Bug 1547: Wurden Kreditorenbuchungen mit Steuern ohne Steuern im Preis inbegriffen mit einer Fremdwährung gebucht, wurde die Steuer doppelt in die Fremdwährung umgerechnet. Der Bug geht zurück auf die Splitbuchungen. Btw.: Das korrektur Feld ist seit 5d44361c86fe35b3fb0485f2dbface7cf6d73b1d nicht mehr benutzt, und wurde hier für AP gleich mit entfernt. --- SL/AP.pm | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/SL/AP.pm b/SL/AP.pm index 245d1abb8..39a68a44f 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -108,26 +108,14 @@ sub post_transaction { my ($tax, $diff); if ($form->{taxincluded} *= 1) { - if (!$form->{"korrektur_$i"}) { - $tax = - $form->{"amount_$i"} - - ($form->{"amount_$i"} / ($form->{"taxrate_$i"} + 1)); - } else { - $tax = $form->{"tax_$i"}; - } + $tax = $form->{"amount_$i"} - ($form->{"amount_$i"} / ($form->{"taxrate_$i"} + 1)); $amount = $form->{"amount_$i"} - $tax; $form->{"amount_$i"} = $form->round_amount($amount, 2); $diff += $amount - $form->{"amount_$i"}; $form->{"tax_$i"} = $form->round_amount($tax, 2); $form->{netamount} += $form->{"amount_$i"}; } else { - if (!$form->{"korrektur_$i"}) { - $form->{"tax_$i"} = $form->{"amount_$i"} * $form->{"taxrate_$i"}; - } else { - $tax = $form->{"tax_$i"}; - } - $form->{"tax_$i"} = - $form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2); + $form->{"tax_$i"} = $form->{"amount_$i"} * $form->{"taxrate_$i"}; $form->{netamount} += $form->{"amount_$i"}; } $form->{total_tax} += $form->{"tax_$i"} * -1; -- 2.20.1