Regra por Processo 685 - Geração de Diagnósticos.

Esta regra será chamada durante a geração de informações para o Diagnóstico. Na regra, poderão ser feitas buscas e consistências adicionais, e incluir os resultados no diagnóstico através da função AdicionarLinhaDiagnostico.

Recusos utilizados: Para esta regra não há tabelas disponíveis.

Ejemplo:

/* Busca empresas com o campo USU_Tst1 zerado. */
definir cursor cSQL;
definir numero xTipo;
definir alfa xSintoma;
definir alfa xCausa;
definir alfa xResolucao;
definir alfa xRelacionamento;

cSQL.SQL "SELECT NOMEMP FROM R030EMP WHERE USU_Tst1 = 0";
cSQL.AbrirCursor();
Enquanto (cSQL.Achou)
Inicio
xTipo = 2; @- Aviso -@
xSintoma = "Empresa " + cSQL.NOMEMP + " está com o campo USU_Tst1 = 0.";
xCausa = "Durante o cadastramento da empresa, não foi informado o campo USU_Tst1.";
xResolucao = "Informar o campo USU_Tst1 no cadastro da empresa.";
xRelacionamento = "Cadastro Empresa";
@- Adiciona a linha no diagnóstico -@
AdicionarLinhaDiagnostico (xTipo, xSintoma, xCausa, xResolucao, xRelacionamento);

cSQL.Proximo();
Orden;
cSQL.FecharCursor();

Utilização: Disponível para todos os módulos do Gestão de Pessoas | HCM.