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