catchException
Versión Estable
Esta é uma classe VFP que visa capturar exceções e registrá-las em um log e, se necessário, relançá-las em um nível superior.
Nenhum! Não há dependência!
git clone https://github.com/raulvfp/catchException.git catchException
Propriedades:
Métodos:
1º - Este exemplo não relança a exceção em um nível superior, mas a controla no bloco catch
bRelanzarThrow = .F. &&NO Relanza la excepcion.
TRY
*--- Este es una excepcion generada con THROW
THROW lcExpectedValue
CATCH TO loEx
loTmp = CREATEOBJECT('catchException', bRelanzarThrow)
THIS.MessageOut('Esto me indica si es un error o algo generador por el programador: ' +loEx.Message)
THIS.MessageOut('Valor de userValue: '+loEx.UserValue)
ENDTRY
2º - Neste exemplo a exceção é lançada para um nível superior para controle
bRelanzarThrow = .T. &&Relanza la excepcion al nivel superior.
TRY
*--- Este es una excepcion generada con THROW
THROW lcExpectedValue
CATCH TO loEx
loTmp = CREATEOBJECT('catchException', bRelanzarThrow)
*-- No se ejecuta nada despues del CREATEOBJECT('catchException')
ENDTRY