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