Revision e37128e3
Von Philip Reetz vor etwa 19 Jahren hinzugefügt
SL/RP.pm | ||
---|---|---|
2344 | 2344 |
foreach $key (@periods) { |
2345 | 2345 |
$form->{ "$key" . "gesamtleistung" } = 0; |
2346 | 2346 |
$form->{ "$key" . "gesamtkosten" } = 0; |
2347 |
foreach $kosten (@gesamtkosten) { |
|
2348 |
$form->{$kosten}{$key} *= -1; |
|
2349 |
} |
|
2350 |
|
|
2351 |
$form->{4}{$key} *= -1; |
|
2347 |
|
|
2352 | 2348 |
|
2353 | 2349 |
foreach $category (@categories) { |
2354 | 2350 |
|
... | ... | |
2363 | 2359 |
$form->{ "$key" . "gesamtleistung" } += $form->{$item}{$key}; |
2364 | 2360 |
} |
2365 | 2361 |
foreach $item (@gesamtkosten) { |
2366 |
$form->{$item}{$key} *= -1; |
|
2367 | 2362 |
$form->{ "$key" . "gesamtkosten" } += $form->{$item}{$key}; |
2368 | 2363 |
} |
2369 | 2364 |
$form->{ "$key" . "rohertrag" } = |
... | ... | |
2379 | 2374 |
$form->{32}{$key} + $form->{33}{$key} + $form->{34}{$key}; |
2380 | 2375 |
$form->{ "$key" . "ergebnisvorsteuern" } = |
2381 | 2376 |
$form->{ "$key" . "betriebsergebnis" } - |
2382 |
($form->{ "$key" . "neutraleraufwand" } +
|
|
2383 |
$form->{ "$key" . "neutralertrag" });
|
|
2377 |
$form->{ "$key" . "neutraleraufwand" } + |
|
2378 |
$form->{ "$key" . "neutralertrag" }; |
|
2384 | 2379 |
$form->{ "$key" . "ergebnis" } = |
2385 | 2380 |
$form->{ "$key" . "ergebnisvorsteuern" } + $form->{35}{$key}; |
2386 | 2381 |
|
Auch abrufbar als: Unified diff
Rechenfehler in der BWA und Vorzeichenfehler in der BWA behoben