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)