Колекция ответных док-ов

22.06.2007, 14:11. **Показов** 11443. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Есть три формы представляющие сабой иерархию, первая типа "Document", вторая и третья "ответ на ответ". Задача получить все нижестоящие документы которые являются ответными на выбранный (может быть ответным). Подскажи Как?

@Hydk · 22.06.2007, 15:37

Как связан основной документ с ответом??

@Kyy_Kyykkymym · 22.06.2007, 18:01

так как это написал KILL это responce связь..

если это так, то вот частный пример, в котором вычисляется количество всех документов ответов
переделать и обобщить его под свои нужды, я думаю, не составит большой трудности

Sub Click(Source As Button)
Dim ses As New NotesSession
Dim db As NotesDatabase

Dim sourceColl As NotesDocumentCollection, firstRespColl As NotesDocumentCollection, secondRespColl As NotesDocumentCollection
Dim sourceDoc As NotesDocument, firstRespDoc As NotesDocument
Dim respCount As Long

Set db = ses.CurrentDatabase
Set sourceColl = db.AllDocuments
If sourceColl.Count = 0 Then Exit Sub
Set sourceDoc = sourceColl.GetFirstDocument

While Not (sourceDoc Is Nothyng)
If Not(sourceDoc.IsResponse) Then

Set firstRespColl = sourceDoc.Responses
If firstRespColl.Count > 0 Then
respCount = respCount + firstRespColl.Count

Set firstRespDoc = firstRespColl.GetFirstDocument

While Not(firstRespDoc Is Nothyng)
Set secondRespColl = firstRespDoc.Responses
If secondRespColl.Count > 0 Then
respCount = respCount + secondRespColl.Count
End If
Set firstRespDoc = firstRespColl.GetNextDocument(firstRespD oc)
Wend

End If

End If

Set sourceDoc = sourceColl.GetNextDocument(sourceDoc)
Wend

Msgbox "Всего количество ответных документов " + Cstr(respCount)

End Sub

@ytymo myfydovo · 23.06.2007, 17:59

<span class="vbquote">(KIL @ 23:06:2007, 13:58 )</span>Задача получить все нижестоящие документы которые являются ответными на выбранный
[snapback]70387" rel="nofollow" target="_blank[/snapback]?[/quote]
Вот так можно кодом.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Function all_desc(root As notesDocument, b_error As Boolean) As NotesdocumentCollection
On Error Goto ErrLab
Dim col As NotesDocumentCollection
Dim children As NotesdocumentCollection
Dim doc As Notesdocument, push As NotesDocument
Dim k%, m%
Set children = root.Responses
If Not (children Is Nothyng) Then
Set doc = children.getFirstDocument
Do Until doc Is Nothyng
If Not doc.IsDeleted And doc.IsValid Then
Set col = all_desc(doc, b_error)
If Not (col Is Nothyng) Then
Set push = col.GetFirstDocument
Do Until push Is Nothyng
If Not push.IsDeleted And push.IsValid Then
On Error 4469 Resume Next
Call children.AddDocument(push)
On Error Goto ErrLab
End If
Set push = col.getNextDocument(push)
Loop
End If
End If
Set doc = children.getNextDocument(doc)
Loop
End If
Set all_desc = children
Exit Function
ErrLab:
b_error = True
Msgbox "Error " + Cstr(Err) + " at line " + Cstr(Erl)
Exit Function
End Function

А если во встроенной вьюшке надо светить, то используем флаг Show only current thread

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

Kyt

	Колекция ответных док-ов 22.06.2007, 14:11. Показов 11443. Ответов 3 Метки нет (Все метки) Есть три формы представляющие сабой иерархию, первая типа "Document", вторая и третья "ответ на ответ". Задача получить все нижестоящие документы которые являются ответными на выбранный (может быть ответным). Подскажи Как?

@Hydk 1 / 1 / 0 Регистрация: 23.04.2006 Сообщений: 226
	22.06.2007, 15:37
	Как связан основной документ с ответом?? 0

@Kyy_Kyykkymym 1 / 1 / 0 Регистрация: 01.10.2006 Сообщений: 615
	22.06.2007, 18:01
	так как это написал KILL это responce связь.. если это так, то вот частный пример, в котором вычисляется количество всех документов ответов переделать и обобщить его под свои нужды, я думаю, не составит большой трудности Sub Click(Source As Button) Dim ses As New NotesSession Dim db As NotesDatabase Dim sourceColl As NotesDocumentCollection, firstRespColl As NotesDocumentCollection, secondRespColl As NotesDocumentCollection Dim sourceDoc As NotesDocument, firstRespDoc As NotesDocument Dim respCount As Long Set db = ses.CurrentDatabase Set sourceColl = db.AllDocuments If sourceColl.Count = 0 Then Exit Sub Set sourceDoc = sourceColl.GetFirstDocument While Not (sourceDoc Is Nothyng) If Not(sourceDoc.IsResponse) Then Set firstRespColl = sourceDoc.Responses If firstRespColl.Count > 0 Then respCount = respCount + firstRespColl.Count Set firstRespDoc = firstRespColl.GetFirstDocument While Not(firstRespDoc Is Nothyng) Set secondRespColl = firstRespDoc.Responses If secondRespColl.Count > 0 Then respCount = respCount + secondRespColl.Count End If Set firstRespDoc = firstRespColl.GetNextDocument(firstRespD oc) Wend End If End If Set sourceDoc = sourceColl.GetNextDocument(sourceDoc) Wend Msgbox "Всего количество ответных документов " + Cstr(respCount) End Sub 0