UsuLstPermissoes

Esta função retorna mais detalhadamente as permissões liberadas ao usuário para cada objeto consultado. Ela retornará uma String com as siglas das permissões existentes concatenadas. A função pode ser utilizada em conjunto com a função de programador PosicaoAlfa para verificar se uma determinada opção está liberada para o usuário.

Sintaxe: UsuLstPermissoes(Numero pTipoPer, Alfa pObjeto, Alfa pRetorno);

Parâmetros:

Nome Tipo Descrição
pTipoPer Numérico Tipo da permissão, podendo ser:
1 - Interfaces / Telas do Sgi / Telas do Sistema;
2 - Itens de Menu;
4 - Modelos de Relatórios;
5 - Modelos de Importação/Exportação;
7 - Regras;
8 - Regras de Apuração;
9 - Regras de Integração;
10- Regras de Acertos.
pObjeto Numérico Nome do objeto cujas permissões a função pesquisará, podendo ser:

Tipo de permissão 1 - Deve-se informar o nome da tela do sistema que pode ser obtido pressionando Shift + F3 ou o nome da tela do SGI precedido de "USU_".
Ex.: "FR038AFA" - tela de histórico de afastamentos.

Tipo de permissão 2 - Ainda não está disponível.

Tipo de permissão 4 - Deve-se informar o nome do arquivo do modelo de relatório.
Ex.: "HRAP001.APU" - Modelo 1 da categoria AP dos modelos de apuração.

Tipo de permissão 5 - Deve-se informar o nome do arquivo do modelo de importação/exportação.
Ex.: "hrim001.scf" - Modelo 1 de importação.

Tipo de permissão 7 - Deve-se informar o nome do arquivo da regra.
Ex.: "HRRG001.LSP" - Regra 1.

Tipo de permissão 8 - Utilizado quando for definido na Central de Configuração (SeniorConfigCenter.exe) que será utilizado um diretório exclusivo para as regras de apuração. Deve-se informar o nome do arquivo da regra.
Ex.: "HRRG001.LSP" - Regra de apuração 1.

Tipo de permissão 9 - Utilizado quando for definido na Central de Configuração (SeniorConfigCenter.exe) que será utilizado um diretório exclusivo para as regras de integração. Deve-se informar o nome do arquivo da regra.
Ex.: "HRRG001.LSP" - Regra de integração 1.

Tipo de permissão 10 - Utilizado quando for definido na Central de Configuração (SeniorConfigCenter.exe) que será utilizado um diretório exclusivo para as regras de consistência de acertos. Deve-se informar o nome do arquivo da regra.
Ex.: "HRRG001.LSP" - Regra de consistência de acertos 1.

pRetorno Alfa

String com as opções liberadas ao usuário. Este retorno dependerá do parâmetro pTipoPer, podendo ser:
Tipo de permissão 1 - Retornará "C,A,I,D";
Tipos de permissão 3 até a 10 - Retornará "B,E,D,X";

Onde:
B - Permissão para Abrir;
E - Permissão para Editar;
D - Permissão para Excluir;
X - Permissão para Executar;
C - Permissão para Consultar;
A - Permissão para Alterar;
I - Permissão para Inserir.

Exemplo: 

@ Verificar se o usuário ativo no sistema possui permissão de inclusão na tela de histórico de Centro de Custo @

 

Definir Alfa StrPer;


UsuLstPermissoes(1, "FR038HCC", StrPer);
PosicaoAlfa ("I",StrPer,Vposicao);         @ Verifica se a função retornou a letra "I", que indica permissão para inclusão @

Se (Vposicao <> 0)        @ Se tiver permissão para incluir @

...

Senao        @ Se não tiver permissão para incluir @

...

Utilização: Em todas as regras do sistema.

Observação: De acordo com o tipo de permissão passado como parâmetro, a função irá utilizar os diretórios definidos na Central de Configuração (SeniorConfigCenter.exe) para buscar as permissões.

Este artigo ajudou você?