Респонсы

[wowa]

Подскажите, пожалуйста!!!
Как бы сформулировать правильно....
Я забираю какой-н документ, и мне нужно забрать его респонсы и респонсы респонсов и т.д.... Подскажите, как это сделать? И Желательно как бы указывать до какого "колена" забирать респонсы....

 

[Medevic]

Для: wowa
Рекурсивно.

 

[wowa]

А это как? )

 

[Medevic]

Например, так:

Sub GetAllResponses(pdoc As NotesDocument)
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = pdoc.Responses
Set doc = dc.GetFirstDocument
While Not (doc Is Nothing)
Call GetAllResponses(doc)
Set doc = dc.GetNextDocument(doc)
Wend
End Sub

Сюда несложно прикрутить счетчик уровней.
pdoc - родительский документ.

 

[wowa]

Спасибо! А на @-формулах это можно сделать?, типа @AllChildren and @AllDescendants но они, как Я понимаю, забирают ответы и ответы на ответы... а если больше уровень?

 

[K-Fire]

Лучше не пытаться делать это на формулах. Извратиться с циклами как-то можно я думаю, но зачем искать геморрой на свою голову. На скрипте такая задача делается легко и непринужденно с помощью рекурсии.

 

[wowa]

Для: K-Fire
Мне просто нужно сделать строку запроса, а она на формулах (((

 

[K-Fire]

строка запроса? Это для db.Search чтоли? Если я правильно понял, то никто не мешает вам отбирать главные документы и документы-респонзы отдельно. Если неправильно понял, то тогда всё еще хуже

 

[wowa]

Для: K-Fire
Да , вы правильно поняли...
На данном этапе я делаю строку запроса...

 

[wowa]

Кстати, может кто-н делал что-н похожее: формирование условий отбора документов из БД.
Что-то я кроме как отбирать документы по имени формы, значению полей(=, !=) Больше ничего придумать не могу... Ну еще забирать ответы и ответы на ответы сделал... А что можно еще?
Если бы сделать что-н похожее как(в Notes) View->Search This View , там есть Conditions .... Вот чтоб как-н можно было это окошечко вызывать.....