Index: vhUnitTest/End2End/TAOR/GebruikteHalffabItemsVoorPrijsberekening/Test.cls.xml
===================================================================
diff -u -r55063 -r56585
--- vhUnitTest/End2End/TAOR/GebruikteHalffabItemsVoorPrijsberekening/Test.cls.xml	(.../Test.cls.xml)	(revision 55063)
+++ vhUnitTest/End2End/TAOR/GebruikteHalffabItemsVoorPrijsberekening/Test.cls.xml	(.../Test.cls.xml)	(revision 56585)
@@ -3,8 +3,27 @@
 <Class name="vhUnitTest.End2End.TAOR.GebruikteHalffabItemsVoorPrijsberekening.Test">
 <Super>vhUnitTest.End2End.GebruikteHalffabItemsVoorPrijsberekening.TestBase</Super>
 
-<Method name="Test: Standaardlade">
+<Property name="BackupDaroExcludedFromDelivery">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
+	Do ##super()
+	Set ..BackupDaroExcludedFromDelivery = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled")
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled",..BackupDaroExcludedFromDelivery)
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: Standaardlade">
+<Implementation><![CDATA[
 	#Dim GebruikteHalffabItems As %ListOfDataTypes = ..StandaardLadeItems()
 	do GebruikteHalffabItems.Insert("SetSchroeven")
 	do GebruikteHalffabItems.Insert("KoppelingSchroef")
@@ -20,7 +39,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geen geleider voor Galimberti">
+<Method name="aTest: geen geleider, koppeling, koppelingschroef, frontbevestiging voor Galimberti en aanverwanten">
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).Galimberti()
 
@@ -29,14 +48,61 @@
 	Do GebruikteHalffabItems.Insert("KoppelingSchroef")
 	
 	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Glijder"))
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("FrontBevestiging"))
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Koppeling.Links"))
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Koppeling.Rechts"))
+ 	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("KoppelingSchroef"))
 	
-	;Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("FrontBevestiging"))
+	Do ..AssertGebruikteHalffabItems(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), GebruikteHalffabItems, "TA'OR BOX",KlantID)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: geen geleider, frontbevestiging voor Galimberti en aanverwanten binnenlade">
+<Implementation><![CDATA[
+	#dim KlantID As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).Galimberti()
+
+	#Dim GebruikteHalffabItems As %ListOfDataTypes = ##class(TECH.ListUtils).CopyListOfDataTypes(..StandaardLadeItems(),..StandaardBinnenladeItems())
+	Do GebruikteHalffabItems.Insert("BodemOndersteuningSchroef")
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Verpakking.V1 losse onderdelendoos"))
+
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Glijder"))
 	
+	Do ..AssertGebruikteHalffabItems(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade(), GebruikteHalffabItems, "TA'OR BOX",KlantID)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: geen geleider, koppeling, koppelingschroef, frontbevestiging voor Daro met projectsetting enabled">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled",$$$True)
+	#dim KlantID As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).DaroFactors()
+
+	#dim GebruikteHalffabItems As %ListOfDataTypes = ..StandaardLadeItems()
+	Do GebruikteHalffabItems.Insert("SetSchroeven")
+	Do GebruikteHalffabItems.Insert("KoppelingSchroef")
 	
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Glijder"))
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("FrontBevestiging"))
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Koppeling.Links"))
+	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("Koppeling.Rechts"))
+ 	Do GebruikteHalffabItems.RemoveAt(GebruikteHalffabItems.Find("KoppelingSchroef"))
+	
 	Do ..AssertGebruikteHalffabItems(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), GebruikteHalffabItems, "TA'OR BOX",KlantID)
 ]]></Implementation>
 </Method>
 
+<Method name="aTest: geen geleider, koppeling koppelingschroef frontbevestiging voor Daro met projectsetting disabled">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled",$$$False)
+	#dim KlantID As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).DaroFactors()
+
+	#dim GebruikteHalffabItems As %ListOfDataTypes = ..StandaardLadeItems()
+	Do GebruikteHalffabItems.Insert("SetSchroeven")
+	Do GebruikteHalffabItems.Insert("KoppelingSchroef")
+		
+	Do ..AssertGebruikteHalffabItems(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), GebruikteHalffabItems, "TA'OR BOX",KlantID)
+]]></Implementation>
+</Method>
+
 <Method name="StandaardLadeItems">
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>