97
ПРИЛОЖЕНИЕ 2
Листинг отчета и печатной формы
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Прием.ПолучитьМакет("Печать");
Запро с = Новый Запрос;
Запро с.Текст =
"ВЫБРАТЬ
| Прием.Дата,
| Прием.Номер,
| Прием.Сотрудник,
| Прием.ТабличнаяЧасть.(
| НомерСтроки,
| Клиент,
| Услуга,
| ВремяКонсультации,
| ПроблемаРешена,
| Подпись
| )
|ИЗ
| Документ.Прием КАК Прием
|ГДЕ
| Прием.Ссылка В (&Ссылка)";
Запро с.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
98
ОбластьТабличнаяЧастьШапка =
Макет.ПолучитьОбласть("ТабличнаяЧастьШапка");
ОбластьТабличнаяЧасть = Макет.ПолучитьОбласть("ТабличнаяЧасть");
ТабДок.Очистить();
Вст авлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТабличнаяЧастьШапка);
ВыборкаТабличнаяЧасть = Выборка.ТабличнаяЧасть.Выбрать();
Пока ВыборкаТабличнаяЧасть.Следующий() Цикл
ОбластьТабличнаяЧасть.Параметры.Заполнить(ВыборкаТабличнаяЧасть);
ТабДок.Вывести(ОбластьТабличнаяЧасть,
ВыборкаТабличнаяЧасть.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
99
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.Прием.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
ВЫБРАТЬ
Прием.Дата,
Прием.ТабличнаяЧасть.(
Клиент.Наименование,
Услуга.Наименование,
ВремяКонсультации
)
ИЗ
Документ.Прием КАК Прием