Index: vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaGebruikerToepasser/Test.cls.xml
===================================================================
diff -u -r31570 -r32363
--- vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaGebruikerToepasser/Test.cls.xml	(.../Test.cls.xml)	(revision 31570)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaGebruikerToepasser/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
@@ -5,136 +5,131 @@
 
 <Method name="TestInitieleCallMetLegeLBXKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestFrontBevestigingIsNietExplicietGekozen">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.FrontBevestiging = $$$DummyString
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.FrontBevestiging = $$$DummyString
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMetExplicietGekozenKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeHoogte = $$$DummyString
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Set BewaardeKenmerkenStub.BodemKleur = $$$DummyString
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.FrontBevestiging = $$$DummyString
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("FrontBevestiging")
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.FrontBevestiging = $$$DummyString
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("FrontBevestiging")
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("FrontBevestiging")
-	do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("FrontBevestiging")
+	Do VerwachteExplicietGekozenKenmerken.Insert("BodemKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeHoogte")
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestMetExplicietGelijkGekozenKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
-	do BewaardeKenmerkenStub.ExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set BewaardeKenmerkenStub.LadeKleur = $$$DummyString
+	Do BewaardeKenmerkenStub.ExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeKleur = $$$DummyString
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeKleur = $$$DummyString
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGedefaultDoorAndereDefaulter">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeKleur = $$$DummyString
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeKleur = $$$DummyString
 	
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenBewaardeKenmerkenMetExplicietGekozenKenmerken">
 <Implementation><![CDATA[
-	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
+	#dim BewaardeKenmerkenStub As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
-	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).GeefLegeLBXKenmerken()
-	set Kenmerken.LadeKleur = $$$DummyString
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken =  ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set Kenmerken.LadeKleur = $$$DummyString
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("LadeKleur")
 
-	set VerwachteExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
-	do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
-	do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
+	#dim VerwachteExplicietGekozenKenmerken As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerwachteExplicietGekozenKenmerken.Insert("LadeKleur")
+	Do VerwachteExplicietGekozenKenmerken.Insert("Klasse")
 	
-	do ..AssertGebruikerToepasser(BewaardeKenmerkenStub,Kenmerken,VerwachteExplicietGekozenKenmerken)
+	Do ..AssertGebruikerToepasser(BewaardeKenmerkenStub, Kenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertGebruikerToepasser">
 <FormalSpec>BewaardeKenmerkenStub:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteExplicietGekozenKenmerken:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	;Arrange
-	do ##class(APPS.ApplicatieContext).Instance().PushVerkoopAPIClassName(##class(vhTest.Mock.APPS.VKP.VerkoopAPI).%ClassName(1))
-	
-	#dim VerkoopAPI As vhTest.Mock.APPS.VKP.VerkoopAPI = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI()
-	
-	set MaatwerkConfiguratieServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
-	do VerkoopAPI.IndienMethodCall("GeefMaatwerkConfiguratorService").DanReturn(MaatwerkConfiguratieServiceStub)
-
 	#dim DummydtoBewaardeKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = $$$DummyObject
 	#dim DummyPad As APPS.VKP.Maatwerk.dto.Pad = $$$DummyObject
-	do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",0).DanReturn(DummydtoBewaardeKenmerken)
-	do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",1).DanReturn(DummydtoBewaardeKenmerken)
-	do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefIngegevenKenmerkenVanDto",DummydtoBewaardeKenmerken).DanReturn(BewaardeKenmerkenStub)
-	
-	;Act
-	set MaakwerkDefaultsViaGebruikerToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser).%New(DummyPad)
-	do Kenmerken.Accept(MaakwerkDefaultsViaGebruikerToepasser)
-	
-	;Assert
-	if $$$AssertEqualsList(Kenmerken.ExplicietGekozenKenmerken,VerwachteExplicietGekozenKenmerken)
+	#dim VerkoopAPIMock As vhTest.Mock.APPS.VKP.VerkoopAPI = ##class(vhTest.Mock.APPS.VKP.VerkoopAPI).MockInstance()
+	#dim MaakwerkDefaultsViaGebruikerToepasser As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser).%New(DummyPad)
+	#dim MaatwerkConfiguratieServiceStub As vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
+
+	Do VerkoopAPIMock.IndienMethodCall("GeefMaatwerkConfiguratorService").DanReturn(MaatwerkConfiguratieServiceStub)
+
+	Do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",0).DanReturn(DummydtoBewaardeKenmerken)
+	Do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefKenmerkenViaNaam",DummyPad,"Defaults",1).DanReturn(DummydtoBewaardeKenmerken)
+	Do MaatwerkConfiguratieServiceStub.IndienMethodCall("GeefIngegevenKenmerkenVanDto",DummydtoBewaardeKenmerken).DanReturn(BewaardeKenmerkenStub)
+
+	Do Kenmerken.Accept(MaakwerkDefaultsViaGebruikerToepasser)
+
+	Do $$$AssertEqualsList(Kenmerken.ExplicietGekozenKenmerken, VerwachteExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 </Class>