Revision 4895d0c6
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 240 | 240 |
# build the select clauses. |
| 241 | 241 |
# take all the requested ones from the first hash and overwrite them from the out/in hashes if present. |
| 242 | 242 |
for my $i ('trans', 'out', 'in') {
|
| 243 |
$select{$i} = join ', ', map { +/l_/; ($select_tokens{$i}{"$'"} || $select_tokens{'trans'}{"$'"}) . " AS r_$'" }
|
|
| 244 |
( grep( { !/qty$/ and /l_/ and $form->{$_} eq 'Y' } keys %$form), qw(l_parts_id l_qty l_partunit l_itime) );
|
|
| 243 |
$select{$i} = join ', ', map { +/^l_/; ($select_tokens{$i}{"$'"} || $select_tokens{'trans'}{"$'"}) . " AS r_$'" }
|
|
| 244 |
( grep( { !/qty$/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form), qw(l_parts_id l_qty l_partunit l_itime) );
|
|
| 245 | 245 |
} |
| 246 | 246 |
|
| 247 | 247 |
my $group_clause = join ", ", map { +/^l_/; "r_$'" }
|
| 248 |
( grep( { !/qty$/ and /l_/ and $form->{$_} eq 'Y' } keys %$form), qw(l_parts_id l_partunit l_itime) );
|
|
| 248 |
( grep( { !/qty$/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form), qw(l_parts_id l_partunit l_itime) );
|
|
| 249 | 249 |
|
| 250 | 250 |
my $query = |
| 251 | 251 |
qq|SELECT DISTINCT $select{trans}
|
| ... | ... | |
| 434 | 434 |
"warehousedescription" => "w.description", |
| 435 | 435 |
"partunit" => "p.unit", |
| 436 | 436 |
); |
| 437 |
my $select_clause = join ', ', map { +/l_/; "$select_tokens{$'} AS $'" }
|
|
| 438 |
( grep( { !/qty/ and /l_/ and $form->{$_} eq 'Y' } keys %$form),
|
|
| 437 |
my $select_clause = join ', ', map { +/^l_/; "$select_tokens{$'} AS $'" }
|
|
| 438 |
( grep( { !/qty/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form),
|
|
| 439 | 439 |
qw(l_parts_id l_qty l_partunit) ); |
| 440 | 440 |
|
| 441 | 441 |
my $group_clause = join ", ", map { +/^l_/; "$'" }
|
| 442 |
( grep( { !/qty/ and /l_/ and $form->{$_} eq 'Y' } keys %$form),
|
|
| 442 |
( grep( { !/qty/ and /^l_/ and $form->{$_} eq 'Y' } keys %$form),
|
|
| 443 | 443 |
qw(l_parts_id l_partunit) ); |
| 444 | 444 |
|
| 445 | 445 |
my $query = |
Auch abrufbar als: Unified diff
Lagerbericht: Bei der Auswahl der Keys aus $form, die für die Auswahl der aus den Tabellen auszulesenden Spalten verwantwortlich sind, strenger sein. Der Key muss mit "l_" beginnen. Wird "l_" auch in der Mitte zugelassen, so schlägt dies fehl, wenn per ReportGenerator exportiert wird. Grund ist, dass diese Variablen auch nochmal mit dem Präfix "report_generator_hidden_*" in $form vorhanden sind. Dadurch würden Spalten selektiert, die es in der Datenbank nicht gibt.