Foro NoterosChile
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Acceso a un documento segun el Rol

Ir abajo

Acceso a un documento segun el Rol Empty Acceso a un documento segun el Rol

Mensaje por JoseRios 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
JoseRios
JoseRios

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

http://noteroschile.wordpress.com

Volver arriba Ir abajo

Volver arriba

- Temas similares

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