projekt kivitendo

  $fromto =~ s/transdate/ac\.transdate/g;

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

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

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

  }

  $sth->finish();

  $query =

    qq|SELECT ac.oid, ac.transdate, ac.trans_id,ar.id, ac.amount, ac.taxkey, ar.invnumber, ar.duedate, ar.amount as umsatz,

              chart c LEFT JOIN tax t ON

                 (t.chart_id=c.id)WHERE $fromto AND ac.trans_id=ar.id AND ac.trans_id=ar.id

              AND ar.customer_id=ct.id AND ac.chart_id=c.id

              UNION ALL

              SELECT ac.oid, ac.transdate, ac.trans_id,ap.id, ac.amount, ac.taxkey, ap.invnumber, ap.duedate, ap.amount as umsatz,

                 (t.chart_id=c.id)

              WHERE $fromto AND ac.trans_id=ap.id AND ap.vendor_id=ct.id AND ac.chart_id=c.id

              UNION ALL

              SELECT ac.oid, ac.transdate, ac.trans_id,gl.id, ac.amount, ac.taxkey, gl.reference AS invnumber, gl.transdate AS duedate, ac.amount as umsatz,

              chart c LEFT JOIN tax t ON

                 (t.chart_id=c.id) WHERE $fromto AND ac.trans_id=gl.id AND ac.chart_id=c.id

              ORDER BY trans_id, oid|;

      push @{$i}, $ref2;

      $firstrun = 0;

    }

    $absumsatz = 0;

    if (scalar(@{$i}) > 2) {

      for my $j (0 .. (scalar(@{$i}) - 1)) {

          $absumsatz     = $i->[$j]->{'amount'};

          $notsplitindex = $j;

        }

      }

      $ml = ($i->[0]->{'umsatz'} > 0) ? 1 : -1;

      for my $j (0 .. (scalar(@{$i}) - 1)) {

          $g++;

          } elsif (($j != $notsplitindex) && ($i->[$j]->{'chart_id'} eq "")) {

          $absumsatz +=

          my %blubb = {};

          map({ $blubb{$_} = $i->[$notsplitindex]->{$_}; }

              keys(%{ $i->[$notsplitindex] }));

          $blubb{'amount'} =

            $form->round_amount(($i->[$j]->{'amount'} * $test * -1), 2);

        }

      }

      if (abs($absumsatz) > 0.01) {

      }

    } else {

      push @{ $form->{DATEV} }, \@{$i};