- if ($form->{"$form->{vc}_id"}) {
- $query .= qq| AND a.$form->{vc}_id = $form->{"$form->{vc}_id"}|;
- } else {
- if ($form->{$form->{vc}}) {
- my $name = $form->like(lc $form->{$form->{vc}});
- $query .= " AND lower(vc.name) LIKE '$name'";
+ if ($form->{type} eq 'packing_list') {
+ $invnumber = "donumber";
+ $arap = "delivery_orders";
+ $invoice = '0';
+ $quonumber = '0';
+ }
+
+ $query =
+ qq|SELECT a.id, a.$invnumber AS invnumber, a.ordnumber, $quonumber, | .
+ qq| a.transdate, $invoice AS invoice, '$arap' AS module, vc.name, | .
+ qq| s.spoolfile | .
+ qq|FROM $arap a, ${vc} vc, status s | .
+ qq|WHERE s.trans_id = a.id | .
+ qq| AND s.spoolfile IS NOT NULL | .
+ ($form->{type} eq 'packing_list'
+ ? qq| AND s.formname IN (?, ?) |
+ : qq| AND s.formname = ? |) .
+ qq| AND a.${vc}_id = vc.id|;
+ @values = ($form->{type});
+
+ if ($form->{type} eq 'packing_list') {
+ @values = qw(sales_delivery_order purchase_delivery_order);