Index: FLOWORD7.mac.rou
===================================================================
diff -u -r47737 -r47859
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 47737)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 47859)
@@ -158,6 +158,8 @@
  .Set $P(R,D,7)=ORDNr,$P(R,D,8)=KLNr,$P(R,D,18)=ToeMunt,$P(R,D,22)=2
  .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 
  .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)
@@ -594,4 +596,3 @@
  Quit Add2List
  
 
-
Index: CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml
===================================================================
diff -u -r47815 -r47859
--- CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47815)
+++ CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47859)
@@ -90,7 +90,6 @@
 		Set TLNr=""
 		For  Set TLNr=$O(TLNr(TLNr)) Quit:TLNr=""  Do TSPLIT^FLOWTOE(TLNr)
 
-		; invullen productie gegevens voor in de halux toeleveringen
 		If $$ISHALUX^FLOW("O",ORDNr) && $$CheckProductieOrder^FLOWHALUX(ORDNr) 
 		.If Closed Do  Quit:DueOutOk
 		..Set OLNr=100,DueOutOk=1
@@ -106,8 +105,8 @@
 		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)
 
 		
 		Do Order.ZetStatus(##class(DOM.VKP.enu.OrderStatus).Gesloten())