Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r62617 -r62767
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 62617)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 62767)
@@ -393,7 +393,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BeslagteknikkPersonality.GeefLeverancierData()
 	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(BeslagteknikkPersonality,..Winkelkar.KlantID)
-	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorEindklant(BeslagteknikkPersonality)
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorPersonality(BeslagteknikkPersonality)
 ]]></Implementation>
 </Method>
 
@@ -410,7 +410,7 @@
 	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo
 	
 	#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)
+	Set VerkoopPrijsInfoInclKorting = ..VerwerkKortingInPrijzen(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	
 	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
 ]]></Implementation>
@@ -428,8 +428,8 @@
 	#dim Aantal As %Integer = ..GeefAantal()
 	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, Aantal,Personality.GeefID(), KlantId)	
 	
-	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
-	#dim BrutoPrijs as %Numeric = VerkoopPrijsInfo.GeefVerkoopPrijs()*PrijsFactorVoorEindklant
+	#dim PrijsFactor As %Numeric = ..GeefPrijsFactorVoorPersonality(Personality)
+	#dim BrutoPrijs as %Numeric = VerkoopPrijsInfo.GeefVerkoopPrijs()*PrijsFactor
 	
 	Quit BrutoPrijs
 ]]></Implementation>
@@ -442,17 +442,17 @@
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
-	#dim PersonalityVerkoopPrijs As %Numeric = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(Personality,KlantId) * PrijsFactorVoorEindklant
+	#dim PrijsFactor As %Numeric = ..GeefPrijsFactorVoorPersonality(Personality)
+	#dim PersonalityVerkoopPrijs As %Numeric = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(Personality,KlantId) * PrijsFactor
 	
-	#dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactorVoorEindklant)
+	#dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactor)
 	
 	#dim KortingControle As %Numeric = 0
 	Set ActieIterator = ##class(TECH.ListIterator).%New(..MaatwerkLijn.GeefActies())
 	While ActieIterator.HasNext() {
 		#dim Actie As DOM.EC.Winkelkar.PrijsLijnActie = ActieIterator.Next()
 		If ..IsActieKortingBepaald(Actie) {
-			Set Actie.KortingBedrag = $$ROUND^KPRIJS(Actie.KortingBedrag*PrijsFactorVoorEindklant)
+			Set Actie.KortingBedrag = $$ROUND^KPRIJS(Actie.KortingBedrag*PrijsFactor)
 			Set KortingControle = KortingControle + Actie.KortingBedrag
 		}
 	}
@@ -485,8 +485,8 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
-	Quit ..GeefEchteLijstPrijs() * PrijsFactorVoorEindklant
+	#dim PrijsFactor As %Numeric = ..GeefPrijsFactorVoorPersonality(Personality)
+	Quit ..GeefEchteLijstPrijs() * PrijsFactor
 ]]></Implementation>
 </Method>
 
@@ -500,7 +500,7 @@
 	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant())
 
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantId, Personality)	
-	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
+	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKortingInPrijzen(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	
 	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
 ]]></Implementation>
@@ -512,7 +512,7 @@
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim LijstPrijsInclKorting as %Numeric = ..GeefLijstPrijsInclKorting(Personality,KlantId)
-	#dim Factor as %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
+	#dim Factor as %Numeric = ..GeefPrijsFactorVoorPersonality(Personality)
 	Quit LijstPrijsInclKorting * Factor
 ]]></Implementation>
 </Method>
@@ -538,7 +538,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPrijsFactorVoorEindklant">
+<Method name="GeefPrijsFactorVoorPersonality">
 <FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
@@ -548,14 +548,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkKorting">
+<Method name="VerwerkKortingInPrijzen">
 <FormalSpec>VerkoopPrijsInfo:DOM.VKP.info.VerkoopPrijsInfo,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KortingInfo As DOM.VKP.dto.KortingInfo = ..GeefKortingInfo(IngegevenKenmerken, BerekeningsSpecificatie)	
-	#dim LijstPrijs As %String = ..GeefPrijsInclusiefKorting(VerkoopPrijsInfo.GeefLijstPrijs(),KortingInfo)
-	#dim VerkoopPrijs As %String  = ..GeefPrijsInclusiefKorting(VerkoopPrijsInfo.GeefVerkoopPrijs(),KortingInfo)
-	#dim VerkoopPrijsNaCommissie As %String = ..GeefPrijsInclusiefKorting(VerkoopPrijsInfo.GeefVerkoopPrijsNaCommissie(),KortingInfo)	
+	#dim LijstPrijs As %String = ..VerrekenKorting(VerkoopPrijsInfo.GeefLijstPrijs(),KortingInfo)
+	#dim VerkoopPrijs As %String  = ..VerrekenKorting(VerkoopPrijsInfo.GeefVerkoopPrijs(),KortingInfo)
+	#dim VerkoopPrijsNaCommissie As %String = ..VerrekenKorting(VerkoopPrijsInfo.GeefVerkoopPrijsNaCommissie(),KortingInfo)	
 	Set VerkoopPrijsInfoInclKorting = ##class(DOM.VKP.info.VerkoopPrijsInfo).%New(LijstPrijs,VerkoopPrijs,VerkoopPrijsNaCommissie,BerekeningsSpecificatie)
 	Quit VerkoopPrijsInfoInclKorting
 ]]></Implementation>
@@ -584,7 +584,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPrijsInclusiefKorting">
+<Method name="VerrekenKorting">
 <FormalSpec>Prijs:%Decimal,KortingInfo:DOM.VKP.dto.KortingInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>