+ my $dbh = $form->get_standard_dbh($myconfig);
+
+ $form->{parts} = +{ };
+ $form->{soldtotal} = undef if $form->{l_soldtotal}; # security fix. top100 insists on putting strings in there...
+
+ my @simple_filters = qw(partnumber ean description partsgroup microfiche drawing onhand);
+ my @makemodel_filters = qw(make model);
+ my @invoice_oi_filters = qw(serialnumber soldtotal);
+ my @apoe_filters = qw(transdate);
+ my @like_filters = (@simple_filters, @makemodel_filters, @invoice_oi_filters);
+ my @all_columns = (@simple_filters, @makemodel_filters, @apoe_filters, qw(serialnumber));
+ my @simple_l_switches = (@all_columns, qw(listprice sellprice lastcost priceupdate weight unit bin rop image));
+ my @oe_flags = qw(bought sold onorder ordered rfq quoted);
+ my @qsooqr_flags = qw(invnumber ordnumber quonumber trans_id name module qty);
+ my @deliverydate_flags = qw(deliverydate);
+# my @other_flags = qw(onhand); # ToDO: implement these
+# my @inactive_flags = qw(l_subtotal short l_linetotal);
+
+ my @select_tokens = qw(id factor);
+ my @where_tokens = qw(1=1);
+ my @group_tokens = ();
+ my @bind_vars = ();
+ my %joins_needed = ();
+
+ my %joins = (
+ partsgroup => 'LEFT JOIN partsgroup pg ON (pg.id = p.partsgroup_id)',
+ makemodel => 'LEFT JOIN makemodel mm ON (mm.parts_id = p.id)',
+ pfac => 'LEFT JOIN price_factors pfac ON (pfac.id = p.price_factor_id)',
+ invoice_oi =>
+ q|LEFT JOIN (
+ SELECT parts_id, description, serialnumber, trans_id, unit, sellprice, qty, assemblyitem, deliverydate, 'invoice' AS ioi, id FROM invoice UNION
+ SELECT parts_id, description, serialnumber, trans_id, unit, sellprice, qty, FALSE AS assemblyitem, NULL AS deliverydate, 'orderitems' AS ioi, id FROM orderitems
+ ) AS ioi ON ioi.parts_id = p.id|,
+ apoe =>
+ q|LEFT JOIN (
+ SELECT id, transdate, 'ir' AS module, ordnumber, quonumber, invnumber, FALSE AS quotation, NULL AS customer_id, vendor_id, NULL AS deliverydate, 'invoice' AS ioi FROM ap UNION
+ SELECT id, transdate, 'is' AS module, ordnumber, quonumber, invnumber, FALSE AS quotation, customer_id, NULL AS vendor_id, deliverydate, 'invoice' AS ioi FROM ar UNION
+ SELECT id, transdate, 'oe' AS module, ordnumber, quonumber, NULL AS invnumber, quotation, customer_id, vendor_id, NULL AS deliverydate, 'orderitems' AS ioi FROM oe
+ ) AS apoe ON ((ioi.trans_id = apoe.id) AND (ioi.ioi = apoe.ioi))|,
+ cv =>
+ q|LEFT JOIN (
+ SELECT id, name, 'customer' AS cv FROM customer UNION
+ SELECT id, name, 'vendor' AS cv FROM vendor
+ ) AS cv ON cv.id = apoe.customer_id OR cv.id = apoe.vendor_id|,
+ );
+ my @join_order = qw(partsgroup makemodel invoice_oi apoe cv pfac);
+
+ my %table_prefix = (
+ deliverydate => 'apoe.', serialnumber => 'ioi.',
+ transdate => 'apoe.', trans_id => 'ioi.',
+ module => 'apoe.', name => 'cv.',
+ ordnumber => 'apoe.', make => 'mm.',
+ quonumber => 'apoe.', model => 'mm.',
+ invnumber => 'apoe.', partsgroup => 'pg.',
+ lastcost => ' ',
+ factor => 'pfac.',
+ 'SUM(ioi.qty)' => ' ',
+ description => 'p.',
+ qty => 'ioi.',
+ serialnumber => 'ioi.',
+ quotation => 'apoe.',
+ cv => 'cv.',
+ "ioi.id" => ' ',
+ "ioi.ioi" => ' ',
+ );