projekt kivitendo

  my ($fromdate, $todate, $hotfix_query);

    # get all entries before fromdate, which are not yet fetched

    # TODO dpt_where_without_arapgl and project

    $hotfix_query = qq|SELECT c.accno, c.description, c.category, SUM(ac.amount) AS amount

                       FROM acc_trans ac JOIN chart c ON (c.id = ac.chart_id) WHERE 1 = 1 AND (ac.transdate <= $fromdate)

                        AND (ac.transdate >= (SELECT date_trunc('YEAR', | . $fromdate . qq|::date)))

                       AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL) AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL)

                       AND c.accno NOT IN (SELECT c.accno FROM acc_trans ac JOIN chart c ON (c.id = ac.chart_id) WHERE 1 = 1 AND (ac.transdate >= $fromdate) AND (ac.transdate <= $todate)

                       AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL) AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL))

                       GROUP BY c.accno, c.description, c.category ORDER BY accno|;

  if (! $form->{method} eq "cash") {

    $sth = prepare_execute_query($form, $dbh, $hotfix_query);

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

      $trb{ $ref->{accno} }{description} = $ref->{description};

      $trb{ $ref->{accno} }{charttype}   = 'A';

      $trb{ $ref->{accno} }{category}    = $ref->{category};

      $trb{ $ref->{accno} }{amount} += $ref->{amount};

    }

    $sth->finish;

  }