X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/71041661bf4a8e0ad75a20d9252dc501b3611657..98b64fe1e380c232428d63cea0eb5f44b1d1a2c3:/SL/WH.pm

diff --git a/SL/WH.pm b/SL/WH.pm
index a548bda77..89a937f9a 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -191,7 +191,7 @@ sub transfer_assembly {
 
     my $query = qq|SELECT assembly.parts_id, assembly.qty, parts.warehouse_id
                    FROM assembly INNER JOIN parts ON assembly.parts_id = parts.id
-                   WHERE assembly.id = ? AND (inventory_accno_id IS NOT NULL OR parts.assembly = TRUE)|;
+                   WHERE assembly.id = ? AND parts.part_type != 'service'|;
 
     my $sth_part_qty_assembly = prepare_execute_query($form, $dbh, $query, $params{assembly_id});