Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r70915 -r70916
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70915)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70916)
@@ -179,11 +179,8 @@
 		#dim IsProductiegroepFlatackV1 As %Boolean = (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).FlatpackV1())
 		#dim IsProductiegroepV1 As %Boolean = (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk())
 		
-		If (Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-			If (IsProductiegroepProbox || IsProductiegroepFlatackV1) {
-				Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeGeleiders(GesorteerdeUitvoeringInfoIterator)
-			}
-			;Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenBehalveBodemplatenIterator(GesorteerdeUitvoeringInfoIterator)
+		If ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox())&& (IsProductiegroepProbox || IsProductiegroepFlatackV1)) {
+			Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeGeleiders(GesorteerdeUitvoeringInfoIterator)
 		} 
 		
 		If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
@@ -269,27 +266,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAlleProductenBehalveBodemplatenIterator">
-<FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim Product As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop
-	Set NieuweLijst = ##class(%ListOfObjects).%New()
-	
-	While GesorteerdeUitvoeringInfoIterator.HasNext() {
-		Set Product = GesorteerdeUitvoeringInfoIterator.Next()
-		Do ##class(Tools.Wlip).%New(110).String(Product.HFV.GeefOmschrijving())
-		If $$$Not(##class(TECH.StringUtils).StartsWith(Product.HFV.GeefOmschrijving(), "Bodemplaat")) {
-			Do ##class(Tools.Wlip).%New(110).String("Insert")
-			Do NieuweLijst.Insert(Product)
-		}
-	}
-	
-	Quit ##class(TECH.ListIterator).%New(NieuweLijst)
-]]></Implementation>
-</Method>
-
 <Method name="GeefAlleProductenMetSamengeteldeGeleiders">
 <FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>