sort no xharbour - com falha ???

[tonyx]

no xharbour tenho funcao que organizo pelo SORT CAMPO TO ARQUIVO
1. NA PRIMEIRAVEZ QUE PASSA PELO ARQUIVO EXECUTA OK
2 NA SEGUNDA VEZ E LERDO DEMAIS ??
------- EXECUTO PELO CLIPER 5.3 E BEM RAPIDO VARIAS VEZES --
---- PODE SER FALHA DO XHARBOUR OU BUG ?

[Luciano Bonfim]

acredito ser uma falha, comigo aconteceu também, mas vamos esperar os feras ai pra ver se tem alguma soluçäo

a soluçäo temporária para isso é ordenar a tabela pelo índice e ir varrendo o arquivo e dando um copy para outro DBF.

[Itamar M. Lins Jr.]

acredito ser uma falha, comigo aconteceu também, mas vamos esperar os feras ai pra ver se tem alguma soluçäo

a soluçäo temporária para isso é ordenar a tabela pelo índice e ir varrendo o arquivo e dando um copy para outro DBF.

Pode ser falha, tudo indica isso, mas o mais importante, não foi informado.

O código demonstrando o problema, versão do xharbour, etc...

Saudações
Itamar M. Lins Jr.

[Luciano Bonfim]

código:

Código: Selecionar todos

   PROCEDURE Main
      clear
      set dele on
      set date brit

      USE orcament
      SORT TO xxx_temp ON cod_obra, versao, item   
   
      wait"finalizado com sucesso (ou nao) rsrs, aperte qualquer tecla"
   RETURN

utilizo xharbour 1.0.0

quando executo o sort na primeira vez com o DBF todo desordenado fnciona bem rápido. se logo em seguida eu executar o programa novamente demora um século pra finalizar o sort.

[Hasse]

Boa noite colegas.

"Colei" o exemplo postado, introduzi um loop e fiz 4 SORT seguidos, de um arquivo com 250.000 registros, conforme o código abaixo:

Código: Selecionar todos

PROCEDURE Main 
clear 
set dele on 
set date brit 

do while .t.

   c_opcao := " "
   @ 10,10 say "Efetuar o SORT ? (S/N) " GET c_opcao pict "!" VALID c_opcao $ "SN"
   READ
   IF LASTKEY() = 27 .OR. c_opcao = "N"
      EXIT
   ENDIF

   ? time()

   USE paciente
   SORT TO ind ON p_nome, p_cod, p_matr    
   USE
    
   ? time()
   ?
   wait"finalizado com sucesso (ou nao) rsrs, aperte qualquer tecla" 
   ?
   ?

enddo

RETURN 

Resultados:
01:40 (min:seg)
01:41
01:41
01:40

Estou usando o xHarbour versão 1.1.0, baixado via CVS, dia 17/02/2008.

Portanto, pelos tempos apresentados, nada evidencia algum problema, defeito ou bug, nesta versão que estou usando.

Com a palavra os meus Mestres do Fórum (e de muitos.....).

[Luciano Bonfim]

beleza hasse... vou fazer esse teste aqui usando a CVS agora pra ver se dá o mesmo problema

[sygecom]

Bom apenas vou deixar minha opnião pessoal. Na minha opnião a versão da CVS do xharbour não deve ser usada para produção. Deve ser usada apenas para esses tipos de teste de compatibilidade.