Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r47684 -r47687
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 47684)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 47687)
@@ -81,7 +81,7 @@
 	
 	Do ..ValideerActieKortingen()
 
-	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs,..GeefLijstPrijs(Winkelkar.GeefPersonality(),Winkelkar.GeefKlantID()))
+	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs,..LijstPrijs)
 ]]></Implementation>
 </Method>
 
@@ -90,6 +90,7 @@
 <Implementation><![CDATA[
 	set ..VerkoopPrijs = ..GeefVerkoopPrijs(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
 	set ..AankoopPrijs = ..VerkoopPrijs
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -105,6 +106,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = SFSPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(SFSPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -114,6 +116,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleBEPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(HaefeleBEPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -123,6 +126,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleNLPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(HaefeleNLPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -132,6 +136,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DestilPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DestilPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -141,6 +146,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DupontPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DupontPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -150,6 +156,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = KischPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(KischPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -159,6 +166,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = VanRaemdonckPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(VanRaemdonckPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -168,6 +176,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DaroPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(DaroPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -177,6 +186,7 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HeinPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(HeinPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -186,11 +196,12 @@
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = SeefelderPersonality.GeefLeverancierData()
 	set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(SeefelderPersonality,..Winkelkar.GeefKlantID())
+	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLijstPrijs">
-<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[