From 72d93b0b6cbca4fc4dabb116f20c1b88a22fde88 Mon Sep 17 00:00:00 2001
From: Philip Reetz
Date: Mon, 11 May 2009 11:25:27 +0000
Subject: [PATCH] Bug #956 behoben: Fehlerhafte Berechnung Betriebsergebnis bei
BestVerdFUE
---
SL/RP.pm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/SL/RP.pm b/SL/RP.pm
index 0b0000eac..72bbcffd3 100644
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -1645,7 +1645,7 @@ sub bwa {
}
my @periods = qw(jetzt kumm);
- my @gesamtleistung = qw(1 2 3);
+ my @gesamtleistung = qw(1 3);
my @gesamtkosten = qw (10 11 12 13 14 15 16 17 18 19 20);
my @ergebnisse =
qw (rohertrag betriebrohertrag betriebsergebnis neutraleraufwand neutralerertrag ergebnisvorsteuern ergebnis gesamtleistung gesamtkosten);
@@ -1668,6 +1668,8 @@ sub bwa {
foreach my $item (@gesamtleistung) {
$form->{ "$key" . "gesamtleistung" } += $form->{$item}{$key};
}
+ $form->{ "$key" . "gesamtleistung" } -= $form->{2}{$key};
+
foreach my $item (@gesamtkosten) {
$form->{ "$key" . "gesamtkosten" } += $form->{$item}{$key};
}
--
2.20.1