Ozy

&НаСервере
Процедура СформироватьНаСервере()
	Макет = Отчеты.РемонтныйЖурнал.ПолучитьМакет("Макет");
	Шапка = Макет.ПолучитьОбласть("Шапка");
	ТаблицаШапка = Макет.ПолучитьОбласть("ТабличнаяЧастьШапка");
	Таблица = Макет.ПолучитьОбласть("ТабличнаяЧасть");
	Шапка.Параметры.НаименованиеОрганизации = Константы.НаименованиеОрганизации.Получить();
	Шапка.Параметры.ОКУД = Константы.ФормаПоОКУД.Получить();
	ШАпка.Параметры.ОКЮЛП = Константы.ФормаПоОКПО.Получить();

	Документ.Очистить();
	Шапка.Параметры.С = Формат(С,"ДФ=dd.MM.yyyy");
	Шапка.Параметры.По = Формат(По1,"ДФ=dd.MM.yyyy");
	Документ.Вывести(Шапка);
	Документ.Вывести(ТаблицаШапка);
	Запрос = Новый Запрос;
	Запрос.Текст=
	"ВЫБРАТЬ
	|	Ремонт.ДатаНачала,
	|	Ремонт.ДатаОкончания,
	|	Ремонт.ТипРемонта КАК ТипРемонта,
	|	Ремонт.Подробности,
	|	Ремонт.Средства.Наименование КАК НаименованиеОборудования,
	|	Ремонт.Средства.ИнвентарныйНомер КАК ИнвентНомер,
	|	Ремонт.Средства.НомерПаспорта КАК Паспорт,
	|	ВЫБОР КОГДА ТипРемонта = ЗНАЧЕНИЕ(Перечисление.ТипРемонта.Т) ТОГДА
	|   Ремонт.Средства.ТекущийРемонтПростой
	|   ИНАЧЕ Ремонт.Средства.КапитальныйРемонтПростой
	|   КОНЕЦ КАК Простой
	|ИЗ
	|	Справочник.Ремонт КАК Ремонт
	|ГДЕ
	|	Ремонт.ДатаНачала МЕЖДУ &С и &По1";
	Запрос.Параметры.Вставить("С", С);
	Запрос.Параметры.Вставить("По1", По1);
	Выборка = Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		Таблица.Параметры.Заполнить(Выборка);
		Таблица.Параметры.ДатаНачала = Формат(Таблица.Параметры.ДатаНачала,"ДФ=dd.MM.yyyy");
		Таблица.Параметры.ДатаОкончания = Формат(Таблица.Параметры.ДатаОкончания,"ДФ=dd.MM.yyyy");
		Если Таблица.Параметры.ТипРемонта=перечисления.ТипРемонта.Т Тогда
			Таблица.Параметры.ТипРемонта = "Текущий";
		ИначеЕсли Таблица.Параметры.ТипРемонта=перечисления.ТипРемонта.К Тогда
			Таблица.Параметры.ТипРемонта = "Капитальный";
		КонецЕсли;

		Документ.Вывести(Таблица);

	КонецЦикла;
	КонецПроцедуры

&НаКлиенте
Процедура Сформировать(Команда)
	СформироватьНаСервере();
КонецПроцедуры