Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r72516 -r72621
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 72516)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 72621)
@@ -523,6 +523,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleES">
+<FormalSpec>HaefeleESPersonality:DOM.common.HaefeleESPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#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="GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting">
 <Description>
 prijs die aan de handelsklant aangerekend wordt door leverancier (in principe vh aan klant personality, tenzij de Hein SubPersonalities)</Description>