1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

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

    LIGHT Гость

    Репутация:
    0
    Подскажите почему может не работать такой агент.
    Код:
    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 Гость

    Репутация:
    0
    <!--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 Гость

    Репутация:
    0
    Вот и я удивляюсь :blink: пойду посплю ;)
     
Загрузка...
Похожие Темы - Опять респонсы
  1. vitte
    Ответов:
    10
    Просмотров:
    3.090
  2. Renat11111
    Ответов:
    8
    Просмотров:
    3.813
  3. sanch
    Ответов:
    5
    Просмотров:
    3.147
  4. NickProstoNick
    Ответов:
    5
    Просмотров:
    2.771
  5. aameno2
    Ответов:
    4
    Просмотров:
    3.183
Статус темы:
Закрыта.

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