Problemas com Errorsys.prg no clipper 5.3

[binho_fasa]

Pessoal, migrei meu sistema do clipper 5.2e para clipper 5.3b (REV 338) e estou tendo problemas agora com o errorsys.prg. Eu tenho uma lib que contém o arquivo ERRORSYS.PRG mas qdo. ocorre um erro, é chamada a função ERRORSYS original e não a contida na lib. Se coloco no .PRG principal uma chamada a função contida na lib (Errorblock(<função da lib>)) , ai funciona. Não tenho esse problema com o clipper 5.2.
Alguém tem alguma dica?

[]´s

[Toledo]

Binho_fasa,

Acho que não existe uma outra maneira, você tem que criar no seu programa uma procedure chamada ERRORSYS.

Exemplo:

Código: Selecionar todos

PROC ERRORSYS()
ERRORBLOCK({|erro| SUAFUNCAO(erro)})
RETU

Abraços,