Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BerekenPrijzen/Test.cls.xml
===================================================================
diff -u -r47684 -r47689
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BerekenPrijzen/Test.cls.xml	(.../Test.cls.xml)	(revision 47684)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BerekenPrijzen/Test.cls.xml	(.../Test.cls.xml)	(revision 47689)
@@ -73,7 +73,6 @@
 	do ..IngegevenKenmerkenAPI.IndienMethodCall("GeefIngegevenKenmerken", ..DummyIKID).DanReturn(..TAORKenmerken)
 
 	do ..VerkoopPrijsBepalerMock.VerwachtMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, $$$Aantal, ..GeefPersonality().GeefID(), ..GeefKlantID()).DanReturn(..VerkoopPrijsInfo)
-	do ..VerkoopPrijsBepalerMock.VerwachtMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, $$$Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()).DanReturn(..VerkoopPrijsInfo)
 	
 	do ..BerekenPrijzen(..TAORKenmerken, $$$Aantal)
 	
@@ -92,7 +91,6 @@
 	do ..IngegevenKenmerkenAPI.IndienMethodCall("GeefIngegevenKenmerken", ..DummyIKID).DanReturn(..TAORKenmerken)
 
 	do ..VerkoopPrijsBepalerMock.VerwachtMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, $$$Aantal, ..GeefPersonality().GeefID(), ..GeefKlantID()).DanReturn(..VerkoopPrijsInfo)
-	do ..VerkoopPrijsBepalerMock.VerwachtMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, $$$Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()).DanReturn(..VerkoopPrijsInfo)
 	
 	do ..BerekenPrijzen(..TAORKenmerken, 1234)
 	
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r47687 -r47689
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 47687)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 47689)
@@ -90,7 +90,6 @@
 <Implementation><![CDATA[
 	set ..VerkoopPrijs = ..GeefVerkoopPrijs(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
 	set ..AankoopPrijs = ..VerkoopPrijs
-	set ..LijstPrijs = ..GeefLijstPrijs(..Winkelkar.GeefPersonality())
 ]]></Implementation>
 </Method>
 
@@ -106,7 +105,6 @@
 	#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>
 
@@ -116,7 +114,6 @@
 	#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>
 
@@ -126,7 +123,6 @@
 	#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>
 
@@ -136,7 +132,6 @@
 	#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>
 
@@ -146,7 +141,6 @@
 	#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>
 
@@ -156,7 +150,6 @@
 	#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>
 
@@ -166,7 +159,6 @@
 	#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>
 
@@ -176,7 +168,6 @@
 	#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>
 
@@ -186,7 +177,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())
+	set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
@@ -196,7 +187,7 @@
 	#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())
+	set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
@@ -275,6 +266,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBrutoPrijs">
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#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,Personality.GeefID(), KlantId)	
+	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
+
+	Quit VerkoopPrijsInfo.GeefVerkoopPrijs()*PrijsFactorVoorEindklant
+]]></Implementation>
+</Method>
+
 <Method name="GeefEindklantEenheidsPrijs">
 <FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <Private>1</Private>