В начало

Печать для «Оказание услуги»

 

 

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

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

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

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

            "ВЫБРАТЬ

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

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

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

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

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

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

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

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

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

            |                       Цена,

            |                       Сумма

            |           )

            |ИЗ

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

            |ГДЕ

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

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

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

 

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

 

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

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

 

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

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

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

 

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

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

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

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

                        КонецЕсли;

 

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

 

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

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

 

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

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

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

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

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

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

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

                        КонецЦикла;

 

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

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

                       

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

            КонецЦикла;

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