Merge von 606 aus unstable: BWA Bug

Fehler bei der Berechnung der Summen in der BWA

diff --git a/SL/RP.pm b/SL/RP.pm
index 7bd324bce7efb6e00b6e17561b0da23e9bd00768..89a11b3683fea112c62c17ff8ce95a09905af279 100644 (file)
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -2343,6 +2343,10 @@ sub bwa {
   foreach $key (@periods) {
     $form->{ "$key" . "gesamtleistung" } = 0;
     $form->{ "$key" . "gesamtkosten" }   = 0;
   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) {
 
 
     foreach $category (@categories) {
 


@@ -2357,6 +2361,7 @@ sub bwa {
       $form->{ "$key" . "gesamtleistung" } += $form->{$item}{$key};
     }
     foreach $item (@gesamtkosten) {
       $form->{ "$key" . "gesamtleistung" } += $form->{$item}{$key};
     }
     foreach $item (@gesamtkosten) {

+      $form->{$item}{$key} *= -1;

       $form->{ "$key" . "gesamtkosten" } += $form->{$item}{$key};
     }
     $form->{ "$key" . "rohertrag" } =
       $form->{ "$key" . "gesamtkosten" } += $form->{$item}{$key};
     }
     $form->{ "$key" . "rohertrag" } =