+ ($form->{beginningbalance}, $form->{category}) =
+ selectrow_query($form, $dbh, $query, @values);
+
+ @values = ();
+ $query =
+ qq|SELECT c.name, ac.source, ac.transdate, ac.cleared, | .
+ qq| ac.fx_transaction, ac.amount, a.id, | .
+ qq| ac.acc_trans_id AS oid | .
+ qq|FROM customer c, acc_trans ac, ar a, chart ch | .
+ qq|WHERE c.id = a.customer_id | .
+ qq| AND ac.cleared = '0' | .
+ qq| AND ac.trans_id = a.id | .
+ qq| AND ac.chart_id = ch.id | .
+ qq| AND ch.accno = ? |;
+ push(@values, $form->{accno});
+
+ if($form->{fromdate}) {
+ $query .= qq| AND ac.transdate >= ? |;
+ push(@values, conv_date($form->{fromdate}));
+ }
+
+ if($form->{todate}){
+ $query .= qq| AND ac.transdate <= ? |;
+ push(@values, conv_date($form->{todate}));
+ }
+
+ if($form->{additional_fromdate}) {
+ $query .= qq| AND ac.transdate >= ? |;
+ push(@values, conv_date($form->{additional_fromdate}));
+ }
+
+ if($form->{additional_todate}){
+ $query .= qq| AND ac.transdate <= ? |;
+ push(@values, conv_date($form->{additional_todate}));
+ }
+
+ if($form->{filter_amount}){
+ $query .= qq| AND ac.amount = ? |;
+ push(@values, conv_i($form->{filter_amount}));
+ }
+
+ $query .=
+ qq|UNION | .
+
+ qq|SELECT v.name, ac.source, ac.transdate, ac.cleared, | .
+ qq| ac.fx_transaction, ac.amount, a.id, | .
+ qq| ac.acc_trans_id AS oid | .
+ qq|FROM vendor v, acc_trans ac, ap a, chart ch | .
+ qq|WHERE v.id = a.vendor_id | .
+ qq| AND ac.cleared = '0' | .
+ qq| AND ac.trans_id = a.id | .
+ qq| AND ac.chart_id = ch.id | .
+ qq| AND ch.accno = ? |;
+
+ push(@values, $form->{accno});
+
+ if($form->{fromdate}) {
+ $query .= qq| AND ac.transdate >= ? |;
+ push(@values, conv_date($form->{fromdate}));
+ }
+
+ if($form->{todate}){
+ $query .= qq| AND ac.transdate <= ? |;
+ push(@values, conv_date($form->{todate}));
+ }
+
+ if($form->{additional_fromdate}) {
+ $query .= qq| AND ac.transdate >= ? |;
+ push(@values, conv_date($form->{additional_fromdate}));
+ }
+
+ if($form->{additional_todate}){
+ $query .= qq| AND ac.transdate <= ? |;
+ push(@values, conv_date($form->{additional_todate}));
+ }
+
+ if($form->{filter_amount}){
+ $query .= qq| AND ac.amount = ? |;
+ push(@values, conv_i($form->{filter_amount}));
+ }
+
+ $query .=
+ qq|UNION | .
+
+ qq|SELECT g.description, ac.source, ac.transdate, ac.cleared, | .
+ qq| ac.fx_transaction, ac.amount, g.id, | .
+ qq| ac.acc_trans_id AS oid | .
+ qq|FROM gl g, acc_trans ac, chart ch | .
+ qq|WHERE g.id = ac.trans_id | .
+ qq| AND ac.cleared = '0' | .
+ qq| AND ac.trans_id = g.id | .
+ qq| AND ac.chart_id = ch.id | .
+ qq| AND ch.accno = ? |;
+
+ push(@values, $form->{accno});
+
+ if($form->{fromdate}) {
+ $query .= qq| AND ac.transdate >= ? |;
+ push(@values, conv_date($form->{fromdate}));
+ }
+
+ if($form->{todate}){
+ $query .= qq| AND ac.transdate <= ? |;
+ push(@values, conv_date($form->{todate}));
+ }