Как вывести отчет с реализациями, с последовательностью по номерам реализаций?
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Вот текст процедуры, которая выводит документы Реализация, отсортированные по номерам, с суммами.
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|ТекущийДокумент = Документ.Реализация.ТекущийДокумент;
|СуммаВзаиморасчетов = Документ.Реализация.СуммаВзаиморасчетов;
|Функция СуммаВзаиморасчетовСумма = Сумма(СуммаВзаиморасчетов);
|Группировка ТекущийДокумент упорядочить по ТекущийДокумент.НомерДок;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей ТекущийДокумент
Таб.ВывестиСекцию("ТекущийДокумент");
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|ТекущийДокумент = Документ.Реализация.ТекущийДокумент;
|СуммаВзаиморасчетов = Документ.Реализация.СуммаВзаиморасчетов;
|Функция СуммаВзаиморасчетовСумма = Сумма(СуммаВзаиморасчетов);
|Группировка ТекущийДокумент упорядочить по ТекущийДокумент.НомерДок;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей ТекущийДокумент
Таб.ВывестиСекцию("ТекущийДокумент");
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Необрабатывает :))
Переменная не определена (ВыбНачПериода) Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {Обработка.Отчет_по_продажам.Форма.Модуль(17)}: Период с <<?>> ВыбНачПериода по ВыбКонПериода; Запрос[2] : Ошибка в выражении 'ВыбНачПериода' ВыбКонПериода<<?>> Переменная не определена (ВыбКонПериода) Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {Обработка.Отчет_по_продажам.Форма.Модуль(17)}: Период с ВыбНачПериода по <<?>> ВыбКонПериода; Запрос[2] : Ошибка в выражении 'ВыбКонПериода'
Переменная не определена (ВыбНачПериода) Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {Обработка.Отчет_по_продажам.Форма.Модуль(17)}: Период с <<?>> ВыбНачПериода по ВыбКонПериода; Запрос[2] : Ошибка в выражении 'ВыбНачПериода' ВыбКонПериода<<?>> Переменная не определена (ВыбКонПериода) Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {Обработка.Отчет_по_продажам.Форма.Модуль(17)}: Период с ВыбНачПериода по <<?>> ВыбКонПериода; Запрос[2] : Ошибка в выражении 'ВыбКонПериода'
Лови
nutmeg Написал:
-------------------------------------------------------
> Необрабатывает )
>
>
> Переменная не определена (ВыбНачПериода) Если
> Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
> {Обработка.Отчет_по_продажам.Форма.Модуль(17)}:
> Период с <<?>> ВыбНачПериода по
> ВыбКонПериода; Запрос[2] : Ошибка в выражении
> 'ВыбНачПериода' ВыбКонПериода<<?>>
> Переменная не определена (ВыбКонПериода) Если
> Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
> {Обработка.Отчет_по_продажам.Форма.Модуль(17)}:
> Период с ВыбНачПериода по <<?>>
> ВыбКонПериода; Запрос[2] : Ошибка в выражении
> 'ВыбКонПериода'
nutmeg Написал:
-------------------------------------------------------
> Необрабатывает )
>
>
> Переменная не определена (ВыбНачПериода) Если
> Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
> {Обработка.Отчет_по_продажам.Форма.Модуль(17)}:
> Период с <<?>> ВыбНачПериода по
> ВыбКонПериода; Запрос[2] : Ошибка в выражении
> 'ВыбНачПериода' ВыбКонПериода<<?>>
> Переменная не определена (ВыбКонПериода) Если
> Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
> {Обработка.Отчет_по_продажам.Форма.Модуль(17)}:
> Период с ВыбНачПериода по <<?>>
> ВыбКонПериода; Запрос[2] : Ошибка в выражении
> 'ВыбКонПериода'
Прикрепленные файлы:
12345.rar
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот