- a.amount, a.paid, a.ordnumber, v.name, a.invoice,
- a.netamount, a.datepaid, a.notes
-
- $incemp
-
- FROM ap a, vendor v
- WHERE a.vendor_id = v.id|;
-
+ a.amount, ($paid) AS paid, a.ordnumber, v.name,
+ a.invoice, a.netamount, a.datepaid, a.notes,
+ a.vendor_id, e.name AS employee, m.name AS manager,
+ a.curr, ex.sell AS exchangerate
+ FROM ap a
+ JOIN vendor v ON (a.vendor_id = v.id)
+ LEFT JOIN employee e ON (a.employee_id = e.id)
+ LEFT JOIN employee m ON (e.managerid = m.id)
+ LEFT JOIN exchangerate ex ON (ex.curr = a.curr
+ AND ex.transdate = a.transdate)
+ |;
+
+ my %ordinal = ( 'id' => 1,
+ 'invnumber' => 2,
+ 'transdate' => 3,
+ 'duedate' => 4,
+ 'ordnumber' => 7,
+ 'name' => 8,
+ 'datepaid' => 11,
+ 'employee' => 14,
+ 'manager' => 15,
+ 'curr' => 16
+ );
+
+ my @a = (transdate, invnumber, name);
+ push @a, "employee" if $form->{l_employee};
+ push @a, "manager" if $form->{l_manager};
+ my $sortorder = $form->sort_order(\@a, \%ordinal);
+
+ my $where = "1 = 1";
+