Index: FLOW.mac.rou =================================================================== diff -u -r29533 -r37608 --- FLOW.mac.rou (.../FLOW.mac.rou) (revision 29533) +++ FLOW.mac.rou (.../FLOW.mac.rou) (revision 37608) @@ -589,7 +589,7 @@ Quit $$BevatAfdekKap^FLOWCHK(Document,DocNr,$G(LijnNr)) ; GBREK(Land) - New GeRek + New GeRek,GbRek Set Land=$G(Land) Set:Land="" Land=$$FADEF^vhRtn1(3) Set Land=$$LAND^vhRtn1(Land,1,2),GbRek=$P($G(^KBA(45,Land)),D) If GbRek="" Set Land=$$LAND^vhRtn1(Land,"I"),GbRek=$P($G(^KBA(45,Land)),D) @@ -718,3 +718,4 @@ Set PerDag=1 ; Steeds per dag ; +$G(^KOD(0,"F","PERDAG")) ;If PerDag,$ZU(5)'="DEV-ADMIN1",'$G(NoWachtW) Set PerDag=$$ASK^vhWACHTW("PROGMODE",,,0,,"Ingave levering per dag.") Quit PerDag +