Valida Rol con Lotus Script

El siguiente còdigo realizar la validaciòn al querer editar el documento, en caso de que el usuario tenga un ROL diferente al de "supervisor" no podrà editar el documento y se visualizara el mensaje "El registro es de solo lectura".


Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Dim doc As NotesDocument
Set doc = source.Document Roles=Evaluate("@UserRoles")
If source.EditMode = False Then
If Roles(0) <> "[supervisor]" Then
Msgbox "El registro es de solo lectura.",16,"Error"
Continue =False
Exit Sub
End If
End If
End Sub
Valida Rol con Lotus Script Valida Rol con Lotus Script Revisado por Neo en 14:14 Clasificación: 5

No hay comentarios:

Comparte

Imágenes del tema: merrymoonmary. Con la tecnología de Blogger.