92
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьУслугиШапка);
ВыборкаУслуги = Выборка.Услуги.Выбрать();
Пока ВыборкаУслуги.Следующий() Цикл
ОбластьУслуги.Параметры.Заполнить(ВыборкаУслуги);
ТабДок.Вывести(ОбластьУслуги,
ВыборкаУслуги.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
ВЫБРАТЬ
ВыполненныеРаботы.Сотрудник КАК Сотрудник,
ВыполненныеРаботы.Дата КАК Дата,
ВыполненныеРаботы.СтоимостьРабот КАК СтоимостьРабот,
ВыполненныеРаботы.ВидРабот КАК ВидРабот
ИЗ
РегистрНакопления.ВыполненныеРаботы КАК
ВыполненныеРаботы
Где Дата >= &Дата1 И
Дата <= &Дата2
93
ВЫБРАТЬ
ВыполненныеРаботы.СтоимостьРабот КАК СтоимостьРабот,
ВыполненныеРаботы.ВидРабот КАК ВидРабот,
ВыполненныеРаботы.Дата КАК Дата,
ВыполненныеРаботы.Заявка КАК Заявка,
ПриемВРемонт.Клиент.Наименование КАК
КлиентНаименование
ИЗ
РегистрНакопления.ВыполненныеРаботы КАК
ВыполненныеРаботы
ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриемВРемонт КАК
ПриемВРемонт
ПО ВыполненныеРаботы.Заявка = ПриемВРемонт.Ссылка
ГДЕ
ВыполненныеРаботы.Заявка = &Заявка
ВЫБРАТЬ
Ремонт.Статус КАК Статус,
Ремонт.Оборудование КАК Оборудование,
Ремонт.ЗаводскойНомер КАК ЗаводскойНомер,
Ремонт.НомерЗаявки КАК НомерЗаявки,
Ремонт.Клиент КАК Клиент
ИЗ
РегистрНакопления.Ремонт КАК Ремонт
ВЫБРАТЬ
Ремонт.Статус КАК Статус,
Ремонт.Оборудование КАК Оборудование,
Ремонт.ЗаводскойНомер КАК ЗаводскойНомер,
Ремонт.НомерЗаявки КАК НомерЗаявки,
Ремонт.Клиент КАК Клиент
94
ИЗ
РегистрНакопления.Ремонт КАК Ремонт
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Ремонт Приход
Движения.Ремонт.Записывать = Истина;
Для Каждого ТекСтрокаТабличнаяЧасть1 Из ТабличнаяЧасть1 Цикл
Движение = Движения.Ремонт.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.НомерЗаявки = Номер;
Движение.Клиент = Клиент;
Движение.Оборудование = ТекСтрокаТабличнаяЧасть1.ВидОбъекта;
Движение.ЗаводскойНомер =
ТекСтрокаТабличнаяЧасть1.СерийныйНомер;
Движение.Статус = Статус;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ВыполненныеРаботы Приход
Движения.ВыполненныеРаботы.Записывать = Истина;
Движение = Движения.ВыполненныеРаботы.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Заявка = НомерЗаявки;
Движение.Сотрудник = Сотрудник;
Движение.СтоимостьРабот = СтоимостьРабот;
Движение.Дата = Дата;
Движение.ВидРабот = Работы;
95
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды (ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.ПриемВРемонт.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры