Microsiga: Função para exibir a descrição em português de qualquer erro do Protheus
#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
User Function DescErro(_nr)
Local cMensagem := ""
Do Case
case _nr == -1 ; cMensagem:=' A operação falhou ou erro indefinido '
case _nr == 0 ; cMensagem:=' sucesso da operação '
case _nr == 1 ; cMensagem:=' (Código de erro inesperado) '
case _nr == 688 ; cMensagem:=' Versão incompatível do pacote de série. '
case _nr == 689 ; cMensagem:=' A versão do pipe IDL não é suportado. '
case _nr == 690 ; cMensagem:=' Versão incompatível do stub de RPC. '
....
EndCase
if len(cMensagem)<=160
Aviso("Atenção",Mensagem,{"Ok"},2)
else
Aviso("Atenção",Mensagem,{"Ok"},3)
endif
Return
