Index: EWORDS6.mac.rou
===================================================================
diff -u -r48361 -r48611
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 48361)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 48611)
@@ -286,6 +286,7 @@
 	  Set:'IsContractOfAfroep IsContractOfAfroep=OrderType="A" ; Afroep
 	  Quit:IsContractOfAfroep
  }
+ Quit:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 0 ; hack PV
  Quit IsContractOfAfroep
  
  ; Terugnames niet toegestaan
@@ -327,6 +328,7 @@
  Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
  Set R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D)
  Set PickingMagStarten = ('Rembours)
+ Quit:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 1 ; hack PV
  Quit PickingMagStarten
  
  ; Controle vooruitbetaling
@@ -336,13 +338,15 @@
  Set CheckIsOK=$$IsKlantVrijgesteldVanVrijgaveDoorBKH(KLNr)
  Set:'CheckIsOK CheckIsOK=$$CheckVolledigHalux(KLNr,ORDNr)
  Set:'CheckIsOK R=^KKL(^KK1(KLNr),3),VooruitBetaling=$P(R,D,2),CheckIsOK='VooruitBetaling
+ Quit:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 1 ; hack PV
  Quit CheckIsOK
  
  ; Controle dubieus
 CheckDubieus(ORDNr)
  New R,KLNr,CheckIsOK,Dubieus,SendWMS
  Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
  Set R=^KKL(^KK1(KLNr),3),Dubieus=$P(R,D,8),CheckIsOK='Dubieus
+ Quit:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 1 ; hack PV
  Quit CheckIsOK
  
  ; Controle kredietwaardig?
@@ -352,6 +356,7 @@
  Set CheckIsOK=$$IsKlantVrijgesteldVanVrijgaveDoorBKH(KLNr)
  Set:'CheckIsOK CheckIsOK=$$CheckVolledigHalux(KLNr,ORDNr)
  Set:'CheckIsOK CheckIsOK=+$$WAARDIG^KREDIET(KLNr)
+ Quit:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 1 ; hack PV
  Quit CheckIsOK
  
  ; De voorraad van alle gelinkte orders voldoende?