Set Filter com Barra de Progresso!

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

ReinaldoFreitas
Usuário Nível 2
Usuário Nível 2
Mensagens: 97
Registrado em: 02 Jul 2005 15:39

Set Filter com Barra de Progresso!

Mensagem por ReinaldoFreitas »

Ola amigos, tem como colocar uma barra de progresso no comando set filter to ????

obrigado............
Iniciante em Xharbour / Hwgui
Stanis Luksys
Colaborador
Colaborador
Mensagens: 1329
Registrado em: 18 Jun 2005 03:04
Localização: São Paulo
Contato:

Mensagem por Stanis Luksys »

Olá

Uma maneira de se fazer isso seria criar um índice filtrado com FOR...

Index on .... For ( campo > 0 ) eval funcao_da_barra()


Deve ficar lentão, e só Deus sabe se da certo! rsrs

Falou!
Stanis Luksys
sites.google.com/hblibs

Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
ReinaldoFreitas
Usuário Nível 2
Usuário Nível 2
Mensagens: 97
Registrado em: 02 Jul 2005 15:39

Mensagem por ReinaldoFreitas »

existe algum comando similar ao set filter to para filtar dados ??? que seja mais rapido ??

obrigado..
Iniciante em Xharbour / Hwgui
Avatar do usuário
vagucs
Membro Master
Membro Master
Mensagens: 1480
Registrado em: 10 Jul 2004 10:45
Localização: Ipanema - MG
Contato:

Mensagem por vagucs »

faça um indice condicional. Ou use o six ou DBFCDX da comix para fazer o filtro no indice e nao diretamente na base de dados, uso muito isto com o clipper e com o xharbour e funciona muito bem e é super rapido.
Sem mais
Wagner Nunes
www.vagucs.com.br
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho

O Vagner só esqueceu de dizer que voce deve usar a funçao ORDSCOPE() pra isto.

Código: Selecionar todos

INDEX ON str(codigo,5,0) TO ...
...
OrdSetFocus( 2 ) // ordem por codigo
nCodigo1 := 005
nCodigo2 := 012
OrdScope( 0, str( nCodigo1,5,0 ) )
OrdScope( 1, str( nCodigo2,5,0 ) )
...
[code]
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Grings
Usuário Nível 3
Usuário Nível 3
Mensagens: 340
Registrado em: 18 Ago 2004 13:51

Mensagem por Grings »

Rochinha,

Isso funciona no Clipper 5.2e também ?
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho

Sim, voce terá de acrescentar a SIX 2, nao serve a 3 e usar .CDX pois o comando funciona somente neste esquema.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
ReinaldoFreitas
Usuário Nível 2
Usuário Nível 2
Mensagens: 97
Registrado em: 02 Jul 2005 15:39

Mensagem por ReinaldoFreitas »

onde eu acho essa SIX, no diretorio \clip53\lib naum tem ??

para xharbour e a mesma do clipper ???

obrigado...........
Iniciante em Xharbour / Hwgui
Avatar do usuário
vagucs
Membro Master
Membro Master
Mensagens: 1480
Registrado em: 10 Jul 2004 10:45
Localização: Ipanema - MG
Contato:

Mensagem por vagucs »

POde pegar a six no meu site, tem ela lá, nao sei qual versão.

Usei muito ela no Clipper 5.2 é otima e muita rapida, os filtros no indice com ela são feitos usando a rotina SX_SETSCOPE e SX_CLRSCOPE

No clipper 5.3 vc pode usar as rotinas citadas acima pelo rochinha ORDSCOPE, isto usando _DBFCDX que o RDD CDX da comix.

No xHarbour tambem, vc pode usar se não me engano isto está disponivel para qualquer indice (até NTX). A rotina e a ORDSCOPE tambem.

Todas funcionam com o mesmo efeito e recebem os mesmo parametros citados antes pelo rochinha.
Sem mais
Wagner Nunes
www.vagucs.com.br
Eliane
Usuário Nível 2
Usuário Nível 2
Mensagens: 82
Registrado em: 22 Mai 2006 10:17
Localização: Londrina-PR

Mensagem por Eliane »

Wagner, desclupe perguntar mais entrei no seu site e a LIB SIX consta para uso no clipper 5.3. Posso usá-la no Clipper 5.2e ?
Avatar do usuário
vagucs
Membro Master
Membro Master
Mensagens: 1480
Registrado em: 10 Jul 2004 10:45
Localização: Ipanema - MG
Contato:

Mensagem por vagucs »

ola eliane, nao sei qual o pacote, mas tene, nao tenho certeza mas acho que a six so existe para o clipper 5.2.
Sem mais
Wagner Nunes
www.vagucs.com.br
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinha

Na verdade nem precisa existir a SIX para Clipper 5.3 pois o mesmo já vem com o suporte rushmore proveniente da biblioteca COMIX que também faz parte da SIX.

Recomendo usar a SIX 2 por ser a mais estável assim com o Clipper 5.2e que é a versão mais estável do mesmo.

Quando voce usa SIX2 geralmente voce compila assim:

LIB SIX2,CLIPPER,EXTEND,...

Pois a SIX toma conta do pedaço e voce passa a ter o RDD dela acho qu e o NSX.

No Clipper 5.3 por ele já possuir recursos muito bons voce pode usar assim:

LIB CLIPPER,EXTEND,SIX2...

Sendo que neste caso voce fará uso das funções da SIX sem ativar o RDD dela que poderia causar conflitos.

Mas tome cuidado ao usar a dupla Clipper5.2/Six3 ou Clipper5.3/Six2 os resultados podem ser surpreendentemente travantes.

Tomei a liberdade de disponibilizar um link com a SIX 2 e 3:

http://www.shoppmarketing.com/forum/sixlib.zip
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Grings
Usuário Nível 3
Usuário Nível 3
Mensagens: 340
Registrado em: 18 Ago 2004 13:51

Mensagem por Grings »

Rochinha,

Tentei fazer os testes e deu erro na linkagem, não foi reconhecida a funçao OrdScope(), mandei linkar com a SIX2. A função é essa mesma ?

Grato!
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho

Como o Vagner postou lá atras voce vai usar com SIX a função SX_SETSCOPE() pois OrdScope() esta no Clipper 5.3.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Responder