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 16: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
Colaborador

Colaborador
 
Mensagens: 1433
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 277 vezes
Mens.Curtidas: 87 vezes

Acelerando o Velho SET FILTER TO

Mensagempor nasouza » 16 Mai 2017 18:00

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

Usuário Nível 1
 
Mensagens: 25
Data de registro: 20 Jul 2009 17: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 01: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”
.


DESKTOP CONSOLE Harbour 3.4.0dev (4541270) (2016-06-28 07:05) | Console | MINGW | DBF | CDX | FastReport | MySQL
DESKTOP VISUAL... Harbour 3.2 | MinGW | Xailer 4.0.2 | MariaDB Nativo | Outros via ADO | FastReport
MOBILE Android/IOS e WEB - Outros
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2235
Data de registro: 15 Nov 2006 19:21
Curtiu: 17 vezes
Mens.Curtidas: 124 vezes

Acelerando o Velho SET FILTER TO

Mensagempor nasouza » 17 Mai 2017 09: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: 25
Data de registro: 20 Jul 2009 17:57
Cidade/Estado: Santa Isabel do Ivai - Pr
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Acelerando o Velho SET FILTER TO

Mensagempor rochinha » 10 Jun 2017 14:18

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.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4139
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 454 vezes
Mens.Curtidas: 175 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


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