× Linguagem de Programação ADVPL

Perguntas Restrição de itens do menu

Mais
11 anos 2 meses atrás #16533 por amaralneis
Boa Tarde, segue minha duvida


Tenho um menu com 5 itens, quero que o usuário JOAO tenha permissão para acessar os itens 1, 2 e 3 e o usuário Maria somente ao item 2 como consigo fazer isso ?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #16534 por lalberto
Respondido por lalberto no tópico Restrição de itens do menu
Filipe depende das opções, do módulo também, mas a principio o joão teria um menu especifico só pra ele e a maria também.

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #16536 por amaralneis
Respondido por amaralneis no tópico Restrição de itens do menu
Luiz vou ser mais especifico tem algum ponto de entrada para o MATA185 em que eu possa valida se o usuário tem permissão ou não de acesso ?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #16539 por lalberto
Respondido por lalberto no tópico Restrição de itens do menu
Olha o unico que encontrei que talvez serviria pra vc é o MTA185MNU, nele vc vai enchergar o vetor a Rotina que contem o menu do usuário, então você poderia montar o menu pra cada usuario, exemplo:

User Function MTA185MNU()
Local aArea := GetArea()

If __cUserID $ '000345' // se usuario igual a maria entao menu diferente
aRotina := { {'Pesquisar',"PesqBrw" , 0 , 1,0,.F.},; //"Pesquisar"
{'Visualizar',"AxVisual" , 0 , 2,0,Nil},; //"Visualizar"
{'Legenda',"A185Legenda" , 0 , 1,0,.F.},; //"Legenda"
{'Conhecimento',"MsDocument" , 0 , 4,0,Nil }} //"Conhecimento"
Endif

RestArea(aArea)
Return Nil

// {STR0042,"A185Tipo" , 0 , 2,0,Nil},; //"Tipo Baixa"
// {STR0003,"A185Baixar" , 0 , 3,0,NIL},; //"Baixar"
// {STR0054,"A185Estorn" , 0 , 5,0,Nil},; //"Estorno"
// {STR0004,"A185Exclui" , 0 , 5,0,Nil},; //"Excluir"
// {STR0037,"A185Encer" , 0 , 5,0,Nil},; //"Encerrar"


If ExistBlock ("MTA185MNU")
ExecBlock ("MTA185MNU",.F.,.F.)
EndIf

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.117 segundos
Joomla templates by a4joomla