Имя: Пароль:
1C
1C 7.7
v7: группировка документов при отборе
0 namazi74
 
13.02.14
10:16
День добрый. 1С 7.7 ТиС. Формирую реестр доверенностей с разбивкой по доверенным лицам. Делаю отбор:    
Док.ВыбратьДокументы(НачДата, КонДата);
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Вид()<>"Доверенность"    Тогда
  Продолжить;
КонецЕсли;
Если Док.Проведен()=0 Тогда
  Продолжить;
КонецЕсли;
Если Док.ПометкаУдаления()=1 Тогда
  Продолжить;
КонецЕсли;
ТабЗн.НоваяСтрока();
ТабЗн.ДатаОт=Док.ДатаДок;
ТабЗн.ДатаДо=Док.ДатаДействия;
ТабЗн.НомерДов=Док.НомерДок;
ТабЗн.Контр=Док.Клиент;
ТабЗн.Сотр=Док.ДоверенноеЛицо;
ТабЗн.Сумма=Док.Сумма;
КонецЦикла;

В ТабЗн записываются документы по порядку их создания (по номерам документа). Как сделать чтобы в ТЗ попадали документы, сгруппированные например по реквизиту Док.ДоверенноеЛицо. Т.е., чтобы за период шли сначала строки с первым по алфавиту ДовереннымЛицом, потом с во вторым и т.д.?
1 ДенисЧ
 
13.02.14
10:19
Добавь в тз колонку ИмяДоверенногоЛица, потом после заполнения отсортируй по нему.
2 Ёпрст
 
13.02.14
10:20
(0) запросом
3 Ёпрст
 
13.02.14
10:20
или сортируй в ТЗ по колонке
4 dk
 
13.02.14
10:20
суров

Если Док.Вид()<>"Доверенность"    Тогда
  Продолжить;
КонецЕсли;

сделай сразу выборку только доверенностей
Док = СоздатьОбъект("Документ.Доверенность");
----
отсортируй тз
тз.сортировать("Сотр");
5 namazi74
 
13.02.14
10:24
(4) dk, спасибо за простое решение. Делал сначала вот так:
ТабЗн.Свернуть("Сотр,ДатаОт,НомерДов,ДатаДо,Контр,Сумма",);
ТабЗн.Сортировать("1+");

но ничего не работало. Рабочий вариант:
//ТабЗн.Свернуть("Сотр,ДатаОт,НомерДов,ДатаДо,Контр,Сумма",);
ТабЗн.Сортировать("Сотр");
6 namazi74
 
13.02.14
10:28
спасибо всем за помощь. знал что можно обойти без Запроса
7 Ёпрст
 
13.02.14
10:41
(6) вот так не пиши

Если Док.Проведен()=0 Тогда
  Продолжить;

и так тоже

Если Док.ПометкаУдаления()=1 Тогда

Пиши так

Док.УстановитьФильтр(1,0)...

Есжели несколько видов документов нужны в выборки, втыкай конструкцию ИспользоватьЖурнал, тоже ускорит выборку за счет ограниченного количества видов документов, входящих в этот журнал.
8 namazi74
 
13.02.14
12:17
(7) <b>Ёпрст</b>
спасибо большое!
9 Ёпрст
 
13.02.14
12:19
(8) тег @ пользуй перед именем
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.