Kleyton Posted September 6, 2005 Report Share Posted September 6, 2005 GIBAF, isto acontece porque sua base de dados ainda contém arquivos deletados. Indexe seus arquivos assim: Se for Ãndice CDX: Index on nome_cli tag cli001 to indcl001 for !deleted() Se for Ãndice NTX: Index on nome_cli to indcl001 for !deleted() Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 6, 2005 Author Report Share Posted September 6, 2005 mas, nao estou usando o listbox..... TO USANDO O TXBROWSE() !!!!! Agradecido ! Gilberto ! Quote Link to comment Share on other sites More sharing options...
Kleyton Posted September 6, 2005 Report Share Posted September 6, 2005 Tudo bem. Mas tente indexar como lhe falei, apenas para testar... Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 6, 2005 Author Report Share Posted September 6, 2005 Memso usado Set DELETED ON ??? Mesmo assim vou fazer o teste ! Obrigado pela dica ! Giba Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 6, 2005 Report Share Posted September 6, 2005 Creio que o motivo nao seje o arquivo conter registros deletados, tenho uma rotina de cadastro de empregados q tenho certeza que nao tem nenhum deletado, e dependendo da quantidade de registros, dá o mesmo problema. Tem firma que tem +- 15,20 empregados e as zebras ficam perfeitas, e tem algumas que tem + de 100 e é ai que começa a"dor de cabeça", e tem + Isto acontece somente se estiver usando indices. se tirar o indice, nao importa a qtde. de registro fica normal. já tentei com CDX e NTX. como sou eu mesmo q tô usando o programa... vou levando. e tentando uma solução.. Abraços. VOCÊ NAO PODE PERDER: 3º ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 iko67@ibest.com.br Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 6, 2005 Author Report Share Posted September 6, 2005 Fiz o teste: Se for Ãndice CDX: Index on nome_cli tag cli001 to indcl001 for !deleted() CONCLUSAO: realmente nao resolveu e a performace caiu. Mesmo assim, obrigado pela dica ! Se alguem tiver alguma dica, e puder postar, fico agradecido ! Gilberto Quote Link to comment Share on other sites More sharing options...
marcelo Posted September 6, 2005 Report Share Posted September 6, 2005 Ola Se voce está usando XBROWSEid=red> faça como postei para voce.XBrowseid=blue> é diferente de Listboxid=red>. #include "Fivewin.ch" #include "xbrowse.ch" DEFINE DIALOG oDlg RESOURCE "TEST" OF oWnd oBrw := TXBrowse():New( oWnd ) oBrw:CreateFromResource( 101 ) oBrw:bClrStd := { ||{CLR_BLACK, IIF( ( oBrw:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGRAY, CLR_LGREEN ) }}id=red> ACTIVATE DIALOG oDlg RETURN NIL Yrece fwh 2.6 xharbour comercial xbuild Pelles Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 6, 2005 Author Report Share Posted September 6, 2005 Tambem fiz, e nao deu.... Mas, cheguei a uma conclusao: eu uso o xHarbour comercial com o Fivewin. Uso o SQLRDD, e nele o OrdKeyNo() retorna sempre 0 (zero). Fiz o teste em DBFCDX e faz certinho... to vendo o Marcelo Lombardo e com o Luiz Rafael do xharbour comercial, pra pegar alguma dica deles.... Obrigado a todos. gilberto Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 6, 2005 Author Report Share Posted September 6, 2005 To ferrado (resposta do xharbour comercial): Gilberto, Desculpe, estive for a ontem e ainda não pude ver os casos ainda. Não existe suporte ao OrdKeyNo() no SQLRDD, simplesmente porque não existe nada, absolutamente nada que forneça essa informação de um indice em uma base SQL... Abs, Marcelo Lombardo Tentei, entao, usar: oBrwF3:bClrStd := { ||{CLR_BLACK, IIF( oBrwF3:nColSel %2 == 0, 15724527, 16777215 ) }} mas tambem nao deu ! Se alguem tiver alguma dica, fico agradecido ! Giberto Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 6, 2005 Author Report Share Posted September 6, 2005 Alguem pode me ajudar ?? oBrw:bClrStd := { ||{CLR_BLACK, IIF( oBrwF3:nColSel %2 == 0, 15724527, 16777215 ) }} oBrwCad:bChange := { || FazZebra(oBrw) } *---------------------- Function FazZebra(oBrw,nCols) *---------------------- Local i,j For i := 1 to oBrw:nDataRows For j := 1 to len( oBrw:aCols ) oCol := oBrw:aCols[ j ] oCol:bClrStd := {|| {CLR_BLACK, iif( i % 2 = 0 , 15724527 , 16777215 ) } } Next j Next i oBrw:Refresh() Return(Nil) Mas nao esta funcionando ?? Agradeco ! Gilberto Quote Link to comment Share on other sites More sharing options...
marcelo Posted September 6, 2005 Report Share Posted September 6, 2005 Ola A dificuldade é que nem todos usam ainda RDDSQL para emitir uma opinião concreta, só no chute, no exemplo que passei,tente recno() ao inves de ordkeyno(). Yrece Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 6, 2005 Author Report Share Posted September 6, 2005 Eh que com o Recno(), nao fica legal. Fica mas linhas de uma cor e outras de outra cor.... Ainda nao consegui ajeitar ! Gilberto Quote Link to comment Share on other sites More sharing options...
marcelo Posted September 6, 2005 Report Share Posted September 6, 2005 Ola De um pack no seu arquivo, deve ser os deletados .Se funcionar crie os indices com for !deleted() Yrece Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 8, 2005 Author Report Share Posted September 8, 2005 Ja fiz e nao funcionou.... o problema eh mesmo o sqlrdd, que o OrdKeyNo() nao tem suporte. penso que preciso fazer algo como o exemplo anterior... Obrigado ! Gilberto Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 8, 2005 Author Report Share Posted September 8, 2005 Pronto ! Deu trabalha, mas tambem deu certo ! Agradeco a todos que enviaram dicas... giba Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 9, 2005 Report Share Posted September 9, 2005 Como tu fez p/ que desse certo ??? Abraços VOCÊ NAO PODE PERDER: 3º ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 iko67@ibest.com.br Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 9, 2005 Author Report Share Posted September 9, 2005 #include "SqlRDD.ch" oBrw:bClrStd := { ||{ CLR_BLACK , IIF( ( oBrw:cAlias )->( dbInfo( DBI_INTERNAL_OBJECT ):nPosCache ) %2 == 0, CLR_HBLUE , CLR_WHITE ) }} Isso para banco de dados do SQLRDD.... Espero tem ajudado... []'s Gilberto Quote Link to comment Share on other sites More sharing options...
jufer Posted September 9, 2005 Report Share Posted September 9, 2005 Sou português e fiz a baixada do 541BRW.zip e testei o executável que está junto e não deu problema nenhum, quando quis usar o prg para o meu projeto deu crepe. Não reconhece certos nativos como nClrNFBack. Penso que me falta o ficheiro tTwBrowse32.lib que não tenho. Será que alguém pode ter a gentileza de me enviar? Grato Jufer Quote Link to comment Share on other sites More sharing options...
gibaf Posted September 27, 2005 Author Report Share Posted September 27, 2005 Luiz Arruda, somente curiosidade se deu certo a zebra ? 1 abraco ! Gilberto Frohlich giba_f@hotmail.com.br giba_f@yahoo.com.br xHarbour Comercial xBuild 0.99.51+Fivewin 2.6+PellesC+Postgres+DB2 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.