Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r53379 -r53419
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 53379)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 53419)
@@ -196,7 +196,7 @@
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BeslagDesignPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(BeslagDesignPersonality,..Winkelkar.GeefKlantID())
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(BeslagDesignPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
@@ -230,6 +230,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijstPrijsInclKortingEnFactor">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim LijstPrijsInclKorting as %Numeric = ..GeefLijstPrijsInclKorting(Personality,KlantId)
+	#Dim Factor as %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
+	Quit LijstPrijsInclKorting * Factor
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantal">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>