Perguntas Acessos

Olá Roberto !

Tive um caso parecido com este, resolvi usando o PE CALLCHGXNU, que permite mudar o menu do usuário quando ele entrar em qualquer módulo.

No exemplo que segue, eu fiz assim…

Todos os menus de usuário, independente do nome do menu terminam com o número da filial a qual o menu esta atrelado, exemplo

sigactb02.xnu - para filial 01
sigactb04.xnu - para filial 04

No cadastro do usuário tanto faz você atribuir o menu sigactb.xnu (padrão), ou um dos menus configurados para filial, se o sistema encontrar um menu adequado para filial que o usuário esta acessando ele vai usar tal menu, se não encontrar então prevalece o menu que esta configurado para o usuário.

No seu caso crie um menu em branco para a filial que o usuário não pode acessar a contabilidade, assim por mais que ele acesse, só vai ter a opção Sair e Help disponíveis.

Espero ter ajudado !

Compartilhe com o grupo se der certo !

att.


#include 'fivewin.ch'

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³CALLCHGXNUºAutor ³ JULIO CESAR STORINO º Data ³ 31/10/07 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ PONTO DE ENTRADA: Ajusta o menu do usuario para acessar º±±
±±º ³ dependendo da filial e da empresa. º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ SIGAADV º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDATA ³ ANALISTA ³ MOTIVO º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±º ³ ³ º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

User Function CallChgXNU()

Local cNomeMenu := ParamIXB[5]
Local cNewMenu := ''
Local cNum1 := ''
Local cNum2 := ''
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ParamIXB: ³
//³// [1] - ID do Usuario ³
//³// [2] - Codigo da Empresa³
//³// [3] - Filial da Empresa³
//³// [4] - Codigo do Modulo ³
//³// [5] - Nome do Menu ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

cNewMenu := Substr(cNomeMenu,1,AT('.',cNomeMenu)-1)

cNum1 := Substr(cNewMenu,Len(cNewMenu),1)
cNum2 := Substr(cNewMenu,Len(cNewMenu)-1,1)

If (cNum1 $ '0123456789') .And. (cNum2 $ '0123456789') //e menu de filial.. mudar.
cNewMenu := Substr(cNomeMenu,1,AT('.',cNomeMenu)-3)+ParamIXB[3]+'.XNU'
Else
cNewMenu := Substr(cNomeMenu,1,AT('.',cNomeMenu)-1)+ParamIXB[3]+'.XNU'
EndIF

If !FILE(cNewMenu)
cNewMenu := cNomeMenu
EndIF

Return( cNewMenu )


Julio Cesar Storino
 (65) 9973-1596
 <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e -->


☛ <!-- w --><a class="postlink" href=" www.jcstorino.com.br "> www.jcstorino.com.br </a><!-- w -->

Em 11/02/2011, às 11:26, Roberto (Protheus10) escreveu:



Bom dia

To com um problema, tenho varias empresas e varios funcionarios no microsiga, tem funcionario que tem acesso a contabilidade de uma empresa mais não dever ter acesso de outra, por ela ter acesso a outros modulos dessa outra empresa acaba tendo acesso contabilidade tambem.

alguem tem esse problema, conseguiu resolver?

qualquer sugestão agradeço.


Grato

Roberto
<!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e -->
<!-- m --><a class="postlink" href=" www.rrrw.com.br "> www.rrrw.com.br </a><!-- m -->