use SL::CVar;
use SL::DBUtils;
use SL::RecordLinks;
+use SL::IC;
sub transactions {
$main::lxdebug->enter_sub();
}
if ($form->{project_id}) {
- $query .=
+ push @where,
qq|(dord.globalproject_id = ?) OR EXISTS
(SELECT * FROM delivery_order_items doi
- WHERE (doi.project_id = ?) AND (oi.delivery_order_id = dord.id))|;
+ WHERE (doi.project_id = ?) AND (doi.delivery_order_id = dord.id))|;
push @values, conv_i($form->{project_id}), conv_i($form->{project_id});
}
push @values, '%' . $form->{$item} . '%';
}
- if (!($form->{open} && $form->{closed})) {
+ if (($form->{open} || $form->{closed}) &&
+ ($form->{open} ne $form->{closed})) {
push @where, ($form->{open} ? "NOT " : "") . "COALESCE(dord.closed, FALSE)";
}
doi.reqdate, doi.project_id, doi.serialnumber, doi.lastcost,
doi.ordnumber, doi.transdate, doi.cusordnumber, doi.longdescription,
doi.price_factor_id, doi.price_factor, doi.marge_price_factor,
- pr.projectnumber,
+ pr.projectnumber, dord.transdate AS dord_transdate,
pg.partsgroup
FROM delivery_order_items doi
JOIN parts p ON (doi.parts_id = p.id)
my $ic_cvar_configs = CVar->get_configs(module => 'IC');
+ $form->{TEMPLATE_ARRAYS} = { };
+ IC->prepare_parts_for_printing();
+
my @arrays =
qw(runningnumber number description longdescription qty unit
partnotes serialnumber reqdate projectnumber
si_runningnumber si_number si_description
si_warehouse si_bin si_chargenumber si_qty si_unit);
+ map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
+
push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
my $sameitem = "";