Дочерние документы

[ruster83]

Помогите кто может...Необходимо в коллекцию добавить все ответные документы,включаю ответные документы ответных документов....Ну т.е. у ответных документов есть свои ответные документы и их всех надо добавить в коллекцию...

 

[allex]

В свойствах view поставить галочку - отобразвть ответные док-ты
А в отборе прописать select form = mainform | form = resp_1_form | form = resp_2_form

 

[ruster83]

Нет мне надо в коде в коллекцию закинуть все ответные документы...

 

[medin84]

делай первую колонку категорией ставь unid основного или еще что
под категорией показывай ответные
и бери по Set notesDocumentCollection = notesView.GetAllDocumentsByKey( keyArray [, exactMatch% ] )

 

[Kizarek86]

Добавлять документы можно по циклу, т.е. сначала ищешь всех родителей, потом новый поиск его ответов, потом поиск ответов ответа... и т.д., правда будет долго.
medin84 его предложение будет куда быстрее)

 

[Akupaka]

Sub GetRespCol(ACol As NotesDocumentCollection, ADoc As NotesDocument)
Dim resp As NotesDocumentCollection
Dim respdoc As NotesDocument
Dim firstTime As Boolean

Set resp = ADoc.Responses
If ACol Is Nothing Then
Set ACol = ADoc.Responses
Call ACol.AddDocument(ADoc)
firstTime = True
End If
Set respdoc = resp.getFirstDocument
While Not(respdoc Is Nothing)
Call GetRespCol(ACol, respdoc)
If Not(firstTime) Then
Call ACol.AddDocument(respdoc)
End If

Set respdoc = resp.GetNextDocument(respdoc)
Wend
End Sub

Sub Initialize
Dim s As New NotesSession
Dim doc As NotesDocument
Dim resp As NotesDocumentCollection

Set doc = s.CurrentDatabase.UnprocessedDocuments.GetFirstDocument
Call GetRespCol(resp, doc)

Print "START"
Set doc = resp.GetFirstDocument
While Not(doc Is Nothing)
Print doc.UniversalID

Set doc = resp.GetNextDocument(doc)
Wend
End Sub

 

[ruster83]

Akupaka...большое спасибо именно то что нужно...Все заработало...Всем огромное спасибо за помощь....