Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponentenInBulk.cls.xml
===================================================================
diff -u -r30891 -r31139
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponentenInBulk.cls.xml	(.../TestLosseComponentenInBulk.cls.xml)	(revision 30891)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponentenInBulk.cls.xml	(.../TestLosseComponentenInBulk.cls.xml)	(revision 31139)
@@ -15,18 +15,54 @@
 	Do ..InitMocks()
 
 	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList= WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
+
+	Do ..AssertTussenschotAanwezigInBoom(HalffabItemsBoom)
+	Do ..AssertTussenschotNietInWerklijstItems(WerklijstItems)
+]]></Implementation>
+</Method>
+
+<Method name="AssertTussenschotAanwezigInBoom">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertTrue(HalffabItemsBoom.BevatRol("Verpakking->Zijkant_Links Verticaal"))
+	// Assert andere rollen 
 	Do $$$AssertTrue(HalffabItemsBoom.BevatRol("Verpakking->Zijkant_Links bodemdoos"))
 	Do $$$AssertTrue(HalffabItemsBoom.BevatRol("Verpakking->Zijkant_Links dekseldoos"))
 	Do $$$AssertTrue(HalffabItemsBoom.BevatRol("Verpakking->Zijkant_Links Horizontaal"))
-	Do $$$AssertTrue(HalffabItemsBoom.BevatRol("Verpakking->Zijkant_Links Verticaal"))
+]]></Implementation>
+</Method>
 
-	If $$$AssertTrue(WerklijstItems.Count()>=1,"Aantal WerklijstItems") {
-		#dim KartonUI As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo = WerklijstItems.GetAt(1).UitvoeringInfo
-		Do $$$AssertEquals(KartonUI.KartonSnijdenData.KartonSpecificatie.BenamingVerpakkingsOnderdeel,##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).Bodem())
+<Method name="AssertTussenschotNietInWerklijstItems">
+<FormalSpec>WerklijstItems:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Assert : de enige 3 aanwezige items zijn voor onderdeel "Bodem", dus geen items voor tussenschot 
+	Set InformatieIDs = ##class(%ListOfDataTypes).%New()
+	Set Iterator = ##class(TECH.ListIterator).%New(WerklijstItems)
+	While (Iterator.HasNext()) {
+		#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = Iterator.Next()
+		Do ..AssertUitvoeringInfoBodem(WerklijstItem.UitvoeringInfo)
+		Do InformatieIDs.Insert(WerklijstItem.InformatieID)
 	}
+	Do $$$AssertEquals(WerklijstItems.Count(),3,"Aantal WerklijstItems")
+	Do $$$AssertInList(InformatieIDs,"TAOR.Verpakking.KartonSnijden")
+	Do $$$AssertInList(InformatieIDs,"TAOR.PalletInhoud")
+	Do $$$AssertInList(InformatieIDs,"TAOR.KlantEtiket")
 ]]></Implementation>
 </Method>
 
+<Method name="AssertUitvoeringInfoBodem">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Bij KlantEtiket wordt de UitvoeringInfo niet gechecked 
+	If UitvoeringInfo.%Extends(##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo).%ClassName($$$True)) || UitvoeringInfo.%Extends(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.PalletInhoudUitvoeringInfo).%ClassName($$$True)) {
+		Do $$$AssertEquals(UitvoeringInfo.KartonSnijdenData.KartonSpecificatie.BenamingVerpakkingsOnderdeel,##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).Bodem())
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakLosseComponentIngegevenKenmerken">
 <FormalSpec>ProductieWijze:DOM.PM.enu.TAORProductieWijze</FormalSpec>
 <Private>1</Private>