Index: vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml
===================================================================
diff -u -r49224 -r49529
--- vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml	(.../Test.cls.xml)	(revision 49224)
+++ vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml	(.../Test.cls.xml)	(revision 49529)
@@ -8,8 +8,8 @@
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
 	
 	#dim ActiefProductMock as DOM.PM.Product = ..GeefProduct("ProductID", ##class(DOM.PM.enu.ActiefStatus).Actief() )
-	#dim ProductAPI as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	do ProductAPI.VerwachtMethodCall("GeefProduct","ProductID").DanReturn(ActiefProductMock)
+	#dim ProductAPIMock as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductAPIMock.VerwachtMethodCall("GeefProduct","ProductID").DanReturn(ActiefProductMock)
 
 	#dim ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(ActiefProductMock)	
 	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
@@ -26,12 +26,12 @@
 	Set BouwsteenIteratorFactoryMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New()
 	Do BouwsteenIteratorFactoryMock.VerwachtMethodCall("Maak","ProductID").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
 	
-	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPI,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
-	Do Sluiter.Sluit(1000,"Doet er niet toe","Doet er niet toe")
+	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
+	Do Sluiter.Sluit(1000,$$$DummyString,$$$DummyString)
 	
 	Do ActiefProductMock.Verifieer()
-	DO ProductAPI.Verifieer()
-	DO ProductOrderlijn.Verifieer()
+	Do ProductAPIMock.Verifieer()
+	Do ProductOrderlijn.Verifieer()
 	Do OrderMock.Verifieer()
 	Do BouwsteenIteratorFactoryMock.Verifieer()
 	Do GeneratorMock.Verifieer()
@@ -44,8 +44,8 @@
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
 	
 	#dim ActiefProductMock as DOM.PM.Product = ..GeefProduct("ProductID", ##class(DOM.PM.enu.ActiefStatus).Actief() )
-	#dim ProductAPI as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	do ProductAPI.VerwachtMethodCall("GeefProduct","ProductID").DanReturn(ActiefProductMock)
+	#dim ProductAPIMock as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductAPIMock.VerwachtMethodCall("GeefProduct","ProductID").DanReturn(ActiefProductMock)
 
 	#dim ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(ActiefProductMock)	
 	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
@@ -62,26 +62,65 @@
 	Set BouwsteenIteratorFactoryMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New()
 	Do BouwsteenIteratorFactoryMock.VerwachtMethodCall("Maak","ProductID").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
 	
-	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPI,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
-	Do Sluiter.Sluit(1000,"Doet er niet toe","Doet er niet toe")
+	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
+	Do Sluiter.Sluit(1000,$$$DummyString,$$$DummyString)
 	
 	Do ActiefProductMock.Verifieer()
-	DO ProductAPI.Verifieer()
-	DO ProductOrderlijn.Verifieer()
+	Do ProductAPIMock.Verifieer()
+	Do ProductOrderlijn.Verifieer()
 	Do OrderMock.Verifieer()
 	Do BouwsteenIteratorFactoryMock.Verifieer()
 	Do GeneratorMock.Verifieer()
 	Do OrderAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test Sluit logt een exceptie indien orderverwijderen niet lukt">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
+	
+	#dim ActiefProductMock as DOM.PM.Product = ..GeefProduct("ProductID", ##class(DOM.PM.enu.ActiefStatus).Actief() )
+	#dim ProductAPIMock as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductAPIMock.VerwachtMethodCall("GeefProduct","ProductID").DanReturn(ActiefProductMock)
+
+	#dim ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(ActiefProductMock)	
+	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
+	#dim OrderAPIMock as vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
+	Do OrderAPIMock.IndienMethodCall("VerwijderOrder","1000").DanException(##class(TECH.Exceptions.InvalidInputException).%New($$$DummyString))
+
+	Set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",1000)
+	Set GeneratorMock = ##class(vhTest.Mock.AXimpl.Generator).%New()
+	Do GeneratorMock.VerwachtMethodCall("Generate",..Matches.DataTransferObject(Request)).DanReturn($$$True).ExactAantalKeer(1)
+	
+	Set BezwarenWeergeverMock = ##class(vhTest.Mock.CHUI.common.BezwarenWeergever).%New()
+	
+	Set BouwsteenIteratorFactoryMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New()
+	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","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()
+	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock,LoggerMock)	
+	Do Sluiter.Sluit(1000,$$$DummyString,$$$DummyString)
+	
+	Do ActiefProductMock.Verifieer()
+	Do ProductAPIMock.Verifieer()
+	Do ProductOrderlijn.Verifieer()
+	Do OrderMock.Verifieer()
+	Do BouwsteenIteratorFactoryMock.Verifieer()
+	Do GeneratorMock.Verifieer()
+	Do OrderAPIMock.Verifieer()
+	Do LoggerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test Test Ordersluiter sluit order niet voor order met niet actief product">
 <Implementation><![CDATA[
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
 	
 	#dim NietActiefProductMock as DOM.PM.Product = ..GeefProduct("NietActiefProductID", ##class(DOM.PM.enu.ActiefStatus).NietActief() )
-	#dim ProductAPI as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	do ProductAPI.VerwachtMethodCall("GeefProduct","NietActiefProductID").DanReturn(NietActiefProductMock)
+	#dim ProductAPIMock as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductAPIMock.VerwachtMethodCall("GeefProduct","NietActiefProductID").DanReturn(NietActiefProductMock)
 
 	#dim ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(NietActiefProductMock)	
 	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
@@ -101,12 +140,12 @@
 	Set BouwsteenIteratorFactoryMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New()
 	Do BouwsteenIteratorFactoryMock.VerwachtMethodCall("Maak","NietActiefProductID").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
 	
-	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPI,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
-	Do Sluiter.Sluit(1000,"Doet er niet toe","Doet er niet toe")
+	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
+	Do Sluiter.Sluit(1000,$$$DummyString,$$$DummyString)
 	
 	Do NietActiefProductMock.Verifieer()
-	DO ProductAPI.Verifieer()
-	DO ProductOrderlijn.Verifieer()
+	Do ProductAPIMock.Verifieer()
+	Do ProductOrderlijn.Verifieer()
 	Do OrderMock.Verifieer()
 	Do BouwsteenIteratorFactoryMock.Verifieer()
 	Do GeneratorMock.Verifieer()
@@ -119,13 +158,13 @@
 <Implementation><![CDATA[
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
 	
-	#dim ProductAPI as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	#dim ProductAPIMock as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 
 	#dim ActiefProductMock as DOM.PM.Product = ..GeefProduct("ProductID", ##class(DOM.PM.enu.ActiefStatus).Actief() )
-	do ProductAPI.VerwachtMethodCall("GeefProduct","ProductID").DanReturn(ActiefProductMock)
+	Do ProductAPIMock.VerwachtMethodCall("GeefProduct","ProductID").DanReturn(ActiefProductMock)
 
 	#dim NietActiefProductMock as DOM.PM.Product = ..GeefProduct("NietActiefProductID", ##class(DOM.PM.enu.ActiefStatus).NietActief() )
-	do ProductAPI.VerwachtMethodCall("GeefProduct","NietActiefProductID").DanReturn(NietActiefProductMock)
+	Do ProductAPIMock.VerwachtMethodCall("GeefProduct","NietActiefProductID").DanReturn(NietActiefProductMock)
 
 	#dim ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(ActiefProductMock)	
 	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
@@ -149,13 +188,13 @@
 	Do BouwsteenList.Insert(Bouwsteen)
 	Do BouwsteenIteratorFactoryMock.VerwachtMethodCall("Maak","ProductID").DanReturn(##class(TECH.ListIterator).%New(BouwsteenList))
 	
-	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPI,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
-	Do Sluiter.Sluit(1000,"Doet er niet toe","Doet er niet toe")
+	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
+	Do Sluiter.Sluit(1000,$$$DummyString,$$$DummyString)
 	
 	Do ActiefProductMock.Verifieer()
 	Do NietActiefProductMock.Verifieer()
-	DO ProductAPI.Verifieer()
-	DO ProductOrderlijn.Verifieer()
+	Do ProductAPIMock.Verifieer()
+	Do ProductOrderlijn.Verifieer()
 	Do OrderMock.Verifieer()
 	Do BouwsteenIteratorFactoryMock.Verifieer()
 	Do GeneratorMock.Verifieer()
Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml
===================================================================
diff -u -r49224 -r49529
--- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 49224)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 49529)
@@ -28,8 +28,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+</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</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</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,6 +44,7 @@
 	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -58,7 +63,7 @@
 					Do ..OrderAPI.VerwijderOrder(ORDNr)
 				} catch {
 					#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-					Do ##class(vhLib.Logger).%New().Error("Verwijderen tijdelijk order","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.",$$$True)
+					Do ..Logger.Error("Verwijderen tijdelijk order","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.",$$$True)
 				}
 			}
 		}