Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r49618 -r49635
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 49618)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 49635)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerwerkBestandOpnieuwAanvraagRepository">
+<Type>AXimpl.VerwerkBestandOpnieuwAanvraagRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,ConfigIn:AXimpl.ConfigIn</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,ConfigIn:AXimpl.ConfigIn,VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -39,6 +44,7 @@
 	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()
 	
 	quit $$$OK
@@ -79,6 +85,7 @@
 				Do ..EventRaiser.RaiseRequestReceivedEvent(SubPath,FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
 				Do ..FileAPI.DeleteFile(FullFilename)
 				;eind verwerking
+				Do ..MarkeerVerwerkBestandOpnieuwAanvraagVerwerkt(FullFilename)
 				Set VerwerkVolgende = $$$False
 			}
 			Set VerwerkVolgende = $$$False
@@ -87,11 +94,13 @@
 				#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 				if Exception.%IsA(##class(AXimpl.VerwerkAXBerichtLaterOpnieuwException).%ClassName(1)) {
 					Do ..Logger.Info("Verwerk AX bericht '"_FullFilename_"' later opnieuw", Exception.ToString())
+					Do ..RegistreerVerwerkBestandOpnieuwAanvraag(FullFilename)
 	 			} else {				
+					Set VerwerkVolgende = $$$False
 					Do ..LogException(FullFilename, Exception)
 					Do ..EventRaiser.RaiseCorruptedRequestReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
 					Do ..MoveFileToErrorMap(FullFilename , SubPath)
-					Set VerwerkVolgende = $$$False
+					Do ..MarkeerVerwerkBestandOpnieuwAanvraagVerwerkt(FullFilename)
 				}
 			} catch {
 				#dim InnerException As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
@@ -141,6 +150,37 @@
 	Do ..Logger.ErrorMail("Verwerking inkomende AX bestand", ExceptionMessage)
 ]]></Implementation>
 </Method>
+
+<Method name="RegistreerVerwerkBestandOpnieuwAanvraag">
+<FormalSpec>Filenaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if ..VerwerkBestandOpnieuwAanvraagRepository.BestaatViaBestandnaam(Filenaam){
+		#dim Aanvraag as AXimpl.VerwerkBestandOpnieuwAanvraag = ..VerwerkBestandOpnieuwAanvraagRepository.GeefViaBestandNaam(Filenaam)		
+	} 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
+	Do ..VerwerkBestandOpnieuwAanvraagRepository.Bewaar(Aanvraag)
+]]></Implementation>
+</Method>
+
+<Method name="MarkeerVerwerkBestandOpnieuwAanvraagVerwerkt">
+<FormalSpec>Filenaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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 {
+		; bestand is zonder extra pogingen verwerkt, niets te doen
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/MessageInProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u -r49618 -r49635
--- vhUnitTest/AXimpl/MessageInProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 49618)
+++ vhUnitTest/AXimpl/MessageInProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 49635)
@@ -18,13 +18,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerwerkBestandOpnieuwAanvraagRepository">
+<Type>AXimpl.VerwerkBestandOpnieuwAanvraagRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super()
 	Set ..FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 	Set ..XmlCorrelater = ##class(vhTest.Fake.TECH.XMLCorrelater).%New()
 	Set ..EventRaiser = ##class(vhTest.Fake.AXimpl.EventRaiser).%New()
+	Set ..VerwerkBestandOpnieuwAanvraagRepository = ##class(vhTest.Fake.AXimpl.VerwerkBestandOpnieuwAanvraagRepository).%New()
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 ]]></Implementation>
 </Method>
 
@@ -193,9 +200,18 @@
 	Do ConfigInMock.VerwachtMethodCall("GetRequestEnvelope", "SalesOrder/Create").DanReturn("AXif.Dynamics.SalesOrderIn.Envelope")
 	Do ConfigInMock.VerwachtMethodCall("GetConverter", "SalesOrder/Create").DanReturn(SalesOrderConverterMock)
 	
-	#dim MessageInProcessor As AXimpl.MessageInProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterMock,,ConfigInMock)
+	Set VerwerkBestandOpnieuwAanvraagRepositoryMock = ##class(vhTest.Mock.AXimpl.VerwerkBestandOpnieuwAanvraagRepository).%New()
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(1)).DanReturn($$$False)
+	Set Aanvraag = ##class(AXimpl.VerwerkBestandOpnieuwAanvraag).%New()
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Maak").DanReturn(Aanvraag)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Bewaar",Aanvraag).DanDoeNiks()
+	
+	#dim MessageInProcessor As AXimpl.MessageInProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterMock,,ConfigInMock,VerwerkBestandOpnieuwAanvraagRepositoryMock)
 	Do MessageInProcessor.Verwerk()
-		
+	
+	Do $$$AssertEquals(Aanvraag.Teller,1)		
+	Do $$$AssertEquals(Aanvraag.BestandNaam,FileList.GetAt(1))
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.Verifieer()
 	Do ConfigInMock.Verifieer()
 	Do SalesOrderConverterMock.Verifieer()
 	Do XmlCorrelaterMock.Verifieer()
@@ -225,15 +241,78 @@
 	Set ConfigInMock = ##class(vhTest.Mock.AXimpl.ConfigIn).%New()
 	Do ConfigInMock.IndienMethodCall("GetRequestEnvelope", "SalesOrder/Create").DanReturn("AXif.Dynamics.SalesOrderIn.Envelope")
 	Do ConfigInMock.IndienMethodCall("GetConverter", "SalesOrder/Create").DanReturn(SalesOrderConverterMock)
+
+	Set VerwerkBestandOpnieuwAanvraagRepositoryMock = ##class(vhTest.Mock.AXimpl.VerwerkBestandOpnieuwAanvraagRepository).%New()
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(1)).DanReturn($$$True)
+	Set Aanvraag1 = ##class(AXimpl.VerwerkBestandOpnieuwAanvraag).%New()
+	set Aanvraag1.Teller = 5
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("GeefViaBestandNaam",FileList.GetAt(1)).DanReturn(Aanvraag1)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Bewaar",Aanvraag1).DanDoeNiks()
 	
-	#dim MessageInProcessor As AXimpl.MessageInProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterMock,,ConfigInMock)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(2)).DanReturn($$$False)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(3)).DanReturn($$$False)
+	
+	Set Aanvraag = ##class(AXimpl.VerwerkBestandOpnieuwAanvraag).%New()
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Maak").DanReturn(Aanvraag).ExactAantalKeer(2)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Bewaar",Aanvraag).DanDoeNiks()
+
+	#dim MessageInProcessor As AXimpl.MessageInProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterMock,,ConfigInMock,VerwerkBestandOpnieuwAanvraagRepositoryMock)
 	Do MessageInProcessor.Verwerk()
+
+	Do $$$AssertEquals(Aanvraag1.Teller,6)	
+	Do $$$AssertEquals(Aanvraag.Teller,1)	
+
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.Verifieer()		
+	Do FileAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Goed opnieuw verwerken verwerken van eerder geprobeerd bericht past het verwerkt tijdstip van de VerwerkBestandOpnieuwAanvraag">
+<Implementation><![CDATA[
+	Set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	#dim Path As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath")
+	#dim Filename As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath") _"\SalesOrder\Create\File.txt"
+	#dim FileList as %ListOfDatypes = ##class(TECH.ListUtils).CreateListOfDataTypes(Filename)
+	Do FileAPIMock.VerwachtMethodCall("GetFileList",Path,"*.xml").DanReturn(##class(TECH.ListIterator).%New( FileList))
+
+	Do FileAPIMock.IndienMethodCall("FileExists",Filename).DanReturn($$$True)
+	Do FileAPIMock.VerwachtMethodCall("GeefFileReader",Filename).DanReturn(##class(vhTest.Fake.TECH.File.FileReader).%New())
+	Do FileAPIMock.VerwachtMethodCall("DeleteFile",Filename)
+	
+	#dim AifMessage = ##class(AXif.Dynamics.SalesOrderIn.Envelope).%New()
+	Set XmlCorrelaterMock = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XmlCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",Filename,"AXif.Dynamics.SalesOrderIn.Envelope","Envelope").DanReturn(AifMessage)
+	
+	Set SalesOrderConverterMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New()
+	Do SalesOrderConverterMock.VerwachtMethodCall("Convert", AifMessage).DanDoeNiks()
 		
+	Set ConfigInMock = ##class(vhTest.Mock.AXimpl.ConfigIn).%New()
+	Do ConfigInMock.VerwachtMethodCall("GetRequestEnvelope", "SalesOrder/Create").DanReturn("AXif.Dynamics.SalesOrderIn.Envelope")
+	Do ConfigInMock.VerwachtMethodCall("GetConverter", "SalesOrder/Create").DanReturn(SalesOrderConverterMock)
+
+	Set VerwerkBestandOpnieuwAanvraagRepositoryMock = ##class(vhTest.Mock.AXimpl.VerwerkBestandOpnieuwAanvraagRepository).%New()
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(1)).DanReturn($$$True)
+	Set Aanvraag1 = ##class(AXimpl.VerwerkBestandOpnieuwAanvraag).%New()
+	set Aanvraag1.Teller = 5
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("GeefViaBestandNaam",FileList.GetAt(1)).DanReturn(Aanvraag1)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Bewaar",Aanvraag1).DanDoeNiks()
+	
+	#dim MessageInProcessor As AXimpl.MessageInProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterMock,,ConfigInMock,VerwerkBestandOpnieuwAanvraagRepositoryMock)
+	Do MessageInProcessor.Verwerk()
+	
+	Do $$$AssertEquals(Aanvraag1.Teller,5)
+	Do $$$AssertEquals(Aanvraag1.VerwerktOp ,"2011-06-30 09:15:00")
+	
+	Do ConfigInMock.Verifieer()
 	Do FileAPIMock.Verifieer()
+	Do XmlCorrelaterMock.Verifieer()
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.Verifieer()		
+	Do SalesOrderConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFileList">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Filename As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath") _"\SalesOrder\Create\File"
 	Set FileList = ##class(%ListOfDataTypes).%New()
@@ -245,10 +324,10 @@
 </Method>
 
 <Method name="InitResponseProcessor">
-<FormalSpec>FileAPI:TECH.File.FileAPI=..FileAPI,XmlCorrelater:TECH.XMLCorrelater=..XmlCorrelater,EventRaiser:AXimpl.EventRaiser=..EventRaiser,ConfigInMock:AXimpl.ConfigIn=""</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI=..FileAPI,XmlCorrelater:TECH.XMLCorrelater=..XmlCorrelater,EventRaiser:AXimpl.EventRaiser=..EventRaiser,ConfigInMock:AXimpl.ConfigIn="",VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository=..VerwerkBestandOpnieuwAanvraagRepository</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXimpl.MessageInProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(AXimpl.MessageInProcessor).%New(FileAPI,XmlCorrelater,EventRaiser,ConfigInMock)
+<Implementation><![CDATA[	Quit ##class(AXimpl.MessageInProcessor).%New(FileAPI,XmlCorrelater,EventRaiser,ConfigInMock,VerwerkBestandOpnieuwAanvraagRepository)
 ]]></Implementation>
 </Method>