Categorias

Função para exibir descrição em portugues de qualquer erro do Protheus

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

Arquivos para Download:

DescErro.zip