ordscope com mais de uma condiÃ§Ã£o

roberio · July 10, 2012

kapiaba

a chave vc tem q passar sem os pontos

ex: 999999999999999999999999999999999999999999

retorna a danfe em formato pdf

Editado por - roberio on 10/07/2012 16:50:16

nardeypm · March 9, 2013

nÃ£o estou conseguindo filtrar com o ordscope quando tenho mais de uma condiÃ§Ã£o. tenho um arquivo indexado por controle+turma+estagio+nome e quero filtrar todos pelo controle+turma+estagio usando o ordscope. abaixo uma das tentativas que tb nÃ£o funcionou.

SANOTA->(DBSETORDER(6)) // indexado por str(CONTROLE,3)+STR(TURMA,2)+ESTAGIO+NOME
SANOTA->(OrdScope(0,str(ccontr,3)+str(ctur,2)+cestagio))
SANOTA->(OrdScope(1,str(ccontr,3)+str(ctur,2)+cestagio))
SANOTA->(DBGOTOP())

AnaCatacombs · March 11, 2013

Caro Colega.

NÃ£o tenho muita experiÃªncia com OrdScope, talvez algum outro colega saiba a soluÃ§Ã£o correta.

Eu utilizaria o Set filter:

SET FILTER TO cContr == Controle .AND. cTur == Turma .AND. cEstagio == Estagio.

o Set filter Ã© bem lento, principalmente em rede. Mas fica aÃ uma soluÃ§Ã£o temporaria atÃ© alguma alma caridosa com mais experiÃªncia responder.

Alain da Silva · March 11, 2013

SANOTA->(DBSETORDER(6)) // indexado por str(CONTROLE,3)+STR(TURMA,2)+ESTAGIO+NOME
OrdScope(0,str(ccontr,3)+str(ctur,2)+cestagio)
OrdScope(1,str(ccontr,3)+str(ctur,2)+cestagio)
SANOTA->(DBGOTOP())

Erciley Junior · March 11, 2013

OlÃ¡, tente...

SANOTA->(OrdScope( 0 , {||str(ccontr,3)+str(ctur,2)+cestagio} ))

SANOTA->(OrdScope( 1 , {||str(ccontr,3)+str(ctur,2)+cestagio} ))

vagner · March 11, 2013

OlÃ¡,

EstÃ¡ correto como vc postou, deveria funcionar, eu nÃ£o gosto muito de usar Ãndices desse jeito com str, prefira usar o StrZero() ao invÃ©s do Str(), mas de qualquer maneira estÃ¡ correto.

Veja que ele irÃ¡ filtrar primeiramente pelo cContr+cTurm+cEstagio

SÃ³ uma pergunta, essas variÃ¡veis sÃ£o NumÃ©ricas nÃ© ? pergunto isso por vc ter colocado "c" na frente, indicando ser uma var Caracter ao invÃ©s de ser numÃ©ria como deveria ser para poder usar o STR()

AbraÃ§os

Vagner Wirts

nardeypm · March 11, 2013

a minha primeira escolha foi o set filter to, mas na rede estÃ¡ muito lento. por isso, pedi ajuda em relaÃ§Ã£o ao ordscope. estranhamente, as linhas do ordscope que postei no inÃcio que nunca funcionaram, agora estÃ£o funcionando. sÃ³ a variavel cestagio Ã© caracter, as demais sÃ£o numericas. estÃ¡ funcionando corretamente. obrigado....

nardeypm · March 18, 2013

funcionou assim:

sanota->(OrdScope(0,str(ccontr,3)+str(cturma,2)+cestagio))
sanota->(OrdScope(1,str(ccontr,3)+str(cturma,2)+cestagio))
sanota->(DBGOTOP())

agora tenho outro problema com ordscope. vejam:

sanota->(DBSETORDER(7)) // indexado por NOME + str(CONTROLE,3)+ DTOS(DT_SAIDA)
sanota->(OrdScope(0,cnome+str(ccontr,3)+EMPTY(DTOS(DT_SAIDA))))
sanota->(OrdScope(1,cnome+str(ccontr,3)+EMPTY(DTOS(DT_SAIDA))
sanota->(DBGOTOP())

ele dÃ¡ erro informando que existe uma variavel lÃ³gica.
preciso fazer o ordscope com nome + controle+ (empty(dt_saida e outro com !empty(dt_saida)).

nÃ£o estou conseguindo visualizar isso com o ordscope.

kapiaba · March 18, 2013

Eu faria com INDICE TEMPORÃRIO NA MEMÃ“RIA, a velocidade Ã© a mesma do OrdScope().

VocÃª pode criar quantos INDICES temporÃ¡rios na MemÃ³ra quiser, desde que esteja usando .CDX.

abs,

Exemplo:

            INDEX ON STATUS+STR(NFECOD,6,0)    TAG 06 TO INFETEMP ;
                     FOR ( .NOT. EOF() )                .AND.     ;
                         CADNFE->NFECOD  >= NFE_INICIAL .AND.     ;
                         CADNFE->NFECOD  <= NFE_FINAL   .AND.     ;
                         CADNFE->STATUS   = "   "       .AND.     ;
                         CADNFE->STATUS  != "GER"       .AND.     ;
                         CADNFE->STATUS  != "APR"       .AND.     ;
                         CADNFE->STATUS  != "CAN"       .AND.     ;
                         CADNFE->STATUS  != "IMP"       .AND.     ;
                         CADNFE->STATUS  != "ENV"       .AND.     ;
                         CADNFE->STATUS  != "INU"       .AND.     ;
                         CADNFE->STATUS  != "DEN"       .AND.     ;
                         CADNFE->TPFAT_OP = [P] TEMPORARY

Erciley Junior · March 18, 2013

AlguÃ©m arruma a hora desse servidor, aaaaaaaaaaaaa

sanota->(DBSETORDER(7)) // indexado por NOME + str(CONTROLE,3)+ DTOS(DT_SAIDA)
sanota->(OrdScope( 0 , cnome+str(ccontr,3)+ DTOS( CTOD('') ) ))
sanota->(OrdScope( 1 , cnome+str(ccontr,3)+ DTOS( CTOD('') ) ))
sanota->(DBGOTOP())

vagner · March 18, 2013

O Erro Ã© exatamente isso :

EMPTY(DTOS(DT_SAIDA))

o Empty() lhe retorna .T. ou .F. (variÃ¡vel LÃ³gica)

kapiaba · March 19, 2013

AlguÃ©m arruma a hora desse servidor, aaaaaaaaaaaaa
sanota->(DBSETORDER(7)) // indexado por NOME + str(CONTROLE,3)+ DTOS(DT_SAIDA)
sanota->(OrdScope( 0 , cnome+str(ccontr,3)+ DTOS( CTOD('') ) ))
sanota->(OrdScope( 1 , cnome+str(ccontr,3)+ DTOS( CTOD('') ) ))
sanota->(DBGOTOP())
OlÃ¡, para arrumar a hora, vocÃª deve entrar no seu "PERFIL" e alterar o relogio para hora de Brasilia - GMT. abs.

Erciley Junior · March 19, 2013

AlguÃ©m arruma a hora desse servidor, aaaaaaaaaaaaa
sanota->(DBSETORDER(7)) // indexado por NOME + str(CONTROLE,3)+ DTOS(DT_SAIDA)
sanota->(OrdScope( 0 , cnome+str(ccontr,3)+ DTOS( CTOD('') ) ))
sanota->(OrdScope( 1 , cnome+str(ccontr,3)+ DTOS( CTOD('') ) ))
sanota->(DBGOTOP())
OlÃ¡, para arrumar a hora, vocÃª deve entrar no seu "PERFIL" e alterar o relogio para hora de Brasilia - GMT. abs.

Vlw Kapiaba ^^

nardeypm · March 19, 2013

nunca usei indices na memoria. como faÃ§o isso. o sistema funciona em rede. tÃ¡ lento demais. todos os terminais tem um executavel que acessa a base de dados dbf no server. os indices que uso sÃ£o cdx.

kapiaba · March 20, 2013

Primeiro, vc. deve eliminar todos os SET FILTERS do seu sistema, e em todos os locais que precise de FILTRO, que nÃ£o necessitem de INDICES FIXOS, voce usa INDICE TEMPORARIO, a indexaÃ§Ã£o Ã© igual a normal, sÃ³ que em vez de fazer a INDEXAÃ‡ÃƒO no arquivo.CDX, vc. faz na memÃ³ria em tempo real, o modo de fazer o INDICE Ã© igual ao normal, sÃ³ que voce acrescenta o comando TEMPORARY ao indexador.

Ao sair do indice temporÃ¡rio, para nÃ£o quebrar o programa, jÃ¡ que voce perderÃ¡ a TAG do indice normal, vocÃª carrega o indice original.

DÃºvidas vÃ¡ perguntando, para melhor entender, vÃ¡ fazendo testes atÃ© "matar" a charada, veja exemplo acima. abs.

kapiaba · March 20, 2013

Parametros para .CDX

INDEX ON   ;
    TAG TO ;
    FOR    ;
    WHILE  ;
    NEXT | RECORD | REST | ALL ;
    UNIQUE ;
    ASCENDING | DESCENDING ;
    EVAL EVERY ;
    USECURRENT ;
    ADDITIVE ;
    CUSTOM ;
    NOOPTIMIZE;
    TEMPORARY

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=25771&hilit=TEMPORARY

Abs,

oziel · May 10, 2013

Eu fiz o trabalho com o OrdScope foi perfeito mas estou tentando fazer com arquivo

temporÃ¡rio. De acordo com o exemplo que foi dado acima.

Vejam como fiz, e o problema acontece quanto tenta abrir o arquivo .CDX

AbraÃ§os

Oziel Lopes

//----------------------------------------------------------------------------------------

   Select Cadastro

   INDEX ON IDADE+SEXO+GRAU+AREA+NOME TAG 05 TO CADTMP       ;
              FOR ( .NOT. EOF() )                      .AND. ;
                    CADASTRO->IDADE   >= "cIdade1"     .AND. ;
                    CADASTRO->IDADE   <= "cIdade2"     .AND. ;
                    CADASTRO->SEXO    = "cSexo"    .AND. ;
                    CADASTRO->GRAU     = "cGrau"        .AND. ;
                    CADASTRO->AREA      = "cArea" TEMPORARY

   Select Cadastro
   Set Index to CADTMP TEMPORARY // -------- LInha 2602
   DBGotop()

//-- ERRO DO SISTEMA -------------------------------------------------------

   Application
   ===========
   Path and name: C:\Proj_FWH\grh\GRH.EXE (32 bits)
   Size: 2,418,688 bytes
   Time from start: 0 hours 0 mins 20 secs
   Error occurred at: 10/05/13, 16:18:06
   Error description: (DOS Error 2) DBFCDX/1003 Open error: CADTMP.cdx

   Stack Calls
   ===========
   Called from: => ORDLISTADD(0)
   Called from: => PESQIDADE(2602)
   Called from: cadastro.000 => (b)CADASTRO(185)
   Called from: DBTNBMP.PRG => TDBTNBMP:CLICK(409)
   Called from: DBTNBMP.PRG => TDBTNBMP:LBUTTONUP(481)

kapiaba · May 10, 2013

Carissimo, se Ã© na memÃ³ria, isto nÃ£o existe: CADTMP.cdx

Retire isto:

Select Cadastro

Set Index to CADTMP TEMPORARY // -------- LInha 2602

quando sair do indice temporÃ¡rio, ai sim vocÃª diz:

Set Index to

e abre os indices normais .cdx

abs,

oziel · May 13, 2013

Obrigado

Kapiaba.

Essa Ã© a primeira vez que utilizo arq com o comando Temporary

JÃ¡ fiz os testes funcionou perfeito. :D

OZIEL LOPES

emotta · May 13, 2013

Indice temporÃ¡rio Ã© uma mÃ£o na roda mesmo... Somente para acrescentar na dica, a respeito do que o Kapiaba disse sobre quebrar o programa e ter que restaurar o indice, para nÃ£o se preocupar com isso voce pode abrir a tabela com um alias sÃ³ para criar o indice temporÃ¡rio. Por exemplo, se vc tem a tabela CLIENTES e em todo sistema voce abre a tabela com o alias CLI vc pode abrir nessa rotina especifica, que cria o indice temporario como, 'CLI_TRB'. Assim somente no alias CLI_TRB que voce terÃ¡ o indice temporario vinculado e nÃ£o desposiciona a CLI.

Estou alterando em todos os meus sistemas para esse conceito de abrir ALIAS separado em locais que uso filtro ou indices temporarios. Em todos os meus cadastros eu abro um xBrowse exibindo todos os registros da tabela, nesse xBrowse eu posso passar filtros, movimentar, etc... O grande problema era que com o filtro ativo, ao abrir a rotina de ALTERACAO (por exemplo) eu tinha que tirar o filtro, posicionar, executar a rotina, ao fechar a rotina voltar o filtro e posicoonar novamente. Agora eu faÃ§o o seguinte: Ao acionar a opcao do menu eu abro um ALIAS temporario e com nome UNICO para a rotina, exemplo CLI_0001, e no xBrowse eu posso filtrar, desposiconar e fazer qualquer coisa que o alias CLI, nao tem nenhuma alteracao e nao me preocupo em nada com filtros ativos e com desposicionamento. Pelos testes que fiz no xHarbour podemos abrir mais de 4000 alias em cada instancia do sistema.

Exemplo prÃ¡tico:

USE CLIENTES ALIAS CLI SHARED NEW

USE CLIENTES ALIAS CLI_0001 SHARED NEW

DbSelectArea('CLI_0001')

DbGoTo(5)

DbSelectArea('CLI')

DbGoTo(2)

? CLI_0001->(Recno()) // retorna 5

? CLI->(Recno()) // retorna 2

DbSelectArea('CLI_0001')

Set Filter To TIPO='1'

DbSelectArea('CLI')

Set Filter To TIPO='2'

? CLI_0001->(DbFilter()) // retorna TIPO='1'

? CLI->(DbFilter()) // retorna TIPO='2'

abraÃ§os

Primeiro, vc. deve eliminar todos os SET FILTERS do seu sistema, e em todos os locais que precise de FILTRO, que nÃ£o necessitem de INDICES FIXOS, voce usa INDICE TEMPORARIO, a indexaÃ§Ã£o Ã© igual a normal, sÃ³ que em vez de fazer a INDEXAÃ‡ÃƒO no arquivo.CDX, vc. faz na memÃ³ria em tempo real, o modo de fazer o INDICE Ã© igual ao normal, sÃ³ que voce acrescenta o comando TEMPORARY ao indexador.

Ao sair do indice temporÃ¡rio, para nÃ£o quebrar o programa, jÃ¡ que voce perderÃ¡ a TAG do indice normal, vocÃª carrega o indice original.

DÃºvidas vÃ¡ perguntando, para melhor entender, vÃ¡ fazendo testes atÃ© "matar" a charada, veja exemplo acima. abs.

kapiaba · May 13, 2013

EXCELENTE Emotta, mas um simples SET FILTER TO, fecha o indice temporÃ¡rio e nÃ£o quebrarÃ¡ quando voce der um SELECT NomedoArquivo.

obg, abs.

emotta · May 13, 2013

se usar filtro temporÃ¡rio nÃ£o existe motivo pra usar Set Filter To.... Realmente, pra gente estÃ¡ uma mÃ£o na roda, da mais liberdade pra trabalhar na tabela sem preocupaÃ§Ã£o em desposicionar a tabela.

vlw ae, abraÃ§os

EXCELENTE Emotta, mas um simples SET FILTER TO, fecha o indice temporÃ¡rio e nÃ£o quebrarÃ¡ quando voce der um SELECT NomedoArquivo.

Mas a sua idÃ©ia Ã© Ã³tema. aumenta o cÃ³digo, mas Ã© Ã³tema.

obg, abs.

kapiaba · May 13, 2013

ERREI emotta, eu quis dizer: SET INDEX TO... Desculpe nossa falha.... kkkkkkkkkkkkkk

emotta · May 13, 2013

kkkk ta perdoado parcero....

abraÃ§os e se comeÃ§ar a usar esse esquema de alias temporarios me avisa como foi .... sobre os indices temporÃ¡rios vou usar em alguns casos... apesar de conhecer isso estava esquecido a sua utilizaÃ§Ã£o pra mim....

ERREI emotta, eu quis dizer: SET INDEX TO... Desculpe nossa falha.... kkkkkkkkkkkkkk

oziel · May 13, 2013

Emotta - Kapiaba

Guardei a dica... quando eu fizer outras mudanÃ§as o que acontecer informo...

AbraÃ§os...

OZIEL

ordscope com mais de uma condiÃ§Ã£o

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation