Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r61463 -r62617
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 61463)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 62617)
@@ -88,7 +88,7 @@
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[
-	Set ..VerkoopPrijs = ..GeefVerkoopPrijs(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
+	Set ..VerkoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
 	Set ..AankoopPrijs = ..VerkoopPrijs
 ]]></Implementation>
 </Method>
@@ -103,8 +103,8 @@
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = SFSPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(SFSPersonality,..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(SFSPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
 </Method>
@@ -113,7 +113,7 @@
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleBEPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(HaefeleBEPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -123,7 +123,7 @@
 <FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleNLPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(HaefeleNLPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -133,16 +133,16 @@
 <FormalSpec>HaefeleDEPersonality:DOM.common.HaefeleDEPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleDEPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(HaefeleDEPersonality,..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleDEPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDestil">
 <FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DestilPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DestilPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -152,7 +152,7 @@
 <FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BiemarBoisPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(BiemarBoisPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -162,7 +162,7 @@
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = CampeTonnyPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(CampeTonnyPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -172,7 +172,7 @@
 <FormalSpec>RiniPersonality:DOM.common.RiniPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = RiniPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(RiniPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -182,7 +182,7 @@
 <FormalSpec>DSGroupPersonality:DOM.common.DSGroupPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DSGroupPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(DSGroupPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -192,7 +192,7 @@
 <FormalSpec>DeBisschopPersonality:DOM.common.DeBisschopPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DeBisschopPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DeBisschopPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -202,7 +202,7 @@
 <FormalSpec>DeceuninckDeforcePersonality:DOM.common.DeceuninckDeforcePersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DeceuninckDeforcePersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DeceuninckDeforcePersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -212,7 +212,7 @@
 <FormalSpec>PierardPersonality:DOM.common.PierardPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = PierardPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(PierardPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -222,7 +222,7 @@
 <FormalSpec>FurnifitPersonality:DOM.common.FurnifitPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = FurnifitPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(FurnifitPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -232,7 +232,7 @@
 <FormalSpec>YachtSupplierPersonality:DOM.common.YachtSupplierPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = YachtSupplierPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(YachtSupplierPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -242,7 +242,7 @@
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DupontPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(DupontPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -252,7 +252,7 @@
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = KischPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(KischPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -262,7 +262,7 @@
 <FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = VanRaemdonckPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(VanRaemdonckPersonality,..Winkelkar.GeefKlantID())
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
@@ -272,161 +272,224 @@
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DaroPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(DaroPersonality,..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(DaroPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#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 = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HeinPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkSeefelder">
 <FormalSpec>SeefelderPersonality:DOM.common.SeefelderPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#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 = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(SeefelderPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkZweygart">
 <FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = ZweygartPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(ZweygartPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(ZweygartPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = JBarthPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(JBarthPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(JBarthPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkKleiner">
 <FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = KleinerPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(KleinerPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(KleinerPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkLayer">
 <FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = LayerPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(LayerPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(LayerPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = GalimbertiPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(GalimbertiPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(GalimbertiPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkHahleOy">
 <FormalSpec>HahleOyPersonality:DOM.common.HahleOyPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HahleOyPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(HahleOyPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HahleOyPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkPavanello">
 <FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = PavanelloPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(PavanelloPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(PavanelloPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkFerexpert">
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = FerexpertPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(FerexpertPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(FerexpertPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefVerkoopPrijsZonderKortingMetFactor(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
 <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 ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(BeslagDesignPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefLijstPrijsMetFactor(BeslagDesignPersonality)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BeslagteknikkPersonality.GeefLeverancierData()
-	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
 	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(BeslagteknikkPersonality,..Winkelkar.KlantID)
 	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorEindklant(BeslagteknikkPersonality)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstPrijs">
-<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<Method name="GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting">
+<Description>
+prijs die aan de handelsklant aangerekend wordt door leverancier (in principe vh aan klant personality, tenzij de Hein SubPersonalities)</Description>
+<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 VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, Aantal,Personality.GeefID(), KlantId)
+	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo
+	
+	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantId, Personality)	
+	Set VerkoopPrijsInfoInclKorting = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
+	
+	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerkoopPrijsZonderKortingMetFactor">
+<Description>
+Op dit moment enkel in gebruik (vanuit de UI) voor Hein (en sub-personalities) 
+Bij de andere personalities geeft dit wellicht niet de juiste bruto-prijs terug...</Description>
+<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.GeefLijstPrijs() * PrijsFactorVoorEindklant
+	#dim BrutoPrijs as %Numeric = VerkoopPrijsInfo.GeefVerkoopPrijs()*PrijsFactorVoorEindklant
+	
+	Quit BrutoPrijs
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerkoopPrijsOBVPersonalityAankoopPrijs">
+<Description>
+prijs waartegen de klant van de personality kan kopen, obv de prijs waar de personality bij zijn leverancier koopt</Description>
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
+	#dim PersonalityVerkoopPrijs As %Numeric = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(Personality,KlantId) * PrijsFactorVoorEindklant
+	
+	#dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactorVoorEindklant)
+	
+	#dim KortingControle As %Numeric = 0
+	Set ActieIterator = ##class(TECH.ListIterator).%New(..MaatwerkLijn.GeefActies())
+	While ActieIterator.HasNext() {
+		#dim Actie As DOM.EC.Winkelkar.PrijsLijnActie = ActieIterator.Next()
+		If ..IsActieKortingBepaald(Actie) {
+			Set Actie.KortingBedrag = $$ROUND^KPRIJS(Actie.KortingBedrag*PrijsFactorVoorEindklant)
+			Set KortingControle = KortingControle + Actie.KortingBedrag
+		}
+	}
+	
+	If $$$Not(LijnKorting = KortingControle) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Berekende korting is niet gelijk aan de KortingControle "_LijnKorting_"<>"_KortingControle))
+	}
+	
+	Quit PersonalityVerkoopPrijs - LijnKorting
+]]></Implementation>
+</Method>
+
 <Method name="GeefEchteLijstPrijs">
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	Set IKTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	#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, ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant())
 
 	;Lijst prijs wordt niet berekend voor TBX :-(
+	Set IKTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	Quit:(IKTypeAPI.IsTandemboxLade(IngegevenKenmerken)) VerkoopPrijsInfo.GeefVerkoopPrijs()
 	Quit VerkoopPrijsInfo.GeefLijstPrijs()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijstPrijsMetFactor">
+<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
+	Quit ..GeefEchteLijstPrijs() * PrijsFactorVoorEindklant
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijstPrijsInclKorting">
 <FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <Private>1</Private>
@@ -435,6 +498,7 @@
 	#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, ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant())
+
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantId, Personality)	
 	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	
@@ -474,75 +538,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVerkoopPrijs">
-<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Decimal</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 VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo
-	
-	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantId, Personality)	
-	Set VerkoopPrijsInfoInclKorting = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
-	
-	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
-]]></Implementation>
-</Method>
-
-<Method name="GeefBrutoPrijs">
-<Description>
-Op dit moment enkel in gebruik (vanuit de UI) voor Hein (en sub-personalities), en voor Beslag Design. 
-Bij de andere personalities geeft dit wellicht niet de juiste bruto-prijs terug...</Description>
-<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)	
-	
-	If Personality.GeefID() = ##class(DOM.common.enu.Personality).BeslagDesign() { 
-		#dim BrutoPrijs as %Numeric = ..GeefLijstPrijs(Personality)
-	} Else {
-		#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
-		Set BrutoPrijs = VerkoopPrijsInfo.GeefVerkoopPrijs()*PrijsFactorVoorEindklant
-	}
-	
-	Quit BrutoPrijs
-]]></Implementation>
-</Method>
-
-<Method name="GeefEindklantEenheidsPrijs">
-<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[
-	#dim PrijsFactorVoorEindklant As %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
-	#dim LeverancierVerkoopPrijs As %Numeric = ..GeefVerkoopPrijs(Personality,KlantId) * PrijsFactorVoorEindklant
-	
-	#dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactorVoorEindklant)
-	
-	#dim KortingControle As %Numeric = 0
-	Set ActieIterator = ##class(TECH.ListIterator).%New(..MaatwerkLijn.GeefActies())
-	While ActieIterator.HasNext() {
-		#dim Actie As DOM.EC.Winkelkar.PrijsLijnActie = ActieIterator.Next()
-		If ..IsActieKortingBepaald(Actie) {
-			Set Actie.KortingBedrag = $$ROUND^KPRIJS(Actie.KortingBedrag*PrijsFactorVoorEindklant)
-			Set KortingControle = KortingControle + Actie.KortingBedrag
-		}
-	}
-	
-	If $$$Not(LijnKorting = KortingControle) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Berekende korting is niet gelijk aan de KortingControle "_LijnKorting_"<>"_KortingControle))
-	}
-	
-	Quit LeverancierVerkoopPrijs - LijnKorting
-]]></Implementation>
-</Method>
-
 <Method name="GeefPrijsFactorVoorEindklant">
 <FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
Index: vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTBXMPprijzen/TBX_BeslagDesign.txt
===================================================================
diff -u -r62580 -r62617
--- vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTBXMPprijzen/TBX_BeslagDesign.txt	(.../TBX_BeslagDesign.txt)	(revision 62580)
+++ vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTBXMPprijzen/TBX_BeslagDesign.txt	(.../TBX_BeslagDesign.txt)	(revision 62617)
@@ -2,5 +2,5 @@
 <PrijsBerekeningPrijzen>
   <AankoopPrijs>39.39</AankoopPrijs>
   <VerkoopPrijs>830.1346565655</VerkoopPrijs>
-  <LijstPrijs>0</LijstPrijs>
+  <LijstPrijs>1212.0092434395</LijstPrijs>
 </PrijsBerekeningPrijzen>
\ No newline at end of file