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