Ошибка при копировании Notesitem в документ

Тема в разделе "Lotus - Программирование", создана пользователем LuMee, 14 окт 2009.

  1. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Доброго всем времени суток.
    Имеется база в Lotus 7. В ней есть агент (на новые и измененные документы), одной из задач которого является копирование в обрабатываемые документы полей Authors и Readers из их родителей. Выглядит код примерно так:
    Код (Text):
    Set doc = ...'вытаскиваю очередной обрабатываемый документ
    Set parent = database.GetDocumentByUNID(doc.ParentDocumentUNID)
    If Not parent Is Nothing Then
    SetAccess doc, parent
    doc.Save True, False
    End If
    При вызове процедуры SetAccess в вышеприведенном куске выскакивает ошибка Function requires a valid ADT argument. Код процедуры такой:
    Код (Text):
    Sub SetAccess(document As NotesDocument, parent As NotesDocument)
    document.RemoveItem "Authors"
    document.RemoveItem "Readers"

    document.CopyItem parent.GetFirstItem("Authors"), "Authors"
    document.CopyItem parent.GetFirstItem("Readers"), "Readers"
    End Sub
    Ну а чтобы было совсем весело, ошибка эта появляется только у заказчика, на моей машине в "лабораторных" условиях агент отрабатывает нормально. Подписан он учеткой менеджера базы, имеющего полный доступ ко всем документам (проверено).
    Читал в инете про вышеуказанную ошибку, однако все равно не понимаю, откуда она может возникать у меня в коде. Нуждаюсь в помощи, заранее спасибо.
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Код (Text):
    document.CopyItem parent.GetFirstItem("Authors"), "Authors"
    document.CopyItem parent.GetFirstItem("Readers"), "Readers"
    Ну а если у parent нет поля Authors/Readers? Как раз ошибка будет.
     
Загрузка...

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