X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FRP.pm;h=c01a442534cde6bcc9ffc0950ed0dc72e4e810b1;hb=e01d7de0936bc43c0c7b60cb5ef604ba3755ecff;hp=d93611fda493338ae4f82fe411d4b0c6b025d9f0;hpb=5141dcd0d595113569e3279823c1ba6475516426;p=kivitendo-erp.git 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};