Clipper On Line • Ver Tópico - Acelerando o Velho SET FILTER TO

Acelerando o Velho SET FILTER TO

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Acelerando o Velho SET FILTER TO

Mensagempor Kapiaba » 09 Abr 2015 17:16

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

Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1130
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 215 vezes
Mens.Curtidas: 75 vezes

Acelerando o Velho SET FILTER TO

Mensagempor nasouza » 16 Mai 2017 19:00

esta função funcionaria no xHarbour?
nasouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 22
Data de registro: 20 Jul 2009 18:57
Cidade/Estado: Santa Isabel do Ivai - Pr
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Acelerando o Velho SET FILTER TO

Mensagempor fladimir » 17 Mai 2017 02:29

Até onde sei sim.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Harbour 3.4.0dev (4541270) (2016-06-28 07:05) | Console | MINGW | DBF | CDX | FastReport | MySQL
Harbour 3.2 | MinGW | Xailer 4.0.2 | MariaDB Nativo | Outros via ADO | FastReport
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 1911
Data de registro: 15 Nov 2006 20:21
Curtiu: 14 vezes
Mens.Curtidas: 89 vezes

Acelerando o Velho SET FILTER TO

Mensagempor nasouza » 17 Mai 2017 10:08

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.
nasouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 22
Data de registro: 20 Jul 2009 18:57
Cidade/Estado: Santa Isabel do Ivai - Pr
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro