X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/aa0c7e72dc143e3f29e9bfdbda962ae98c503274..70edaa5fe6a00edcd8a2abe7ea4ba06c7893f538:/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});