English
Español
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 |
<div class="Code"><p>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>@- Empresas sem número de telefone -@<br></br>cSQL.SQL "SELECT NOMEMP FROM R030EMP WHERE NUMTEL = ' '";<br></br>cSQL.AbrirCursor();<br></br>Enquanto (cSQL.Achou)<br></br>Inicio<br></br>@- Aviso -@<br></br>xTipo = 2;<br></br>xSintoma = "Empresa " + cSQL.NOMEMP + " não possui telefone.";<br></br>xCausa = "Durante o cadastramento da empresa, não havia um telefone definido.";<br></br>xResolucao = "Informar o número de telefone no cadastro da empresa.";<br></br>xRelacionamento = "Cadastro Empresa";<br></br>@- Adiciona no diagnóstico a linha -@ <br></br>AdicionarLinhaDiagnostico (xTipo, xSintoma, xCausa, xResolucao, xRelacionamento);<br></br><br></br>cSQL.Proximo();<br></br>Fim;<br></br>cSQL.FecharCursor();</p></div>
Utilização: Regras.
English
Español
