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