Index: FLOWORD5.mac.rou =================================================================== diff -u -r54519 -r55205 --- FLOWORD5.mac.rou (.../FLOWORD5.mac.rou) (revision 54519) +++ FLOWORD5.mac.rou (.../FLOWORD5.mac.rou) (revision 55205) @@ -263,7 +263,7 @@ For Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr="" Do . Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2) . Quit:'PRNr - . Quit:($G(GevraagdOLNr)'="")&&(OLNr'=GevraagdOLNr) + . Quit:( $Length($G(GevraagdOLNr)) && (OLNr'=GevraagdOLNr) ) . Set LeverDag=$P(R,D,25) Set:LeverDag LeverDagen(LeverDag)="" Set (LeverDagen,LeverDag)="" For Set LeverDag=$O(LeverDagen(LeverDag)) Quit:LeverDag="" Set LeverDagen=LeverDagen_$LB(LeverDag)