Acceso a un documento segun el Rol
Página 1 de 1.
Acceso a un documento segun el Rol
Este código de debe poner en el Queryopen de la form, al abrir el documento se cancelara la apertura si el usuario no tiene el Rol de "supervisor".
- Código:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( session.UserName )
If Not ( entry.IsRoleEnabled( "supervisor" ) ) Then
continue = False
End If
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|