PROCEDURE SomeProc >LOCAL SomeVariables, lRet, nX > >DO CASE > CASE !THIS.GetValidDateRanges() > > CASE THIS.ExecSomeOtherCode() AND TYPE('.arrItems[1,1]')#'N' > > OTHERWISE > nX = 1 > lRet = .T. > > DO WHILE nX >= ALEN(THIS.arrItems,1) AND lRet > lRet = (THIS.arrItems[ix,2] # 'somecondition' OR THIS.SomeOtherProc(nX)) AND ; > (THIS.arrItems[ix,3] # 'somecondition2' OR THIS.SomeOtherProc2(nX)) > > nX = nX + 1 > ENDDO >ENDCASE >RETURN lRet>