Index: AXimpl/AifResponses/ResponseProcessor.cls.xml
===================================================================
diff -u
--- AXimpl/AifResponses/ResponseProcessor.cls.xml	(revision 0)
+++ AXimpl/AifResponses/ResponseProcessor.cls.xml	(revision 34955)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.AifResponses.ResponseProcessor">
+<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>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..XmlCorrelater = ##class(TECH.XMLCorrelater).%New()
+	set ..FileAPI = ##class(TECH.File.impl.FileAPI).%New()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Implementation><![CDATA[
+	try {
+		#dim Message As AXaif.Message.Envelope = ..XmlCorrelater.GeefObjectVanBestand(FullFilename,##class(AXaif.Message.Envelope).%ClassName(1),"Envelope")
+		do ..FileAPI.DeleteFile(FullFilename)
+		
+	} catch {
+		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
+		#dim ErrorPath As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_AIF"),"Errors")
+		#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(ErrorPath,##class(TECH.File).GetFilename(FullFilename))
+		do ..FileAPI.MoveFile(FullFilename,ErrorFilename)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/AifResponses/Scanner.cls.xml
===================================================================
diff -u
--- AXimpl/AifResponses/Scanner.cls.xml	(revision 0)
+++ AXimpl/AifResponses/Scanner.cls.xml	(revision 34955)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.AifResponses.Scanner">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResponseProcessor">
+<Type>AXimpl.AifResponses.ResponseProcessor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI</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 ..ResponseProcessor = ##class(AXimpl.AifResponses.ResponseProcessor).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Process">
+<Implementation><![CDATA[
+	#dim Path As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_AIF"),"Responses")
+	set IteratorUitvoerder = ##class(TECH.IteratorUitvoerder).%New(..FileAPI.GetFileList(Path,"*.xml") , ##class(TECH.ListUtils).CreateListOfObjects(..ResponseProcessor))
+	do IteratorUitvoerder.VoerUit()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>