Regra Alteração de Histórico

Definir Numero x;
Definir Numero vTotGrupos;
Definir Alfa vGrupo;

 

vTotGrupos = RetornaQtdGrupos();

 

Para (x = 1; x <= vTotGrupos; x++)
  Inicio
    /* 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 */
    RetornaDesGrupo(x, vGrupo);

    /* 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 */;
  Fim;

 

Se ((vgrupo <> 4) e (R038Afa.SitAfa = 7))
  Mensagem(erro,"Este usuário não tem permissão para inserir afastamento de Demissão.");