Сортировка документов по нескольким полям одновременно

08.07.2009, 13:34. **Показов** 14298. **Ответов** 6

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

Всем доброго дня.

задача следующая.
Есть в базе некоторое количество документов (500-1000)
В документах набор поле (10 штук)

Необходимо их отсортировать следующим образом.
Сгруппировать все документы по двум полям у которых будут совпадать значения, создать один общий документ родитель в котором будут собраны все значения из сгруппированных документов.

на примере, что сейчас есть:

Дата Клиент Прочее1 Прочее2

20.01.2009 Клиент1 111 11
15.01.2008 Клиент2 222 22
20.01.2009 Клиент1 333 33
24.01.2007 Клиент3 444 44
23.01.2009 Клиент4 555 55
13.02.2009 Клиент5 666 66
15.01.2008 Клиент2 777 77
08.08.2009 Клиент7 888 88
15.01.2008 Клиент6 999 99

Необходимо:

Дата Клиент Прочее1 Прочее2

родитель1 20.01.2009 Клиент1 111 11
333 33
потомок1.1 20.01.2009 Клиент1 111 11
потомок1.2 20.01.2009 Клиент1 333 33

родитель2 15.01.2008 Клиент2 222 22
777 77
потомок2.1 15.01.2008 Клиент2 222 22
потомок2.2 15.01.2008 Клиент2 777 77

родитель3 24.01.2007 Клиент3 444 44
потомок3.1 24.01.2007 Клиент3 444 44

родитель4 23.01.2009 Клиент4 555 55
потомок4.1 23.01.2009 Клиент4 555 55

родитель5 13.02.2009 Клиент5 666 66
потомок5 13.02.2009 Клиент5 666 66

родитель6 08.08.2009 Клиент7 888 88
потомок6 08.08.2009 Клиент7 888 88

родитель7 15.01.2008 Клиент6 999 99
потомок7 15.01.2008 Клиент6 999 99

Подскажите с алгоритмом как реализовать и с помощью чего? И вообще реально ли это?

@Mydyvys · 08.07.2009, 13:42

С помощью списков всё реально. ;)
Т.е. создаешь список документов

Code
1
2
3
4
5
6
7
8
9
10
11
12
Dim doclist List As NotesDocument
Потом проходишь по коллекции документов и проверяешь:
While
If Not (IsElement(doclist(твои значения))) Then
создаешь новый документ
Set doclist(твои значения) = db.CreateDocument()
...
End if
добавляшь значения
Call doclist(твои значения).ReplaceItemValue(...)
...
Wend

Потом список документов нужно сохранить.

@yrdy · 08.07.2009, 13:47

как вариант создай вьюшку где будешь выбирать все документы(select form=1 & form=2), где первый столбец - каталог дат, второй - каталог названия фирмы.
Тогда пробежавшись по этой вьюшке, ты будешь создавать документы(родителя), когда наткнешься на IsCategory=true & IndentLevel=0, а создавать документ(потомок 1(n)) когда наткнешься на IsCategory=true & IndentLevel=1, а все остальные поля возьмешь в документах IndentLevel=3

08.07.2009, 14:04

to Medevic:

Code
1
2
3
4
5
6
7
8
9
10
С помощью списков всё реально.
Т.е. создаешь список документов
 
Dim doclist List As NotesDocumentПотом проходишь по коллекции документов и проверяешь:
While If Not (IsElement(doclist(твои значения))) Then   создаешь новый документ
Set doclist(твои значения) = db.CreateDocument()
... End if добавляшь значения
Call doclist(твои значения).ReplaceItemValue(...) .
..Wend
Потом список документов нужно сохранить.

Не совсем понял.
Мне предположим для семи документов одинаковыми двумя полями надо создать ТОЛЬКО ОДИН родительский док со всеми значениями из этих семи. А в этом способе я так понимаю мы просто создаём документы на каждое значение или я понял неправильно(

т.е. смысл создать один документ из нескольких (на основе одинаковых значений в них) и привязаться к этим докам как родительский документ - а они станут потомками.

to Erdi:
не хочется плодить служебные вьюхи)

@Mydyvys · 08.07.2009, 15:01

В этом способе мы как раз создадим один документ. У списка используй такой тэг: doclist(твои_одинаковые_значения_в_виде_ строки)

09.07.2009, 11:16

to: Medevic

Список документов действительно создаётся корректный.
Получается что то типа

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim doclist List As NotesDocument
 
Set doc = view.GetFirstDocument()
 
While Not doc Is Nothyng
 
If Not (Iselement(doclist(doc.GRID(0)+" "+doc.MJ_AssessmentPeriod_3(0)))) Then
 
Set doclist(doc.GRID(0)+" "+ doc.MJ_AssessmentPeriod_3(0)) = db.CreateDocument()
End If
 
Call doclist(doc.GRID(0)+" "+doc.MJ_AssessmentPeriod_3(0)).ReplaceItemValue("ClName",doc.ClName(0))
Call doclist(doc.GRID(0)+" "+doc.MJ_AssessmentPeriod_3(0)).ReplaceItemValue("GRID",doc.GRID(0))
Call doclist(doc.GRID(0)+" "+doc.MJ_AssessmentPeriod_3(0)).ReplaceItemValue("Field1",doc.Field1(0))
Call doclist(doc.GRID(0)+" "+doc.MJ_AssessmentPeriod_3(0)).ReplaceItemValue("Field2",doc.Field2(0))
Call doclist(doc.GRID(0)+" "+doc.MJ_AssessmentPeriod_3(0)).ReplaceItemValue("Field3",doc.Field3(0))
Call doclist(doc.GRID(0)+" "+doc.MJ_AssessmentPeriod_3(0)).ReplaceItemValue("Field4",doc.Field4(0))
 
Set doc = view.GetNextDocument(doc)
Wend

А на каком этапе и как эти документы сделать родительскими (parent) а остальные зависимые от него респонсами (response) + надо же ещё в эти родительские документы значения из всех зависимых переписать... А сейчас получается что в родительские документы попадают значения только из одного зависимого

@Mydyvys · 09.07.2009, 11:21

На этом этапе.

Code
1
2
добавляшь значения
Call doclist(твои значения).ReplaceItemValue(...)

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@yrdy 0 / 0 / 0 Регистрация: 14.01.2009 Сообщений: 257
	08.07.2009, 13:47
	как вариант создай вьюшку где будешь выбирать все документы(select form=1 & form=2), где первый столбец - каталог дат, второй - каталог названия фирмы. Тогда пробежавшись по этой вьюшке, ты будешь создавать документы(родителя), когда наткнешься на IsCategory=true & IndentLevel=0, а создавать документ(потомок 1(n)) когда наткнешься на IsCategory=true & IndentLevel=1, а все остальные поля возьмешь в документах IndentLevel=3 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	08.07.2009, 15:01
	В этом способе мы как раз создадим один документ. У списка используй такой тэг: doclist(твои_одинаковые_значения_в_виде_ строки) 0