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>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BeslagDesign.cls.xml
===================================================================
diff -u -r53379 -r53419
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BeslagDesign.cls.xml	(.../BeslagDesign.cls.xml)	(revision 53379)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BeslagDesign.cls.xml	(.../BeslagDesign.cls.xml)	(revision 53419)
@@ -11,7 +11,7 @@
 </Method>
 
 <Method name="Test TAOR kenmerken">
-<Implementation><![CDATA[	Do ..AssertPrijzen(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 81.61, 816.1)
+<Implementation><![CDATA[	Do ..AssertPrijzen(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 81.61, 1275.1)
 ]]></Implementation>
 </Method>