- 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
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| ВЫБОР Когда Ном.Ссылка.ЭтоГруппа=Истина Тогда 1 Иначе 0 Конец как этоГруппа,
| 1 как Уровень,
| ВЫБОР Когда Ном.Ссылка.Родитель.Код=""00002"" Тогда """" Иначе Ном.Ссылка.Родитель.Код Конец как кодРодителя,
| Ном.Ссылка.Код как Код,
| Ном.Ссылка.Наименование как Наименование,
| Ном.Ссылка как Элемент
|ИЗ справочник.Номенклатура как Ном";
РЗ = Запрос.Выполнить();
ТЗ = РЗ.Выгрузить();
Сообщить("1. Подготовка таблицы ...");
КК=0;
КМАКС=ТЗ.Количество();
Индикатор1 = ЭлементыФормы.Индикатор;
Индикатор1.МаксимальноеЗначение = ТЗ.Количество();
Индикатор1.Значение = 0;
Для Каждого ТекСтрока ИЗ ТЗ Цикл
Индикатор1.Значение = Индикатор1.Значение + 1;
ОбработкаПрерыванияПользователя();
КК = КК + 1;
Состояние(Формат(КК/КМАКС*100, "ЧЦ=8; ЧДЦ=2"),Цел(КК/КМАКС*100));
ТекСтрока.Уровень = ТекСтрока.Элемент.Уровень()-1;
КонецЦикла;
ТЗ.Сортировать("этоГруппа убыв,Уровень возр,Наименование возр");
ОМ НОМ НОМ НОМ
> как этоГруппа
"Как? Это группа?!"