Index: FLOW2.mac.rou
===================================================================
diff -u -r29059 -r48611
--- FLOW2.mac.rou	(.../FLOW2.mac.rou)	(revision 29059)
+++ FLOW2.mac.rou	(.../FLOW2.mac.rou)	(revision 48611)
@@ -18,6 +18,11 @@
  Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
  Set Land=$$LAND^vhRtn1(KLNr,"K")
  Set R=^KKL(^KK1(KLNr),2),AutoFree=$P(R,D,8),R=^KKL(^KK1(KLNr),3),VooruitBetaling=$P(R,D,2),Dubieus=$P(R,D,8)
+
+ If ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") Do
+ . Set Dubieus=0
+ . Set VooruitBetaling=0
+
  Set R=^KOD(KLNr,"F",ORDNr,1)
  If $G(HalTOENr),HalTOENr'=$P(R,D,4) Set $P(R,D,4)=HalTOENr,^KOD(KLNr,"F",ORDNr,1)=R
  Set Created=$P(R,D,8),Closed=$P(R,D,22),KredLock=$P(R,D,23)
Index: KREDIET.mac.rou
===================================================================
diff -u -r29059 -r48611
--- KREDIET.mac.rou	(.../KREDIET.mac.rou)	(revision 29059)
+++ KREDIET.mac.rou	(.../KREDIET.mac.rou)	(revision 48611)
@@ -18,6 +18,7 @@
  ;          Factuurdatum oudste vervallen factuur
  ;          Vervaldatum oudste vervallen factuur
 WAARDIG(KLNr,Files,Show,WachtW,ExtraTxt,Hulp) 
+ Quit:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 1 ; hack PV
  New R,Waardig,ChkLim,Limiet,Openst,Verval,ChkOldFD,MaxDays,OFaktDat,OVervDat,OFANr
  Set Files=$G(Files),Show=$G(Show) Set:Files="" Files="OLFD"
  Set WachtW=$G(WachtW)
Index: EWORDS3.mac.rou
===================================================================
diff -u -r44469 -r48611
--- EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 44469)
+++ EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 48611)
@@ -256,6 +256,7 @@
  Set R=^ORDW("D",CONSNr),KLNr=$P(R,D),VerzW=$P(R,D,2)
  Set Check=$$IsKlantVrijgesteldVanVrijgaveDoorBKH(KLNr) ; Geen vrijgave door boekhouding nodig
  Set R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2),Dubieus=$P(R,D,8)
+ Set:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") Rembours=0,VooruitBetaling=0,Dubieus=0 ; Hack PV
  Set:'Check Check=$$CheckVolledigHalux(CONSNr)&&('Rembours)&&('Dubieus)
  If 'Check Do
  .Set Krediet=$$WAARDIG^KREDIET(KLNr,,,,,.Hulp),KredLim=$P(Krediet,D,3)
@@ -294,6 +295,7 @@
  Quit Check
  ;
 IsKlantVrijgesteldVanVrijgaveDoorBKH(KLNr)
+ Quit 1
  New VrijgaveAutomatisch
  Set VrijgaveAutomatisch=$P(^KKL(^KK1(KLNr),2),D,8)
  Quit $E(VrijgaveAutomatisch,$L(VrijgaveAutomatisch))
Index: EWORDF2.mac.rou
===================================================================
diff -u -r41121 -r48611
--- EWORDF2.mac.rou	(.../EWORDF2.mac.rou)	(revision 41121)
+++ EWORDF2.mac.rou	(.../EWORDF2.mac.rou)	(revision 48611)
@@ -76,7 +76,7 @@
  Set CONSNr=""
  For  Set CONSNr=$O(^ORDW("BON",CONSNr)) Quit:CONSNr=""  Do
  .Set CONSRec=$G(^ORDW("D",CONSNr))
- .Set DiffTime=$S(("AF;EX;DD"[$E($P(CONSRec,D,2),1,2))!($P($H,",",2)>(16*60*60)):1,1:180)  ; Voor afhalingen of na 16:00 onmiddellijk verwerken, anders na 3 minuten
+ .Set DiffTime=$S(("AF;EX;DD"[$E($P(CONSRec,D,2),1,2))!($P($H,",",2)>(16*60*60)):1,1:1)  ; Voor afhalingen of na 16:00 onmiddellijk verwerken, anders na 3 minuten
  .Quit:$$DIFFTIME^vhLib.DataTypes(^ORDW("BON",CONSNr),$H)<DiffTime  ;minder dan x min
  .Kill ^ORDW("BON",CONSNr)
  .Set HighPrio=("AF;EX;DD"[$E($P(CONSRec,D,2),1,2))||($$DIFFTIME^vhLib.DataTypes($H,$P(CONSRec,D,3))<0) ; Afhaling of expediteur OF DueOutTime is verstreken
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?