В начало

Процедура Печать

Вставляется в Модуль менеджера.

 

Процедура Печать (ТабДок, Ссылка) Экспорт

            Макет = Документы.ОказаниеУслуги.ПолучитьМакет("Печать");

            Запрос = Новый Запрос;

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

            "ВЫБРАТЬ

            |           ОказаниеУслуги.Дата,

            |           ОказаниеУслуги.Клиент,

            |           ОказаниеУслуги.Мастер,

            |           ОказаниеУслуги.Номер,

            |           ОказаниеУслуги.Склад,

            |           ОказаниеУслуги.ПереченьНоменклатуры.(

            |                       НомерСтроки,

            |                       Номенклатура,

            |                       Количество,

            |                       Цена,

            |                       Сумма

            |           )

            |ИЗ

            |           Документ.ОказаниеУслуги КАК ОказаниеУслуги

            |ГДЕ

            |           ОказаниеУслуги.Ссылка В (&Ссылка)";

           

Запрос.Параметры.Вставить("Ссылка", Ссылка);

            Выборка = Запрос.Выполнить().Выбрать();

 

            ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

            Шапка = Макет.ПолучитьОбласть("Шапка");

            ОбластьПереченьНоменклатурыШапка = Макет.ПолучитьОбласть("ПереченьНоменклатурыШапка");

            ОбластьПереченьНоменклатуры = Макет.ПолучитьОбласть("ПереченьНоменклатуры");

            ОбластьИтог = Макет.ПолучитьОбласть("Всего"); //1

            ТабДок.Очистить ();

 

            ВставлятьРазделительСтраниц = Ложь;

            Пока Выборка.Следующий () Цикл

                        Если ВставлятьРазделительСтраниц Тогда

                                   ТабДок.ВывестиГоризонтальныйРазделительСтраниц ();

                        КонецЕсли;

 

                        ТабДок.Вывести(ОбластьЗаголовок);

 

                        Шапка.Параметры.Заполнить(Выборка);

                        ТабДок.Вывести(Шапка, Выборка.Уровень());

 

                        ТабДок.Вывести(ОбластьПереченьНоменклатурыШапка);

                        ВыборкаПереченьНоменклатуры = Выборка.ПереченьНоменклатуры.Выбрать ();

                       

СуммаИтог = 0; //2

                       

Пока ВыборкаПереченьНоменклатуры.Следующий () Цикл

            ОбластьПереченьНоменклатуры.Параметры.Заполнить(ВыборкаПереченьНоменклатуры);

                                   ТабДок.Вывести(ОбластьПереченьНоменклатуры, ВыборкаПереченьНоменклатуры.Уровень());

                                   СуммаИтог = СуммаИтог + ВыборкаПереченьНоменклатуры.Сумма; //3

                        КонецЦикла;

 

                        ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог; //4

                        ТабДок.Вывести (ОбластьИтог); //5

                        ВставлятьРазделительСтраниц = Истина;

            КонецЦикла;

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