MNTA902A - Controle de Acesso no Clique da Direita

Ponto de entrada que permite controlar os usuários com acesso a determinadas opções do clique da direita da árvore lógica.

User Function MNTA902A()

//Local cCodNiv := PARAMIXB[1]
Local cTipo := PARAMIXB[2]
Local cOperac := PARAMIXB[3]
//Local cRestri := PARAMIXB[4]
Local lRetR := PARAMIXB[5]
Local aPermi := {"Administrador","Pedro.Silva","Joao.Silva"}
Local lRetU := .T.
Local nX

//Bem e exclusão, SS e Inclusão e Ordem de Serviço e Corretiva
If (cTipo == "B" .And. cOperac == "E") .Or. (cTipo == "S" .And. cOperac == "I") .Or. (cTipo == "O" .And. cOperac == "C")
If Len(aPermi) >= 0
lRetU := .F.
For nX := 1 To Len(aPermi)
If Upper(Trim(cUsername)) == AllTrim(Upper(aPermi[nX]))
lRetU := .T. //Se o usuário estiver no param, as opções acima aparecerão no clique da direita
EndIf
Next
EndIf
EndIf

Return (lRetU .And. lRetR)

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

PARAMIXB[1]: Código do Nível
PARAMIXB[2]: Tipo (Bem, OS, SS, etc...)
PARAMIXB[3]: Operação (Incluir, Excluir, etc...)
PARAMIXB[4]: Restrição
PARAMIXB[5]: Retorno da função de Permissão de Acesso

Se Verdadeiro: Usuário logado tem acesso às opções especificadas
Se falso: Usuário logado não tem acesso às opções especificadas

MNTA902.prw