Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml
===================================================================
diff -u -r33048 -r33054
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml	(.../Test.cls.xml)	(revision 33048)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml	(.../Test.cls.xml)	(revision 33054)
@@ -8,6 +8,31 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SamengesteldKostItemBuilder">
+<Type>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostZijlijnv001">
+<Type>DOM.PM.Maatwerk.Calc.Kost.impl.LBX.Builder.KostZijlijnv001</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SamengesteldKostItem">
+<Type>DOM.PM.Maatwerk.Calc.Kost.KostItem</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	do ##super()
@@ -17,28 +42,56 @@
 
 <Method name="Test de aanwezigheid van de kosten gerelateerd aan de TIP-ON BLUMOTION set van eenheden en meenemers">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken= ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
-	Set SamengesteldKostItemBuilder = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder).%New()
-	Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	Set KostZijlijnv001 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.LBX.Builder.KostZijlijnv001).%New(SamengesteldKostItemBuilder)
+	Do ..MaakbeperkteHalffabItemsBoom()
 	
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
-	#dim SamengesteldKostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = ""
-	Do HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSetEenhedenEnMeenemers()))
-	Set SamengesteldKostItem = KostZijlijnv001.Bereken(..Context, HalffabItemsBoom, IngegevenKenmerken)
+	Do ..HalffabItemsBoom.AddHalffabItem(..GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSetEenhedenEnMeenemers()))
 	
-	Do ..AssertAanwezigheidKostitem(SamengesteldKostItem, "Picking en transport TIP-ON BLUMOTION eenheid en meenemer")
-	Do ..AssertAanwezigheidKostitem(SamengesteldKostItem, "Picking en transport TIP-ON BLUMOTION koppelstuk")
-	Do ..AssertAanwezigheidKostitem(SamengesteldKostItem, "Linefeeding TIP-ON BLUMOTION")
+	Set ..SamengesteldKostItem = ..KostZijlijnv001.Bereken(..Context, ..HalffabItemsBoom, ..IngegevenKenmerken)
+	
+	Do ..AssertAanwezigheidKostitem(..SamengesteldKostItem, "Picking en transport TIP-ON BLUMOTION eenheid en meenemer")
+	Do ..AssertAanwezigheidKostitem(..SamengesteldKostItem, "Picking en transport TIP-ON BLUMOTION koppelstuk")
+	Do ..AssertAanwezigheidKostitem(..SamengesteldKostItem, "Linefeeding TIP-ON BLUMOTION")
 ]]></Implementation>
 </Method>
 
+<Method name="Test de afwezigheid van de kosten gerelateerd aan de TIP-ON BLUMOTION set van eenheden en meenemers">
+<Implementation><![CDATA[
+	Do ..MaakbeperkteHalffabItemsBoom()
+	
+	Set ..SamengesteldKostItem = ..KostZijlijnv001.Bereken(..Context, ..HalffabItemsBoom, ..IngegevenKenmerken)
+	
+	Do ..AssertAfwezigheidKostitem(..SamengesteldKostItem, "Picking en transport TIP-ON BLUMOTION eenheid en meenemer")
+	Do ..AssertAfwezigheidKostitem(..SamengesteldKostItem, "Picking en transport TIP-ON BLUMOTION koppelstuk")
+	Do ..AssertAfwezigheidKostitem(..SamengesteldKostItem, "Linefeeding TIP-ON BLUMOTION")
+]]></Implementation>
+</Method>
+
+<Method name="AssertAfwezigheidKostitem">
+<FormalSpec>SamengesteldKostItem:DOM.PM.Maatwerk.Calc.Kost.KostItem,TeZoeken:%String</FormalSpec>
+<Implementation><![CDATA[	do $$$AssertFalse(##class(TECH.ListUtils).ExistsGetMethodWithValue(SamengesteldKostItem.KostItems,"GeefNaam",TeZoeken),TeZoeken_" niet gevonden")
+]]></Implementation>
+</Method>
+
 <Method name="AssertAanwezigheidKostitem">
 <FormalSpec>SamengesteldKostItem:DOM.PM.Maatwerk.Calc.Kost.KostItem,TeZoeken:%String</FormalSpec>
 <Implementation><![CDATA[	do $$$AssertTrue(##class(TECH.ListUtils).ExistsGetMethodWithValue(SamengesteldKostItem.KostItems,"GeefNaam",TeZoeken),TeZoeken_" niet gevonden")
 ]]></Implementation>
 </Method>
 
+<Method name="MaakbeperkteHalffabItemsBoom">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("DOM.common.ProjectSettingsAPI_IsActiefLBXTOBIntern", $$$True, ..#Applicatie)
+	
+	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Set ..SamengesteldKostItemBuilder = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder).%New()
+	Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	Set ..KostZijlijnv001 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.LBX.Builder.KostZijlijnv001).%New(..SamengesteldKostItemBuilder)
+	
+	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set ..SamengesteldKostItem = ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefHalffabItem">
 <FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
 <Private>1</Private>