- $query .= qq|$union
- SELECT a.id, a.reference, a.description, ac.transdate,
- $false AS invoice, ac.amount, 'gl' as module
- FROM acc_trans ac, gl a $dpt_join
- WHERE $where
- $glwhere
- $dpt_where
- $project
- AND ac.chart_id = $id
- AND ac.trans_id = a.id
- UNION
- SELECT a.id, a.invnumber, c.name, ac.transdate,
- a.invoice, ac.amount, 'ar' as module
- FROM acc_trans ac, customer c, ar a $dpt_join
- WHERE $where
- $dpt_where
- $project
- AND ac.chart_id = $id
- AND ac.trans_id = a.id
- $AR_PAID
- AND a.customer_id = c.id
- UNION
- SELECT a.id, a.invnumber, v.name, ac.transdate,
- a.invoice, ac.amount, 'ap' as module
- FROM acc_trans ac, vendor v, ap a $dpt_join
- WHERE $where
- $dpt_where
- $project
- AND ac.chart_id = $id
- AND ac.trans_id = a.id
- $AP_PAID
- AND a.vendor_id = v.id
- |;
- $union = qq|
- UNION ALL
- |;
+ $query .=
+ $union .
+ qq|SELECT a.id, a.reference, a.description, ac.transdate, | .
+ qq| $false AS invoice, ac.amount, 'gl' as module | .
+ qq|FROM acc_trans ac, gl a | .
+ $dpt_join .
+ qq|WHERE | . $where . $dpt_where . $project .
+ qq| AND ac.chart_id = ? | .
+ qq| AND ac.trans_id = a.id | .
+
+ qq|UNION | .
+
+ qq|SELECT a.id, a.invnumber, c.name, ac.transdate, | .
+ qq| a.invoice, ac.amount, 'ar' as module | .
+ qq|FROM acc_trans ac, customer c, ar a | .
+ $dpt_join .
+ qq|WHERE | . $where . $dpt_where . $project .
+ qq| AND ac.chart_id = ? | .
+ qq| AND ac.trans_id = a.id | .
+ qq| AND a.customer_id = c.id | .
+
+ qq|UNION | .
+
+ qq|SELECT a.id, a.invnumber, v.name, ac.transdate, | .
+ qq| a.invoice, ac.amount, 'ap' as module | .
+ qq|FROM acc_trans ac, vendor v, ap a | .
+ $dpt_join .
+ qq|WHERE | . $where . $dpt_where . $project .
+ qq| AND ac.chart_id = ? | .
+ qq| AND ac.trans_id = a.id | .
+ qq| AND a.vendor_id = v.id |;
+
+ push(@values,
+ @where_values, @department_values, @project_values, $id,
+ @where_values, @department_values, @project_values, $id,
+ @where_values, @department_values, @project_values, $id);
+
+ $union = qq|UNION ALL |;