В«ВитратаВ»
Процедура ОбработкаПроведенія ()
ВибратьСтрокі ();
Поки ПолучітьСтроку () = 1 Цикл
Регистр.ОстаткиТоваров.Товар = Товар;
Регистр.ОстаткиТоваров.Магазин = Магазин;
КонецЦікла;
КонецПроцедури
Модуль форми звіту В«ОстаткіТоваровВ»
Процедура Сформувати ()
Мінл Запит, ТекстЗапроса, Таб;
// Створення об'єкта типу Запит
Запит = СоздатьОб'ект ("Запит");
ТекстЗапроса =
"//{{ЗАПИТ (Сформувати)
| Період з ВибНачПеріода по ВибКонПеріода;
| Обробляти НеПомеченниеНаУдаленіе;
| Товар = Регистр.ОстаткиТоваров.Товар;
| Магазин = Регистр.ОстаткиТоваров.Магазин;
| Кількість = Регистр.ОстаткиТоваров.Количество;
| Функція КолічествоКонОст = КонОст (Кількість);
| Угруповання Товар;
| Угруповання Магазин;
| Умова (Товар в ВибрТоварГруппа);
| Умова (Магазин в ВибМагазін);
| "/ /}} ЗАПИТ
;
// Якщо помилка в запиті, то вихід з процедури
Якщо Запрос.Виполніть (ТекстЗапроса) = 0 Тоді
Повернення;
КонецЕсли;
// Підготовка до заповнення вихідних форм даними запиту
Таб = СоздатьОб'ект ("Таблиця");
Таб.ІсходнаяТабліца ("Сформувати");
// Заповнення полів "Тема"
Таб.ВивестіСекцію ("Тема");
Стан ("Заповнення вихідний таблиці ...");
Таб.Опціі (0, 0, Таб.ВисотаТабліци (), 0);
Поки Запрос.Группіровка (1) = 1 Цикл
// Заповнення полів Товар
Якщо Запрос.Товар.ЕтоГруппа () = 1 Тоді
Таб.ВивестіСекцію ("Група");
Інакше
Таб.ВивестіСекцію ("Товар");
Якщо Фл_НеВиводітьМагазіни = 0 Тоді
Поки Запрос.Группіровка (2) = 1 Цикл
// Заповнення полів Магазин
Таб.ВивестіСекцію ("Магазин");
КонецЦікла;
КонецЕсли;
КонецЕсли;
КонецЦікла;
// Заповнення полів "Разом"
Таб.ВивестіСекцію ("Разом");
// Висновок заповненої форми
Таб.ТолькоПрос...
