Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml
===================================================================
diff -u -r46105 -r47575
--- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 46105)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 47575)
@@ -13,30 +13,82 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BezwarenWeergever">
+<Type>CHUI.common.BezwarenWeergever</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BouwsteenIteratorFactory">
+<Type>AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Generator:AXimpl.Generator,OrderAPI:DOM.VKP.OrderAPI</FormalSpec>
+<FormalSpec>Generator:AXimpl.Generator,OrderAPI:DOM.VKP.OrderAPI,ProductAPI:DOM.PM.ProductAPI,BezwarenWeergever:CHUI.common.BezwarenWeergever,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Generator = $$$Inject(Generator,##class(AXimpl.Generator).%New())
 	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Sluit">
 <FormalSpec>ORDNr:%String,KLNr:%String,KlantObject:%CacheString</FormalSpec>
 <Implementation><![CDATA[
-	if ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("AX2A_SalesOrderOut_FileGenerationNeeded") {
-		set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",ORDNr)
-		do ..Generator.Generate(Request)
+	#dim Bezwaren as %ListOfDataTypes = ..GeefOrderSluitenBezwaren(ORDNr)
+	if Bezwaren.Count() {
+		Do ..BezwarenWeergever.Toon("Niet actieve producten in order",Bezwaren)		
+	} else {
+		if ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("AX2A_SalesOrderOut_FileGenerationNeeded") {
+			set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",ORDNr)
+			do ..Generator.Generate(Request)
+		}
+		Do ..OrderAPI.VerwijderOrder(ORDNr)
 	}
-	Do ..OrderAPI.VerwijderOrder(ORDNr)
-	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOrderSluitenBezwaren">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set Bezwaren = ##class(%ListOfDataTypes).%New()
+	#dim SluitenMogelijk as %Boolean = $$$True
+	#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(ORDNr)
+	#dim OrderlijnIterator as TECH.Iterator = Order.GeefProductOrderLijnIterator()
+	While OrderlijnIterator.HasNext() {
+		#dim ProductOrderlijn as DOM.VKP.ProductOrderlijn = OrderlijnIterator.Next()
+		#dim Product as DOM.PM.Product = ..ProductAPI.GeefProduct(ProductOrderlijn.GeefProductID())
+		if Product.GeefActiefStatus() = ##class(DOM.PM.enu.ActiefStatus).NietActief() {
+			Set SluitenMogelijk = $$$False
+			Do Bezwaren.Insert("Product met nummer " _ Product.GeefID() _ " is niet meer actief.")	
+		}
+		; check de kinders
+		#dim BouwsteenIterator = ..BouwsteenIteratorFactory.Maak(Product.GeefID())
+		While BouwsteenIterator.HasNext(){
+			#dim BouwsteenProduct = ..ProductAPI.GeefProduct(BouwsteenIterator.Next().ProductId)
+			if BouwsteenProduct.GeefActiefStatus() = ##class(DOM.PM.enu.ActiefStatus).NietActief()  {
+				Set SluitenMogelijk = $$$False
+				Do Bezwaren.Insert("Kind/Bouwsteen met nummer " _ BouwsteenProduct.GeefID() _ " van product " _ Product.GeefID() _ " is niet meer actief.")			
+			}			
+		}			
+	}
+	Quit Bezwaren
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml
===================================================================
diff -u -r46095 -r47575
--- vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml	(.../Test.cls.xml)	(revision 46095)
+++ vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml	(.../Test.cls.xml)	(revision 47575)
@@ -3,25 +3,161 @@
 <Class name="vhUnitTest.CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test Sluit ">
+<Method name="Test Sluit Order met actief product roept de converter aan en verwijdert de order">
 <Implementation><![CDATA[
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
 	
-	Set GeneratorMock = ##class(vhTest.Mock.AXimpl.Generator).%New()
-	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#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 ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(ActiefProductMock)	
+	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
 	Do OrderAPIMock.VerwachtMethodCall("VerwijderOrder","1000").DanDoeNiks()
+
+	Set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",1000)
+	Set GeneratorMock = ##class(vhTest.Mock.AXimpl.Generator).%New()
+	Do GeneratorMock.VerwachtMethodCall("Generate",..Matches.DataTransferObject(Request)).DanDoeNiks().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 Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPI,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock)	
+	Do Sluiter.Sluit(1000,"Doet er niet toe","Doet er niet toe")
+	
+	Do ActiefProductMock.Verifieer()
+	DO ProductAPI.Verifieer()
+	DO ProductOrderlijn.Verifieer()
+	Do OrderMock.Verifieer()
+	Do BouwsteenIteratorFactoryMock.Verifieer()
+	Do GeneratorMock.Verifieer()
+	Do OrderAPIMock.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 ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(NietActiefProductMock)	
+	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
+	Do OrderAPIMock.VerwachtMethodCall("VerwijderOrder","1000").Nooit()
+
 	Set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",1000)
+	Set GeneratorMock = ##class(vhTest.Mock.AXimpl.Generator).%New()
+	Do GeneratorMock.VerwachtMethodCall("Generate",..Matches.DataTransferObject(Request)).DanDoeNiks().Nooit()
+	
+	Set BezwarenWeergeverMock = ##class(vhTest.Mock.CHUI.common.BezwarenWeergever).%New()
+	set BezwarenList = ##class(%ListOfDataTypes).%New()
+	Do BezwarenList.Insert("Product met nummer NietActiefProductID is niet meer actief.")
+	Do BezwarenWeergeverMock.VerwachtMethodCall("Toon","Niet actieve producten in order",..Matches.List(BezwarenList)).DanDoeNiks()
+	
+	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")
+	
+	Do NietActiefProductMock.Verifieer()
+	DO ProductAPI.Verifieer()
+	DO ProductOrderlijn.Verifieer()
+	Do OrderMock.Verifieer()
+	Do BouwsteenIteratorFactoryMock.Verifieer()
+	Do GeneratorMock.Verifieer()
+	Do OrderAPIMock.Verifieer()
+	Do BezwarenWeergeverMock.Verifieer()
+]]></Implementation>
+</Method>
 
-	Do GeneratorMock.VerwachtMethodCall("Generate",..Matches.DataTransferObject(Request)).DanDoeNiks().ExactAantalKeer(1)
+<Method name="Test Ordersluiter sluit order niet voor order met actief product met niet actief kind product/bouwsteen">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("AX2A_SalesOrderOut_FileGenerationNeeded",$$$True,..#Applicatie)
 	
-	Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock)
+	#dim ProductAPI 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)
+
+	#dim NietActiefProductMock as DOM.PM.Product = ..GeefProduct("NietActiefProductID", ##class(DOM.PM.enu.ActiefStatus).NietActief() )
+	do ProductAPI.VerwachtMethodCall("GeefProduct","NietActiefProductID").DanReturn(NietActiefProductMock)
+
+	#dim ProductOrderlijn as DOM.VKP.Orderlijn = ..GeefProductOrderlijn(ActiefProductMock)	
+	#dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn)
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
+	Do OrderAPIMock.VerwachtMethodCall("VerwijderOrder","1000").Nooit()
+
+	Set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",1000)
+	Set GeneratorMock = ##class(vhTest.Mock.AXimpl.Generator).%New()
+	Do GeneratorMock.VerwachtMethodCall("Generate",..Matches.DataTransferObject(Request)).DanDoeNiks().Nooit()
 	
+	Set BezwarenWeergeverMock = ##class(vhTest.Mock.CHUI.common.BezwarenWeergever).%New()
+	set BezwarenList = ##class(%ListOfDataTypes).%New()
+	Do BezwarenList.Insert("Kind/Bouwsteen met nummer NietActiefProductID van product ProductID is niet meer actief.")
+	Do BezwarenWeergeverMock.VerwachtMethodCall("Toon","Niet actieve producten in order",..Matches.List(BezwarenList)).DanDoeNiks()
+	
+	Set BouwsteenIteratorFactoryMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New()
+	Set BouwsteenList = ##class(%ListOfDataTypes).%New()
+	set Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	Set Bouwsteen.ProductId = "NietActiefProductID"
+	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")
+	
+	Do ActiefProductMock.Verifieer()
+	Do NietActiefProductMock.Verifieer()
+	DO ProductAPI.Verifieer()
+	DO ProductOrderlijn.Verifieer()
+	Do OrderMock.Verifieer()
+	Do BouwsteenIteratorFactoryMock.Verifieer()
 	Do GeneratorMock.Verifieer()
 	Do OrderAPIMock.Verifieer()
+	Do BezwarenWeergeverMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOrder">
+<FormalSpec>OrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	Set Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do Order.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(OrderLijn))
+	Quit Order
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderlijn">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<ReturnType>DOM.VKP.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set ProductOrderLijnMock = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+	Do ProductOrderLijnMock.VerwachtMethodCall("GeefProductID").DanReturn(Product.GeefID())
+	Quit ProductOrderLijnMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefProduct">
+<FormalSpec>ProductID:%String,Aktief:%String</FormalSpec>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductMock.VerwachtMethodCall("GeefActiefStatus").DanReturn(Aktief)
+	Do ProductMock.IndienMethodCall("GeefID").DanReturn(ProductID)
+	Quit ProductMock
+]]></Implementation>
+</Method>
 </Class>