From e37128e3d3a76da0f48c24b00f38a9ef4e290bf8 Mon Sep 17 00:00:00 2001
From: Philip Reetz <p.reetz@linet-services.de>
Date: Mon, 9 Jan 2006 13:29:33 +0000
Subject: [PATCH] Rechenfehler in der BWA und Vorzeichenfehler in der BWA
 behoben

---
 SL/RP.pm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

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};
 
-- 
2.20.1