projekt kivitendo

  my $buysell = $form->{vc} eq 'customer' ? "buy" : "sell";

  my $arap = $form->{arap} eq "ar" ? "ar" : "ap";

  my $query =

     qq|SELECT a.id, a.invnumber, a.transdate, a.amount, a.paid, cu.name AS curr | .

     qq|FROM $arap a | .

     qq|LEFT JOIN currencies cu ON (cu.id=a.currency_id)| .

     qq|WHERE (a.${vc}_id = ?) AND cu.name = ? AND NOT (a.amount = a.paid)| .

     qq|ORDER BY a.id|;

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

                                  conv_i($form->{"${vc}_id"}),

                                  "$form->{currency}");