Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r47653 -r47684
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 47653)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 47684)
@@ -48,6 +48,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LijstPrijs">
+<Type>%Numeric</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>
@@ -76,7 +81,7 @@
 	
 	Do ..ValideerActieKortingen()
 
-	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs)
+	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs,..GeefLijstPrijs(Winkelkar.GeefPersonality(),Winkelkar.GeefKlantID()))
 ]]></Implementation>
 </Method>
 
@@ -184,8 +189,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijstPrijs">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim VanHoeckePersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+	#dim LijstPrijsKlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()	
+	#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,VanHoeckePersonalityID,LijstPrijsKlantID)
+	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
+	Quit VerkoopPrijsInfo.GeefLijstPrijs() * PrijsFactorVoorEindklant
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijstPrijsInclKorting">
 <FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim VanHoeckePersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()