Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml
===================================================================
diff -u -r56675 -r57787
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 56675)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57787)
@@ -3,25 +3,6 @@
 <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()
@@ -124,8 +105,10 @@
 
 <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()
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$True )	
+
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New(ProjectSettingsAPIMock)
 	#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)		
@@ -139,13 +122,17 @@
 	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()))
+	
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></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()
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$True )	
+
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New(ProjectSettingsAPIMock)
 	#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)		
@@ -159,25 +146,33 @@
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
 	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+	
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></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()
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$False )	
+
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New(ProjectSettingsAPIMock)
 	#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)
+	
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></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()
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$True )	
+
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New(ProjectSettingsAPIMock)
 	#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)		
@@ -191,18 +186,24 @@
 	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.TiponSynchronisatieStang))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.TiponSynchronisatieSet))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(LBXNietMeeleveren.FrontBevestiging))
+	
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></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()
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$False )	
+
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New(ProjectSettingsAPIMock)
 	#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)
+	
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>