Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.3 aqui

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

Este artigo ajudou você?