viernes, 15 de mayo de 2009

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

No hay comentarios: