Função que retorna as descrições das mensagens de erro do Protheus em Português.
Como muitos de nós programadores ADPVL nos confrontamos com algumas mensagens de erros do Protheus que, ao invés de retornar a descrição do erro, simplesmente retornam o código do erro. Em uma situação como essa temos que criar pequenas funções com os prováveis erros.
Para solucionar esse problema, criei um rotina que recebe como parâmetro o código do erro e retorna a descrição do erro em português.
Compile o programa no ambiente e chame de qualquer lugar do sistema: u_ DescErro(codigo_erro)
//Rodrigo Lacerda P Araujo
//Função que retorna as decrições das mensagens de erro do Protheus em Português
//
#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 == 2 ; cMensagem:=' Caminho / Arquivo não encontrado '
case _nr == 3 ; cMensagem:=' (Código de erro inesperado) '
...
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
Aviso("Atenção",cMensagem,{"Ok"},3)
Return
