Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r47783 -r47883
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 47783)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 47883)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderSluiter">
+<Type>CHUI.VKP.OrderIngave.OrderSluiter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
@@ -51,6 +56,8 @@
 	Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXimpl.Admin.Common.ProductBepaler).%New())
 	Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New())
 	Set ..OrderlijnenSorteerder = $$$Inject(OrderlijnenSorteerder, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New())
+	Set ..OrderSluiter = ##class(CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01).%New()
+	
 	Set ..Logger = ##class(vhLib.Logger).%New()
 
 	Quit $$$OK
@@ -93,9 +100,22 @@
 
 	Do ..OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order)
 	Do ..Logger.Debug("Aanmaken Order", "Order is gesorteerd met OrderID " _Order.GeefID())
+	
+	Do ..SluitOrder(Order)
 ]]></Implementation>
 </Method>
 
+<Method name="SluitOrder">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief")) {
+		Do ..OrderSluiter.Sluit(Order.GeefID())
+		Do ..Logger.Debug("Aanmaken Order", "Toeleveringen aangemaakt en order met OrderID '" _Order.GeefID() _"' is gesloten.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="UpdatePrijsOrderLijn">
 <FormalSpec>PrijsOrderLijn:DOM.VKP.ProductOrderlijn,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
 <Private>1</Private>
Index: FLOWORD7.mac.rou
===================================================================
diff -u -r47859 -r47883
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 47859)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 47883)
@@ -159,7 +159,7 @@
  .Set ^KTO(LEVNr,TOENr,1)=R,^KTO(LEVNr,TOENr,0)=101
  .Set OLNr="" ; Produktlijnen verwerken
  .; KCA, hier gezet, want INSERT^FLOWTOE2 triggered event die KTO1 gebruikt. Faalde bij testen. Ofwel is de controle op bestaat toelevering niet juist en moet deze controleren in KTO ipv KTO1 
- .Set:'(##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief")) (^KTO1(TOENr),^KTOB(TOENr))=LEVNr_D 
+ .Set:(##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief")) (^KTO1(TOENr),^KTOB(TOENr))=LEVNr_D 
  .For  Set OLNr=$O(OrdToe("P",LEVNr,OLNr)) Quit:OLNr=""  Do
  ..Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3),RALKleur=$P(R,D,4)
  ..Set OLevWk=$P(R,D,29) Set:OLevWk="" OLevWk=$P(R,D,25)