UsuTemPermissao

Esta função retorna 1 caso o usuário ativo no sistema possua permissão para o objeto passado como parâmetro, mesmo que seja permissão apenas de consulta, e 0 caso o usuário não possua nenhuma permissão.

Sintaxe: UsuTemPermissao(Numero pTipoPer, Alfa pObjeto);

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 Alfa

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.

Exemplo:

@ Verificar se o usuário ativo no sistema possui permissão para a regra de integração de código 15. @

TemPer = UsuTemPermissao(9, "HRRG015.LSP");

 

Se TemPer = 1  @ Se tiver permissão @

...

Senao          @ Se não tiver permissã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.

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

Este artigo ajudou você?