Index: vhUnitTest/APPS/EC/WebshopConfiguratorService/VerwerkKenmerkWijzigingen/TestExplicietGekozenKenmerken.cls.xml
===================================================================
diff -u -r29059 -r32458
--- vhUnitTest/APPS/EC/WebshopConfiguratorService/VerwerkKenmerkWijzigingen/TestExplicietGekozenKenmerken.cls.xml	(.../TestExplicietGekozenKenmerken.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/WebshopConfiguratorService/VerwerkKenmerkWijzigingen/TestExplicietGekozenKenmerken.cls.xml	(.../TestExplicietGekozenKenmerken.cls.xml)	(revision 32458)
@@ -18,21 +18,36 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WebShopConfiguratorService">
+<Type>APPS.EC.impl.ConfiguratorService.WebshopConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>TestCase:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(TestCase)
-	set ..Klant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
-	do ..Klant.IndienMethodCall("GeefID").DanReturn($$$DummyInteger)
-	set ..Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
-	Do ..Personality.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).VanHoecke())
+	Do ##super(TestCase)
+	
 	#dim OrderVerwerkingAPI As vhTest.Mock.APPS.OV.OrderVerwerkingAPI = ##class(vhTest.Mock.APPS.OV.OrderVerwerkingAPI).MockInstance()
+	#dim KlantInstellingServiceStub As vhTest.Mock.APPS.common.KlantInstellingenService = ##class(vhTest.Mock.APPS.common.KlantInstellingenService).%New()
+	#dim AdresStub As vhTest.Mock.DOM.VKP.LeverAdres = ##class(vhTest.Mock.DOM.VKP.LeverAdres).%New()
 	
-	set KlantInstellingServiceStub = ##class(vhTest.Mock.APPS.common.KlantInstellingenService).%New()
-	do KlantInstellingServiceStub.IndienMethodCall("MagKlantLBXVerpakkingTypeBestellen",..Klant.GeefID(),"Probox").DanReturn(1)
-	do OrderVerwerkingAPI.IndienMethodCall("GeefKlantInstellingenService",..Personality).DanReturn(KlantInstellingServiceStub)	
+	Set ..Klant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Set ..Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
 	
+	Do AdresStub.IndienMethodCall("GeefLand").DanReturn(##class(DOM.common.impl.Land).%New($$$DummyInteger))
+	
+	Do ..Klant.IndienMethodCall("GeefID").DanReturn($$$DummyInteger)
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(AdresStub)
+	
+	Do ..Personality.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).VanHoecke())
+
+	Do KlantInstellingServiceStub.IndienMethodCall("MagKlantLBXVerpakkingTypeBestellen", ..Klant.GeefID(), "Probox").DanReturn(1)
+	Do OrderVerwerkingAPI.IndienMethodCall("GeefKlantInstellingenService", ..Personality).DanReturn(KlantInstellingServiceStub)	
+	
 	Do ##class(APPS.ApplicatieContext).Instance().PushCommonAPIClassName("vhTest.Mock.APPS.common.KlantInstellingenService")
+	
+	Set ..WebShopConfiguratorService = ##class(APPS.EC.impl.ConfiguratorService.WebshopConfiguratorService).%New()
 ]]></Implementation>
 </Method>
 
@@ -47,31 +62,30 @@
 <Method name="TestLegeKenmerkenGeenKenmerkWijzigingen">
 <Implementation><![CDATA[
 	#dim Kenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	
-	set WebShopConfiguratorService = ##class(APPS.EC.impl.ConfiguratorService.WebshopConfiguratorService).%New()
-	set IngegevenKenmerkWijzigingenLijst = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
-	
-	#dim KenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = WebShopConfiguratorService.VerwerkKenmerkWijzigingen(Kenmerken,IngegevenKenmerkWijzigingenLijst,..Klant,..Personality)
+	#dim IngegevenKenmerkWijzigingenLijst As APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
+	#dim KenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..WebShopConfiguratorService.VerwerkKenmerkWijzigingen(Kenmerken, IngegevenKenmerkWijzigingenLijst, ..Klant, ..Personality)
 	#dim AangepasteIngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = KenmerkWijzigingen.AangepasteIngegevenKenmerken
-	do $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.Count(),0)
+	
+	Do $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.Count(), 0)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLegeKenmerken">
 <Implementation><![CDATA[
 	#dim Kenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	#dim IngegevenKenmerkWijzigingenLijst As APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
 	
-	set WebShopConfiguratorService = ##class(APPS.EC.impl.ConfiguratorService.WebshopConfiguratorService).%New()
-	set IngegevenKenmerkWijzigingenLijst = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
-	set IngegevenKenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingen).%New()
-	set IngegevenKenmerkWijzigingen.KenmerkNaam = "KenmerkNaam"
-	do IngegevenKenmerkWijzigingenLijst.Insert(IngegevenKenmerkWijzigingen)
+	Set IngegevenKenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingen).%New()
+	Set IngegevenKenmerkWijzigingen.KenmerkNaam = "KenmerkNaam"
 	
-	#dim KenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = WebShopConfiguratorService.VerwerkKenmerkWijzigingen(Kenmerken,IngegevenKenmerkWijzigingenLijst,..Klant,..Personality)
+	Do IngegevenKenmerkWijzigingenLijst.Insert(IngegevenKenmerkWijzigingen)
+	
+	#dim KenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..WebShopConfiguratorService.VerwerkKenmerkWijzigingen(Kenmerken, IngegevenKenmerkWijzigingenLijst, ..Klant, ..Personality)
 	#dim AangepasteIngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = KenmerkWijzigingen.AangepasteIngegevenKenmerken
-	if $$$AssertTrue($IsObject(AangepasteIngegevenKenmerken)) {
-		if $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.Count(),1) {
-			do $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.GetAt(1),"KenmerkNaam")	
+	
+	If $$$AssertTrue($IsObject(AangepasteIngegevenKenmerken)) {
+		If $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.Count(), 1) {
+			Do $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.GetAt(1), "KenmerkNaam")	
 		}
 	}
 ]]></Implementation>
@@ -80,20 +94,22 @@
 <Method name="TestExplicietGekozenKenmerkReedsOpgegeven">
 <Implementation><![CDATA[
 	#dim Kenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	do Kenmerken.ExplicietGekozenKenmerken.Insert("KenmerkNaam")
+	Do Kenmerken.ExplicietGekozenKenmerken.Insert("KenmerkNaam")
 	
-	set WebShopConfiguratorService = ##class(APPS.EC.impl.ConfiguratorService.WebshopConfiguratorService).%New()
-	set IngegevenKenmerkWijzigingenLijst = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
-	set IngegevenKenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingen).%New()
-	set IngegevenKenmerkWijzigingen.KenmerkNaam = "KenmerkNaam"
-	do IngegevenKenmerkWijzigingenLijst.Insert(IngegevenKenmerkWijzigingen)
-	do IngegevenKenmerkWijzigingenLijst.Insert(IngegevenKenmerkWijzigingen)
+	#dim IngegevenKenmerkWijzigingenLijst As APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
 	
-	#dim KenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = WebShopConfiguratorService.VerwerkKenmerkWijzigingen(Kenmerken,IngegevenKenmerkWijzigingenLijst,..Klant,..Personality)
+	Set IngegevenKenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingen).%New()
+	Set IngegevenKenmerkWijzigingen.KenmerkNaam = "KenmerkNaam"
+	
+	Do IngegevenKenmerkWijzigingenLijst.Insert(IngegevenKenmerkWijzigingen)
+	Do IngegevenKenmerkWijzigingenLijst.Insert(IngegevenKenmerkWijzigingen)
+	
+	#dim KenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..WebShopConfiguratorService.VerwerkKenmerkWijzigingen(Kenmerken, IngegevenKenmerkWijzigingenLijst, ..Klant, ..Personality)
 	#dim AangepasteIngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = KenmerkWijzigingen.AangepasteIngegevenKenmerken
-	if $$$AssertTrue($IsObject(AangepasteIngegevenKenmerken)) {
-		if $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.Count(),1) {
-			do $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.GetAt(1),"KenmerkNaam")	
+	
+	If $$$AssertTrue($IsObject(AangepasteIngegevenKenmerken)) {
+		If $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.Count(), 1) {
+			Do $$$AssertEquals(AangepasteIngegevenKenmerken.ExplicietGekozenKenmerken.GetAt(1), "KenmerkNaam")	
 		}
 	}
 ]]></Implementation>