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: |
| ||||||||
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: |
| ||||||||||||||||||
Retorno: |
|
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)
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas