xbrowse fwh2006 sqlrdd erro

[Sistem]

segue o erro

Code: Select all  Expand view  RUN

METHOD SQLRDD_SaveState() CLASS TXBrowse

   if ::SQLRDD_hState == nil
      ::SQLRDD_hState   := {=>}
      HSetCaseMatch( ::SQLRDD_hState, .f. )
   endif

   ::SQLRDD_hState[ "nLen" ]     := ::nLen
   ::SQLRDD_hState[ "IndexOrd" ] := INDEXORD()
   ::SQLRDD_hState[ "descend" ]  := OrdDescend()    //  erro
   ::SQLRDD_hState[ "recno" ]    := RECNO()
   ::SQLRDD_hState[ "nKeyNo" ]   := ::SQLRDD_nKeyNo

return nil
 

[nageswaragunupudi]

Is the function OrdDescend() not supported by SQLRDD ?

[karinha]

Intente con:

Code: Select all  Expand view  RUN

EXTERNAL DESCEND

tubanco->( ORDDESCEND( , , .T.) )

 

Saludos.

[MOISES]

I haven't detected the problem so far.

Yes, SQLRDD supports OrdDescend()

Anyway, without a self-contained example it is impossible to debug.

[nageswaragunupudi]

OrdDescend() does not require the EXTERNAL DESCEND

[nageswaragunupudi]

I haven't detected the problem so far.

Yes, SQLRDD supports OrdDescend()

Anyway, without a self-contained example it is impossible to debug.

In our tests, OrdDescend() is working well with SQLRDD.

Can some body explain to me the error in English? What does the error say?

[karinha]

http://www.pctoledo.com.br/forum/download/file.php?id=383&sid=5325ef2eb76c463d6c3d9dd09229718c

[Enrico Maria Giordano]

Workarea not in use

EMG

[nageswaragunupudi]

Workarea not in use

EMG

Thank you very much.

That means the application program closed the dbf, even before xbrowse is destroyed. So, when the xbrowse got focus, the method KeyCount() is executed and the alias is not in use anymore.

Mr. Sistem

Can you please make this modification and try again?

Code: Select all  Expand view  RUN

METHOD SQLRDD_SaveState() CLASS TXBrowse

   if ::SQLRDD_hState == nil
      ::SQLRDD_hState   := {=>}
      HSetCaseMatch( ::SQLRDD_hState, .f. )
   endif

   if SELECT() > 0
      ::SQLRDD_hState[ "nLen" ]     := ::nLen
      ::SQLRDD_hState[ "IndexOrd" ] := INDEXORD()
      ::SQLRDD_hState[ "descend" ]  := OrdDescend()    //  erro
      ::SQLRDD_hState[ "recno" ]    := RECNO()
      ::SQLRDD_hState[ "nKeyNo" ]   := ::SQLRDD_nKeyNo
   endif
   
return nil
 

[Sistem]

fiz um video mostrado o erro. (acho que acontece o erro quando se tem um xbrowse aberto e abre outro e fechando em seguinda... não sei explicar, o video explica)
a correção não trabalha bem. trava o xbrowse
https://youtu.be/aDBEQd3Z53Y

[Sistem]

desculpa pessoal
como esse erro não acontecia antes, pensei que fosse por conta da nova versão.
o problema eh que na tela que faço backup dos xml (segunda tela) fecha a tabela Exml->(dbCloseArea()) e o xbrawse(Exml) estando aberto corretamente apresenta o erro.

em resumo, ERRO MEU

obrigado a todos

[nageswaragunupudi]

Thanks for clarifying that the problem is not with xbrowse.

[Sistem]

XBROWSE lento com grande volume de dados versão 2006
tive que voltar para a versão 1912
amanha posto video com a diferença das duas versões

[nageswaragunupudi]

XBROWSE lento com grande volume de dados versão 2006
tive que voltar para a versão 1912
amanha posto video com a diferença das duas versões

You are right. We understand the reason.
Please wait, we will provide a workaround.
Meanwhile, please let us know the number of records in the DBF being browsed.

[Sistem]

usando SQLRDD
Tabela 110.000 registros
seek esta demorado um pouco (1912 normal)
PageDown pressionando 10x seguidos trava o xbrowse por 20segundos
PageUP não trava, mais esta mais lento que a versão 1912