L
LIGHT
Написал агента который делает следующее, когда сохраняется документ ответ, в родителей вверх до упора в поле дописываются определенные данные.
Сам агент работает 100% так как задумано
Но такое чувство что установка работать агенту от имени пользователя с правами на редактирование документов в БД не подцепляется. Т.е он правит только те доки на которые у текущего пользователя есть право редактировать а остальные нет. Может кто чего посоветует.
Не хотелось бы юзеру давать право редактора верхних доков.
Сам агент работает 100% так как задумано
Но такое чувство что установка работать агенту от имени пользователя с правами на редактирование документов в БД не подцепляется. Т.е он правит только те доки на которые у текущего пользователя есть право редактировать а остальные нет. Может кто чего посоветует.
Sub Initialize
'****************************************************************************
*********
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim parentdoc As notesdocument
Dim db As NotesDatabase
Dim newReaders As Variant
Dim parentReaders As Variant
Dim OkReaders As Variant
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set db = doc.ParentDatabase
newReaders = doc.GetItemValue("ReadersListDump")
Set parentDoc = doc
Do
Set parentDoc = db.GetDocumentByUNID(parentDoc.ParentDocumentUNID)
parentReaders = parentDoc.GetItemValue("ReadersListDump")
parentDoc.ReplaceItemValue("ReadersListDump", Fulltrim(Arrayunique(Arrayappend(parentdoc.GetItemValue("ReadersListDump"), newReaders)))).isReaders = True
parentDoc.Save False, False
Loop While parentdoc.IsResponse
End Sub
Не хотелось бы юзеру давать право редактора верхних доков.