Níveis de Acessos por usuários...
Enviado: 20 Jul 2004 13:43
Olá a todos do Fóum, estou com um problema em uma rotina de verificação de poderes ao Usuário, e gostaria de pedir a ajuda deste conceituado fórum.
Tenho um DBF de Acessos, onde são cadastrados o Nome do usuário, a hora, a data e os poderes que ele tem para movimentar-se dentro do sistema, só que na minha rotina abaixo, onde é checado o seu poder assim que ele entra em um determinado módulo do sistema não está de acordo, pois, se um 1º usuário entrar no Cadastro de Clientes e este usuário tiver poder para entrar, blz, mas se um 2º usuário entrar também no Cadastro de Clientes e não tiver poder para acessa-lo, blz o sistema soará a mensagem que ele deve sair, por não estar autorizado a acessar tal módulo, agora vem o problema, se o primeiro usuário tentar novamente acessar o Cadastro de Clientes ele não terá mais permissão, porque ficou gravado os dados do último usuário que não tinha permissão, será que fui claro. Veja a rotina:
Select ACESSOS
Goto bottom
xcad_cli:=CLIEN_ACAD //
if xcad_cli= "N"
som(1)
msgbox1(ALLTRIM(usa)+", M¢dulo nÆo dispon¡vel para vocˆ, desculpe")
rstenv(telaCli)
return .F.
Else
Se alguém puder me ajudar, agradeceria muito, pois está faltando isto em meu programa e tenho um cliente que precisa deste controle de usuário, aceito sugestões para resolver tal problema.
Abraços,
Marcos
Tenho um DBF de Acessos, onde são cadastrados o Nome do usuário, a hora, a data e os poderes que ele tem para movimentar-se dentro do sistema, só que na minha rotina abaixo, onde é checado o seu poder assim que ele entra em um determinado módulo do sistema não está de acordo, pois, se um 1º usuário entrar no Cadastro de Clientes e este usuário tiver poder para entrar, blz, mas se um 2º usuário entrar também no Cadastro de Clientes e não tiver poder para acessa-lo, blz o sistema soará a mensagem que ele deve sair, por não estar autorizado a acessar tal módulo, agora vem o problema, se o primeiro usuário tentar novamente acessar o Cadastro de Clientes ele não terá mais permissão, porque ficou gravado os dados do último usuário que não tinha permissão, será que fui claro. Veja a rotina:
Select ACESSOS
Goto bottom
xcad_cli:=CLIEN_ACAD //
if xcad_cli= "N"
som(1)
msgbox1(ALLTRIM(usa)+", M¢dulo nÆo dispon¡vel para vocˆ, desculpe")
rstenv(telaCli)
return .F.
Else
Se alguém puder me ajudar, agradeceria muito, pois está faltando isto em meu programa e tenho um cliente que precisa deste controle de usuário, aceito sugestões para resolver tal problema.
Abraços,
Marcos