Acceso a un documento segun el Rol

Ver el tema anterior Ver el tema siguiente Ir abajo

Acceso a un documento segun el Rol

Mensaje por JoseRios el Lun Feb 25, 2008 5:26 pm

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
avatar
JoseRios

Cantidad de envíos : 39
Edad : 32
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

Ver perfil de usuario http://noteroschile.wordpress.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.