Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r58718 -r58747
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58718)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58747)
@@ -54,7 +54,7 @@
 
 <Method name="VerwerkHaefeleDE">
 <FormalSpec>HaefeleDEPersonality:DOM.common.HaefeleDEPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..StelInGeenPrijsFactorBepaler()
+<Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.HaefeleDEPrijsFactorBepaler).%New()
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58718 -r58747
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58718)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58747)
@@ -131,7 +131,7 @@
 <Implementation><![CDATA[
 	#dim LeverancierData As DOM.common.LeverancierPersonalityData = HaefeleDEPersonality.GeefLeverancierData()
 	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
-	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(HaefeleDEPersonality,..Winkelkar.GeefKlantID())
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(HaefeleDEPersonality,..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/HaefeleDEPrijsFactorBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/HaefeleDEPrijsFactorBepaler.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/HaefeleDEPrijsFactorBepaler.cls.xml	(revision 58747)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.HaefeleDEPrijsFactorBepaler">
+<Super>TECH.RegisteredObject,APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler</Super>
+
+<Parameter name="Factor">
+<Type>%Numeric</Type>
+<Default>0.6</Default>
+</Parameter>
+
+<Method name="GeefPrijsFactor">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..#Factor
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>