Gestão de Pessoas - Manual do Usuário > Customizações > Funções > AdicionarLinhaDiagnostico

AdicionarLinhaDiagnostico

Adiciona uma linha no diagnóstico que está sendo processado.

Sintaxe: AdicionarLinhaDiagnostico(Numero Tipo, Alfa Sintoma, Alfa Causa, Alfa Resolucao, Alfa Relacionamento);

Parâmetros:

Nome	Tipo	Descrição
Tipo	Numérico	Variável do tipo numérica sendo: 1 (Erro), 2 (Aviso) ou 3 (Informativo).
Sintoma	Alfa	Variável do tipo Alfanumérica: Este parâmetro não pode estar vazio.
Causa	Alfa
Resolucao	Alfa
Relacionamento	Alfa

Exemplo:

definir cursor cSQL;
definir numero xTipo;
definir alfa xSintoma;
definir alfa xCausa;
definir alfa xResolucao;
definir alfa xRelacionamento;

@- Empresas sem número de telefone -@
cSQL.SQL "SELECT NOMEMP FROM R030EMP WHERE NUMTEL = ' '";
cSQL.AbrirCursor();
Enquanto (cSQL.Achou)
Inicio
@- Aviso -@
xTipo = 2;
xSintoma = "Empresa " + cSQL.NOMEMP + " não possui telefone.";
xCausa = "Durante o cadastramento da empresa, não havia um telefone definido.";
xResolucao = "Informar o número de telefone no cadastro da empresa.";
xRelacionamento = "Cadastro Empresa";
@- Adiciona no diagnóstico a linha -@
AdicionarLinhaDiagnostico (xTipo, xSintoma, xCausa, xResolucao, xRelacionamento);

cSQL.Proximo();
Fim;
cSQL.FecharCursor();

Utilização: Regras.