Index: APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml
===================================================================
diff -u -r33453 -r33475
--- APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 33453)
+++ APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 33475)
@@ -4,10 +4,15 @@
 <Super>APPS.EC.Winkelkar.WinkelkarVisitor</Super>
 
 <Property name="KlantID">
-<Type>%String</Type>
+<Type>DOM.VKP.VanHoeckeKlantID</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Personality">
+<Type>DOM.common.Personality</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TotaalPrijs">
 <Type>%Decimal</Type>
 <InitialExpression>0</InitialExpression>
@@ -25,22 +30,26 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerkoopPrijsBepaler:DOM.PM.VerkoopPrijsBepaler</FormalSpec>
+<FormalSpec>VerkoopPrijsBepaler:DOM.PM.VerkoopPrijsBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KlantID = KlantID
 	Set ..VerkoopPrijsBepaler = VerkoopPrijsBepaler
 	Set ..MaatwerkAPI = ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="StelInAdviesPrijs">
-<FormalSpec><![CDATA[&WinkelkarLijn:APPS.EC.Winkelkar.dto.Lijn]]></FormalSpec>
-<Implementation><![CDATA[	Do WinkelkarLijn.Accept($this)
+<FormalSpec><![CDATA[&WinkelkarLijn:APPS.EC.Winkelkar.dto.Lijn,KlantID:DOM.VKP.VanHoeckeKlantID,Personality:DOM.common.Personality]]></FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantID = KlantID
+	Set ..Personality = Personality
+	
+	Do WinkelkarLijn.Accept($this)
 ]]></Implementation>
 </Method>
 
@@ -58,23 +67,20 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..KlantID
 	#dim KlantIDVoorPrijsBerekening As DOM.common.PartijID = ..GeefKlantIDVoorPrijsBerekening()
-	
 	#dim IngegevenKenmerkenConverter As APPS.PM.Maatwerk.IngegevenKenmerkenConverter = ..MaatwerkAPI.GeefIngegevenKenmerkenConverter()
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerkenConverter.NaarObject(MaatwerkLijn.IngegevenKenmerken)
-	
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
-	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, MaatwerkLijn.Aantal, PersonalityID, KlantID)
+	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, MaatwerkLijn.Aantal, ..Personality.GeefID(), ..KlantID)
 	#dim EenheidAdviesPrijs As %Decimal
 	
-	If KlantIDVoorPrijsBerekening = ##class(DOM.VKP.enu.Klant).Hein(){
+	If (KlantIDVoorPrijsBerekening = ##class(DOM.VKP.enu.Klant).Hein()) {
 		Set EenheidAdviesPrijs = VerkoopPrijsInfo.GeefVerkoopPrijs() * 2.95
-	}ElseIf KlantIDVoorPrijsBerekening = ##class(DOM.VKP.enu.Klant).BlumPortugal() {
+	} ElseIf (KlantIDVoorPrijsBerekening = ##class(DOM.VKP.enu.Klant).BlumPortugal()) {
 		Set EenheidAdviesPrijs = VerkoopPrijsInfo.GeefLijstPrijs() * 1.09
-	}Else{
+	} Else {
 		Set EenheidAdviesPrijs = VerkoopPrijsInfo.GeefLijstPrijs()
 	}
+	
 	Quit EenheidAdviesPrijs
 ]]></Implementation>
 </Method>
@@ -83,11 +89,9 @@
 <Private>1</Private>
 <ReturnType>DOM.common.PartijID</ReturnType>
 <Implementation><![CDATA[
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
-	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	
-	Quit PersonalityKlantBepaler.GeefKlantID(Personality, ..KlantID)
+	Quit PersonalityKlantBepaler.GeefKlantID(..Personality, ..KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml
===================================================================
diff -u -r33455 -r33475
--- APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml	(.../LijnPrijsBepaler.cls.xml)	(revision 33455)
+++ APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml	(.../LijnPrijsBepaler.cls.xml)	(revision 33475)
@@ -64,28 +64,29 @@
 		Set ..IsAdviesPrijsToegelaten = $$$False
 			
 		Do Personality.Accept(##this)
-		Do ..PasAanPrijzen(..WebshopSessionService.GeefSessie(..SessieID))
+		Do ..PasAanPrijzen(..WebshopSessionService.GeefSessie(..SessieID), Personality)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="PasAanPrijzen">
-<FormalSpec>Sessie:APPS.EC.WebshopSessie</FormalSpec>
+<FormalSpec>Sessie:APPS.EC.WebshopSessie,Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If ((Sessie.GeefWebshopModus() = ..WebshopModus.AdviesPrijs) && ..IsAdviesPrijsToegelaten) {
-		Do ..ZetAdviesPrijs()	
+		Do ..ZetAdviesPrijs(Personality)	
 	} ElseIf ((Sessie.GeefWebshopModus() = ..WebshopModus.FictievePrijs) && (..WinkelkarLijn.%Extends(##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%ClassName($$$True)))) {
 		Do ..ZetFictievePrijs()	
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ZetAdviesPrijs">
+<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim AdviesPrijsInstellenOpWinkelkar As APPS.EC.Winkelkar.impl.AdviesPrijsInstellenOpWinkelkar = ##class(APPS.EC.Winkelkar.impl.AdviesPrijsInstellenOpWinkelkar).%New(..KlantID, ..VerkoopPrijsBepaler)
-	Do AdviesPrijsInstellenOpWinkelkar.StelInAdviesPrijs(..WinkelkarLijn)
+	#dim AdviesPrijsInstellenOpWinkelkar As APPS.EC.Winkelkar.impl.AdviesPrijsInstellenOpWinkelkar = ##class(APPS.EC.Winkelkar.impl.AdviesPrijsInstellenOpWinkelkar).%New(..VerkoopPrijsBepaler)
+	Do AdviesPrijsInstellenOpWinkelkar.StelInAdviesPrijs(..WinkelkarLijn, ..KlantID, Personality)
 ]]></Implementation>
 </Method>