Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/LandenBepalerFactory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r37420 -r37426
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/LandenBepalerFactory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37420)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/LandenBepalerFactory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37426)
@@ -45,7 +45,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geeft LandenBepaler geeft de juiste LandenBepaler voor de overeenkomstige personality">
+<Method name="Test: geeft de juiste LandenBepaler voor de overeenkomstige personality">
 <Implementation><![CDATA[
 	#dim VerwachteBepaler As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	Do VerwachteBepaler.InsertAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).VanHoecke())
@@ -74,60 +74,61 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geeft TransportFirmaBepaler geeft de juiste TransportFirmaBepaler voor de overeenkomstige klant">
+<Method name="Test: geeft de juiste TransportFirmaBepaler voor de overeenkomstige klant">
 <Implementation><![CDATA[
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Keller()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).VanHoecke()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).TestklantVanHoecke()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Bruynzeel()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).HaefeleBelgie()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).HaefeleNederland()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).OptimaPack()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).NordInox()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Halux()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).NewSobelwood()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).SFS()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Tulp()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).DeceuninckDeforce()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).GroupNivelles()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).NevesBelgium()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).DMLine()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).KastID()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).FranssenProducts()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).FranssenTrading()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).MeubelBeslagHolland()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).DeDecker()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Hein()) = ..HeinLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).VanRaemdonck()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Noteborn()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).LijstPrijsKlant()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).RabatPrijsKlant()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).SpilPrijsKlant()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).ConsumentVoorVhisieKlant()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).HoutenLaden()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Planofurn()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Intracto()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).HeylenJos()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).VanLaer()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).WilsInterieurbouw()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Jongen()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).VOLUX()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).DiboDesign()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).SegersInterieur()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Uytterhoeven()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).ThononKitchencenter()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).DaroFactors()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).SeboKinteque()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).TheyssensKeukens()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).KvikNL()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).KvikBE()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).BlumPortugal()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).MiwaInterieurs()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).FransenMarius()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).Strakk()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).LenssenProduktie()) = ..VanHoeckeLandenBepalerClassName
-	Set VerwachteBepaler(##class(DOM.VKP.enu.Klant).MiBois()) = ..VanHoeckeLandenBepalerClassName
+	#dim VerwachteBepaler As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Keller())
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).VanHoecke())
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).TestklantVanHoecke()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Bruynzeel()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).HaefeleNederland()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).OptimaPack()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).NordInox()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Halux()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).NewSobelwood()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).SFS()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Tulp()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).DeceuninckDeforce()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).GroupNivelles()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).NevesBelgium()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).DMLine()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).KastID()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).FranssenProducts()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).FranssenTrading()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).MeubelBeslagHolland()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).DeDecker()) 
+	Do VerwachteBepaler.SetAt(..HeinLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Hein()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).VanRaemdonck()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Noteborn()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).RabatPrijsKlant()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).SpilPrijsKlant()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).ConsumentVoorVhisieKlant()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).HoutenLaden()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Planofurn()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Intracto()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).HeylenJos()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).VanLaer()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).WilsInterieurbouw()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Jongen()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).VOLUX()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).DiboDesign()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).SegersInterieur()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Uytterhoeven()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).ThononKitchencenter()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).DaroFactors()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).SeboKinteque()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).TheyssensKeukens()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).KvikNL()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).KvikBE()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).BlumPortugal()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).MiwaInterieurs()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).FransenMarius()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).Strakk()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).LenssenProduktie()) 
+	Do VerwachteBepaler.SetAt(..VanHoeckeLandenBepalerClassName, ##class(DOM.VKP.enu.Klant).MiBois()) 
 
 	#dim LandenBepalerFactory As WS.EC.Unishop.InternationaleZending.impl.LandenBepalerFactory
 	Set LandenBepalerFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.LandenBepalerFactory).%New()
@@ -137,7 +138,7 @@
 	{
 		#dim KlantID As DOM.common.enu.Personality = KlantIterator.Next()
 		#dim Sessie As WSimpl.Unishop.dto.Sessie = ##class(WSimpl.Unishop.dto.Sessie).%New("",KlantID)
-		Do $$$AssertEquals(LandenBepalerFactory.GeefLandenBepaler(Sessie).%ClassName(1), VerwachteBepaler(KlantID))
+		Do $$$AssertEquals(LandenBepalerFactory.GeefLandenBepaler(Sessie).%ClassName(1), VerwachteBepaler.GetAt(KlantID))
 	}
 ]]></Implementation>
 </Method>