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.

<div class="Code"><p><span style="font-family: 'Courier New';">/* Busca empresas com o campo USU_Tst1 zerado. */<br></br>definir cursor cSQL;<br></br>definir numero xTipo;<br></br>definir alfa xSintoma;<br></br>definir alfa xCausa;<br></br>definir alfa xResolucao;<br></br>definir alfa xRelacionamento;<br></br><br></br>cSQL.SQL "SELECT NOMEMP FROM R030EMP WHERE USU_Tst1 = 0";<br></br>cSQL.AbrirCursor();<br></br>Enquanto (cSQL.Achou)<br></br>Inicio<br></br>xTipo = 2; @- Aviso -@<br></br>xSintoma = "Empresa " + cSQL.NOMEMP + " está com o campo USU_Tst1 = 0.";<br></br>xCausa = "Durante o cadastramento da empresa, não foi informado o campo USU_Tst1.";<br></br>xResolucao = "Informar o campo USU_Tst1 no cadastro da empresa.";<br></br>xRelacionamento = "Cadastro Empresa";<br></br>@- Adiciona a linha no diagnóstico -@ <br></br>AdicionarLinhaDiagnostico (xTipo, xSintoma, xCausa, xResolucao, xRelacionamento);<br></br><br></br>cSQL.Proximo();<br></br>Fim;<br></br>cSQL.FecharCursor();</span></p></div>

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