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: 1188
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 240 vezes
Mens.Curtidas: 78 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: 1981
Data de registro: 15 Nov 2006 20:21
Curtiu: 14 vezes
Mens.Curtidas: 92 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

Acelerando o Velho SET FILTER TO

Mensagempor rochinha » 10 Jun 2017 15: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 : ? )

O cara pode até ser feio, mas se ele for honesto, cheiroso, trabalhador,... vai continuar feio, porque, ..., uma coisa não tem nada a ver com a outra.


Sou Corinthiano, mas também torço para São Paulo, Palmeiras, Santos em campeonatos internacionais, portanto, Corinthians no coração e Harbour na cabeça.

[color=#FFFFFF]
"...Feliz aquele que transfere o que sabe e aprende o que ensina. Cora Coralina..."
[color=#FFFFFF]"...Acharam que eu estava derrotado, quem achou estava errado, eu voltei, tô aqui, tô firmão, tô na correria, sô guerreiro, sô vaso ruim de quebrar, tô de volta pro mundão..."
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 3902
Data de registro: 18 Ago 2003 21:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 357 vezes
Mens.Curtidas: 150 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