Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r42602 -r42649
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 42602)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 42649)
@@ -3,17 +3,66 @@
 <Class name="AXimpl.MessageInProcessor">
 <Super>TECH.IteratorUitvoerderOpdracht</Super>
 
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="XmlCorrelater">
+<Type>TECH.XMLCorrelater</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EventRaiser">
+<Type>AXimpl.EventRaiser</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigIn">
+<Type>AXimpl.ConfigIn</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,ConfigIn:AXimpl.ConfigIn</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	quit $$$OK
+<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())
+	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Verwerk">
 <FormalSpec>FullFilename:%String</FormalSpec>
+<Implementation><![CDATA[
+	Try {
+
+		;#dim KlasseNaam As %String = ..ConfigIn.GetEnvelopeViaSubPath(##class(TECH.StringUtils).Replace(FullFilename,##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath"),""))
+		
+		#dim Message As %CacheString = ..XmlCorrelater.GeefObjectVanBestand(FullFilename,"AXif.Dynamics.SalesOrderIn.Envelope","Envelope")
+		#dim SalesOrderInConvertor As AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter = ..ConfigIn.GetConverter("SalesOrder/Create")
+		Do SalesOrderInConvertor.Convert(Message)
+		
+		Do ..FileAPI.DeleteFile(FullFilename)
+		
+	} Catch {
+		
+		#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#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>
 </Class>