Index: AXimpl/MessageInCollector.cls.xml
===================================================================
diff -u -r48832 -r49403
--- AXimpl/MessageInCollector.cls.xml	(.../MessageInCollector.cls.xml)	(revision 48832)
+++ AXimpl/MessageInCollector.cls.xml	(.../MessageInCollector.cls.xml)	(revision 49403)
@@ -8,11 +8,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="MessageInProcessor">
-<Type>AXimpl.MessageInProcessor</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>FileAPI:TECH.File.FileAPI</FormalSpec>
 <Private>1</Private>
@@ -21,19 +16,27 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
-	set ..MessageInProcessor = ##class(AXimpl.MessageInProcessor).%New()
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Process">
 <Implementation><![CDATA[
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie("AxIncomingFileBasedRequests")
-	
 	#dim Path As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath")
-	set IteratorUitvoerder = ##class(TECH.IteratorUitvoerder).%New(..FileAPI.GetFileList(Path,"*.xml") , ##class(TECH.ListUtils).CreateListOfObjects(..MessageInProcessor))
-	do IteratorUitvoerder.VoerUit()
+	
+	#dim FileIterator As TECH.Iterator = ..FileAPI.GetFileList(Path,"*.xml")
+	
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AX.MessageInCollector_"_$job)
+	
+	if FileIterator.HasNext() {
+	
+		set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
+		do DataBuilder.SetClassName("AXimpl.MessageInProcessor")	
+		do DataBuilder.SetMethodName("Verwerk")
+		do DataBuilder.VoegToeDataType(FileIterator.Next())
+		
+		do ##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter().StartProcess(DataBuilder.GetData())
+	}
 ]]></Implementation>
 </Method>
 </Class>