DBEdit lento p/focar 1º registro (não é probl. de pesquisa)

[paulobergo]

Bom dia amigos!

Estou experimentando uma lentidão muito grande quando abro um DBEdit em uma tabela com muitos registros.

A versão que uso é: "xHarbour Compiler build 0.99.70 (SimpLex)"

O que acontece, exatamente, é que o DBEdit preenche normalmente a janela com os registros disponíveis até o limite da janela, sem problemas, mas demora muito a "focar" o registro do topo...

Uma tabela simples, de clientes, indexada pelo nome, sem qualquer tipo de filtro, leva esse tempo, para ter o foco no registro do topo:

pentiumIV 1.6, xp, 256mb, acessando localmente: menos de um segundo
duron 1.8, w98, 128mb, acessando pela rede: menos de um segundo
duron 1.1, w98, 128mb, acessando pela rede: quatro segundos
pentiumIII 533, xp, 256mb, acessando pela rede: 6 segundos
k6 II 500, w98, 128mb, acessando pela rede: 12 segundos
pentiumIV, 1.8, xp, 512mb, acessando pela rede: quatro segundos

O que parece é que, para "formar" a janela, o DBEdit faz algo como um GoBottom para depois se posicionar no registro do topo da janela...

Então... há alguma solução para isso (atualizar a versão do XHarbour poderia resolver)?

Grato por qualquer ajuda!

[ERASMO ANDRIOLI]

COLEGA...

Esqueça tudo o que voce tem e comece a utilizar as rotinas descritas no link abaixo:

https://pctoledo.org/forum/viewto ... ght=dbedit

Saudações,

ERASMO

[paulobergo]

Erasmo, grato pela dica... mas já implementei este código antes para, apenas, usar a opção de pesquisa durante o DBEdit...

O problema é de focar o primeiro registro rapidamente... só isso...

Considere que, para minimizar a perta de tempo, estou tendo que fazer isso:

Abro a tabela/encontro um nome qualquer/gravo o registro/vou para o final da tabela/volto para o primerio registro/executo o DBEdit:

sNome := 'PAULO'

Use clientes Index clinome
Set SoftSeek On
Seek &sNome
iMarca := RecNo()
Go Bottom
Go iMarca
DbEdit(5, 0, ... ... ...)

Isso é que, dependendo da máquina, provoca um atraso em focar o primeiro registro...

Hoje, a título de teste, vou eliminar todos os protocolos ipx/netbeui dos computadores que ainda os possuem, para ver se o atraso é causado pela rede... se melhorar, posto aqui...

Abraços...

Grato pela atenção!

[Luciano Bonfim]

por que vc usa essa macro?

Seek &sNome

basta

Seek sNome

e tambem falta oset softseek off

Set SoftSeek On
Seek sNome
Set SoftSeek Off

[paulobergo]

Oi Luciano...
Isso foi só um exemplo... pensei "find &sNome" e escrevi seek... mas realmente é seek sNome...
O Set SoftSeek Off também é colocado após o "seek"... mas sua existência ou não também não afeta a "lerdeza" em focar o primeiro registro...
De qualquer forma, grato pela colaboração...

[gvc]

Código: Selecionar todos

sNome := 'PAULO'

Use clientes Index clinome // Vc abre o arquivo toda vez?
dbseek(alltrim(Nome), .T.)
dbedit(5, 0, ... ... ...)

Tente verificar como esta o DBF:

Código: Selecionar todos

sNome := 'PAULO'

Use clientes Index clinome // Vc abre o arquivo toda vez?
dbseek(alltrim(Nome), .T.)
while !eof()
   ? nome
   dbskip()
end

Eu estou usando o dbedit.prg no xHarbour e não estou tendo problemas.
A demora de posicionamento normalmente e um filtro aberto.
Vc pode abrir o DBF sem o indice e abrir diretamente o dbedit, sem pesquisar o nome. Veja quanto tempo demora da abertura do dbf até o dbedit estabilizar.

Boa sorte. Espero ter ajudado.

[janio]

PauloBergo,

A vs. 99.70 do xharbour veio com alguns problemas no DBEDIT.

O que vc pode fazer é pegar o DBEDIT.PRG da vs 99.60 e compilá-lo junto com sua aplicação, ae seus problemas acabaram-se! rsrsrsrsrs


Jânio

[ERASMO ANDRIOLI]

Seria possível postar a rotina dessa busca, de forma mais detalhada, para os companheiros darem uma olhada? (use modo Code).

Fui...

[Luciano Bonfim]

o que seriam "muito registros" para vc...

eu tenho sistema rodando com a 0.99.6 e com a 1.0.0 e o dbedit funciona perfeitamente....

[paulobergo]

Olá! Bom dia!

O problema acontece com tabelas com 18mil, 64mil, 350mil...... registros...

Acredito que seja um problema quanto à forma de desenho da tela feito pelo DBEdit.

Veja só: uso duas aplicações que tem, basicamente, o mesmo código...
FatNtx é o programa de faturamento compilado no Clipper 5.3c
FatNtx32 é o mesmo programa, compilado no XHarbour 0.99.7...
O FatNtx, 16bits, usado nas máquinas com Windows95 e Windows311, em uma mesma pesquisa simples, em uma tabela também simples (tipo cadastro de clientes ordenado pelo campo nome, como exemplifiquei antes), ao abrir o DBEdit, foca instantaneamente no primeiro registro encontrado...
O FatNtx32, 32bits, usado nas máquinas com Windows98, 2000 e XP demora para focar o primeiro registro, em função do computador... em um PentiumIV com 256mb e XP, leva dois segundos... em um PentiumIII com 128mb e Win98, leva seis... e assim por diante...

Experimentei usar o DBEdit.prg da 1.00.00 e o problema continua... não encontrei ainda o fonte do dbedit.prg da 0.99.6...

Quanto ao código fonte da DBEdit.prg, dei uma olhada superficial; creio que o DBEdit não esteja respeitando o limite de linhas que cabem dentro da janela definida e continua "lendo" a tabela até o seu final... algo assim: se definirmos uma janela para o DBEdit em que cabem 10 linhas (10 registros), o DBEdit as preenche e não detecta que já estão todas preenchidas e continua lendo registro a registro até o final da tabela...

Isso não é percebido em máquinas rápidas, tabelas acessadas por um único usuário ou acessadas localmente, e com tabelas pequenas...

Nas máquinas que uso para desenvolvimento (Pentium IV 1.6 512mb e Celeron 1.6~ 1gb), quando abro a tabela de clientes, com 64mil registros, o DBEdit foca a primeira linha quase que instantaneamente, mas dá para perceber um "delay")... se abro a tabela de crediário, com un 450mil registros (mesmo sem pesquisa nenhuma, seek, find, locate...), já leva uns 3 segundos... e se faço o mesmo com a aplicação 16 bits, o foco é instantaneo...

De qualquer forma, grato pela colaboração... neste fim de semana vou dar uma vasculhada no código da DBEdit e retorno...

Grato! Abraços!

[Luciano Bonfim]

compila seu sistema 32 bits usando a GTWVW

[janio]

PauloBergo,

Tente como o Luciano Bonfim sugeriu. Compile sua aplicacao com a lib GTWVT ou GTWVW, pois essa lentidao que vc ta passando é devido ao console do win98 que é péssimo.

Com a GTWVW ou GTWVT sua aplicacao rodará dentro de uma janela, mas continuará sendo texto.

Janio

[gvc]

PauloBergo,

Postei MP com o dbedit.prg que eu uso. Não apresentou problemas aqui.

[vagucs]

Amigo Paulobergo

Tem um erro no seu codigo,:

Código: Selecionar todos

sNome := 'PAULO'
Use clientes Index clinome
Set SoftSeek On
Seek &sNome
iMarca := RecNo()
Go Bottom
Go iMarca 
DbEdit(5, 0, ... ... ...) 

Assim fica melhor

Código: Selecionar todos

sNome := 'PAULO'
Use clientes Index clinome
Set SoftSeek On
dbSeek(sNome)
DbEdit(5, 0, ... ... ...) 

Deve melhor um pouco a velocidade. use a versão mais nova do xharbour, teve melhorias no browse relativo a velocidade, o que afeta o DBedit tambem, que é feito com uso dele.

[paulobergo]

Olá pessoal...

Grato pelas dicas!

No próximo fim de semana tentarei fazer algumas mudanças com as dicas que vocês passaram...
A lentidão para focar o primeiro registro só ocorre realmente no DBEdit... de resto, em tudo os sistemas funcionam perfeitamente...
Dando certo eu posto aqui (ainda não desisti também de vasculhar o código da dbedit.prg, inclusive da versão 1.00 que baixei por último e que também não melhorou em nada a questão de focar o 1o. registro)...

Grato e um grande abraço!