Index: vhDeploy/Deploy20171117xAXOrderSluitenActief.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20171117xAXOrderSluitenActief.cls.xml	(revision 0)
+++ vhDeploy/Deploy20171117xAXOrderSluitenActief.cls.xml	(revision 47600)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20171117xAXOrderSluitenActief">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>AXOrderSluiten default niet actief zetten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("BevestigdAXOrderSluitenActief", $$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(revision 0)
+++ CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(revision 47600)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Generator">
+<Type>AXimpl.Generator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<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,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())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Sluit">
+<FormalSpec>ORDNr:%String,KLNr:%String,KlantObject:%CacheString</FormalSpec>
+<Implementation><![CDATA[
+	#dim Bezwaren as %ListOfDataTypes = ..GeefOrderSluitenBezwaren(ORDNr)
+	if Bezwaren.Count() {
+		Do ..BezwarenWeergever.Toon("Niet actieve producten in order",Bezwaren)		
+	} else {
+		Do BSControl^FLOWORD7(ORDNr)
+		#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(ORDNr)
+		Do Order.ZetStatus(##class(DOM.VKP.enu.OrderStatus).Gesloten())
+		Do ..OrderAPI.Bewaar(Order)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="KanOrderSluiten">
+<FormalSpec>OrderNr:%String,KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Bezwaren as %ListOfDataTypes = ..GeefOrderSluitenBezwaren(OrderNr)
+	
+	Do:Bezwaren.Count() ..BezwarenWeergever.Toon("Niet actieve producten in order",Bezwaren)		
+	Quit $$$Not(Bezwaren.Count())
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderSluitenBezwaren">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set Bezwaren = ##class(%ListOfDataTypes).%New()
+	Quit Bezwaren
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>