Revision 2d15bbac
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
|
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) {
|
||
|
|
||
| ... | ... | |
|
$form->{ "$key" . "gesamtleistung" } += $form->{$item}{$key};
|
||
|
}
|
||
|
foreach $item (@gesamtkosten) {
|
||
|
$form->{$item}{$key} *= -1;
|
||
|
$form->{ "$key" . "gesamtkosten" } += $form->{$item}{$key};
|
||
|
}
|
||
|
$form->{ "$key" . "rohertrag" } =
|
||
| ... | ... | |
|
$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};
|
||
|
|
||
Auch abrufbar als: Unified diff
Merge von 759 aus unstable: Bugfix Nachtrag 154
Rechenfehler in der BWA und Vorzeichenfehler in der BWA behoben