Index: DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml
===================================================================
diff -u -r55429 -r56553
--- DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 55429)
+++ DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 56553)
@@ -4,23 +4,44 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="GeefNietMeerekenen">
-<FormalSpec>KlantID:DOM.common.PartijID,Variant:DOM.PM.enu.Variant</FormalSpec>
+<FormalSpec>KlantID:DOM.common.PartijID,Variant:DOM.PM.enu.Variant,KoppelingGemonteerd:%Boolean=0</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-		Set ListNM = ##class(%ListOfDataTypes).%New()
+	Set ListNM = ##class(%ListOfDataTypes).%New()
+	Set ProjectSettings = ##class(DOM.common.impl.ProjectSettingsAPI).%New()
+	If Variant = ##class(DOM.PM.enu.Variant).Taorbox(){
+		If ((##class(TECH.StringUtils).Equals(KlantID,##class(DOM.VKP.enu.Klant).Ferexpert(),##class(DOM.VKP.enu.Klant).Pavanello(),##class(DOM.VKP.enu.Klant).Galimberti() ))
+			|| ( ( (KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()) & ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ) ) {
 
-		If ##class(TECH.StringUtils).Equals(KlantID,##class(DOM.VKP.enu.Klant).Ferexpert(),##class(DOM.VKP.enu.Klant).Pavanello(),##class(DOM.VKP.enu.Klant).Galimberti()){
-			if Variant = ##class(DOM.PM.enu.Variant).Taorbox(){
-				Do ListNM.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).Glijder() )
-				Do ListNM.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSetEenhedenEnMeenemers() )
-				Do ListNM.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponBlumotionSynchronisatieStang() )
-				Do ListNM.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieStang() )
-				Do ListNM.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).TiponSynchronisatieTandwiel() )
-				; Nog onduidelijkheid over front (Daro : niet meeleveren, BD (nu nog) wel, Galimberti?)
-				; Do ListNM.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).FrontBevestiging() )				
-			}
+			Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()
+			Do ListNM.Insert(TAORNietMeeleveren.Glijder)
+			Do ListNM.Insert(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+			Do ListNM.Insert(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang)
+			Do ListNM.Insert(TAORNietMeeleveren.TiponSynchronisatieStang)
+			Do ListNM.Insert(TAORNietMeeleveren.TiponSynchronisatieTandwiel)
+			If (KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors() && $$$Not( ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ){
+				; dan niks, op de oude manier via de builders
+			} else {
+				Do ListNM.Insert(TAORNietMeeleveren.FrontBevestiging )				
+				;Koppeling ook nog, maar alleen indien niet gemonteerd 
+				If $$$Not(KoppelingGemonteerd ) {
+					Do ListNM.Insert(TAORNietMeeleveren.Koppeling)				
+				}
+			}			
 		}
-		Quit ListNM
+	}
+	If Variant = ##class(DOM.PM.enu.Variant).LegraboxPure(){
+		If (KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()) & ProjectSettings.IsDaroExcludeFromDeliveryEnabled(){
+			Set LBXNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren.AutoComplete).%New()
+			Do ListNM.Insert(LBXNietMeeleveren.Geleider)
+			Do ListNM.Insert(LBXNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+			Do ListNM.Insert(LBXNietMeeleveren.TiponBlumotionSynchronisatieStang)
+			Do ListNM.Insert(LBXNietMeeleveren.TiponSynchronisatieSet)
+			Do ListNM.Insert(LBXNietMeeleveren.TiponSynchronisatieStang)
+			Do ListNM.Insert(LBXNietMeeleveren.FrontBevestiging)		
+		}
+	}
+	Quit ListNM
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml
===================================================================
diff -u -r55429 -r56553
--- 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 56553)
@@ -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,37 +43,62 @@
 ]]></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(),5)
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),7)
 		
-	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 $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
 ]]></Implementation>
 </Method>
 
+<Method name="Test Galimberti waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX gewone lade binnen lade dus koppeling 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(),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 Pavanello waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX">
 <Implementation><![CDATA[
 	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
 	#dim KlantID = ##class(DOM.VKP.enu.Klant).Pavanello()		
 	#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(),7)
+	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 $$$AssertTrue(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(),5)
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),7)
 		
+	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 $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
+<Method name="Test Daro waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX koppeling 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(),6)
+		
 	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 $$$AssertTrue(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(),7)
+	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 $$$AssertTrue(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>
 
 
Index: vhTest/Mock/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml
===================================================================
diff -u -r55059 -r56553
--- vhTest/Mock/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 55059)
+++ vhTest/Mock/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 56553)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefNietMeerekenen">
-<FormalSpec>KlantID:DOM.common.PartijID,Variant:DOM.PM.enu.Variant</FormalSpec>
+<FormalSpec>KlantID:DOM.common.PartijID,Variant:DOM.PM.enu.Variant,KoppelingGemonteerd:%Boolean=0</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNietMeerekenen",KlantID,Variant)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNietMeerekenen",KlantID,Variant,KoppelingGemonteerd)
 ]]></Implementation>
 </Method>
 </Class>