о вихід з процедури
Якщо Запрос.Виполніть (ТекстЗапроса) = 0 Тоді
Повернення;
КонецЕсли;
Сума = 0;
Й = 0;
Таб = СоздатьОб'ект ("Таблиця");
Таб.ІсходнаяТабліца ("Таблиця");
Таб.ВивестіСекцію ("Шапка");
Стан ("Заповнення вихідний таблиці ...");
Таб.Опціі (0, 0, Таб.ВисотаТабліци (), 0);
Поки Запрос.Группіровка (1) = 1 Цикл
Якщо Запрос.ЕтоГруппа ("Товар") = 1 Тоді
Колві = "";
Цін = "";
Сум = "";
Інакше
Колві = Запрос.Кол;
Цін = Запрос.ЗначениеУпорядочивания (1,2);
Сум = Колві * Цін;
Сума = Сума + Сум;
КонецЕсли;
Таб.ВивестіСекцію ("Товар");
Поки Запрос.Группіровка (2) = 1 Цикл
Таб.ВивестіСекцію ("Склад");
КонецЦікла;
Й = Й +1;
КонецЦікла;
Таб.ВивестіСекцію ("Підвал");
Таб.ТолькоПросмотр (1);
Таб.Показать ("Таблиця", "");
КонецПроцедури
Модуль звіту В«НоменклатураВ»:
Процедура Сформувати ()
Таб = СоздатьОб'ект ("Таблиця");
Таб.ІсходнаяТабліца ("Номенклатура");
Спр.ВибратьЕлементи ();
таб.ВивестіСекцію ("Шапка");
Поки Спр.ПолучітьЕлемент () = 1 Цикл
якщо спр.текущійЕлемент (). ЕтоГруппа () = 1 Тоді
гр = спр.текущійЕлемент ();
таб.ВивестіСекцію ("група");
інакше
ел = спр.Наіменованіе;
допінф = спр.ДопІнформація;
таб.ВивестіСекцію ("елемент");
КонецЕсли;
КонецЦікла;
Таб.ТолькоПросмотр (1);
Таб.Показать ("Номенклатура", "");
КонецПроцедури
Модуль звіту В«АналізПСВ»:
Процедура Сформувати ()
Таб = СоздатьОб'ект ("Таблиця");
Таб.ІсходнаяТабліца ("Таблиця");
Іт = СоздатьОб'ект ("БухгалтерскіеІтогі");
Іт.ВиполнітьЗапрос (ВибНачПеріода, ВибКонПеріода,,,, 1,, "С");
Таб.ВивестіСекцію ("Шапка"); ...
