projekt kivitendo

  $form->{todate} = $form->current_date($myconfig) unless ($form->{todate});

  my $todate = conv_dateq($form->{todate});

  my $where = " 1 = 1 ";

  my ($name, $null);

      AND (${arap}.storno IS FALSE)

      AND (${arap}.${ct}_id = ${ct}.id)

      AND (${ct}.id = ?)

    ORDER BY ctid, transdate, invnumber |;

       WHERE $where

         AND (a.${ct_id} = ct.id)

         AND ((a.paid != a.amount) OR ((a.datepaid > $todate) AND (datepaid is NOT NULL)))

       ORDER BY ct.name|;

  my $sth = prepare_execute_query($form, $dbh, $query);