88
Макет =
Документы.ЗаявкаКлиентаНауслугиДезинф.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Константы.НаименованиеОрганизации КАК Организация,
| ЗаявкаКлиентаНауслугиДезинф.Дата,
| ЗаявкаКлиентаНауслугиДезинф.Номер,
| ЗаявкаКлиентаНауслугиДезинф.Ответственный,
| ЗаявкаКлиентаНауслугиДезинф.Ответственный.Телефон
КАК Телефон,
| ЗаявкаКлиентаНауслугиДезинф.Поставщик,
| ЗаявкаКлиентаНауслугиДезинф.ЦельЗаказа,
| ЗаявкаКлиентаНауслугиДезинф.УслугиДезинф.(
| НомерСтроки,
| Номенклатура,
| Цена,
| Количество,
| Стоимость
| )
|ИЗ
| Документ.ЗаявкаКлиентаНауслугиДезинф КАК
ЗаявкаКлиентаНауслугиДезинф,
| Константы
|ГДЕ
| ЗаявкаКлиентаНауслугиДезинф.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьУслугиДезинфШапка =
Макет.ПолучитьОбласть("УслугиДезинфШапка");
ОбластьУслугиДезинф =
Макет.ПолучитьОбласть("УслугиДезинф");
ОбластьУслугиДезинфПодвал =
Макет.ПолучитьОбласть("УслугиДезинфПодвал");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
89
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ОбластьЗаголовок.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьУслугиДезинфШапка);
ИтСтоимость = 0;
ВыборкаУслугиДезинф =
Выборка.УслугиДезинф.Выбрать();
Пока ВыборкаУслугиДезинф.Следующий() Цикл
ОбластьУслугиДезинф.Параметры.Заполнить(ВыборкаУслугиДезинф);
ТабДок.Вывести(ОбластьУслугиДезинф,
ВыборкаУслугиДезинф.Уровень());
ИтСтоимость = ИтСтоимость +
ВыборкаУслугиДезинф.Стоимость;
КонецЦикла;
ОбластьУслугиДезинфПодвал.Параметры.Стоимость =
ИтСтоимость;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
Макет =
Документы.РазмещениеРекламы.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Константы.НаименованиеОрганизации КАК Организация,
| РазмещениеРекламы.Дата,
90
| РазмещениеРекламы.ДатаНачалаРекламнойКомпании,
| РазмещениеРекламы.ДатаОкончанияРекламнойКомпании,
| РазмещениеРекламы.Контрагент,
| РазмещениеРекламы.Номер,
| РазмещениеРекламы.Ответственный,
| РазмещениеРекламы.Ответственный.Телефон КАК
Телефон,
| РазмещениеРекламы.СредствоПродвижения,
| РазмещениеРекламы.СуммаРекламнойКомпании,
| РазмещениеРекламы.ТекстРекламы
|ИЗ
| Документ.РазмещениеРекламы КАК РазмещениеРекламы,
| Константы
|ГДЕ
| РазмещениеРекламы.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ОбластьЗаголовок.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
Шапка.Параметры.ДатаНачалаРекламнойКомпании =
Формат(Выборка.ДатаНачалаРекламнойКомпании, "ДЛФ = ДД");
Шапка.Параметры.ДатаОкончанияРекламнойКомпании =
Формат(Выборка.ДатаОкончанияРекламнойКомпании, "ДЛФ = ДД");
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
роцедура Печать(ТабДок, Ссылка) Экспорт
91
Макет =
Документы.ЗаявкаКлиентаНауслугиДезинф.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Константы.НаименованиеОрганизации КАК Организация,
| ЗаявкаКлиентаНауслугиДезинф.Дата,
| ЗаявкаКлиентаНауслугиДезинф.Контрагент,
| ЗаявкаКлиентаНауслугиДезинф.Номер,
| ЗаявкаКлиентаНауслугиДезинф.Ответственный,
| ЗаявкаКлиентаНауслугиДезинф.Ответственный.Телефон
КАК Телефон,
|
ЗаявкаКлиентаНауслугиДезинф.ТекстКоммерческогоПредложения,
| ЗаявкаКлиентаНауслугиДезинф.УслугиДезинф.(
| НомерСтроки,
| Номенклатура,
| Цена
| )
|ИЗ
| Документ.ЗаявкаКлиентаНауслугиДезинф КАК
ЗаявкаКлиентаНауслугиДезинф,
| Константы
|ГДЕ
| ЗаявкаКлиентаНауслугиДезинф.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьУслугиДезинфШапка =
Макет.ПолучитьОбласть("УслугиДезинфШапка");
ОбластьУслугиДезинф =
Макет.ПолучитьОбласть("УслугиДезинф");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
92
КонецЕсли;
ОбластьЗаголовок.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьУслугиДезинфШапка);
ВыборкаУслугиДезинф =
Выборка.УслугиДезинф.Выбрать();
Пока ВыборкаУслугиДезинф.Следующий() Цикл
ОбластьУслугиДезинф.Параметры.Заполнить(ВыборкаУслугиДезинф);
ТабДок.Вывести(ОбластьУслугиДезинф,
ВыборкаУслугиДезинф.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры