Podemos controlar que cuando un usuario no borre documentos independientemente de su nivel de acceso
En el Script de Base de Datos utiliza el siguiente código:
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim s As NotesSession
Dim uiview As NotesUIView
Dim view As NotesView
Set uiview = ws.CurrentView
Set view = uiview.view
If view.Name = "Prueba" Then
Msgbox "No está permitido borrar documentos desde esta vista", 0+16, "Eliminar Documentos"
Continue = False
End If
End Sub
|
Otros documentos de LotusScript
|