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>