Index: WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml
===================================================================
diff -u -r37238 -r37404
--- WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37238)
+++ WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37404)
@@ -4,10 +4,10 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="GeefVerkoopprijsBerekenaar">
-<FormalSpec>PersonalityID:%String,KlantID:DOM.common.PartijID</FormalSpec>
+<FormalSpec>Sessie:WSimpl.Unishop.dto.Sessie</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</ReturnType>
 <Implementation><![CDATA[
-	If (..IsHeinPersonality(PersonalityID) || ..IsHeinKlant(KlantID)) {
+	If (..IsHeinPersonality(Sessie.GeefPersonalityID()) || ..IsHeinKlant(Sessie.GeefKlantID())) {
 		Quit ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar).%New()
 	} else {
 		Quit ##class(WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar).%New()
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r37401 -r37404
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37401)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37404)
@@ -83,7 +83,7 @@
 	Do VerkoopprijsBerekenaarMock.VerwachtMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00)
 
 	Set VerkoopprijsBerekenaarFactoryMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do VerkoopprijsBerekenaarFactoryMock.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
+	Do VerkoopprijsBerekenaarFactoryMock.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
 	
 	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarFactoryMock)
 	#dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy)
@@ -106,7 +106,7 @@
 	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00)
 
 	Set VerkoopprijsBerekenaarFactoryMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do VerkoopprijsBerekenaarFactoryMock.VerwachtMethodCall("GeefVerkoopprijsBerekenaar", "DummyPersonality","DummyKlant").DanReturn(VerkoopprijsBerekenaarMock)
+	Do VerkoopprijsBerekenaarFactoryMock.VerwachtMethodCall("GeefVerkoopprijsBerekenaar", ..SessieDummy).DanReturn(VerkoopprijsBerekenaarMock)
 	
 	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarFactoryMock)
 	#dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,, ..SessieDummy)
Index: vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml
===================================================================
diff -u -r37238 -r37404
--- vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37238)
+++ vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37404)
@@ -10,9 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefVerkoopprijsBerekenaar">
-<FormalSpec>PersonalityID:%String,KlantID:DOM.common.PartijID</FormalSpec>
+<FormalSpec>Sessie:WSimpl.Unishop.dto.Sessie</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerkoopprijsBerekenaar",PersonalityID,KlantID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerkoopprijsBerekenaar",Sessie)
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r37401 -r37404
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37401)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37404)
@@ -234,7 +234,7 @@
 	Set VerzendingItem.Code = VerzendingMogelijkheid.Code
 	Set VerzendingItem.Duurtijd = VerzendingMogelijkheid.Duurtijd
 	Set VerzendingItem.AankoopPrijs = VerzendingMogelijkheid.TransportKost
-	Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(..Sessie.GeefPersonalityID(),..Sessie.GeefKlantID()).BerekenVerkoopPrijs(OfferteItem)
+	Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(..Sessie).BerekenVerkoopPrijs(OfferteItem)
 	Set VerzendingItem.LeverDag = VerzendingMogelijkheid.LeverDag
 	Set VerzendingItem.LeverDatum = VerzendingMogelijkheid.LeverDatum 
 	Set VerzendingItem.LeverTijd = VerzendingMogelijkheid.LeverTijd
Index: vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml
===================================================================
diff -u -r37237 -r37404
--- vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37237)
+++ vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37404)
@@ -8,6 +8,7 @@
 <Super>WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory</Super>
 
 <Method name="GeefVerkoopprijsBerekenaar">
+<FormalSpec>Sessie:WSimpl.Unishop.dto.Sessie</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r37238 -r37404
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37238)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37404)
@@ -3,26 +3,145 @@
 <Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="VanHoeckeVerkoopprijsBerekenaarClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeinVerkoopprijsBerekenaarClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##Super()
+	Set ..VanHoeckeVerkoopprijsBerekenaarClassName = "WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar"
+	Set ..HeinVerkoopprijsBerekenaarClassName = "WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar"
+]]></Implementation>
+</Method>
+
 <Method name="Test: geeft verkoopprijsberekenaar hein als de context personality hein is">
 <Implementation><![CDATA[
 	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(##class(DOM.common.enu.Personality).Hein(),"").%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar")
+	#dim Sessie As WSimpl.Unishop.dto.Sessie = ##class(WSimpl.Unishop.dto.Sessie).%New(##class(DOM.common.enu.Personality).Hein(),"")
+	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1),..HeinVerkoopprijsBerekenaarClassName)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: geeft verkoopprijsberekenaar hein als de klant hein is">
 <Implementation><![CDATA[
 	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Hein()).%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar")
+	#dim Sessie As WSimpl.Unishop.dto.Sessie = ##class(WSimpl.Unishop.dto.Sessie).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Hein())
+	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1),..HeinVerkoopprijsBerekenaarClassName)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: geeft verkoopprijsberekenaar vanhoecke als de context geen personality hein en geen klant hein is">
 <Implementation><![CDATA[
 	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(##class(DOM.common.enu.Personality).VanHoecke(),"").%ClassName(1),"WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar")
+	#dim Sessie As WSimpl.Unishop.dto.Sessie = ##class(WSimpl.Unishop.dto.Sessie).%New(##class(DOM.common.enu.Personality).VanHoecke(),"")
+	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1),..VanHoeckeVerkoopprijsBerekenaarClassName)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: geeft verkoopprijsberekenaar 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())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).SFS())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Dupont())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Kisch())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Destil())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).HaefeleBE())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).VanRaemdonck())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Noteborn())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Daro())
+	Do VerwachteBepaler.InsertAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Hein())
+	Do VerwachteBepaler.InsertAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).HaefeleNL()) 
+
+	#dim VerkoopprijsBerekenaarFactory As WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory
+	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
+
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
+	While PersonalityIterator.HasNext()
+	{
+		#dim PersonalityID As DOM.common.enu.Personality = PersonalityIterator.Next()
+		#dim Sessie As WSimpl.Unishop.dto.Sessie = ##class(WSimpl.Unishop.dto.Sessie).%New(PersonalityID, "")
+		Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1), VerwachteBepaler.GetAt(PersonalityID))
+	}
+]]></Implementation>
+</Method>
+
+<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())
+
+	#dim VerkoopprijsBerekenaarFactory As WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory
+	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
+
+	#dim KlantIterator As TECH.ListIterator = ##class(DOM.VKP.enu.Klant).ValueListIterator()
+	While KlantIterator.HasNext()
+	{
+		#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))
+	}
+]]></Implementation>
+</Method>
 </Class>