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

[LIGHT]

Подскажите почему может не работать такой агент.

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 (предыдущий) верхний документ, а мне нужно что бы правило все вверх до упора.
Агент работает от имени админа, права есть.

 

[Elena Nefedova]

<!--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]А дебаггер-то что говорит? Сколько раз цикл выполняется? У меня лично этот агент правит все, кроме текущего открытого документа

 

[LIGHT]

Вот и я удивляюсь :blink: пойду посплю