ErrorBlock() + impressão

[Hasse]

Bom dia colegas.

Tenho uma rotina de tratamento de erro, como:

Código: Selecionar todos

FUNCTION Main()
   ...
   LOCAL oError       := ErrorBlock( { | oError | MyErrorFunc( oError ) } )
   ...

Dentro da Function MyErrorFunc(), preciso inserir uma impressão, para informar ao usuário que houve um determinado ERRO e quais as providências que deverão ser tomadas.

Tentei inserir as linhas de impressão diretamente na Function MyErrorFunc(). Não funcionou.

Tentei inserir uma chamada para uma função externa que fizesse a impressão. Também não funcionou.

Simplesmente nada acontece.

Alguém já passou esta situação ?
Como resolver ?

[Cavalo Marinho]

Bom dia Hasse, não sei se é o caso pois voce está usando minigui, mas acho que funciona, dá uma olhadinha no arquivo f_erros.prg em anexo, claro que estou utilizando modo console, mas acho que dever servir para você se guiar, neste arquivo quando é encontrado um erro eu tomo a decisão se vai par tela, arquivo ou impressora, imprimindo o erro encontrado e um trace do erro.

F_ERROS.PRG

(19.29 KiB) Baixado 75 vezes

[Hasse]

Obrigado.
Vou testar.