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

  • Автор темы ruster83
  • Дата начала
R

ruster83

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

allex

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

ruster83

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

medin84

Well-Known Member
27.06.2007
106
0
33
Казахстан/Алматы
#4
делай первую колонку категорией ставь unid основного или еще что
под категорией показывай ответные
и бери по Set notesDocumentCollection = notesView.GetAllDocumentsByKey( keyArray [, exactMatch% ] )
 

Kizarek86

Well-Known Member
Lotus team
20.07.2007
861
6
31
Россея матушка!)
#5
Добавлять документы можно по циклу, т.е. сначала ищешь всех родителей, потом новый поиск его ответов, потом поиск ответов ответа... и т.д., правда будет долго.
medin84 его предложение будет куда быстрее)
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
2
34
Kiev, Ukraine
#6
Код:
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
 
R

ruster83

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