Index: CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml
===================================================================
diff -u -r47736 -r47815
--- CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47736)
+++ CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47815)
@@ -106,11 +106,13 @@
 		Do:'Closed
 		.Set blVerzendWijze = Order.GeefVerzendWijze() 
 		.Set blLeveringsTermijn=##class(APPS.VKP.LeveringsTermijn).%New(,blVerzendWijze)
-		.Do SetDueOutProductieORD^FLOWHALUX(ORDNr,1)
-		.Do:KLNr'=$$$KlantKeller CheckTBXDagPlus^FLOWORD2(ORDNr)
+		.;Do SetDueOutProductieORD^FLOWHALUX(ORDNr,1)
+		.;Do:KLNr'=$$$KlantKeller CheckTBXDagPlus^FLOWORD2(ORDNr)
 
-		// Event raisen dat het order gesloten is
-		;Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGeslotenEvent(ORDNr)
+		
+		Do Order.ZetStatus(##class(DOM.VKP.enu.OrderStatus).Gesloten())
+		Do ..OrderAPI.Bewaar(Order)
+		Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGeslotenEvent(ORDNr)
 	}
 ]]></Implementation>
 </Method>