Hola, aqui te envio un ejemplo.:
SELE TuTabla
SET ORDER TO TuIndice
LCCAMPO="TuAlias.TuCampo" &&VAR CON EL CAMPO A COMPARAR
GRI001="THISFORM.GRID1.COLUMN1.SETFOCUS"
TEX001="THISFORM.TEXT1.SETFOCUS"
LC= UPPER(ALLTRIM(THIS.VALUE)) &&VAR CON DATOS A BUSCAR
LNRECNO=RECNO() &&POSICION DEL REGISTRO
IF UPPER(ALLTRIM(&LCCAMPO)) >= LC
IF UPPER(ALLTRIM(&LCCAMPO)) < LC && DEBE QUEDAR DONDE ESTABA
IF LNRECNO <= RECC()
GO RECNO()
ELSE
GO BOTT
ENDIF
RETURN
ENDIF
IF NOT EMPTY(ORDER()) && BUSQUEDA CON INDICE
SEEK LC
ELSE
GO TOP
LOCATE REST FOR UPPER(ALLTRIM(&LCCAMPO))=LC WHILE UPPER(ALLTRIM(&LCCAMPO)) <= LC NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR UPPER(ALLTRIM(&LCCAMPO))=LC WHILE UPPER(ALLTRIM(&LCCAMPO)) <= LC NOOPTIMIZE
ENDIF
IF LNRECNO # RECNO()
&GRI001
&TEX001
ENDIF
RETURN
Este es un ejemplo muy simple solo debes insertarlo en un Cuadro de Texto. y debes tener una cuadricula llamada Grid1
Atte ROD