Index: vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderVerwijderaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderVerwijderaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderVerwijderaar/Test.cls.xml	(revision 51188)
@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.CHUI.VKP.OrderIngave.TijdelijkOrderVerwijderaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Verwijderaar doet niets indien geen te verwijderen tijdelijke orders">
+<Implementation><![CDATA[
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Set TeVerwijderenOrderRepositoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New()
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("ZoekAlle").DanReturn(##class(vhTest.Utils.NullIterator).%New())
+	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	
+	Set OrderVerwijdereraar = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderVerwijderaar).%New(TeVerwijderenOrderRepositoryMock,OrderAPIMock,LoggerMock)
+	Do OrderVerwijdereraar.VerwijderTeVerwijderenTijdelijkeOrders()
+	Do TeVerwijderenOrderRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwijderaar verwijdert tijdelijk order en TeVerwijderenTijdelijkOrder">
+<Implementation><![CDATA[
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Set TeVerwijderenOrderRepositoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New()
+
+	#dim TeVerwijderenOrderIterator as TECH.Iterator = ..GeefTeVerwijderenTijdelijkeOrdersIterator(..GeefTeVerwijderenTijdelijkOrder())	
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("ZoekAlle").DanReturn(TeVerwijderenOrderIterator)
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("VerwijderViaID",1).DanDoeNiks()
+	
+	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","OrderNr").DanReturn($$$True)
+	Do OrderAPIMock.VerwachtMethodCall("VerwijderOrder","OrderNr").DanDoeNiks()
+	
+	Set OrderVerwijdereraar = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderVerwijderaar).%New(TeVerwijderenOrderRepositoryMock,OrderAPIMock,LoggerMock)
+	Do OrderVerwijdereraar.VerwijderTeVerwijderenTijdelijkeOrders()
+	Do TeVerwijderenOrderRepositoryMock.Verifieer()
+	Do OrderAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwijderaar verhoogt pogingen van TeVerwijderenTijdelijkOrder indien verwijderen tijdelijk order niet lukt">
+<Implementation><![CDATA[
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Set TeVerwijderenOrderRepositoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New()
+
+	#Dim TeVerwijderenOrder as vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders = ..GeefTeVerwijderenTijdelijkOrder()
+	Do TeVerwijderenOrder.VerwachtMethodCall("VerhoogPogingen",1).ExactAantalKeer(1)
+	Do TeVerwijderenOrder.VerwachtMethodCall("GeefPogingen").DanReturn(1)
+	Do TeVerwijderenOrder.VerwachtMethodCall("Save").DanDoeNiks()
+	#dim TeVerwijderenOrderIterator as TECH.Iterator = ..GeefTeVerwijderenTijdelijkeOrdersIterator(TeVerwijderenOrder)	
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("ZoekAlle").DanReturn(TeVerwijderenOrderIterator)
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("VerwijderViaID",1).Nooit()
+	
+	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","OrderNr").DanReturn($$$True)
+	Do OrderAPIMock.IndienMethodCall("VerwijderOrder","OrderNr").DanException(##class(TECH.Exceptions.GeneralErrorException).%New("een exceptie"))
+	
+	Set OrderVerwijdereraar = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderVerwijderaar).%New(TeVerwijderenOrderRepositoryMock,OrderAPIMock,LoggerMock)
+	Do OrderVerwijdereraar.VerwijderTeVerwijderenTijdelijkeOrders()
+	Do TeVerwijderenOrderRepositoryMock.Verifieer()
+	Do OrderAPIMock.Verifieer()	
+	Do TeVerwijderenOrder.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwijderaar verhoogt pogingen van TeVerwijderenTijdelijkOrder indien verwijderen tijdelijk order niet lukt plus mail indien dit de 5e poging is">
+<Implementation><![CDATA[
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	#dim Melding as %String = "De 5-e poging om tijdelijk order 'OrderNr' te verwijderen is niet gelukt." _ $$$CRLF 
+	Set Melding  = Melding _ "Gelieve dit tijdelijk order manueel te verwijderen om te zien wat er aan de hand is."	
+	Do LoggerMock.VerwachtMethodCall("ErrorMail","Verwijder Tijdelijke Orders",Melding)
+	
+	Set TeVerwijderenOrderRepositoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New()
+
+	#Dim TeVerwijderenOrder as vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders = ..GeefTeVerwijderenTijdelijkOrder()
+	Do TeVerwijderenOrder.VerwachtMethodCall("VerhoogPogingen",1).ExactAantalKeer(1)
+	Do TeVerwijderenOrder.VerwachtMethodCall("GeefPogingen").DanReturn(5)
+	Do TeVerwijderenOrder.VerwachtMethodCall("Save").DanDoeNiks()
+	#dim TeVerwijderenOrderIterator as TECH.Iterator = ..GeefTeVerwijderenTijdelijkeOrdersIterator(TeVerwijderenOrder)	
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("ZoekAlle").DanReturn(TeVerwijderenOrderIterator)
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("VerwijderViaID",1).Nooit()
+	
+	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","OrderNr").DanReturn($$$True)
+	Do OrderAPIMock.IndienMethodCall("VerwijderOrder","OrderNr").DanException(##class(TECH.Exceptions.GeneralErrorException).%New("een exceptie"))
+	
+	Set OrderVerwijdereraar = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderVerwijderaar).%New(TeVerwijderenOrderRepositoryMock,OrderAPIMock,LoggerMock)
+	Do OrderVerwijdereraar.VerwijderTeVerwijderenTijdelijkeOrders()
+	Do TeVerwijderenOrderRepositoryMock.Verifieer()
+	Do OrderAPIMock.Verifieer()	
+	Do TeVerwijderenOrder.Verifieer()
+	Do LoggerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwijderaar verwijdert TeVerwijderenTijdelijkOrder indien tijdelijk order reeds verwijderd is">
+<Implementation><![CDATA[
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Set TeVerwijderenOrderRepositoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New()
+
+	#dim TeVerwijderenOrderIterator as TECH.Iterator = ..GeefTeVerwijderenTijdelijkeOrdersIterator(..GeefTeVerwijderenTijdelijkOrder())	
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("ZoekAlle").DanReturn(TeVerwijderenOrderIterator)
+	Do TeVerwijderenOrderRepositoryMock.VerwachtMethodCall("VerwijderViaID",1).DanDoeNiks()
+	
+	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","OrderNr").DanReturn($$$False)
+	
+	Set OrderVerwijdereraar = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderVerwijderaar).%New(TeVerwijderenOrderRepositoryMock,OrderAPIMock,LoggerMock)
+	Do OrderVerwijdereraar.VerwijderTeVerwijderenTijdelijkeOrders()
+	Do TeVerwijderenOrderRepositoryMock.Verifieer()
+	Do OrderAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwijderenTijdelijkOrder">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders</ReturnType>
+<Implementation><![CDATA[
+	Set TeVerwijderenTijdelijkOrder = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders).%New()
+	Do TeVerwijderenTijdelijkOrder.IndienMethodCall("GeefOrderNr").DanReturn("OrderNr")
+	Do TeVerwijderenTijdelijkOrder.IndienMethodCall("GeefID").DanReturn(1)
+	Quit TeVerwijderenTijdelijkOrder
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwijderenTijdelijkeOrdersIterator">
+<FormalSpec>TeVerwijderenOrder:vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ItemIterator</ReturnType>
+<Implementation><![CDATA[
+	Set TeVerwijderenTijdelijkOrderList = ##class(%ListOfDataTypes).%New()
+	Do TeVerwijderenTijdelijkOrderList.Insert(TeVerwijderenOrder)	
+	Set TeVerwijderenTijdelijkeOrderIterator = ##class(TECH.ListIterator).%New(TeVerwijderenTijdelijkOrderList)
+	Quit TeVerwijderenTijdelijkeOrderIterator
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: CHUI/VKP/OrderIngave/TijdelijkOrderVerwijderaar.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderIngave/TijdelijkOrderVerwijderaar.cls.xml	(revision 0)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderVerwijderaar.cls.xml	(revision 51188)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderIngave.TijdelijkOrderVerwijderaar">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="AantalPogingen">
+<Default>5</Default>
+</Parameter>
+
+<Property name="TeVerwijderenTijdelijkOrderRepository">
+<Type>CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>TeVerwijderenTijdelijkOrderRepository:CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository,OrderAPI:DOM.VKP.OrderAPI,Logger:vhLib.Logger</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..TeVerwijderenTijdelijkOrderRepository = $$$Inject(TeVerwijderenTijdelijkOrderRepository,##class(CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New())
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderTeVerwijderenTijdelijkeOrders">
+<Implementation><![CDATA[
+	#dim TeVerwijderenOrderIterator as TECH.Iterator = ..TeVerwijderenTijdelijkOrderRepository.ZoekAlle()
+	if TeVerwijderenOrderIterator.HasNext(){
+		#dim TeVerwijderenOrder as CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders = TeVerwijderenOrderIterator.Next()
+		Try{
+			if ..OrderAPI.BestaatOrder(TeVerwijderenOrder.GeefOrderNr()){
+				Do ..OrderAPI.VerwijderOrder(TeVerwijderenOrder.GeefOrderNr())
+			}
+		 	Do ..TeVerwijderenTijdelijkOrderRepository.VerwijderViaID(TeVerwijderenOrder.GeefID())
+		} catch {
+			#dim Exceptie as TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do TeVerwijderenOrder.VerhoogPogingen(1)
+			Do TeVerwijderenOrder.Save()
+			If TeVerwijderenOrder.GeefPogingen() = ..#AantalPogingen {
+				#dim Melding as %String = "De "_TeVerwijderenOrder.GeefPogingen() _ "-e poging om tijdelijk order '" _ TeVerwijderenOrder.GeefOrderNr()_"' te verwijderen is niet gelukt."
+				Set Melding = Melding _ $$$CRLF _"Gelieve dit tijdelijk order manueel te verwijderen om te zien wat er aan de hand is."
+				Do ..Logger.ErrorMail("Verwijder Tijdelijke Orders",Melding)
+			}
+		}
+		
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>