Опять респонсы

  • Автор темы LIGHT
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

LIGHT

#1
Подскажите почему может не работать такой агент.
Код:
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 
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document 
Set db = doc.ParentDatabase 

newReaders = doc.GetItemValue("ctbExecutorLN") ' LN имя юзера

Set parentDoc = doc
Do	
Set parentDoc = db.GetDocumentByUNID(parentDoc.ParentDocumentUNID)
parentDoc.ReplaceItemValue("Access_Readers",Fulltrim(Arrayunique(Arrayappend(parentdoc.GetItemValue("Access_Readers"), newReaders)))).isReaders = True
parentDoc.Save False, False	
Loop While parentdoc.IsResponse 
End Sub
Получается так.
Докумены ответа

Родитель
- Ответ
-- Ответ
--- Ответ
---- Ответ

Данный агент правит только 1 (предыдущий) верхний документ, а мне нужно что бы правило все вверх до упора.
Агент работает от имени админа, права есть.
 
E

Elena Nefedova

#2
<!--QuoteBegin-LIGHT+29:06:2007, 14:20 -->
<span class="vbquote">(LIGHT @ 29:06:2007, 14:20 )</span><!--QuoteEBegin-->Подскажите почему может не работать такой агент
[snapback]70887" rel="nofollow" target="_blank[/snapback]​
[/quote]А дебаггер-то что говорит? Сколько раз цикл выполняется? У меня лично этот агент правит все, кроме текущего открытого документа :)
 
Статус
Закрыто для дальнейших ответов.