Estou precisando montar uma rotina para quando ocorrer algum erro fatal em tempo de execução, o sistema não aborte, simplesmente retorne ao menu.
No NG até tem um exemplo que funciona. Quando há algum erro ele retorna ao menu sem sair do sistema. O problema é que ele não está mostrando qual foi o erro e nem criando o ERROR.LOG, que acho extremamente importante.
Alguma sugestão??? Segue o exemplo do NG.
Código: Selecionar todos
Local bErrorHandler, bLastHandler, objErr
bErrorHandler := { |objError| MyErrorHandler(objError) }
bLastHandler := ErrorBlock( bErrorHandler )
Do While .t.
Begin Sequence
****
MENU
****
Recover Using objErrorInfo
// ErrorSys() // se chamar aqui o errorsys ele aborta
Alert("ERRO NO SISTEMA. AVISO AO ADMINISTRADOR")
Loop
EndSequence
ErrorBlock( bLastHandler )
Return
Func MyErrorHandler( objError )
Break objError
Return nil
