Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r46643 -r46856
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 46643)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 46856)
@@ -23,8 +23,7 @@
 
 <Method name="VerwerkSeefelder">
 <FormalSpec>SeefelderPersonality:DOM.common.SeefelderPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleNL">
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r46643 -r46856
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 46643)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 46856)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Winkelkar">
 <Type>DOM.EC.Winkelkar.Winkelkar</Type>
 <Private>1</Private>
@@ -28,16 +33,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Personality">
-<Type>DOM.common.Personality</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KlantID">
-<Type>DOM.common.PartijID</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="VerkoopPrijs">
 <Type>%Numeric</Type>
 <Private>1</Private>
@@ -48,11 +43,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IngegevenKenmerkenTypeAPI">
-<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>VerkoopPrijsBepaler:DOM.PM.VerkoopPrijsBepaler,PrijsFactorBepalerFactory:APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepalerFactory,KortingBepaler:APPS.EC.Winkelkar.WinkelkarService.KortingBepaler</FormalSpec>
 <Private>1</Private>
@@ -75,10 +65,9 @@
 <Implementation><![CDATA[
 	Set ..Winkelkar = Winkelkar
 	Set ..MaatwerkLijn = MaatwerkLijn
-	Set ..Personality = Winkelkar.GeefPersonality()
-	Set ..KlantID = Winkelkar.GeefKlantID()
 
-	Do ..Personality.Accept($this)
+	Do Winkelkar.GeefPersonality().Accept($this)
+	
 	Do ..ValideerActieKortingen()
 
 	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs)
@@ -88,8 +77,8 @@
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..VerkoopPrijs = ..GeefVHVerkoopPrijs()
-	set ..AankoopPrijs = ..VerkoopPrijs  // backwards compatibility
+	set ..VerkoopPrijs = ..GeefVerkoopPrijs(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
+	set ..AankoopPrijs = ..VerkoopPrijs
 ]]></Implementation>
 </Method>
 
@@ -102,72 +91,72 @@
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	Do ..StelInEindklantEenheidsPrijs(SFSPersonality)
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(SFSPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(SFSPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleBE">
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting()
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(HaefeleBEPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(HaefeleBEPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleNL">
 <FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting()
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(HaefeleNLPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(HaefeleNLPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDestil">
 <FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting()
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(DestilPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DestilPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting()
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(DupontPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DupontPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting()
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(KischPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(KischPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanRaemdonck">
 <FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting()
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(VanRaemdonckPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(VanRaemdonckPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[
-	set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	Do ..StelInEindklantEenheidsPrijs(DaroPersonality)
+	set ..AankoopPrijs = ..GeefVerkoopPrijs(DaroPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(DaroPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[
-	Set ..AankoopPrijs = ..GeefHandelAankoopPrijs()
-	Do ..StelInEindklantEenheidsPrijs(HeinPersonality)
+	Set ..AankoopPrijs = ..GeefVerkoopPrijs(HeinPersonality,..Winkelkar.GeefKlantID())
+	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(HeinPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
@@ -201,6 +190,7 @@
 </Method>
 
 <Method name="GeefLijstPrijsInclKorting">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
@@ -211,7 +201,7 @@
 	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken,Aantal,VanHoeckePersonalityID,LijstPrijsKlantID)
 	
 	If $$$Not(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(IngegevenKenmerken)){	
-		Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal,..KlantID,..Personality)	
+		Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal,KlantId,Personality)	
 		#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKorting(VerkoopPrijsInfo,IngegevenKenmerken,BerekeningsSpecificatie)
 		quit VerkoopPrijsInfoInclKorting.GeefLijstPrijs()
 	} Else {
@@ -220,18 +210,19 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVHVerkoopPrijs">
+<Method name="GeefVerkoopPrijs">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkLijn.GeefIngegevenKenmerken()
 	#dim Aantal As %Integer = ..GeefAantal()
-	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, Aantal, ..Personality.GeefID(), ..KlantID)
+	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, Aantal,Personality.GeefID(), KlantId)
 	
 	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo
 	
-	If $$$Not(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(IngegevenKenmerken)){
-		#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, ..KlantID, ..Personality)	
+	If $$$Not(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(IngegevenKenmerken)) {
+		#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantId, Personality)	
 		Set VerkoopPrijsInfoInclKorting = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	} Else {
 		Set VerkoopPrijsInfoInclKorting = VerkoopPrijsInfo
@@ -241,19 +232,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefHandelAankoopPrijs">
+<Method name="GeefEindklantEenheidsPrijs">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefVHVerkoopPrijs()
-]]></Implementation>
-</Method>
-
-<Method name="StelInEindklantEenheidsPrijs">
-<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
-<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
-	#dim HandelVerkoopPrijs As %Numeric = ..GeefHandelAankoopPrijs() * PrijsFactorVoorEindklant
+	#dim LeverancierVerkoopPrijs As %Numeric = ..GeefVerkoopPrijs(Personality,KlantId) * PrijsFactorVoorEindklant
 	
 	#dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactorVoorEindklant)
 
@@ -267,11 +252,11 @@
 		}
 	}
 	
-	if $$$Not(LijnKorting=KortingControle) {
+	if $$$Not(LijnKorting = KortingControle) {
 		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Berekende korting is niet gelijk aan de KortingControle "_LijnKorting_"<>"_KortingControle))
 	}
 	
-	Set ..VerkoopPrijs = HandelVerkoopPrijs - LijnKorting
+	Quit LeverancierVerkoopPrijs - LijnKorting
 ]]></Implementation>
 </Method>