Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r42658 -r44019
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 42658)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 44019)
@@ -43,23 +43,29 @@
 <Implementation><![CDATA[
 	Try {
 		#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,"\","/")
+
 		#dim KlasseNaam As %String = ..ConfigIn.GetRequestEnvelope(SubPath)
 		#dim Message As %CacheString = ..XmlCorrelater.GeefObjectVanBestand(FullFilename, KlasseNaam, "Envelope")
+
 		#dim SalesOrderInConvertor As AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter = ..ConfigIn.GetConverter(SubPath)
 		Do SalesOrderInConvertor.Convert(Message)
 		
 		Do ..FileAPI.DeleteFile(FullFilename)
 		
 	} Catch {
-		
-		#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New().Error("Verwerking inkomende AX bestand", Exception.GeefOmschrijving())
+
 		#dim ErrorPath As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_IF_IN_ErrorPath")
 		#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(ErrorPath,##class(TECH.File).GetFilename(FullFilename))
-		
 		Do ..EventRaiser.RaiseCorruptedResponseReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
-		
+
 		Do ..FileAPI.MoveFile(FullFilename,ErrorFilename)
-		
 	}
 ]]></Implementation>
 </Method>