Revision 71b51e70
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 59 | 59 |
} |
| 60 | 60 |
|
| 61 | 61 |
if ($form->{no_assemblies}) {
|
| 62 |
$filter .= qq| AND (NOT COALESCE(assembly, 'f'))|;
|
|
| 62 |
$filter .= qq| AND (NOT COALESCE(assembly, FALSE))|;
|
|
| 63 | 63 |
} |
| 64 | 64 |
if ($form->{assemblies}) {
|
| 65 |
$filter .= qq| AND assembly='t'|; # alles was assembly ist rausgeben erweiterung f?r bin/mozilla/wh.pl -> transfer_assembly_update_part
|
|
| 65 |
$filter .= qq| AND assembly=TRUE|; # alles was assembly ist rausgeben erweiterung f?r bin/mozilla/wh.pl -> transfer_assembly_update_part
|
|
| 66 | 66 |
# eigentlich m?chte ich diesen filter abbilden: |
| 67 | 67 |
# select distinct partnumber from parts inner join assembly on (parts.id = assembly.id) where assembly='t'; |
| 68 | 68 |
# und so common ist die anweisung gar nicht. wie w?re es mit auslagern in WH.pm? -> get_all_working_assemblies? jb 21.2.2009 |
| 69 | 69 |
} |
| 70 | 70 |
|
| 71 | 71 |
if ($form->{no_services}) {
|
| 72 |
$filter .= qq| AND (COALESCE(inventory_accno_id, 0) > 0)|; |
|
| 72 |
#$filter .= qq| AND (COALESCE(inventory_accno_id, 0) > 0) AND (COALESCE (assembly, FALSE))|; |
|
| 73 |
$filter .= qq| AND (inventory_accno_id is not NULL or assembly=TRUE)|; # @mb hier nochmal optimieren ... |
|
| 73 | 74 |
} |
| 74 | 75 |
|
| 75 | 76 |
substr($filter, 1, 3) = "WHERE" if ($filter); |
| bin/mozilla/wh.pl | ||
|---|---|---|
| 288 | 288 |
} elsif (($form->{partnumber} && ($form->{partnumber} ne $form->{old_partnumber})) || $form->{description}) {
|
| 289 | 289 |
|
| 290 | 290 |
$form->{no_services} = 1;
|
| 291 |
$form->{no_assemblies} = 1;
|
|
| 291 |
$form->{no_assemblies} = 0; # assemblies duerfen eingelagert werden (z.B. bei retouren)
|
|
| 292 | 292 |
|
| 293 | 293 |
my $parts = Common->retrieve_parts(\%myconfig, $form, 'description', 1); |
| 294 | 294 |
|
Auch abrufbar als: Unified diff
Auch Erzeugnisse koennen jetzt ueber die normale Einlager-Maske eingelagert werden (z.b. Retouren von Erzeugnissen)