Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r61345 -r75106
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 61345)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 75106)
@@ -77,6 +77,10 @@
 	Set ..Winkelkar = Winkelkar
 	Set ..MaatwerkLijn = MaatwerkLijn
 	
+	If (..MaatwerkLijn.GeefAantal() = "") {
+		Do ..MaatwerkLijn.ZetAantal(1)
+	}
+	
 	Do Winkelkar.GeefPersonality().Accept($this)
 	
 	Do ..ValideerActieKortingen()
@@ -88,7 +92,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,17 +107,27 @@
 <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>
 
+<Method name="VerwerkOPO">
+<FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = OPOPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(OPOPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleBE">
 <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 +137,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,17 +147,88 @@
 <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 = ..GeefLijstPrijsInclKortingEnFactor(HaefeleDEPersonality,..Winkelkar.GeefKlantID())
-	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleDEPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleSE">
+<FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleSEPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleSEPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleFI">
+<FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleFIPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleFIPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNO">
+<FormalSpec>HaefeleNOPersonality:DOM.common.HaefeleNOPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleNOPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleNOPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleIT">
+<FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleITPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleITPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleAT">
+<FormalSpec>HaefeleATPersonality:DOM.common.HaefeleATPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleATPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleATPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleFRPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleFRPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleDKPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleDKPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleCH">
+<FormalSpec>HaefeleCHPersonality:DOM.common.HaefeleCHPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleCHPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleCHPersonality,..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>
@@ -153,7 +238,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>
@@ -163,7 +248,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>
@@ -173,7 +258,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>
@@ -183,7 +268,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>
@@ -193,7 +278,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>
@@ -203,7 +288,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>
@@ -213,7 +298,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>
@@ -223,7 +308,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>
@@ -233,7 +318,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>
@@ -243,7 +328,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>
@@ -253,7 +338,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>
@@ -263,7 +348,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>
@@ -273,229 +358,247 @@
 <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)
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorPersonality(BeslagteknikkPersonality)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstPrijs">
-<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Decimal</ReturnType>
+<Method name="VerwerkMartens">
+<FormalSpec>MartensPersonality:DOM.common.MartensPersonality</FormalSpec>
 <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
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = MartensPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(MartensPersonality,..Winkelkar.KlantID)
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorPersonality(MartensPersonality)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefEchteLijstPrijs">
-<Private>1</Private>
-<ReturnType>%Decimal</ReturnType>
+<Method name="VerwerkDozon">
+<FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <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())
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = DozonPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(DozonPersonality,..Winkelkar.KlantID)
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorPersonality(DozonPersonality)
+]]></Implementation>
+</Method>
 
-	;Lijst prijs wordt niet berekend voor TBX :-(
-	Quit:(IKTypeAPI.IsTandemboxLade(IngegevenKenmerken)) VerkoopPrijsInfo.GeefVerkoopPrijs()
-	Quit VerkoopPrijsInfo.GeefLijstPrijs()
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BlumPLPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(BlumPLPersonality,..Winkelkar.KlantID)
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorPersonality(BlumPLPersonality)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstPrijsInclKorting">
-<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Decimal</ReturnType>
+<Method name="VerwerkMeurer">
+<FormalSpec>MeurerPersonality:DOM.common.MeurerPersonality</FormalSpec>
 <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, ##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)
-	
-	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = MeurerPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(MeurerPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstPrijsInclKortingEnFactor">
-<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Decimal</ReturnType>
+<Method name="VerwerkHaefeleES">
+<FormalSpec>HaefeleESPersonality:DOM.common.HaefeleESPersonality</FormalSpec>
 <Implementation><![CDATA[
-	#dim LijstPrijsInclKorting as %Numeric = ..GeefLijstPrijsInclKorting(Personality,KlantId)
-	#dim Factor as %Numeric = ..GeefPrijsFactorVoorEindklant(Personality)
-	Quit LijstPrijsInclKorting * Factor
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleESPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(HaefeleESPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantal">
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
+<Method name="VerwerkOPODuitsland">
+<FormalSpec>OPODePersonality:DOM.common.OPODePersonality</FormalSpec>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkLijn.GeefIngegevenKenmerken()
-	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
-	#dim IsVariantTAOR As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
-	#dim Aantal As %Integer = ..MaatwerkLijn.GeefAantal()
-	
-	If (IsFamilieLade && IsVariantTAOR) {
-		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
-		
-		If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()) {
-			Set Aantal = 10
-		}
-	}
-	
-	Quit Aantal
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = OPODePersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(OPODePersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVerkoopPrijs">
+<Method name="VerwerkBlumCZ">
+<FormalSpec>BlumCZPersonality:DOM.common.BlumCZPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BlumCZPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(BlumCZPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOstermannBE">
+<FormalSpec>OstermannBEPersonality:DOM.common.OstermannBEPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = OstermannBEPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(OstermannBEPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOstermannNL">
+<FormalSpec>OstermannNLPersonality:DOM.common.OstermannNLPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = OstermannNLPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(OstermannNLPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOstermannDE">
+<FormalSpec>OstermannDEPersonality:DOM.common.OstermannDEPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = OstermannDEPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefVerkoopPrijsOBVPersonalityAankoopPrijs(OstermannDEPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<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 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)
+	Set VerkoopPrijsInfoInclKorting = ..VerwerkKortingInPrijzen(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	
 	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBrutoPrijs">
+<Method name="GeefVerkoopPrijsZonderKortingMetFactor">
 <Description>
-Op dit moment enkel in gebruik (vanuit de UI) voor Hein (en sub-personalities), en voor Beslag Design. 
+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>
@@ -505,33 +608,31 @@
 	#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
-	}
+	#dim PrijsFactor As %Numeric = ..GeefPrijsFactorVoorPersonality(Personality)
+	#dim BrutoPrijs as %Numeric = VerkoopPrijsInfo.GeefVerkoopPrijs()*PrijsFactor
 	
 	Quit BrutoPrijs
 ]]></Implementation>
 </Method>
 
-<Method name="GeefEindklantEenheidsPrijs">
+<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 LeverancierVerkoopPrijs As %Numeric = ..GeefVerkoopPrijs(Personality,KlantId) * PrijsFactorVoorEindklant
+	#dim PrijsFactor As %Numeric = ..GeefPrijsFactorVoorPersonality(Personality)
+	#dim PersonalityVerkoopPrijs As %Numeric = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(Personality,KlantId) * PrijsFactor
 	
-	#dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactorVoorEindklant)
+	#dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactor)
 	
 	#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 Actie.KortingBedrag = $$ROUND^KPRIJS(Actie.KortingBedrag*PrijsFactor)
 			Set KortingControle = KortingControle + Actie.KortingBedrag
 		}
 	}
@@ -540,28 +641,101 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Berekende korting is niet gelijk aan de KortingControle "_LijnKorting_"<>"_KortingControle))
 	}
 	
-	Quit LeverancierVerkoopPrijs - LijnKorting
+	Quit PersonalityVerkoopPrijs - LijnKorting
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPrijsFactorVoorEindklant">
+<Method name="GeefEchteLijstPrijs">
+<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, ##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 PrijsFactor As %Numeric = ..GeefPrijsFactorVoorPersonality(Personality)
+	Quit ..GeefEchteLijstPrijs() * PrijsFactor
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstPrijsInclKorting">
+<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, ##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 = ..VerwerkKortingInPrijzen(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
+	
+	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
+]]></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 = ..GeefPrijsFactorVoorPersonality(Personality)
+	Quit LijstPrijsInclKorting * Factor
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkLijn.GeefIngegevenKenmerken()
+	#dim IsFamilieLade As %Boolean = (IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+	#dim IsVariantTAOR As %Boolean = (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())	
+	#dim Aantal As %Integer = ..MaatwerkLijn.GeefAantal()
+	
+	If (IsFamilieLade && IsVariantTAOR) {
+		#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = IngegevenKenmerken
+		
+		If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()) {
+			Set Aantal = 10
+		}
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrijsFactorVoorPersonality">
+<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
 	#dim PrijsFactorBepaler As APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler = ..PrijsFactorBepalerFactory.GeefPrijsFactorBepaler(Personality)
 	Quit PrijsFactorBepaler.GeefPrijsFactor(..MaatwerkLijn)
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkKorting">
+<Method name="VerwerkKortingInPrijzen">
 <FormalSpec>VerkoopPrijsInfo:DOM.VKP.info.VerkoopPrijsInfo,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KortingInfo As DOM.VKP.dto.KortingInfo = ..GeefKortingInfo(IngegevenKenmerken, BerekeningsSpecificatie)	
-	#dim LijstPrijs As %String = ..GeefPrijsInclusiefKorting(VerkoopPrijsInfo.GeefLijstPrijs(),KortingInfo)
-	#dim VerkoopPrijs As %String  = ..GeefPrijsInclusiefKorting(VerkoopPrijsInfo.GeefVerkoopPrijs(),KortingInfo)
-	#dim VerkoopPrijsNaCommissie As %String = ..GeefPrijsInclusiefKorting(VerkoopPrijsInfo.GeefVerkoopPrijsNaCommissie(),KortingInfo)	
+	#dim LijstPrijs As %String = ..VerrekenKorting(VerkoopPrijsInfo.GeefLijstPrijs(),KortingInfo)
+	#dim VerkoopPrijs As %String  = ..VerrekenKorting(VerkoopPrijsInfo.GeefVerkoopPrijs(),KortingInfo)
+	#dim VerkoopPrijsNaCommissie As %String = ..VerrekenKorting(VerkoopPrijsInfo.GeefVerkoopPrijsNaCommissie(),KortingInfo)	
 	Set VerkoopPrijsInfoInclKorting = ##class(DOM.VKP.info.VerkoopPrijsInfo).%New(LijstPrijs,VerkoopPrijs,VerkoopPrijsNaCommissie,BerekeningsSpecificatie)
 	Quit VerkoopPrijsInfoInclKorting
 ]]></Implementation>
@@ -575,6 +749,12 @@
 	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()	
 	Set KortingSpecificatie.PersonalityID = BerekeningsSpecificatie.GeefPersonality().GeefID()
 	Set KortingSpecificatie.KlantID = BerekeningsSpecificatie.GeefKlantID()
+	If (KortingSpecificatie.KlantID [ "hfleDE_") {
+		If $$$Not(KortingSpecificatie.KlantID [ "hfleDE_DE") {
+			Set KortingSpecificatie.KlantID = "hfleDE_DE" _ $Piece(KortingSpecificatie.KlantID, "hfleDE_", 2)
+		}
+	}
+	
 	Set KortingSpecificatie.Aantal = BerekeningsSpecificatie.GeefHoeveelheid()
 	Set KortingSpecificatie.Familie = IngegevenKenmerken.GeefFamilie()
 	Set KortingSpecificatie.Variant = IngegevenKenmerken.GeefVariant()
@@ -584,7 +764,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPrijsInclusiefKorting">
+<Method name="VerrekenKorting">
 <FormalSpec>Prijs:%Decimal,KortingInfo:DOM.VKP.dto.KortingInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>