projekt kivitendo

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

  $i = 0;

  $g = 0;

  @splits;

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {

    $count    = 0;

    $firstrun = 1;

    $count += $ref->{amount};

    push @{$i}, $ref;

    while (abs($count) > 0.01 || $firstrun) {

  my $evfile      = "EV01";

  my @ed_versionsets;

  my $fileno = 0;

  $fromto =

    &get_dates($form->{zeitraum}, $form->{monat},

               $form->{quartal},  $form->{transdatefrom},

               $form->{transdateto});

  &get_transactions($myconfig, $form, $fromto);

  while (scalar(@{ $form->{DATEV} })) {

    my $blockcount      = 1;

    my $remaining_bytes = 256;

    while (scalar(@{ $form->{DATEV} }) > 0) {

      $transaction    = shift @{ $form->{DATEV} };

      $trans_lines    = scalar(@{$transaction});

      $umsatz         = 0;

      $gegenkonto     = "";

      $konto          = "";

    print(EV $ed_versionset[$file]);

  }

  close(EV);

  ###

  $main::lxdebug->leave_sub();

}