107
Движение = Движения.СостояниеТехники.Добавить();
Движение.Период = Дата;
Движение.Техника = Техника;
Движение.Состояние=Перечисления.СостояниеТехники.ВРемонте;
Движение.Клиент="";
Движение.ДатаОкончания="";
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.СостояниеТехники.Записывать = Истина;
Движение = Движения.СостояниеТехники.Добавить();
Движение.Период = Дата;
Движение.Техника = Техника;
Движение.Состояние=Перечисления.СостояниеТехники.Свободен;
Движение.Клиент="";
Движение.ДатаОкончания="";
КонецПроцедуры
Модуль менеджера документа «Получение из аренды»
Процедура ПечатьАктаВыполненныхРабот(ТабДок, Ссылка) Экспорт
Макет = Документы.ВозвратИзАренды.ПолучитьМакет("ПечатьАктаВыпол-
ненныхРабот");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВозвратИзАренды.Дата,
| ВозвратИзАренды.ДокументПередачи,
| ВозвратИзАренды.Клиент,
| ВозвратИзАренды.Компенсация,
| ВозвратИзАренды.НачалоАренды,
| ВозвратИзАренды.Номер,
| ВозвратИзАренды.ОкончаниеАренды,
| ВозвратИзАренды.Оплачено,
| ВозвратИзАренды.ОстатокПереплата,
| ВозвратИзАренды.СтоимостьАренды,
108
| ВозвратИзАренды.Почасовая,
| ВозвратИзАренды.Техника,
| ВозвратИзАренды.ТехническоеСостояние,
| ВозвратИзАренды.ЧислоСмен,
| ВозвратИзАренды.ВыполненныеРаботы.(
| НомерСтроки,
| Работа,
| Водитель
| )
|ИЗ
| Документ.ВозвратИзАренды КАК ВозвратИзАренды
|ГДЕ
| ВозвратИзАренды.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьВыполненныеРаботыШапка = Макет.ПолучитьОбласть("Выполнен-
ныеРаботыШапка");
ОбластьВыполненныеРаботы = Макет.ПолучитьОбласть("ВыполненныеРа-
боты");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
Шапка.Параметры.НдокументПередачи=Выборка.ДокументПере-
дачи.Номер;
ТабДок.Вывести(Шапка, Выборка.Уровень());
//ТабДок.Вывести(ОбластьВыполненныеРаботыШапка);
109
ВыборкаВыполненныеРаботы = Выборка.ВыполненныеРаботы.Вы-
брать();
Пока ВыборкаВыполненныеРаботы.Следующий() Цикл
ОбластьВыполненныеРаботы.Параметры.Заполнить(Выборка-
ВыполненныеРаботы);
ТабДок.Вывести(ОбластьВыполненныеРаботы, ВыборкаВы-
полненныеРаботы.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры