Acelerando o Velho SET FILTER TO

[Kapiaba]

Código: Selecionar todos

#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.

[nasouza]

esta função funcionaria no xHarbour?

[fladimir]

Até onde sei sim.

[nasouza]

Obrigado por sua atenção, Fladimir, mas por exemplo a função SysRefresh(), não é encontrada como uma função valida, lembrando que utilizo o xHarbour 1.2.3 = Hwgui 2,17 e a GtWvw.

[rochinha]

Amiguinhos,

A SysRefresh é re-frescura do Fivewin. É só retirá-la.

Quanto ao MEMORY do comando INDEX resta ver se a sua versão de xHarbour já a contempla. Senão é só tirá-la e o indice será gerado no disco rígido.