Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite controlar usuários com acesso a determinadas opções do clique da direita da Árvore Lógica (MNTA902)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA902

Árvores


Rotina(s) envolvida(s)

Nome Técnico

MNTA902A


Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Árvore (MNTA902) que permite controlar os usuários com acesso a determinadas opções do clique de direita da árvore lógica

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Árvore/Árvore

Programa Fonte:

MNTA902.prw

Função:

MNTA9029()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterCódigo do Nível
ParamIXB[2]CaracterTipo (Bem, OS, SS, etc)
ParamIXB[3]CaracterOperação (Incluir, Excluir, etc)
ParamIXB[4]CaracterRestrição
ParamIXB[5]LógicoRetorno da função de Permissão de Acesso

Retorno:

NomeTipoDescriçãoObrigatório
lRetULógicoSe verdadeiro, usuário logado tem acesso as opções especificadas, caso contrário, o usuário não tem acessoX
lRetRLógicoRetorno da função de Permissão de AcessoX
Exemplo do Ponto de Entrada MNTA902A()
#Include 'Protheus.ch'

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)