LOCAL lii,lcTag,lcAFilter,lcNOrder,llSep lcNOrder="New_Index" lii=1 DO WHILE .T. lcTag=TAG(lii) IF EMPTY(lcTag) lcAFilter="" EXIT ELSE IF lcTag==lcNOrder * KEY() llSep=TYPE('SET("KEY",1)')="C" lcAFilter="BETWEEN("+KEY(lii)+","+; IIF(llSep,"'","")+lcPom+IIF(llSep,"'","")+","+; IIF(llSep,"'","")+SET("KEY",2)+IIF(llSep,"'","")+")" EXIT ENDIF lii=lii+1 ENDIF ENDDO ?lcAFilterMartinJ