Index: APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u -r29059 -r61326
--- APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 29059)
+++ APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61326)
@@ -1,20 +1,67 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Klantspecifiek.Haefele.KortingParser">
-<Super>TECH.RegisteredObject,APPS.VKP.Korting.KortingParser</Super>
+<Super>TECH.RegisteredObject,APPS.VKP.Korting.KortingParser,TECH.Mockable</Super>
 
+<Property name="VerkoopAPI">
+<Type>APPS.VKP.VerkoopPrijsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="XMLReader">
+<Type>TECH.XMLReader</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CustomerVerwerker">
+<Type>APPS.VKP.Korting.impl.CustomerVerwerker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KortingService">
+<Type>APPS.VKP.Korting.impl.KortingService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KortingService:APPS.VKP.Korting.impl.KortingService="",XMLReader:TECH.XMLReader="",CustomerVerwerker:APPS.VKP.Korting.impl.CustomerVerwerker="",Logger:vhLib.Logger=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KortingService = $$$Inject(KortingService,##class(APPS.VKP.Korting.impl.KortingService).%New(%this))
+	Set ..VerkoopAPI = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopPrijsAPI()
+	Set ..XMLReader = $$$Inject(XMLReader,##class(TECH.XMLReader).%New())
+	Set ..CustomerVerwerker = $$$Inject(CustomerVerwerker,##class(APPS.VKP.Korting.impl.CustomerVerwerker).%New(..VerkoopAPI, ..KortingService))
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Parse">
-<Description>
-Momenteel is hier niks specifiek aan voor Haefele, denk.  Waarom dan specifieke implementatie?
-   [ #KritischeReview ]  :-) 
-</Description>
-<FormalSpec>BestandNaam:%String</FormalSpec>
-<ReturnType>APPS.VKP.Korting.xml.CustomerInfo</ReturnType>
+<FormalSpec>BestandsNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Implementation><![CDATA[
-	Set XMLCorrelator = ##class(TECH.XMLCorrelater).%New()
-	#dim CustomerInfo As APPS.VKP.Korting.xml.CustomerInfo
-	Set CustomerInfo = XMLCorrelator.GeefObjectVanBestand(BestandNaam,"APPS.VKP.Korting.xml.CustomerInfo","CustomerInfo")
-	Quit CustomerInfo
+	#Dim Customer As APPS.VKP.Korting.xml.Customer
+	#dim Status As %String = ..XMLReader.OpenFile(BestandsNaam)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Er is een fout in je invoer bestand")
+	
+	Do ..XMLReader.Correlate("Customer","APPS.VKP.Korting.xml.Customer")
+	
+	While( ..XMLReader.Next(.Customer, .Status) ) {
+		Try {
+			Do ..CustomerVerwerker.VerwerkCustomer(Customer,PersonalityID)	
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ..Logger.ErrorMail(Exception.GeefOmschrijving(),"Bestandsnaam: '"_BestandsNaam_"' Personality: '"_PersonalityID_"' Customer: '"_Customer.id_"'")
+		}
+	}
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Er is een fout gebeurd tijdens het verwerken van een klant in het bestand: "_BestandsNaam)
 ]]></Implementation>
 </Method>
 </Class>