Revision 72f25b53
Von Bernd Blessmann vor mehr als 14 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 99 | 99 |
} else {
|
| 100 | 100 |
push @values, $transfer_types{$directions[$direction]}->{$transfer->{transfer_type}};
|
| 101 | 101 |
} |
| 102 |
|
|
| 102 |
|
|
| 103 |
$transfer->{comment} = defined($transfer->{comment}) ? $transfer->{comment} : '';
|
|
| 103 | 104 |
push @values, "$transfer->{comment}";
|
| 104 | 105 |
|
| 105 | 106 |
my $qty = $transfer->{qty};
|
| ... | ... | |
| 279 | 280 |
# filters |
| 280 | 281 |
my (@filter_ary, @filter_vars, $joins, %select_tokens, %select); |
| 281 | 282 |
|
| 282 |
if ($filter{warehouse_id} ne '') {
|
|
| 283 |
if ($filter{warehouse_id}) {
|
|
| 283 | 284 |
push @filter_ary, "w1.id = ? OR w2.id = ?"; |
| 284 | 285 |
push @filter_vars, $filter{warehouse_id}, $filter{warehouse_id};
|
| 285 | 286 |
} |
| 286 | 287 |
|
| 287 |
if ($filter{bin_id} ne '') {
|
|
| 288 |
if ($filter{bin_id}) {
|
|
| 288 | 289 |
push @filter_ary, "b1.id = ? OR b2.id = ?"; |
| 289 | 290 |
push @filter_vars, $filter{bin_id}, $filter{bin_id};
|
| 290 | 291 |
} |
| ... | ... | |
| 396 | 397 |
my $group_clause = join ", ", map { +/^l_/; "r_$'" }
|
| 397 | 398 |
( grep( { !/qty$/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form), qw(l_parts_id l_partunit l_itime) );
|
| 398 | 399 |
|
| 400 |
$where_clause = defined($where_clause) ? $where_clause : ''; |
|
| 401 |
$main::lxdebug->message(0, "where_clause = ".$where_clause); |
|
| 399 | 402 |
my $query = |
| 400 | 403 |
qq|SELECT DISTINCT $select{trans}
|
| 401 | 404 |
FROM inventory i1 |
Auch abrufbar als: Unified diff
Einige Warnungen wg. unitizialisierter Variablen abgefangen.