projekt kivitendo

  }

  my @periods        = qw(jetzt kumm);

  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);

    foreach my $item (@gesamtleistung) {

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

    }

    foreach my $item (@gesamtkosten) {

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

    }