Regra Alteração de Histórico

Neste exemplo, usuários que não pertencem ao grupo de usuários 4 (Recursos Humanos) não têm permissão para incluir afastamento de demissão.

<div class="Code"><p>Definir Numero x;<br></br>Definir Numero vTotGrupos;<br></br>Definir Alfa vGrupo;</p><p></p><p>vTotGrupos = RetornaQtdGrupos();</p><p></p><p>Para (x = 1; x &#x3C;= vTotGrupos; x++)<br></br> Inicio<br></br> /* O uso conjunto das duas funções possibilita a verificação de todos os grupos a que o usuário pertence, de uma maneira rápida e fácil */<br></br> RetornaDesGrupo(x, vGrupo);<br></br><br></br> /* A função retorna a Descrição do Grupo a que o usuário pertence na variável vGrupo. Com vGrupo definida, pode-se efetuar as verificações necessárias */;<br></br> Fim;</p><p></p><p>Se ((vgrupo &#x3C;> 4) e (R038Afa.SitAfa = 7))<br></br> Mensagem(erro,"Este usuário não tem permissão para inserir afastamento de Demissão.");</p></div>