Níveis de Acessos por usuários...

[Marcos]

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

[cnsdesigner]

eu faco diferente... eu tenho dois aquivos.
USERID.DBF
CODIGO
NOME
SENHA
CODACESSO
USERACESS.DBF
CODUSER
CODIACESSO
DESCR

TODA VEZ Q UM USUARIO ACESSAR ALGUM MODULO EU VERIFICO SE O CODIGO DO ACESSO ESTA CADASTRADO NO CODIGO DO USUARIO ( USERACESS,DBF ). SE ESTIVER BLZ, SE NAO. APARECE A MENSAGEM.

Desse jeito nao da esse erro que esta dando no seu.. pois o sistema verifica o codigo do usuario logado no sistema
deu pra entender?

[Marcos]

Obrigado cnsdesigner pela ajuda, vc poderia me mandar um exemplo se não for pedir muito.
Abraços,
Marcos

[cnsdesigner]

acho q por enquanto nao vai dar, pois e vou sair de ferias semana que vem, e tô cheio de trampo aqui, mas daqui a 15 dias eu volto e se vc quiser eu posso te mandar qdo eu voltar de ferias...

[Marcos]

Ok, cnsdesigner eu aguardo sua resposta, muito obrigado pela ajuda.

Abraços, e boas férias.

Marcos

[tonyx]

gostaria de verificar a rorina que tenho, consiste no arquivo de usuario e um outro arquivo de rede
o de usuario e para cadastro e tem o campo de nivel, e de rede para
controlar quen entrou e saiu, e que rotina que esta, dentro do sistema antes de entrar no relatorio verifica o acesso e mostra a menssagem e bem simples. e caso rotina de calculo so um entra.

[Marcos]

tonyx, estou precisando de uma rotina assim mesmo, se puder me enviar, o meu endereço é:
daroca@terra.com.br

Abraços,
Marcos

[tonyx]

ja mandei os exemplos

[Marcos]

Obrigado Tonyx vou testa-los.

Abraços,
Marcos

[Marcos]

Gostaria de obter mais informações a respeito, ainda não consegui resolver meu problema...

Marcos

[gvc]

Este tb é antigo.

Código: Selecionar todos

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 

Reparei que o sistema vai para o último registro do arquivo ACESSOS. Assim só é verificado o direito de acesso do último registro e não do usuário que esta trabalhando com o sistema.
Use o DBSEEK para procurar o usuário na tabela e verifique os direitos de acesso do mesmo.