Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r49693 -r50138
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 49693)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 50138)
@@ -3,7 +3,7 @@
 <Class name="AXimpl.MessageInProcessor">
 <Super>TECH.IteratorUitvoerderOpdracht</Super>
 
-<Property name="FileAPI">
+<Property name="FileApi">
 <Type>TECH.File.FileAPI</Type>
 <Private>1</Private>
 </Property>
@@ -28,7 +28,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="MailAPI">
+<Property name="MailApi">
 <Type>TECH.Mail.MailAPI</Type>
 <Private>1</Private>
 </Property>
@@ -39,38 +39,40 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,ConfigIn:AXimpl.ConfigIn,VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository,MailAPI:TECH.Mail.MailAPI</FormalSpec>
+<FormalSpec>FileApi:TECH.File.FileAPI="",XmlCorrelater:TECH.XMLCorrelater="",EventRaiser:AXimpl.EventRaiser="",ConfigIn:AXimpl.ConfigIn="",VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
-	Set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
-	Set ..EventRaiser = $$$Inject(EventRaiser,##class(AXimpl.EventRaiser).%New())
-	Set ..ConfigIn = $$$Inject(ConfigIn,##class(AXimpl.ConfigIn).%New())
-	Set ..VerwerkBestandOpnieuwAanvraagRepository = $$$Inject(VerwerkBestandOpnieuwAanvraagRepository,##class(VerwerkBestandOpnieuwAanvraagRepository).%New())
+	Set ..FileApi = $$$Inject(FileApi, ##class(TECH.File.impl.FileAPI).%New())
+	Set ..XmlCorrelater = $$$Inject(XmlCorrelater, ##class(TECH.XMLCorrelater).%New())
+	Set ..EventRaiser = $$$Inject(EventRaiser, ##class(AXimpl.EventRaiser).%New())
+	Set ..ConfigIn = $$$Inject(ConfigIn, ##class(AXimpl.ConfigIn).%New())
+	Set ..VerwerkBestandOpnieuwAanvraagRepository = $$$Inject(VerwerkBestandOpnieuwAanvraagRepository, ##class(VerwerkBestandOpnieuwAanvraagRepository).%New())
 	Set ..Logger = ##class(vhLib.Logger).%New()
-	Set ..MailAPI = $$$Inject(MailAPI,##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Verwerk">
 <Implementation><![CDATA[
 	Lock +^AXimpl.MessageInProcessor:0 
-	Else  Quit	
+	Else  Quit
+	
 	#dim Path As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath")
-	#dim FileIterator As TECH.Iterator = ..FileAPI.GetFileList(Path,"*.xml")
+	#dim FileIterator As TECH.Iterator = ..FileApi.GetFileList(Path, "*.xml")
 
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie("AxIncomingFileBasedRequests")
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AX.MessageInProcessor_"_$job)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AX.MessageInProcessor_"_$job)
 	
 	#dim VerwerkVolgende as %Boolean = $$$True
+	
 	While (VerwerkVolgende) {
-		try {
-			while (VerwerkVolgende && FileIterator.HasNext()){				
+		Try {
+			While (VerwerkVolgende && FileIterator.HasNext()){				
 				#dim FullFilename as %String = FileIterator.Next()
 				#dim SessionId As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()
 				Set $piece(SessionId," ",2) = ##class(TECH.File).GeefBestandsnaam(FullFilename)
@@ -79,7 +81,7 @@
 				;verwerking
 				#dim DebugStream As %Stream.Object = ##class(%GlobalCharacterStream).%New()
 				Do DebugStream.WriteLine("Xml data : ")
-				Do DebugStream.CopyFrom(..FileAPI.GeefFileReader(FullFilename).GeefStream())
+				Do DebugStream.CopyFrom(..FileApi.GeefFileReader(FullFilename).GeefStream())
 				Do ..Logger.Debug("Verwerking inkomende AX stream", DebugStream )	
 								
 				#dim SubPath As %String = ..ExtractSubPath(FullFilename)
@@ -88,27 +90,27 @@
 				#dim Message As %CacheString = ..XmlCorrelater.GeefObjectVanBestand(FullFilename, KlasseNaam, "Envelope")
 				#dim Converter As AXimpl.Converter = ..ConfigIn.GetConverter(SubPath)
 				Do Converter.Convert(Message)
-				Do ..EventRaiser.RaiseRequestReceivedEvent(SubPath,FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
-				Do ..FileAPI.DeleteFile(FullFilename)
+				Do ..EventRaiser.RaiseRequestReceivedEvent(SubPath, FullFilename, ..FileApi.GeefFileReader(FullFilename).GeefStream())
+				Do ..FileApi.DeleteFile(FullFilename)
 				;eind verwerking
 				Do ..MarkeerVerwerkBestandOpnieuwAanvraagVerwerkt(FullFilename)
 				Set VerwerkVolgende = $$$False
 			}
 			Set VerwerkVolgende = $$$False
-		} catch {
-			try {
+		} Catch {
+			Try {
 				#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
-				if Exception.%IsA(##class(AXimpl.VerwerkAXBerichtLaterOpnieuwException).%ClassName(1)) {
+				If (Exception.%IsA(##class(AXimpl.VerwerkAXBerichtLaterOpnieuwException).%ClassName($$$True))) {
 					Do ..Logger.Info("Verwerk AX bericht '"_FullFilename_"' later opnieuw", Exception.GeefOmschrijving())
 					Do ..RegistreerVerwerkBestandOpnieuwAanvraag(FullFilename)
-	 			} else {				
+	 			} Else {
 					Set VerwerkVolgende = $$$False
 					Do ..LogException(FullFilename, Exception)
-					Do ..EventRaiser.RaiseCorruptedRequestReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
+					Do ..EventRaiser.RaiseCorruptedRequestReceivedEvent(FullFilename, ..FileApi.GeefFileReader(FullFilename).GeefStream())
 					Do ..MoveFileToErrorMap(FullFilename , SubPath)
 					Do ..MarkeerVerwerkBestandOpnieuwAanvraagVerwerkt(FullFilename)
 				}
-			} catch {
+			} Catch {
 				#dim InnerException As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 				Set VerwerkVolgende = $$$False
 			}
@@ -123,13 +125,13 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim SubPath As %String = ##class(TECH.StringUtils).Replace(FullFilename,##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath"),"")
-	
+	#dim SubPath As %String = ##class(TECH.StringUtils).Replace(FullFilename, ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath"),"")
 	#dim FileName As %String = ##class(TECH.File).GeefBestandsnaam(SubPath)
-	Set SubPath = ##class(TECH.StringUtils).Replace(SubPath,"\"_FileName,"")
-	Set SubPath = $Extract(SubPath,2,*)
-	Set SubPath = ##class(TECH.StringUtils).Replace(SubPath,"\","/")
 	
+	Set SubPath = ##class(TECH.StringUtils).Replace(SubPath, "\" _ FileName, "")
+	Set SubPath = $Extract(SubPath, 2, *)
+	Set SubPath = ##class(TECH.StringUtils).Replace(SubPath, "\", "/")
+	
 	Quit SubPath
 ]]></Implementation>
 </Method>
@@ -138,10 +140,11 @@
 <FormalSpec>FullFilename:%String,SubPath:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim ErrorPath As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_IF_IN_ErrorPath"),SubPath)
-	#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(ErrorPath,##class(TECH.File).GetFilename(FullFilename))
-	Do ..FileAPI.GeefDirectoryUtils().CreateIfNotExists(ErrorPath)
-	Do ..FileAPI.MoveFile(FullFilename,ErrorFilename)
+	#dim ErrorPath As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_IF_IN_ErrorPath"), SubPath)
+	#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(ErrorPath, ##class(TECH.File).GetFilename(FullFilename))
+	
+	Do ..FileApi.GeefDirectoryUtils().CreateIfNotExists(ErrorPath)
+	Do ..FileApi.MoveFile(FullFilename, ErrorFilename)
 ]]></Implementation>
 </Method>
 
@@ -150,9 +153,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ExceptionMessage As %Stream.Object = ##class(%GlobalCharacterStream).%New()
-	do ExceptionMessage.WriteLine("Filename : " _FullFilename)
-	do ExceptionMessage.WriteLine("")
-	do ExceptionMessage.CopyFrom(Exception.ToStream())
+	Do ExceptionMessage.WriteLine("Filename : " _FullFilename)
+	Do ExceptionMessage.WriteLine("")
+	Do ExceptionMessage.CopyFrom(Exception.ToStream())
 	Do ..Logger.ErrorMail("Verwerking inkomende AX bestand", ExceptionMessage)
 ]]></Implementation>
 </Method>
@@ -161,18 +164,21 @@
 <FormalSpec>Filenaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if ..VerwerkBestandOpnieuwAanvraagRepository.BestaatViaBestandnaam(Filenaam){
+	If ..VerwerkBestandOpnieuwAanvraagRepository.BestaatViaBestandnaam(Filenaam){
 		#dim Aanvraag as AXimpl.VerwerkBestandOpnieuwAanvraag = ..VerwerkBestandOpnieuwAanvraagRepository.GeefViaBestandNaam(Filenaam)		
-	} else {
+	} Else {
 		Set Aanvraag = ..VerwerkBestandOpnieuwAanvraagRepository.Maak()
 		Set Aanvraag.BestandNaam = Filenaam
 		Set Aanvraag.Teller = 0
 		Set Aanvraag.Sinds = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
 	}
+	
 	Set Aanvraag.Teller = Aanvraag.Teller + 1
-	if ((Aanvraag.Teller >= 300) && ((Aanvraag.Teller # 60) = 0)) {
+	
+	If ((Aanvraag.Teller >= 300) && ((Aanvraag.Teller # 60) = 0)) {
 		Do ..StuurMailBerichtTeveelNietVerwerkt(Filenaam)
 	}
+	
 	Do ..VerwerkBestandOpnieuwAanvraagRepository.Bewaar(Aanvraag)
 ]]></Implementation>
 </Method>
@@ -181,11 +187,11 @@
 <FormalSpec>Filenaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if ..VerwerkBestandOpnieuwAanvraagRepository.BestaatViaBestandnaam(Filenaam){
+	If ..VerwerkBestandOpnieuwAanvraagRepository.BestaatViaBestandnaam(Filenaam){
 		#dim Aanvraag as AXimpl.VerwerkBestandOpnieuwAanvraag = ..VerwerkBestandOpnieuwAanvraagRepository.GeefViaBestandNaam(Filenaam)		
 		Set Aanvraag.VerwerktOp = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
 		Do ..VerwerkBestandOpnieuwAanvraagRepository.Bewaar(Aanvraag)	
-	} else {
+	} Else {
 		; bestand is zonder extra pogingen verwerkt, niets te doen
 	}
 ]]></Implementation>
@@ -195,14 +201,15 @@
 <FormalSpec>FullFilename:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Mail As TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("AXimpl.MessageInProcessor"))
 	Do Mail.VoegToeOntvanger("ICT_Meldingen@vanhoecke.be")
 	Do Mail.ZetOnderwerp("AX bericht geraakt niet verwerkt")
-	#Dim MeldingTekst as %String = "Bericht in bestand '"_FullFilename _"' geraakt reeds meer dan 5 minuten niet verwerkt. Check de log om te zien waarom."
+	
+	#dim MeldingTekst as %String = "Bericht in bestand '" _ FullFilename _ "' geraakt reeds meer dan 5 minuten niet verwerkt. Check de log om te zien waarom."
 	Do Mail.ZetInhoud("Beste,"_ $$$CRLF _ $$$CRLF _ MeldingTekst)
-	Do ..MailAPI.VerstuurMail(Mail)
-	Do ..Logger.Error("AXimpl.MessageInProcessor","Actie nodig:" _$$$CRLF _ MeldingTekst,0)
+	Do ..MailApi.VerstuurMail(Mail)
+	Do ..Logger.Error("AXimpl.MessageInProcessor", "Actie nodig:" _ $$$CRLF _ MeldingTekst, 0)
 ]]></Implementation>
 </Method>
 </Class>