Материал: Автоматизация приема заявок на ремонт и модернизацию ПК в ПАО "Т Плюс" Пермская ТЭЦ-9
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
137
| Заявка_на_обслуживание.Ссылка В
(&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок =
Макет.ПолучитьОбласть("Заголовок"); Шапка =
Макет.ПолучитьОбласть("Шапка");
ОбластьОборудованиеШапка =
Макет.ПолучитьОбласть("ОборудованиеШапка");
ОбластьОборудование =
Макет.ПолучитьОбласть("Оборудование"); Подвал =
Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц =
Ложь; Пока Выборка.Следующий()
Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка,
Выборка.Уровень());
ТабДок.Вывести(ОбластьОборудованиеШапка);
ВыборкаОборудование =
Выборка.Оборудование.Выбрать(); Пока
ВыборкаОборудование.Следующий() Цикл
ОбластьОборудование.Параметры.Заполнить(ВыборкаОборудование);
ТабДок.Вывести(ОбластьОборудование,
ВыборкаОборудование.Уровень());
138
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц =
Истина; КонецЦикла;
//}}
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.Размещение_оборудования.ПолучитьМакет("Печать");
Запрос = Новый
Запрос; Запрос.Текст
= "ВЫБРАТЬ
| Размещение_оборудования.Дата,
| Размещение_оборудования.Дата_размещения,
| Размещение_оборудования.Номер,
| Размещение_оборудования.Подразделение,
| Размещение_оборудования.Установка_оборудования.(
| НомерСтроки,
| Оборудование,
| Сотрудник,
| Рабочее_место
|ИЗ
| Документ.Размещение_оборудования
КАК Размещение_оборудования
|ГДЕ
| Размещение_оборудования.Ссылка В
(&Ссылка)"; Запрос.Параметры.Вставить("Ссылка",
Ссылка); Выборка = Запрос.Выполнить().Выбрать();
139
ОбластьЗаголовок =
Макет.ПолучитьОбласть("Заголовок"); Шапка =
Макет.ПолучитьОбласть("Шапка");
ОбластьУстановка_оборудованияШапка =
Макет.ПолучитьОбласть("Установка_оборудованияШапка");
ОбластьУстановка_оборудования =
Макет.ПолучитьОбласть("Установка_оборудования");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка,
Выборка.Уровень());
ТабДок.Вывести(ОбластьУстановка_оборудованияШапка);
ВыборкаУстановка_оборудования =
Выборка.Установка_оборудования.Выбрать();
Пока ВыборкаУстановка_оборудования.Следующий() Цикл
ОбластьУстановка_оборудования.Параметры.Заполнить(ВыборкаУстанов
ка_оборудования);
ТабДок.Вывести(ОбластьУстановка_оборудования,
ВыборкаУстановка_оборудования.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина; КонецЦикла;
КонецПроцедуры
Источник: https://baza.diplomsite.ru/previewfile/1928