Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml
===================================================================
diff -u -r50870 -r51189
--- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 50870)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 51189)
@@ -32,8 +32,13 @@
 <Type>vhLib.Logger</Type>
 </Property>
 
+<Property name="TeVerwijderenTijdelijkOrderRepository">
+<Type>CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Generator:AXimpl.Generator,OrderAPI:DOM.VKP.OrderAPI,ProductAPI:DOM.PM.ProductAPI,BezwarenWeergever:CHUI.common.BezwarenWeergever,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,Logger:vhLib.Logger</FormalSpec>
+<FormalSpec>Generator:AXimpl.Generator,OrderAPI:DOM.VKP.OrderAPI,ProductAPI:DOM.PM.ProductAPI,BezwarenWeergever:CHUI.common.BezwarenWeergever,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,Logger:vhLib.Logger,TeVerwijderenTijdelijkOrderRepository:CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -45,6 +50,7 @@
 	Set ..BezwarenWeergever = $$$Inject(BezwarenWeergever,##class(CHUI.common.impl.BezwarenWeergever).%New())
 	Set ..BouwsteenIteratorFactory = $$$Inject(BouwsteenIteratorFactory,##class(AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Set ..TeVerwijderenTijdelijkOrderRepository = $$$Inject(TeVerwijderenTijdelijkOrderRepository,##class(CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -63,9 +69,13 @@
 					Do ..OrderAPI.VerwijderOrder(ORDNr)
 				} catch {
 					#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-					#dim melding as %String = "Er liep iets mis met het verwijderen van tijdelijk order '"_ORDNr _ "'. Het bestand voor AX werd gegenereerd. Dit moet heel waarschijnlijk nog opgekuist worden in cache."
+					#dim melding as %String = "Er liep iets mis met het verwijderen van tijdelijk order '"_ORDNr _ "'. Het bestand voor AX werd gegenereerd. Het order is gemarkeerd om automatisch verwijderd te worden."
 					Set melding = melding _ $$$CRLF _ Exception.ToString()
-					Do ..Logger.Error("Verwijderen tijdelijk order",melding,$$$True)					
+					Do ..Logger.Warning("Verwijderen tijdelijk order",melding)					
+					
+					#dim TeVerwijderenOrder as CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders = ..TeVerwijderenTijdelijkOrderRepository.Maak()
+					Do TeVerwijderenOrder.ZetOrderNr(ORDNr)
+					Do ..TeVerwijderenTijdelijkOrderRepository.Bewaar(TeVerwijderenOrder)
 				}
 			}
 		}
Index: vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml
===================================================================
diff -u -r50870 -r51189
--- vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml	(.../Test.cls.xml)	(revision 50870)
+++ vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml	(.../Test.cls.xml)	(revision 51189)
@@ -75,7 +75,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Sluit logt een exceptie indien orderverwijderen niet lukt">
+<Method name="Test Sluit logt een Warning indien orderverwijderen niet lukt en registreert het order voor latere automatische verwijdering">
 <Implementation><![CDATA[
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
 	
@@ -100,9 +100,15 @@
 	Do BouwsteenIteratorFactoryMock.VerwachtMethodCall("Maak","ProductID").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
 	
 	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Error","Verwijderen tijdelijk order",..Matches.ContainsString( "Er liep iets mis met het verwijderen van tijdelijk order '1000'. Het bestand voor AX werd gegenereerd. Dit moet heel waarschijnlijk nog opgekuist worden in cache."),"1").DanDoeNiks()
+	Do LoggerMock.VerwachtMethodCall("Warning","Verwijderen tijdelijk order",..Matches.ContainsString( "Er liep iets mis met het verwijderen van tijdelijk order '1000'. Het bestand voor AX werd gegenereerd. Het order is gemarkeerd om automatisch verwijderd te worden.")).DanDoeNiks()
 	
-	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock,LoggerMock)	
+	Set TeVerwijderenTijdelijkOrderRepositoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New()
+	Set TeVerwijderenTijdelijkOrderMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.TeVerwijderenTijdelijkeOrders).%New()
+	Do TeVerwijderenTijdelijkOrderMock.VerwachtMethodCall("ZetOrderNr","1000").DanDoeNiks()
+	Do TeVerwijderenTijdelijkOrderRepositoryMock.VerwachtMethodCall("Maak").DanReturn(TeVerwijderenTijdelijkOrderMock)
+	Do TeVerwijderenTijdelijkOrderRepositoryMock.VerwachtMethodCall("Bewaar",TeVerwijderenTijdelijkOrderMock).DanDoeNiks()
+	
+	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock,LoggerMock,TeVerwijderenTijdelijkOrderRepositoryMock)	
 	Do Sluiter.Sluit(1000,$$$DummyString,$$$DummyString)
 	
 	Do ActiefProductMock.Verifieer()
@@ -113,6 +119,8 @@
 	Do GeneratorMock.Verifieer()
 	Do OrderAPIMock.Verifieer()
 	Do LoggerMock.Verifieer()
+	Do TeVerwijderenTijdelijkOrderMock.Verifieer()
+	Do TeVerwijderenTijdelijkOrderRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>