#include "fivewin.ch"
REQUEST DBFCDX
Function main()
LOCAL cPath, cNombre
RddSetDefault( "DBFCDX" )
cPath := "CUSTOMER.DBF"
USE ( cPath ) NEW ALIAS cPath
cNombre := "Kenny" //cambiar el nombre
FastFilter( "*"+ Upper( cNombre ), 1 ) //El 1 para indicar el numero del Indice
dbGotop()
Browse()
return nil
Function FastFilter( cCad, nOrder )
Local nIndice := OrdNumber()
Set order to nOrder
INDEX ON &(IndexKey()) TAG _TEMP_ TO tHarbourt CUSTOM ADDITIVE MEMORY
Set order to nOrder
dbGotop()
Do While OrdWildSeek( cCad, .T. )
OrdKeyAdd( "_TEMP_" )
SysRefresh()
Enddo
OrdSetFocus( "_TEMP_" )
Return( nIndice )
// Para substituir o velho SET FILTER TO.