Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml
===================================================================
diff -u -r55429 -r56675
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55429)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 56675)
@@ -3,6 +3,25 @@
 <Class name="vhUnitTest.DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<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="Test klant waarvoor we geen niet meeleverens opzetten om prijs te berekenen">
 <Implementation><![CDATA[
 	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
@@ -24,20 +43,43 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Galimberti waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX">
+<Method name="Test Galimberti waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX gewone lade">
 <Implementation><![CDATA[
 	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
 	#dim KlantID = ##class(DOM.VKP.enu.Klant).Galimberti()		
 	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
-	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$False)		
 	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+		
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
+<Method name="Test Galimberti waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX binnenlade dus koppeling en front gemonteerd">
+<Implementation><![CDATA[
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).Galimberti()		
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$True)		
+	
 	Do $$$AssertEquals(ListNietMeerekenens.Count(),5)
 		
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieStang()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieStang()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieTandwiel()))
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
 ]]></Implementation>
 </Method>
 
@@ -48,13 +90,15 @@
 	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
 	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
 	
-	Do $$$AssertEquals(ListNietMeerekenens.Count(),5)
-		
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieStang()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieStang()))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieTandwiel()))
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
 ]]></Implementation>
 </Method>
 
@@ -65,15 +109,102 @@
 	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
 	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
 	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+		
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
+<Method name="Test Daro waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX binnenlade koppeling en front gemonteerd en projectsetting opgezet">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","1")	
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$True)		
+	
 	Do $$$AssertEquals(ListNietMeerekenens.Count(),5)
 		
 	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder()))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers()))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieStang()))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieStang()))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieTandwiel()))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).FrontBevestiging()))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Koppeling()))
 ]]></Implementation>
 </Method>
+
+<Method name="Test Daro waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX koppeling niet gemonteerd en projectsetting opgezet">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","1")	
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$False)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
+<Method name="Test Daro waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX en projectsetting afgezet">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","0")	
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test Daro waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor LBX">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","1")	
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+	
+	Set LBXNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.Geleider))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.TiponSynchronisatieSet))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.FrontBevestiging))
+]]></Implementation>
+</Method>
+
+<Method name="Test Daro waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor LBX en projectsetting afgezet">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","0")	
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),0)
+]]></Implementation>
+</Method>
 </Class>