Модуль формы отчета «По водителям»

// Процедура генерации запроса Сформировать.

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|Без итогов;

|Водитель = Документ.ПутевойЛист.Водитель, Документ.РасчетнаяВедомость.Водитель;

|КилометражПоКарте = Документ.ПутевойЛист.КилометражПоКарте;

|ОплатаЗаРейс = Документ.РасчетнаяВедомость.ОплатаЗаРейс;

|Функция КилометражПоКартеСумма = Сумма(КилометражПоКарте);

|Функция ОплатаЗаРейсСумма = Сумма(ОплатаЗаРейс);

|Группировка Водитель без групп;

|"//}}ЗАПРОС;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка() = 1 Цикл

// Заполнение полей Сформировать

Таб.ВывестиСекцию("Сформировать");

КонецЦикла;

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

Таб.ВывестиСекцию("Информ");

КонецПроцедуры

18