Unrecoverable error 6005: Exception error:

[JoséQuintas]

Como descobrir um erro desses ?

É gtwvg, fivewin, hwgui e multithread.

Application Internal Error - D:\fontes\integra\jpa.exe
Terminated at: 2025-03-07 15:18:58
Info: JOSEJPA joseq
Unrecoverable error 6005: Exception error:

Called from DIALOGBOXINDIRECT(0)
Called from TDIALOG:ACTIVATE(0) in .\source\classes\dialog.prg
Called from DLGTEXTMSGCLASS:EXECUTE(121) in ze_fwtextmsg.prg
Called from SHOWTEXTMETER(37) in ze_fwtextmsg.prg
Called from (b)CREATEZIP(42) in libjpa\source\putilbackup.prg

[JoséQuintas]

As linhas que mostra.... não adiantam nada

Linha do activate, não adianta nada, porque já está rodando
Linha de chamada, não adianta nada, chamou faz tempo

É no meio do processo de backup, zip de dbf, backup SQL, zip SQL, etc.

[JoséQuintas]

Achei por zóio.
Zoiei a tela, e tava mudando rápido demais, quando deveria ser a cada 1 segundo.

Faltou o Int( Seconds() )

Tava atualizando a tela zilhares de vezes por segundo.

[JoséQuintas]

Agora mudou pra este, que é conhecido:

Application Internal Error - D:\fontes\integra\jpa.exe
Terminated at: 2025-03-07 15:46:19
Info: JOSEJPA joseq
Unrecoverable error 9003: Too many recursive error handler calls
Called from __ERRRT_SBASE(0)
...
Called from __ERRRT_SBASE(0)
Called from TDIALOG:ERROR(0) in ../../../tobject.prg
Called from (b)HBOBJECT(0) in ../../../tobject.prg
Called from TDIALOG:MSGNOTFOUND(0) in ../../../tobject.prg
Called from TDIALOG:_LCANCLOSE(0) in ../../../tobject.prg
Called from (b)DLGTEXTMSGCLASS(65) in ze_fwtextmsg.prg
Called from DLGTEXTMSGCLASS:END(0) in ze_fwtextmsg.prg
Called from (b)SHOWTEXTMETER(34) in ze_fwtextmsg.prg
Called from __ERRRT_SBASE(0)
Called from TDIALOG:ERROR(0) in ../../../tobject.prg
Called from (b)HBOBJECT(0) in ../../../tobject.prg
Called from TDIALOG:MSGNOTFOUND(0) in ../../../tobject.prg
Called from TDIALOG:_LCANCLOSE(0) in ../../../tobject.prg
Called from (b)DLGTEXTMSGCLASS(65) in ze_fwtextmsg.prg
Called from DLGTEXTMSGCLASS:END(0) in ze_fwtextmsg.prg
Called from (b)SHOWTEXTMETER(34) in ze_fwtextmsg.prg
Called from TXBRWCOLUMN:VALUE(13746) in d:\github\fivewin\source\classes\xbrowse.prg
Called from TXBRWCOLUMN:PAINTCELL(15134) in d:\github\fivewin\source\classes\xbrowse.prg
Called from TXBRWCOLUMN:PAINTDATA(14900) in d:\github\fivewin\source\classes\xbrowse.prg
Called from TXBROWSE:PAINT(2547) in d:\github\fivewin\source\classes\xbrowse.prg
Called from TXBROWSE:DISPLAY(2224) in d:\github\fivewin\source\classes\xbrowse.prg
Called from TCONTROL:HANDLEEVENT(0) in .\source\classes\control.prg
Called from TXBROWSE:HANDLEEVENT(12565) in d:\github\fivewin\source\classes\xbrowse.prg
Called from _FWH(0) in .\source\classes\window.prg
Called from DIALOGBOXINDIRECT(0)
Called from TDIALOG:ACTIVATE(0) in .\source\classes\dialog.prg
Called from DLGTEXTMSGCLASS:EXECUTE(121) in ze_fwtextmsg.prg
Called from SHOWTEXTMETER(37) in ze_fwtextmsg.prg
Called from (b)CREATEZIP(42) in libjpa\source\putilbackup.prg

só pode ter sido causado aqui:

Código: Selecionar todos

PROCEDURE ShowTextMeter( oDialog )

   ErrorBlock( { | e | oDialog:End(), JoseQuintasError( e ) } )
   oDialog := DlgTextMsgClass():New()
   // oDialog:bCodeBlock := { || MsgExclamation( "Init" ) }, ;
   oDialog:Execute()

   RETURN

Não dá pra fechar dialog duas vezes.
Ao entrar no erro, vira erro recursivo.

[JoséQuintas]

Resolvido assim:

Código: Selecionar todos

   ErrorBlock( { | e | iif( ValType( oDialog ) == "O", oDialog:End(), Nil ), JoseQuintasError( e ) } )