Index: APPS/Halux/common/StapelService.cls.xml
===================================================================
diff -u -r1317 -r1326
--- APPS/Halux/common/StapelService.cls.xml	(.../StapelService.cls.xml)	(revision 1317)
+++ APPS/Halux/common/StapelService.cls.xml	(.../StapelService.cls.xml)	(revision 1326)
@@ -42,20 +42,21 @@
 	Set ProductLijnIterator = ..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
 	While (ProductLijnIterator.HasNext())
 	{
-		Do ProductLijnen.Insert(ProductLijnIterator.Next())
+		Set ProductLijn = ProductLijnIterator.Next()
+		If (ProductLijn.GeefProduct().%Extends("DOM.PM.TBXProduct.TBXLade"))
+		{
+			Do ProductLijnen.Insert(ProductLijn)
+		}
 	}
 	
 	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(ProductLijnen,##class(BL.PPS.TBX.ZaagVolgordeComparator).%New())
 	
 	For i=1:1:ProductLijnen.Count()
 	{
 		Set ProductLijn = ProductLijnen.GetAt(i)
-		If (ProductLijn.GeefProduct().%Extends("DOM.PM.TBXProduct.TBXLade"))
+		For j=1:1:ProductLijn.GeefAantal()
 		{
-			For j=1:1:ProductLijn.GeefAantal()
-			{
-				Do Dozen.Insert(##class(APPS.Halux.common.impl.TandemboxDoos).%New(ProductLijn.GeefProduct()))
-			}
+			Do Dozen.Insert(##class(APPS.Halux.common.impl.TandemboxDoos).%New(ProductLijn.GeefProduct()))
 		}
 	}