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))