From: Stephan Köhler Date: Mon, 9 Jan 2006 14:15:33 +0000 (+0000) Subject: Merge von 759 aus unstable: Bugfix Nachtrag 154 X-Git-Tag: release-2.2.0~42 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=2d15bbac744f6a35bf579461c399d52d5a4c4e13;p=kivitendo-erp.git Merge von 759 aus unstable: Bugfix Nachtrag 154 Rechenfehler in der BWA und Vorzeichenfehler in der BWA behoben --- diff --git a/SL/RP.pm b/SL/RP.pm index d93611fda..c01a44253 100644 --- a/SL/RP.pm +++ b/SL/RP.pm @@ -2344,11 +2344,7 @@ sub bwa { foreach $key (@periods) { $form->{ "$key" . "gesamtleistung" } = 0; $form->{ "$key" . "gesamtkosten" } = 0; - foreach $kosten (@gesamtkosten) { - $form->{$kosten}{$key} *= -1; - } - - $form->{4}{$key} *= -1; + foreach $category (@categories) { @@ -2363,7 +2359,6 @@ sub bwa { $form->{ "$key" . "gesamtleistung" } += $form->{$item}{$key}; } foreach $item (@gesamtkosten) { - $form->{$item}{$key} *= -1; $form->{ "$key" . "gesamtkosten" } += $form->{$item}{$key}; } $form->{ "$key" . "rohertrag" } = @@ -2379,8 +2374,8 @@ sub bwa { $form->{32}{$key} + $form->{33}{$key} + $form->{34}{$key}; $form->{ "$key" . "ergebnisvorsteuern" } = $form->{ "$key" . "betriebsergebnis" } - - ($form->{ "$key" . "neutraleraufwand" } + - $form->{ "$key" . "neutralertrag" }); + $form->{ "$key" . "neutraleraufwand" } + + $form->{ "$key" . "neutralertrag" }; $form->{ "$key" . "ergebnis" } = $form->{ "$key" . "ergebnisvorsteuern" } + $form->{35}{$key};