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>