Index: WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml
===================================================================
diff -u -r37237 -r37238
--- WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml	(.../TransportFirmaBepalerFactory.cls.xml)	(revision 37237)
+++ WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml	(.../TransportFirmaBepalerFactory.cls.xml)	(revision 37238)
@@ -4,9 +4,10 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="GeefTransportFirmaBepaler">
+<FormalSpec>PersonalityID:%String,KlantID:DOM.common.PartijID</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler</ReturnType>
 <Implementation><![CDATA[
-	If (..IsHeinPersonality() || ..IsHeinKlant()) {
+	If (..IsHeinPersonality(PersonalityID) || ..IsHeinKlant(KlantID)) {
 		Quit ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.TransportFirmaBepaler).%New()
 	} else {
 		Quit ##class(WS.EC.Unishop.InternationaleZending.VanHoecke.impl.TransportFirmaBepaler).%New()
@@ -15,22 +16,18 @@
 </Method>
 
 <Method name="IsHeinPersonality">
+<FormalSpec>PersonalityID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim PersonalityID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
-	Quit (PersonalityID = ##class(DOM.common.enu.Personality).Hein())
+<Implementation><![CDATA[	Quit (PersonalityID = ##class(DOM.common.enu.Personality).Hein())
 ]]></Implementation>
 </Method>
 
 <Method name="IsHeinKlant">
+<FormalSpec>KlantID:DOM.common.PartijID</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim SessieID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()
-	#dim SessionService As APPS.algemeen.VhintraShell.SessionService = ##class(APPS.algemeen.VhintraShell.SessionService).%New()
-	#dim KlantID As %String = SessionService.GeefKlantVoorSessieSleutel(SessieID).GeefID()
-	Quit (KlantID = ##class(DOM.VKP.enu.Klant).Hein())
+<Implementation><![CDATA[	Quit (KlantID = ##class(DOM.VKP.enu.Klant).Hein())
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml
===================================================================
diff -u -r37237 -r37238
--- vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml	(.../TransportFirmaBepalerFactory.cls.xml)	(revision 37237)
+++ vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml	(.../TransportFirmaBepalerFactory.cls.xml)	(revision 37238)
@@ -10,8 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefTransportFirmaBepaler">
+<FormalSpec>PersonalityID:%String,KlantID:DOM.common.PartijID</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTransportFirmaBepaler")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTransportFirmaBepaler",PersonalityID,KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml
===================================================================
diff -u -r37237 -r37238
--- vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37237)
+++ vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37238)
@@ -10,8 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefVerkoopprijsBerekenaar">
+<FormalSpec>PersonalityID:%String,KlantID:DOM.common.PartijID</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerkoopprijsBerekenaar")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerkoopprijsBerekenaar",PersonalityID,KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r37237 -r37238
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37237)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37238)
@@ -33,6 +33,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PersonalityID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantID">
+<Type>DOM.common.PartijID</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,VertaalAPI:DOM.common.Transl.VertaalAPI,VerkoopprijsBerekenaarFactory:WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory,TransportFirmaBepalerFactory:WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory</FormalSpec>
 <Private>1</Private>
@@ -71,7 +81,7 @@
 	#dim Exceptions As List Of %String = ##class(%ListOfDataTypes).%New()
 	#dim OfferteDetails As List Of %String = ##class(%ListOfDataTypes).%New()
 	
-	#dim TransportFirmas As TECH.ListIterator = ..TransportFirmaBepalerFactory.GeefTransportFirmaBepaler().GeefTransportFirmas()
+	#dim TransportFirmas As TECH.ListIterator = ..TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(..PersonalityID,..KlantID).GeefTransportFirmas()
 	While TransportFirmas.HasNext() {
 		#dim TransportFirma As %String = TransportFirmas.Next()
 		try {
@@ -227,7 +237,7 @@
 	Set VerzendingItem.Code = VerzendingMogelijkheid.Code
 	Set VerzendingItem.Duurtijd = VerzendingMogelijkheid.Duurtijd
 	Set VerzendingItem.AankoopPrijs = VerzendingMogelijkheid.VerkoopPrijs
-	Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar().BerekenVerkoopPrijs(OfferteItem)
+	Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(..PersonalityID,..KlantID).BerekenVerkoopPrijs(OfferteItem)
 	Set VerzendingItem.LeverDag = VerzendingMogelijkheid.LeverDag
 	Set VerzendingItem.LeverDatum = VerzendingMogelijkheid.LeverDatum 
 	Set VerzendingItem.LeverTijd = VerzendingMogelijkheid.LeverTijd
@@ -274,6 +284,23 @@
 	Quit Selecties
 ]]></Implementation>
 </Method>
+
+<Method name="ZetPersonalityID">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Set ..PersonalityID = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
+]]></Implementation>
+</Method>
+
+<Method name="ZetKlantID">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim SessieID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()
+	#dim SessionService As APPS.algemeen.VhintraShell.SessionService = ##class(APPS.algemeen.VhintraShell.SessionService).%New()
+	Set ..KlantID = SessionService.GeefKlantVoorSessieSleutel(SessieID).GeefID()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r37237 -r37238
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37237)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37238)
@@ -72,7 +72,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").DanReturn(VerkoopprijsBerekenaarMock)
+	Do VerkoopprijsBerekenaarFactoryMock.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde,$$$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)
@@ -95,7 +95,7 @@
 	Do TransportFirmaBepalerMock.VerwachtMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
 	
 	Set TransportFirmaBepalerFactoryMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New()
-	Do TransportFirmaBepalerFactoryMock.IndienMethodCall("GeefTransportFirmaBepaler").DanReturn(TransportFirmaBepalerMock)
+	Do TransportFirmaBepalerFactoryMock.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
 
 	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFirmaBepalerFactoryMock)
 	
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r37064 -r37238
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37064)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37238)
@@ -5,19 +5,24 @@
 
 <Method name="Test: geeft TransportFirmaBepaler hein als de context personality hein is">
 <Implementation><![CDATA[
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).Hein())
 	Set TransportFirmaBepalerFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New()
-	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler().%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.TransportFirmaBepaler")
+	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(##class(DOM.common.enu.Personality).Hein(),"").%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.TransportFirmaBepaler")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geeft TransportFirmaBepaler vanhoecke als de context geen personality hein is">
+<Method name="Test: geeft TransportFirmaBepaler hein als de klant hein is">
 <Implementation><![CDATA[
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
 	Set TransportFirmaBepalerFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New()
-	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler().%ClassName(1),"WS.EC.Unishop.InternationaleZending.VanHoecke.impl.TransportFirmaBepaler")
+	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Hein()).%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.TransportFirmaBepaler")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: geeft TransportFirmaBepaler vanhoecke als het geen hein klant en geen hien personality is">
+<Implementation><![CDATA[
+	Set TransportFirmaBepalerFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New()
+	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(##class(DOM.common.enu.Personality).VanHoecke(),"").%ClassName(1),"WS.EC.Unishop.InternationaleZending.VanHoecke.impl.TransportFirmaBepaler")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml
===================================================================
diff -u -r37237 -r37238
--- WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37237)
+++ WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(.../VerkoopprijsBerekenaarFactory.cls.xml)	(revision 37238)
@@ -4,33 +4,30 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="GeefVerkoopprijsBerekenaar">
+<FormalSpec>PersonalityID:%String,KlantID:DOM.common.PartijID</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</ReturnType>
 <Implementation><![CDATA[
-	If (..IsHeinPersonality() || ..IsHeinKlant()) {
+	If (..IsHeinPersonality(PersonalityID) || ..IsHeinKlant(KlantID)) {
 		Quit ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar).%New()
 	} else {
 		Quit ##class(WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar).%New()
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="IsHeinKlant">
+<Method name="IsHeinPersonality">
+<FormalSpec>PersonalityID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim SessieID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()
-	#dim SessionService As APPS.algemeen.VhintraShell.SessionService = ##class(APPS.algemeen.VhintraShell.SessionService).%New()
-	#dim KlantID As %String = SessionService.GeefKlantVoorSessieSleutel(SessieID).GeefID()
-	Quit (KlantID = ##class(DOM.VKP.enu.Klant).Hein())
+<Implementation><![CDATA[	Quit (PersonalityID = ##class(DOM.common.enu.Personality).Hein())
 ]]></Implementation>
 </Method>
 
-<Method name="IsHeinPersonality">
+<Method name="IsHeinKlant">
+<FormalSpec>KlantID:DOM.common.PartijID</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim PersonalityID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
-	Quit (PersonalityID = ##class(DOM.common.enu.Personality).Hein())
+<Implementation><![CDATA[	Quit (KlantID = ##class(DOM.VKP.enu.Klant).Hein())
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r37061 -r37238
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37061)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37238)
@@ -5,19 +5,24 @@
 
 <Method name="Test: geeft verkoopprijsberekenaar hein als de context personality hein is">
 <Implementation><![CDATA[
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).Hein())
 	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar().%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar")
+	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(##class(DOM.common.enu.Personality).Hein(),"").%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geeft verkoopprijsberekenaar vanhoecke als de context geen personality hein is">
+<Method name="Test: geeft verkoopprijsberekenaar hein als de klant hein is">
 <Implementation><![CDATA[
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
 	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar().%ClassName(1),"WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar")
+	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")
 ]]></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")
+]]></Implementation>
+</Method>
 </Class>