Response

[Ogion7]

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

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

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

 

[Medevic]

Назовем:
Предмет - doc
Ответ - rdoc
ОтветКОтвету rrdoc

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

Ссылку в rrdoc записываем так (или при создании, или еще как-то):

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)
... ' другие действия

Тогда в представлении делаем так:

DEFAULT $REF := LinkToMainDoc;
SELECT {здесь как обычно}

 

[Ogion7]

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

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?