128
| И
УчетЗаявокОбслуживания.Заявитель = &Заявитель";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Заявитель",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[5].Значение);
КонецЕсли;
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[6].Значение) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.ВидПроблемы = &ВидПроблемы";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("ВидПроблемы",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[6].Значение);
КонецЕсли;
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[7].Значение) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.СтатусЗаявки =
&СтатусЗаявки";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
129
Запрос.УстановитьПараметр("СтатусЗаявки",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[7].Значение);
КонецЕсли;
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[8].Значение) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.Исполнитель =
&Исполнитель";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Исполнитель",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[8].Значение);
КонецЕсли;
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[9].Значение) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.Регистратор.Номер = &НомерЗаявки";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("НомерЗаявки",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[9].Значение);
КонецЕсли;
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[10].Значение) Тогда
130
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА | И
УчетЗаявокОбслуживания.ДатаПоступления = &ДатаПоступления";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("ДатаПоступления",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[10].Значение.Д
ата);
КонецЕсли;
ТабЗнч = Запрос.Выполнить().Выгрузить();
РеквизитыОтчета = Новый ТаблицаЗначений;
РеквизитыОтчета.Колонки.Добавить("Организация");
РеквизитыОтчета.Колонки.Добавить("НомерЗаявки");
РеквизитыОтчета.Колонки.Добавить("Отдел");
РеквизитыОтчета.Колонки.Добавить("ДатаПоступления");
РеквизитыОтчета.Колонки.Добавить("Заявитель");
РеквизитыОтчета.Колонки.Добавить("ВидПроблемы");
РеквизитыОтчета.Колонки.Добавить("СтатусЗаявки");
РеквизитыОтчета.Колонки.Добавить("Исполнитель");
РеквизитыОтчета.Колонки.Добавить("Оборудование");
РеквизитыОтчета.Колонки.Добавить("Регистратор");
РеквизитыОтчета.Колонки.Добавить("Описание");
Для каждого Строка Из ТабЗнч Цикл
НоваяСтрока = РеквизитыОтчета.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
КонецЦикла;
ВнешниеНаборыДанных = Новый Структура;
ВнешниеНаборыДанных.Вставить("РеквизитыОтчета",РеквизитыОтчета);
Настройки = КомпоновщикНастроек.Настройки;
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
131
МакетКомпоновки =
КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки,Данные
Расшифровки);
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,Вне
шниеНаборыДанных,ДанныеРасшифровки);
ЭлементыФормы.Результат.Очистить();
ДокументРезультат = ЭлементыФормы.Результат;
ДокументРезультат.Очистить();
ПроцессорВывода = Новый
ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
ДокументРезультат.АвтоМасштаб = Истина;
Попытка
ДокументРезультат.ПовторятьПриПечатиСтроки =
ДокументРезультат.Область("R"+Строка(КомпоновщикНастроек.Настройки.Пар
аметрыДанных.Элементы[7].Значение)+":R"+строка(КомпоновщикНастроек.Нас
тройки.ПараметрыДанных.Элементы[8].Значение));
Если
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[11].Значение =
1 Тогда
ДокументРезультат.ОриентацияСтраницы =
ОриентацияСтраницы.Портрет;
Иначе
ДокументРезультат.ОриентацияСтраницы =
ОриентацияСтраницы.Ландшафт;
КонецЕсли;
ДокументРезультат.НижнийКолонтитул.Выводить = Истина;
ДокументРезультат.НижнийКолонтитул.НачальнаяСтраница = 1;
ДокументРезультат.НижнийКолонтитул.ТекстСправа =
"[&НомерСтраницы]";
132
Если
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[12].Значение =
1 Тогда
ДокументРезультат.РазмерСтраницы = "A3";
Иначе
ДокументРезультат.РазмерСтраницы = "A4";
КонецЕсли;
ДокументРезультат.ПолеСлева = 5;
ДокументРезультат.ПолеСправа = 5;
Исключение
КонецПопытки;
КонецПроцедуры
Процедура УстановитьНастройки()
ПараметрДанныхНачПериод =
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[1];
ПараметрДанныхНачПериод.Значение =
НачалоДня(НачалоМесяца(ТекущаяДата()));
ПараметрДанныхНачПериод.Использование = Истина;
ПараметрДанныхКонПериод =
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[2];
ПараметрДанныхКонПериод.Значение =
КонецДня(КонецМесяца(ПараметрДанныхНачПериод.Значение));
ПараметрДанныхКонПериод.Использование = Истина;
ПараметрДанныхОриентацияСтраницы =
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[11];
ПараметрДанныхОриентацияСтраницы.Использование = Истина;
ПараметрДанныхРазмерСтраницы =
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[12];
ПараметрДанныхРазмерСтраницы.Значение = 2;
ПараметрДанныхРазмерСтраницы.Использование = Истина;
Настройки = КомпоновщикНастроек.Настройки;
КонецПроцедуры
133
Процедура ПриОткрытии()
СхемаКомпоновкиДанных =
ОтчетОбъект.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;
УстановитьНастройки();
КонецПроцедуры
Процедура ПередОкончаниемРедактирования(Элемент, НоваяСтрока,
ОтменаРедактирования, Отказ)
ПараметрДанныхКонПериод =
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[2];
ПараметрДанныхКонПериод.Значение =
КонецДня(КонецМесяца(ПараметрДанныхНачПериод.Значение));
ПараметрДанныхКонПериод.Использование = Истина;
КонецПроцедуры
