Início
johnperpir 15/5/2014, 22:18Neste exemplo pretendia saber, se possível, onde encontrar a variável X (excluir, inserir, alterar), uma vez que adaptado para o meu sistema não funciona.
segue imagem...
segue imagem...
SysCOB-permissões
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
Convidado- Convidado
Bon dia John..
No módulo VarPublicas.
Cumprimentos.
No módulo VarPublicas.
Cumprimentos.
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
HARYSOHN, eu já tinha visto essa parte, só que os formulários não reconhecem esta variável.
Ou esqueci-me de algum pormenor?
Ou esqueci-me de algum pormenor?
Convidado- Convidado
Não..este módulo estando no seu projeto a variável obrigatoriamente deverá ser reconhecida...
Caso não consiga, envie-me um modelo com um form e os objetos de login para que eu possa ver isto pra ti
Cumprimentos.
Caso não consiga, envie-me um modelo com um form e os objetos de login para que eu possa ver isto pra ti
Cumprimentos.
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
HARYSOHN, boas!
segue o exemplo.
Cumprimentos.
segue o exemplo.
Cumprimentos.
- Anexos
exemplojp.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (420 Kb) Baixado 27 vez(es)
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
alguma resolução para este pequeno problema?
Já fiz algumas alterações, mas ainda não resulta.
Private Sub Form_Load()
Call fPermissõesX
End Sub
Sub fPermissõesX()
Dim filtro
Call fPermissões(Me)
filtro = "objeto = '" & Me.Name & "'"
filtro = "Idfuncao = " & DLookup("idFuncao", "tblFunções", filtro) & " AND idUsuario =" & CLng(Login.id)
If Nz(DLookup("excluir", "tblpermissoesUsuarios", filtro), "false") = False Then
XExcluir = False
Me.AllowDeletions = False
Else
XExcluir = True
Me.AllowDeletions = True
End If
If Nz(DLookup("inserir", "tblpermissoesUsuarios", filtro), "false") = False Then
XInserir = False
Me.AllowAdditions = False
Else
XInserir = True
Me.AllowAdditions = True
End If
If Nz(DLookup("Atualizar", "tblpermissoesUsuarios", filtro), "false") = False Then
XAlterar = False
Me.AllowEdits = False
Else
XAlterar = True
Me.AllowEdits = True
End If
End Sub
Já fiz algumas alterações, mas ainda não resulta.
Private Sub Form_Load()
Call fPermissõesX
End Sub
Sub fPermissõesX()
Dim filtro
Call fPermissões(Me)
filtro = "objeto = '" & Me.Name & "'"
filtro = "Idfuncao = " & DLookup("idFuncao", "tblFunções", filtro) & " AND idUsuario =" & CLng(Login.id)
If Nz(DLookup("excluir", "tblpermissoesUsuarios", filtro), "false") = False Then
XExcluir = False
Me.AllowDeletions = False
Else
XExcluir = True
Me.AllowDeletions = True
End If
If Nz(DLookup("inserir", "tblpermissoesUsuarios", filtro), "false") = False Then
XInserir = False
Me.AllowAdditions = False
Else
XInserir = True
Me.AllowAdditions = True
End If
If Nz(DLookup("Atualizar", "tblpermissoesUsuarios", filtro), "false") = False Then
XAlterar = False
Me.AllowEdits = False
Else
XAlterar = True
Me.AllowEdits = True
End If
End Sub
Convidado- Convidado
Mande compilar o sistema e veja que erro acontece.
Cumprimentos.
Cumprimentos.
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
HARYSOHN, boas!
Ao compilar dava vários erros, um deles continha um formulário que nada tinha a ver com o meu sistema. Veja agora com esta correcção.
Cumprimentos.
Ao compilar dava vários erros, um deles continha um formulário que nada tinha a ver com o meu sistema. Veja agora com esta correcção.
Cumprimentos.
- Anexos
- exemplojp.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (463 Kb) Baixado 36 vez(es)
Convidado- Convidado
Veja bem... este sistema de login é o do Avelino?
Cumprimentos.
Cumprimentos.
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
HARYSOHN, boas!
Não lhe sei dizer ao certo, mas penso que não.
Retirei-o do site do mabesi.com.
Há algum problema?
Cumprimentos.
Não lhe sei dizer ao certo, mas penso que não.
Retirei-o do site do mabesi.com.
Há algum problema?
Cumprimentos.
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
Up...
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
Up...
johnperpir- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 18
Registrado : 10/05/2014
HARYSOHN, boas!
O meu problema prende-se com o seguinte:
1º-Quando imponho permissões para um certo usuário, que posso chamar de (x), elas funcionam na perfeição, faço o logoff;
2º-Quando volto a entrar com otro usuário, (y), as permissões para este são as mesmas de (x), e assim secesivamente com outros usuários;
3º-Agora pergunto a si ou a quem me possa ajudar, aonde está a falha?
Cumprimentos.
O meu problema prende-se com o seguinte:
1º-Quando imponho permissões para um certo usuário, que posso chamar de (x), elas funcionam na perfeição, faço o logoff;
2º-Quando volto a entrar com otro usuário, (y), as permissões para este são as mesmas de (x), e assim secesivamente com outros usuários;
3º-Agora pergunto a si ou a quem me possa ajudar, aonde está a falha?
Cumprimentos.