projekt kivitendo

package RP;

sub balance_sheet {

  $main::lxdebug->enter_sub();

  my @accno;

  my $accno;

  my $ref;

  #print $query;

  my $sth = $dbh->prepare($query);

  $sth->execute || $form->dberror($query);

  my $sortorder = join ', ',

    $form->sort_columns(qw(name invnumber ordnumber transdate source));

  # cycle through each id

  foreach my $accno (split(/ /, $form->{paymentaccounts})) {

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

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

    foreach $category (@categories) {

      if (defined($form->{$category}{$key})) {

        $form->{"$key$category"} =

          $form->format_amount($myconfig,

                               $form->round_amount($form->{$category}{$key}, 2

      }

    }

    foreach $item (@gesamtleistung) {

    $form->{ "$key" . "ergebnisvorsteuern" } =

      $form->{ "$key" . "betriebsergebnis" } -

      $form->{ "$key" . "neutraleraufwand" } +

    $form->{ "$key" . "ergebnis" } =

      $form->{ "$key" . "ergebnisvorsteuern" } + $form->{35}{$key};

                                    $form->{ "$key" . "gesamtleistung" } * 100

                                 ),

                                 $form->{decimalplaces}

        }

      }

      foreach $item (@ergebnisse) {

                                     $form->{ "$key" . "gesamtleistung" } * 100

                                 ),

                                 $form->{decimalplaces}

      }

    }

                                      $form->{ "$key" . "gesamtkosten" } * 100

                                   ),

                                   $form->{decimalplaces}

        }

      }

      foreach $item (@ergebnisse) {

                                      $form->{ "$key" . "gesamtkosten" } * 100

                                   ),

                                   $form->{decimalplaces}

      }

    }

        if (defined($form->{$category}{$key})) {

          $form->{ "$key" . "pk" . "$category" } =

            $form->format_amount(

        }

      }

      foreach $item (@ergebnisse) {

                                                   $form->{10}{$key} * 100

                                                ),

                                                $form->{decimalplaces}

      }

    }

        if (defined($form->{$category}{$key})) {

          $form->{ "$key" . "auf" . "$category" } =

            $form->format_amount(

        }

      }

      foreach $item (@ergebnisse) {

                                                   $form->{4}{$key} * 100

                                                ),

                                                $form->{decimalplaces}

      }

    }

    foreach $item (@ergebnisse) {

      $form->{ "$key" . "$item" } =

        $form->format_amount($myconfig,

    }

  }

  my $last_period     = 0;

  my $category        = "pos_ustva";

  my @categories_cent = qw(51r 511 86r 861 97r 971 93r 931

  my @categories_euro = qw(48 51 86 91 97 93 94);

  $form->{decimalplaces} *= 1;

  #   }

  #

  #    }

  #

  # Berechnung der USTVA Formularfelder

  #

  $form->{"86r"} = $form->{"861"};

  $form->{"97r"} = $form->{"971"};

  $form->{"93r"} = $form->{"931"};

  #$form->{"96"}  = $form->{"94"} * 0.16;

    $form->{"51r"} + $form->{"86r"} + $form->{"97r"} + $form->{"93r"} +

    $form->{"96"};

  $form->{"45"} = $form->{"43"};

  foreach $item (@categories_cent) {

    $form->{$item} =

  }

  foreach $item (@categories_euro) {

    $form->{$item} =

  }

  $dbh->disconnect;