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