Index: FLOWORD7.mac.rou
===================================================================
diff -u -r48160 -r48162
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48160)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48162)
@@ -2,6 +2,10 @@
 #include BL.Derde.LevSpecifiek
 #include BL.Derde.KlantSpecifiek
  ;
+BevestigdAXOrderSluitenActief()
+ Quit ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 
+ ;
+ 
 BUILDBGR(KLNr,AutoMb,OrdRef,PRNr,EDIORDNr,OrdTyp,FBRef) 
  New R,Next,ORDNr,Aantal,LevTerm,Munt,BtwReg,NetBrut,LevVw,Land,VerzW,StockUpd
  New Text,BlockId,AfdrFakt
@@ -132,20 +136,20 @@
  .Set OLevWk=$P(R,D,29) Set:OLevWk="" OLevWk=$P(R,D,25)
  .Set LijnKode=$P(R,D,17),BlockId=$P(R,D,18),TOENr=$P(R,D,27),TOELijnNr=$P(R,D,28)
  .Quit:TOENr
- .Quit:(##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief"))&&(TOELijnNr="KOM")
+ .Quit:($$BevestigdAXOrderSluitenActief())&&(TOELijnNr="KOM")
  .Set LijnTyp=$P(LijnKode,"#"),LijnTyp=$S(LijnTyp="KF0":"P",LijnTyp="KF1925":"M",LijnTyp="KF11":"T",PRNr:"P",1:"")
  .If LijnTyp="P" Do
  ..Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  ..Quit:'StockUpd
  ..Set R=^KPR(PRNr,0),FysStock=$P(R,D,14),InBest=$P(R,D,17),LinkType=$P(R,D,23)
  ..Quit:LinkType="S"  ; Stockbeweging over kinderen
- ..If '(##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief")) Do
+ ..If '($$BevestigdAXOrderSluitenActief()) Do
  ...If $P($G(^KPR(PRNr,"G")),D) Set GenPRNr=$P(^KPR(PRNr,0),D,3) I GenPRNr,$P($G(^KPR(GenPRNr,0)),D,3)="GENPROD" Quit
  ..Set R=^KPR(PRNr,1),IsStock=$P(R,D,20),R=^KPR(PRNr,2),InOrder=$P(R,D,9)
  ..Set R=^KPR(PRNr,$O(^KPR(PRNr,"J"))),LEVNr=$P(R,D),MinBestH=$P(R,D,6),PrMunt=$P(R,D,17)
- ..Quit:(##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief"))&&(LEVNr'=$$$LevHalux)
+ ..Quit:($$BevestigdAXOrderSluitenActief())&&(LEVNr'=$$$LevHalux)
  ..Set LevTerm=$P(R,D,7),GrootVp=$P(R,D,16) Set:'GrootVp GrootVp=1
- ..If '(##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief")) Do
+ ..If '($$BevestigdAXOrderSluitenActief()) Do
  ...Quit:Aantal<MinBestH  Quit:Aantal#GrootVp
  ...If 'IsStock Quit:Aantal'>(FysStock+InBest+Aantal-InOrder)  Quit:Aantal<MinBestH
  ..If IsStock Quit:$$CALCDATE^vhLib.DataTypes(,"W")+(LevTerm+1*7)>OLevWk
@@ -163,7 +167,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:($$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)
@@ -336,7 +340,7 @@
  Do:$D(Control)
  . Do CalcBSControl(.Control)
  . Quit:'$D(Control("L"))
- . Do:'(##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief")) BewerkBSControl(.Control)
+ . Do:'($$BevestigdAXOrderSluitenActief()) BewerkBSControl(.Control)
  . Do:$D(Control("T")) ToeLevBSControl(ORDNr,.Control)
  . Do:$D(Control("M")) MailBSControl(ORDNr,.Control)
  Quit
@@ -456,7 +460,7 @@
 ToeLevBSControl(ORDNr,Control)
  New R,KLNr,LEVNr,TOENr,PRNr,FBLocal,Data
  Set KLNr=$P(^KO1(ORDNr,"F"),D),LEVNr=""
- For  Set LEVNr=$O(Control("T",LEVNr)) Quit:LEVNr=""  Do
+ For  Set LEVNr=$O(Control("T",LEVNr)) Quit:(LEVNr="")||($$BevestigdAXOrderSluitenActief()&&(LEVNr'=$$$LevHalux))  Do
  . Kill PRNr
  . Merge PRNr=Control("T",LEVNr)
  . Do BUILDOBJ^FLOWTOE(.PRNr,KLNr_" - "_ORDNr,1,,"FBLocal")
@@ -598,5 +602,4 @@
  If 'IsHalux,Aantal<(Stock-Reservatie) Set Add2List=0
  If IsHalux,IsStock,Aantal<(Stock-Reservatie) Set Add2List=0 ; Halux producten steeds toevoegen indien niet-stock, van stock producten de voorraad controleren
  Quit Add2List
-