luccanevari

Eu usava o meter, qdo tinha um While, mas agora que não tenho mais não sei onde colocar o meter. Antes eu usava assim: nAtual := 1 nTotal := Tbsppj->(lastRec()) @ 2.2, 15 METER oMeter VAR natuAL TOTAL ntotal OF oDlg SIZE 200, 17 do while substr(expande(substr(tbsppj->linha,1,6)),1,n) == ccod .AND. !Tbsppj->(EOF()) .AND. fmeter() //--------------------------------------------------------------// STATIC FUNCTION fmeter() oMeter:Set( nAtual + 1 ) RETURN .t. MAS AGORA SÓ USO DBSEEK E SET FILTER, não sei se dá p/ colocar? Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Bom Dia a todos, espero que tenham tido um bom final de semana!! Estou realizando um pesquisa utilizando Dbseek e Set Filter, e gostaria de avisar ao cliente, caso demore para mostrar os dados, que está sendo realizada a pesquisa, caso contrário o cliente acha que travou. Tentei o meter, mas acredito que não funciona ou EU estou fazendo de forma errada. Alguém tem uma idéia de como posso resolver esta questão? Obrigada como sempre pela atenção Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Bom Dia a todos, espero que tenham tido um bom final de semana!! Estou realizando um pesquisa utilizando Dbseek e Set Filter, e gostaria de avisar ao cliente, caso demore para mostrar os dados, que está sendo realizada a pesquisa, caso contrário o cliente acha que travou. Tentei o meter, mas acredito que não funciona ou EU estou fazendo de forma errada. Alguém tem uma idéia de como posso resolver esta questão? Obrigada como sempre pela atenção Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Bom Dia a todos, espero que tenham tido um bom final de semana!! Estou realizando um pesquisa utilizando Dbseek e Set Filter, e gostaria de avisar ao cliente, caso demore para mostrar os dados, que está sendo realizada a pesquisa, caso contrário o cliente acha que travou. Tentei o meter, mas acredito que não funciona ou EU estou fazendo de forma errada. Alguém tem uma idéia de como posso resolver esta questão? Obrigada como sempre pela atenção Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Vagner mais uma vez quero agradecer por sempre estar me ajudando. []'s Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Kapiaba, bom dia e muito obrigada a vc e a todos agora deu certo!! []'s Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Você quer dizer que está errado a maneira de abrir? USE SPPJ NEW ALIAS Tbsppj If ! File( "TBSPPJ.CDX" ) INDEX ON Substr(expande(Substr(tbsppj->linha,1,6)),1,2) TAG "CCNAEF2" TO Tbsppj INDEX ON Substr(expande(Substr(tbsppj->linha,1,6)),1,3) TAG "CCNAEF3" TO Tbsppj Else ORDLISTADD( "Tbsppj.cdx","CCNAEF2","CCNAEF3") Endif Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Obrigada a todos pela ajuda! Estou criando estes indices cdx: If ! File( "TBSPPJ.CDX" ) INDEX ON Substr(expande(Substr(tbsppj->linha,1,6)),1,2) TAG "CCNAEF2" TO Tbsppj INDEX ON Substr(expande(Substr(tbsppj->linha,1,6)),1,3) TAG "CCNAEF3" TO Tbsppj Else ORDLISTADD( "Tbsppj.cdx","CCNAEF2","CCNAEF3") Endif E para alternar entre os indices uso: Set order to "CCNAEF3" Mas qdo tento alternar entre os índices dá erro: Error _DBFCDX/1201 Workarea not indexed Alguém sabe me dizer onde estou errando? Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Verifiquei que quem está filtrando é o DbSeek. Na verdade tirando o DbSeek o Ordscope não está funcionando. Onde estou errando?? Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Olá Estou usando o ORDSCOPE, e qdo exibo os dados no Listbox o primeiro registro a exibir é o que estou filtrando, mas qdo corro a barra de rolagem os demais dados da tabela tbem aparecem isto está correto ou estou fazendo a pesquisa de forma errada? USE SPPJ NEW ALIAS Tbsppj INDEX ON Substr(expande(Substr(tbsppj->linha,1,6)),1,2) TAG "CCNAEF2" TO Tbsppj IF ! Empty(ccod) IF !tbsppj->(DbSeek(ccod)) tbsppj->(OrdScope(0,Nil)) tbsppj->(OrdScope(1,Nil)) Msginfo("Dado não encontrado", "Aviso") Return .f. Else OrdScope( 0, ccod) OrdScope( 1, ccod) Endif oLbx:Refresh() tbsppj->(OrdScope(0,Nil)) tbsppj->(OrdScope(1,Nil)) xSetFocus( ocodati ) Return .t. Endif Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Kapiaba EU CRIO ASSIM: USE SPPJ NEW ALIAS Tbsppj INDEX ON Substr(expande(Substr(tbsppj->linha,1,6)),1,2) TAG "CCNAEF2" TO Tbsppj Gostaria tbem de saber se eu criar um indice composto com 3 p/ usar com ORDSCOPE, o segundo e o terceiro dado na pesquisa pode ficar em branco? Luciane Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

EU CRIO ASSIM: USE SPPJ NEW ALIAS Tbsppj INDEX ON Substr(expande(Substr(tbsppj->linha,1,6)),1,2) TAG "CCNAEF2" TO Tbsppj Gostaria tbem de saber se eu criar um indice composto com 3 p/ usar com ORDSCOPE, o segundo e o terceiro dado na pesquisa pode ficar em branco? Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Quero mesmo assim agradecer a atenção de todos Obrigada []'s Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Mas como faço p/ selecionar o índice, pois qdo tento utilizar: Tbsppj->(DbSetOrder("CCNAEF2")) Mesmo já tendo o arquivo criado não funciona. Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55

Bom Dia! Estou criando um indice CDX p/ o programa, mas não gostaria que todas as vezes que abrir o programa o indice seja recriado. USE SPPJ NEW ALIAS Tbsppj INDEX ON SUBSTR(expande(tbsppjt->linha),1,7) TAG "CCNAEF7" TO Tbsppj Como posso fazer p/ não recriar o arquivo de índice toda fez que o programa for aberto? Obrigada Luciane luccanevari@ig.com.br Clipper 5.3 / Fivewin 2.4/ Blinker 7.0 / FWH 2.6 / xharbour 0.99.50 / BCC55