Index: vhUnitTest/AXimpl/MessageInProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u -r49635 -r49693
--- vhUnitTest/AXimpl/MessageInProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 49635)
+++ vhUnitTest/AXimpl/MessageInProcessor/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 49693)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailAPI">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerwerkBestandOpnieuwAanvraagRepository">
 <Type>AXimpl.VerwerkBestandOpnieuwAanvraagRepository</Type>
 <Private>1</Private>
@@ -31,6 +36,7 @@
 	Set ..XmlCorrelater = ##class(vhTest.Fake.TECH.XMLCorrelater).%New()
 	Set ..EventRaiser = ##class(vhTest.Fake.AXimpl.EventRaiser).%New()
 	Set ..VerwerkBestandOpnieuwAanvraagRepository = ##class(vhTest.Fake.AXimpl.VerwerkBestandOpnieuwAanvraagRepository).%New()
+	Set ..MailAPI = ##class(vhTest.Fake.TECH.Mail.MailAPI).%New()
 	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 ]]></Implementation>
 </Method>
@@ -311,6 +317,81 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Verwerk stuurt een mail indien een bestand meer dan 300 geprobeerd te verwerken is, en daana om de 60 keer">
+<Implementation><![CDATA[
+	#dim FileList as %ListOfDatypes = ..GeefFileList()
+	#dim Path As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath")
+	Set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	Do FileAPIMock.VerwachtMethodCall("GetFileList",Path,"*.xml").DanReturn(##class(TECH.ListIterator).%New( FileList))
+	Do FileAPIMock.IndienMethodCall("GeefFileReader",$$$ElkeWaarde).DanReturn(##class(vhTest.Fake.TECH.File.FileReader).%New())
+	Do FileAPIMock.VerwachtMethodCall("DeleteFile",FileList.GetAt(1)).Nooit()
+	Do FileAPIMock.VerwachtMethodCall("DeleteFile",FileList.GetAt(2)).Nooit()
+	Do FileAPIMock.VerwachtMethodCall("DeleteFile",FileList.GetAt(3)).DanDoeNiks()
+
+	#dim AifMessage1 = ##class(AXif.Dynamics.SalesOrderIn.Envelope).%New()
+	#dim AifMessage2 = ##class(AXif.Dynamics.SalesOrderIn.Envelope).%New()
+	#dim AifMessage3 = ##class(AXif.Dynamics.SalesOrderIn.Envelope).%New()
+	Set XmlCorrelaterMock = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XmlCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",FileList.GetAt(1),"AXif.Dynamics.SalesOrderIn.Envelope","Envelope").DanReturn(AifMessage1)
+	Do XmlCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",FileList.GetAt(2),"AXif.Dynamics.SalesOrderIn.Envelope","Envelope").DanReturn(AifMessage2)
+	Do XmlCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",FileList.GetAt(3),"AXif.Dynamics.SalesOrderIn.Envelope","Envelope").DanReturn(AifMessage3)
+	
+	Set SalesOrderConverterMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New()
+	Set VerwerkOpnieuwException = ##class(AXimpl.VerwerkAXBerichtLaterOpnieuwException).%New("Probeer later nog eens")
+	Do SalesOrderConverterMock.IndienMethodCall("Convert", AifMessage1).DanException(VerwerkOpnieuwException)
+	Do SalesOrderConverterMock.IndienMethodCall("Convert", AifMessage2).DanException(VerwerkOpnieuwException)
+	Do SalesOrderConverterMock.VerwachtMethodCall("Convert", AifMessage3).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()
+
+	Set Aanvraag1 = ##class(AXimpl.VerwerkBestandOpnieuwAanvraag).%New()
+	Set Aanvraag1.Teller = 299
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(1)).DanReturn($$$True)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("GeefViaBestandNaam",FileList.GetAt(1)).DanReturn(Aanvraag1)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Bewaar",Aanvraag1).DanDoeNiks()
+
+	Set Aanvraag2 = ##class(AXimpl.VerwerkBestandOpnieuwAanvraag).%New()
+	Set Aanvraag2.Teller = 359
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(2)).DanReturn($$$True)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("GeefViaBestandNaam",FileList.GetAt(2)).DanReturn(Aanvraag2)
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("Bewaar",Aanvraag2).DanDoeNiks()
+
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.VerwachtMethodCall("BestaatViaBestandnaam",FileList.GetAt(3)).DanReturn($$$False)
+
+	Set MailAPIMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("AXimpl.MessageInProcessor")).DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","ICT_Meldingen@vanhoecke.be")
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp","AX bericht geraakt niet verwerkt")
+	#Dim MeldingTekst as %String = "Bericht in bestand '"_FileList.GetAt(1) _"' geraakt reeds meer dan 5 minuten niet verwerkt. Check de log om te zien waarom."
+	Do MailMock.VerwachtMethodCall("ZetInhoud","Beste,"_ $$$CRLF _ $$$CRLF _ MeldingTekst)
+	Set MeldingTekst = "Bericht in bestand '"_FileList.GetAt(2) _"' geraakt reeds meer dan 5 minuten niet verwerkt. Check de log om te zien waarom."
+	Do MailMock.VerwachtMethodCall("ZetInhoud","Beste,"_ $$$CRLF _ $$$CRLF _ MeldingTekst)
+	
+	Do MailAPIMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+
+	Do MailAPIMock.VerwachtMethodCall("VerstuurMail",MailMock).DanDoeNiks().ExactAantalKeer(2)
+
+	#dim MessageInProcessor As AXimpl.MessageInProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterMock,,ConfigInMock,VerwerkBestandOpnieuwAanvraagRepositoryMock,MailAPIMock)
+	Do MessageInProcessor.Verwerk()
+	
+	Do $$$AssertEquals(Aanvraag1.Teller,300)		
+	Do $$$AssertEquals(Aanvraag2.Teller,360)		
+	
+	Do MailMock.Verifieer()
+	Do VerwerkBestandOpnieuwAanvraagRepositoryMock.Verifieer()
+	Do ConfigInMock.Verifieer()
+	Do SalesOrderConverterMock.Verifieer()
+	Do XmlCorrelaterMock.Verifieer()
+	Do MailAPIMock.Verifieer()
+	Do FileAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefFileList">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -324,10 +405,10 @@
 </Method>
 
 <Method name="InitResponseProcessor">
-<FormalSpec>FileAPI:TECH.File.FileAPI=..FileAPI,XmlCorrelater:TECH.XMLCorrelater=..XmlCorrelater,EventRaiser:AXimpl.EventRaiser=..EventRaiser,ConfigInMock:AXimpl.ConfigIn="",VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository=..VerwerkBestandOpnieuwAanvraagRepository</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI=..FileAPI,XmlCorrelater:TECH.XMLCorrelater=..XmlCorrelater,EventRaiser:AXimpl.EventRaiser=..EventRaiser,ConfigInMock:AXimpl.ConfigIn="",VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository=..VerwerkBestandOpnieuwAanvraagRepository,MailAPI:TECH.Mail.MailAPI=..MailAPI</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXimpl.MessageInProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(AXimpl.MessageInProcessor).%New(FileAPI,XmlCorrelater,EventRaiser,ConfigInMock,VerwerkBestandOpnieuwAanvraagRepository)
+<Implementation><![CDATA[	Quit ##class(AXimpl.MessageInProcessor).%New(FileAPI,XmlCorrelater,EventRaiser,ConfigInMock,VerwerkBestandOpnieuwAanvraagRepository,MailAPI)
 ]]></Implementation>
 </Method>