Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras do Sistema > Regra Alteração de Histórico

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.

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.");