PUBLIC OldHandler
OldHandler := ErrorBlock()
ErrorBlock( { | e | JoseQuintasError( e ), Eval( OldHandler, e ) } )
E acabei descobrindo "erros ocultos".
Error on 19/07/2018 20:34:18
Alias:
OS: Linux ELF & Glibc-2.1 Release 2.2.17-14cl #1 Wed Nov 1 20:41:39 EST 2000
Compiler: FlagShip 4.48.7452 (1024 users)
database arqncm.dbf;is multiply opened in different work areas: NFE0702.PRG, module NFE0702 line 23
Called from NFE0702(23)
Called from F_IMDT(247)
Called from F_LOTREV(77)
Called from NFE0600(36)
Called from MAIN(209)
Resumindo:
chama as duas errorsys em seguida, sendo que a minha apenas registra o erro e nada mais.
No erro acima, o Flagship nem sequer mostrava mensagem, continuava normalmente.
Ao colocar desse jeito, o erro foi registrado.
Significa que a errorsys do Flagship é chamada, mas continua normalmente.
Pode ser uma solução para aqueles que tem errorsys diferente que bagunça as mensagens de erro.