Сделал агента, который должен был дать на исходный документ права Читателя....ну а потом подобный, чтобы их убрать.
Агента, подписанного админом, пускал методом RunOnServer из дочернего документа.
Может он неправильно ищет нужный мне документ?
Код агента.
Dim doc As NotesDocument
Dim sess As New NotesSession
Dim db As NotesDatabase
Dim na As NotesAgent
Set na = sess.Currentagent
If na.Parameterdocid = "" Then
Set doc = sess.Documentcontext
Else
Set doc = sess.Currentdatabase.Getdocumentbyid(na.Parameterdocid)
End If
If (doc Is Nothing) Then
Exit Sub
End If
Dim mainProcDoc As notesdocument
Set mainProcDoc = db.GetDocumentByUNID(doc.GetItemValue("MainProcessID")(0))
mainProcDoc.DocReaders = FullTrim(ArrayAppend(mainProcDoc.DocReaders, sess.Username))
Call ws.ViewRefresh