Página 1 de 1

ErrorBlock() + impressão

Enviado: 24 Mai 2015 12:01
por 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 ?

ErrorBlock() + impressão

Enviado: 25 Mai 2015 08:27
por 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 76 vezes

ErrorBlock() + impressão

Enviado: 25 Mai 2015 12:23
por Hasse
Obrigado.
Vou testar.