Index: vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml
===================================================================
diff -u -r57717 -r57787
--- vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml	(.../GeefDoorHandelMeeleverenBepaler.cls.xml)	(revision 57717)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml	(.../GeefDoorHandelMeeleverenBepaler.cls.xml)	(revision 57787)
@@ -3,25 +3,6 @@
 <Class name="vhUnitTest.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory.GeefDoorHandelMeeleverenBepaler">
 <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 geeft altijd een bepaler terug">
 <Implementation><![CDATA[
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","0")
@@ -44,9 +25,11 @@
 
 <Method name="Test geeft voor alle personalities de juiste bepaler terug">
 <Implementation><![CDATA[
-	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","0")
-	Set Factory = ##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New()
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$False )
 	
+	Set Factory = ##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New(ProjectSettingsAPIMock)
+	
 	#dim PersonalityIdIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
 	
 	while PersonalityIdIterator.HasNext() {
@@ -66,14 +49,18 @@
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Geen"))
 		}
 	}
+	
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test geeft voor alle personalities de juiste bepaler terug DaroExcludedFromDeliveryEnabled">
 <Implementation><![CDATA[
-	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","1")
-	Set Factory = ##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New()
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$True )
 	
+	Set Factory = ##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory).%New(ProjectSettingsAPIMock)
+	
 	#dim PersonalityIdIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
 	
 	while PersonalityIdIterator.HasNext() {
@@ -95,6 +82,7 @@
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Geen"))
 		}
 	}
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml
===================================================================
diff -u -r57711 -r57787
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 57711)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 57787)
@@ -37,20 +37,6 @@
 <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 Standaard Gedrag">
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()	
@@ -116,19 +102,26 @@
 
 <Method name="Test Daro ExcludedFromDeliveryEnabled true">
 <Implementation><![CDATA[
-	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
-	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","1")	
+
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$True )	
+
+	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New(,ProjectSettingsAPIMock)
 	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#DaroKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Daro).%ClassName(1) )
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test Daro ExcludedFromDeliveryEnabled false">
 <Implementation><![CDATA[
-	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
-	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled","0")	
+	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$False )	
+
+	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New(,ProjectSettingsAPIMock)
 	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#DaroKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Standaard).%ClassName(1) )
+	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r57711 -r57787
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 57711)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 57787)
@@ -8,14 +8,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettings">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI="",ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	Set ..ProjectSettings = $$$Inject(ProjectSettings, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -30,7 +37,7 @@
 		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).Galimberti()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Galimberti).%New()
 		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).Pavanello()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Pavanello).%New()
 		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).Ferexpert()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Ferexpert).%New()
-		If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsDaroExcludeFromDeliveryEnabled()){
+		If (..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()){
 			Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = ##class(DOM.VKP.enu.Klant).DaroFactors()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Daro).%New()
 		}		
 	}	
Index: vhTest/Mock/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml
===================================================================
diff -u -r56584 -r57787
--- vhTest/Mock/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 56584)
+++ vhTest/Mock/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 57787)
@@ -8,6 +8,13 @@
 <Super>DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefNietMeerekenen">
 <FormalSpec>KlantID:DOM.common.PartijID,Variant:DOM.PM.enu.Variant,IsBinnenLade:%Boolean=0</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml
===================================================================
diff -u -r56675 -r57787
--- DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 56675)
+++ DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 57787)
@@ -3,25 +3,42 @@
 <Class name="DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler">
 <Super>TECH.Mockable</Super>
 
+<Property name="ProjectSettings">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProjectSettings = $$$Inject(ProjectSettings, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefNietMeerekenen">
 <FormalSpec>KlantID:DOM.common.PartijID,Variant:DOM.PM.enu.Variant,IsBinnenLade:%Boolean=0</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	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()) ) ) {
+			|| ( ( (KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()) & ..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ) ) {
 
 			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()) ){
+			If (KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors() && $$$Not( ..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ){
 				; dan niks, op de oude manier via de builders
-			} else {
+			} Else {
 				;frontbevestiging ook nog, maar alleen indien niet gemonteerd (ttz geen binnenlade
 				If $$$Not(IsBinnenLade ) {
 					Do ListNM.Insert(TAORNietMeeleveren.FrontBevestiging )				
@@ -30,7 +47,7 @@
 		}
 	}
 	If Variant = ##class(DOM.PM.enu.Variant).LegraboxPure(){
-		If (KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors()) & ProjectSettings.IsDaroExcludeFromDeliveryEnabled(){
+		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)
Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r57786 -r57787
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 57786)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 57787)
@@ -99,7 +99,6 @@
 	Set Lijn.EconConfiguratieSleutel = EconConfiguratieSleutel
 	
 	Do Lijn.ZetAantal(Aantal)
-	Do ##class(Tools.Wlip).%New(207).String("awel")
 	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken)
 
 	Do ..ZetProjectReferentie(Lijn,ProjectReferentie)
Index: APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml
===================================================================
diff -u -r57717 -r57787
--- APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 57717)
+++ APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 57787)
@@ -3,6 +3,23 @@
 <Class name="APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory">
 <Super>TECH.Mockable</Super>
 
+<Property name="ProjectSettings">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProjectSettings = $$$Inject(ProjectSettings, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefDoorHandelMeeleverenBepaler">
 <FormalSpec>PersonalityId:DOM.common.enu.Personality=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler</ReturnType>
@@ -12,8 +29,8 @@
 	Quit:(PersonalityId = ##class(DOM.common.enu.Personality).Galimberti()) ..GeefNietBeneluxBepaler()
 	Quit:(PersonalityId = ##class(DOM.common.enu.Personality).Pavanello()) ..GeefNietBeneluxBepaler()
 	Quit:(PersonalityId = ##class(DOM.common.enu.Personality).Ferexpert()) ..GeefNietBeneluxBepaler()
-	if (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsDaroExcludeFromDeliveryEnabled()){
-		Quit:(PersonalityId = ##class(DOM.common.enu.Personality).Daro()) ..GeefNietBeneluxBepaler()
+	If (PersonalityId = ##class(DOM.common.enu.Personality).Daro()){
+		Quit:(..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ..GeefNietBeneluxBepaler()
 	}
 	Quit ##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Geen).%New()
 ]]></Implementation>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux/ZetDoorHandelMeeleverens.cls.xml
===================================================================
diff -u -r56767 -r57787
--- vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux/ZetDoorHandelMeeleverens.cls.xml	(.../ZetDoorHandelMeeleverens.cls.xml)	(revision 56767)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux/ZetDoorHandelMeeleverens.cls.xml	(.../ZetDoorHandelMeeleverens.cls.xml)	(revision 57787)
@@ -28,8 +28,6 @@
 		
 	Do HalfFabItemBoomMock.VerwachtMethodCall("GeefHalffabItemsIterator","FrontBevestiging").DanReturn(FrontBevestigingIterator)
 		
-		
-		
 	Set MaatwerkCalcAPIMock = ##class(vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI).%New()
 	Do MaatwerkCalcAPIMock.VerwachtMethodCall("GeefHalffabItemsBoom",IngegevenKenmerken,1).DanReturn(HalfFabItemBoomMock)
 	
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>
Index: vhTest/Mock/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml
===================================================================
diff -u -r53498 -r57787
--- vhTest/Mock/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 53498)
+++ vhTest/Mock/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 57787)
@@ -8,6 +8,13 @@
 <Super>APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepalerFactory,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefDoorHandelMeeleverenBepaler">
 <FormalSpec>PersonalityId:DOM.common.enu.Personality=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler</ReturnType>
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r55069 -r57787
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 55069)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 57787)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI="",ProjectSettings:DOM.common.impl.ProjectSettingsAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>