Revision 5fea7d82
Von Jan Büren vor fast 4 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
|
if ($form->{bom} eq '2' && $form->{l_assembly}) {
|
||
|
# nuke where clause and bind vars
|
||
|
$where_clause = ' 1=1 AND p.id in (SELECT id from assembly where parts_id IN ' .
|
||
|
' (select id from parts where 1=1 AND ';
|
||
|
' (select id from parts where 1=1';
|
||
|
@bind_vars = ();
|
||
|
# use only like filter for items used in assemblies
|
||
|
foreach (@like_filters) {
|
||
|
next unless $form->{$_};
|
||
|
$form->{"l_$_"} = '1'; # show the column
|
||
|
$where_clause .= " $_ ILIKE ? ";
|
||
|
$where_clause .= " AND $_ ILIKE ? ";
|
||
|
push @bind_vars, like($form->{$_});
|
||
|
}
|
||
|
$where_clause .='))';
|
||
| ... | ... | |
|
$order_clause
|
||
|
$limit_clause
|
||
|
SQL
|
||
|
|
||
|
$form->{parts} = selectall_hashref_query($form, $dbh, $query, @bind_vars);
|
||
|
|
||
|
map { $_->{onhand} *= 1 } @{ $form->{parts} };
|
||
Auch abrufbar als: Unified diff
zu 52f5223a1dcf, mehr als einen Filter im SQL-Statement erlauben