Группа: Пользователи
Сообщений: 68
Спасибо сказали: 1 раз
Рейтинг: 0
Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |с ВыбНачПериода по ВыбКонПериода; |Магазин = Регистр.Взаиморасчеты.Магазин; |Подразделение = Регистр.Взаиморасчеты.Подразделение; |Клиент = Регистр.Взаиморасчеты.Клиент; |ПриходнаяНакладная = Регистр.Взаиморасчеты.ТекущийДокумент.ПриходнаяНакладная.ТекущийДокумент; |СуммаГрн = Регистр.Взаиморасчеты.СуммаГрн; |Функция СуммаК = КонОст(СуммаГрн); |Группировка Магазин упорядочить по Магазин.Наименование; |Группировка Подразделение упорядочить по Подразделение.Наименование; |Группировка Клиент упорядочить по Клиент.Наименование; |Группировка ПриходнаяНакладная все; |Условие(Магазин В тМагазин); |Условие(Подразделение В тПодр); |Условие(Клиент В тКлиент); |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл // Заполнение полей Магазин Таб.ВывестиСекцию("Магазин"); Пока Запрос.Группировка(2) = 1 Цикл // Заполнение полей Подразделение Таб.ВывестиСекцию("Подразделение"); Пока Запрос.Группировка(3) = 1 Цикл // Заполнение полей Клиент Таб.ВывестиСекцию("Клиент"); Пока Запрос.Группировка(4) = 1 Цикл // Заполнение полей ПриходнаяНакладная Таб.ВывестиСекцию("ПриходнаяНакладная"); КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; // Заполнение полей "Итого" Таб.ВывестиСекцию("Итого"); // Вывод заполненной формы Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", "");
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!