$query = qq|SELECT a.id, s.spoolfile, vc.name, ac.transdate, a.invnumber,
a.invoice, '$arap' AS module
FROM status s, chart c, $form->{vc} vc, $arap a, acc_trans ac
$query = qq|SELECT a.id, s.spoolfile, vc.name, ac.transdate, a.invnumber,
a.invoice, '$arap' AS module
FROM status s, chart c, $form->{vc} vc, $arap a, acc_trans ac