Response

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

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

    Ogion7 Гость

    Итак вопрос. Есть документ, например Предмет. У енго есть дочерний документ Ответ(Response). У Ответа также есть дочерний ОтветКОтвету(Responsse to Respnse). Задача такая : сделать вьюв который
    отображает следуюшее:

    (Категория)Предмет
    ОтветКОтвету

    Если фомально сделать два столбца Предмет и ОтветКОтвету выводит пустые строки в которых находятся документы Ответ.
     
  2. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Назовем:
    Предмет - doc
    Ответ - rdoc
    ОтветКОтвету rrdoc

    Смысл: надо записать в документ rrdoc ссылку на doc и в представлении отобразить в виде документ-ответ.

    Ссылку в rrdoc записываем так (или при создании, или еще как-то):
    Код (Text):
    Dim refitem As NotesItem
    Dim doc As NotesDocument
    Dim rdoc As NotesDocument
    Dim rrdoc As NotesDocument
    ... 'здесь надо получить главный документ doc и rdoc
    Call rrdoc.MakeResponse(doc)
    Set refitem = rrdoc.GetFirstItem("$REF")
    Call rrdoc.CopyItem(refitem, "LinkToMainDoc") 'получим поле "LinkToMainDoc" типа Response Reference List со ссылкой на документ doc
    Call refitem.Remove
    Call rrdoc.MakeResponse(rdoc) ' делаем rrdoc ответом к rdoc
    Call rrdoc.Save(True, True, True)
    ... ' другие действия
    Тогда в представлении делаем так:
    Код (Text):
    DEFAULT $REF := LinkToMainDoc;
    SELECT {здесь как обычно}
     
  3. Ogion7

    Ogion7 Гость

    Документы можно получить таким образом?

    Код (Text):
    Dim s As New NotesSession
    Dim db As NotesDatabase
    .....
    Set db = s.CurrentDatabase
    Set rdoc=db.GetDocumentByUNID(rrdoc.ParentDocumentUNID)
    Set doc=db.GetDocumentByUNID(rdoc.ParentDocumentUNID)
    ....
    А форме этот код можно прописать в Initialize? :)
     
Загрузка...
Статус темы:
Закрыта.

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