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

Тема в разделе "Lotus - Программирование", создана пользователем LIGHT, 29 июн 2007.

Статус темы:
Закрыта.
  1. LIGHT

    LIGHT Гость

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

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

    LIGHT Гость

    Вот и я удивляюсь :blink: пойду посплю ;)
     
Загрузка...
Похожие Темы - Опять респонсы
  1. vitte
    Ответов:
    10
    Просмотров:
    2.876
  2. Renat11111
    Ответов:
    8
    Просмотров:
    3.702
  3. sanch
    Ответов:
    5
    Просмотров:
    3.083
  4. NickProstoNick
    Ответов:
    5
    Просмотров:
    2.702
  5. aameno2
    Ответов:
    4
    Просмотров:
    3.117
Статус темы:
Закрыта.

Поделиться этой страницей