118
| ЛЕВОЕ СОЕДИНЕНИЕ
РегистрСведений.ВыполнениеЗаявокПоОбслуживанию.СрезПоследних КАК
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних
| ПО УчетЗаявокОбслуживания.Регистратор =
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.РегистраторЗаявки
|ГДЕ
| УчетЗаявокОбслуживания.Активность = ИСТИНА";
СтрЗамены = "УчетЗаявокОбслуживания.Активность = ИСТИНА";
Если ЗначениеЗаполнено(Организация) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.Организация = &Организация";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Организация", Организация);
КонецЕсли;
Если ЗначениеЗаполнено(Отдел) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.Отдел = &Отдел";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Отдел", Отдел);
КонецЕсли;
Если ЗначениеЗаполнено(ДатаПоступления) Тогда
119
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.ДатаПоступления = &ДатаПоступления";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("ДатаПоступления",
ДатаПоступления);
КонецЕсли;
Если ЗначениеЗаполнено(Заявитель) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.Заявитель = &Заявитель";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Заявитель", Заявитель);
КонецЕсли;
Если ЗначениеЗаполнено(ВидПроблемы) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА | И
УчетЗаявокОбслуживания.ВидПроблемы = &ВидПроблемы";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("ВидПроблемы",
ВидПроблемы);
КонецЕсли;
Если ЗначениеЗаполнено(НомерЗаявки) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
120
| И
УчетЗаявокОбслуживания.Регистратор.Номер = &НомерЗаявки";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("НомерЗаявки", НомерЗаявки);
КонецЕсли;
Если ЗначениеЗаполнено(Исполнитель) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА | И
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.Исполнитель =
&Исполнитель";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Исполнитель", Исполнитель);
КонецЕсли;
Если ЗначениеЗаполнено(СтатусЗаявки) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА | И
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.СтатусЗаявки =
&СтатусЗаявки";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("СтатусЗаявки", СтатусЗаявки);
КонецЕсли;
ТабЗнч = Запрос.Выполнить().Выгрузить();
СписокЗаявок.Очистить();
Для каждого Строка Из ТабЗнч Цикл
НоваяСтрока = СписокЗаявок.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
КонецЦикла;
КонецПроцедуры
121
Процедура СписокЗаявокВыбор(Элемент, ВыбраннаяСтрока, Колонка,
СтандартнаяОбработка)
ОткрытьЗначение(ВыбраннаяСтрока.Регистратор);
КонецПроцедуры
Процедура СписокЗаявокПриАктивизацииСтроки(Элемент)
РешениеЗаявок.Отбор.РегистраторЗаявки.Установить(ЭлементыФормы.С
писокЗаявок.ТекущаяСтрока.Регистратор);
РешениеЗаявок.Отбор.РегистраторЗаявки.Использование = Истина;
РешениеЗаявок.Обновить();
ЭлементыФормы.РешениеЗаявок.ТолькоПросмотр = Ложь;
ЭлементыФормы.РешениеЗаявок.Доступность = Истина;
ЭлементыФормы.КоманднаяПанель1.Доступность = Истина;
КонецПроцедуры
Процедура ДобавитьЗаписьНастройки(Кнопка)
НоваяФормаНастроек =
ОткрытьФорму("РегистрСведений.ВыполнениеЗаявокПоОбслуживанию.ФормаЗ
аписи",Новый Структура("РегистраторЗаявки",
ЭлементыФормы.СписокЗаявок.ТекущаяСтрока.Регистратор));
НоваяФормаНастроек.РегистраторЗаявки =
ЭлементыФормы.СписокЗаявок.ТекущаяСтрока.Регистратор;
НоваяФормаНастроек.Организация =
ЭлементыФормы.СписокЗаявок.ТекущаяСтрока.Регистратор.Организация;
НоваяФормаНастроек.ДатаКомментария = ТекущаяДата();
НоваяФормаНастроек.СтатусЗаявки =
Перечисления.СтатусЗаявки.ВРаботе;
НоваяФормаНастроек.Период = ТекущаяДата();
НоваяФормаНастроек.Исполнитель =
ЭлементыФормы.СписокЗаявок.ТекущаяСтрока.Исполнитель;
НоваяФормаНастроек.ЭлементыФормы.ДатаКомментария.Доступность =
Истина;
КонецПроцедуры
Процедура ОсновныеДействияФормыСохранить(Кнопка)
122
ЭтотОбъект.Записать(РежимЗаписиДокумента.Проведение,РежимПроведе
нияДокумента.Неоперативный);
КонецПроцедуры
Процедура ПриОткрытии()
Если ЭтоНовый() Тогда
ДатаЗаявки = ТекущаяДата();
Иначе
ОбновитьРешениеЗаявок();
КонецЕсли;
КонецПроцедуры
Процедура ПослеЗаписи()
ОбновитьРешениеЗаявок();
КонецПроцедуры
Процедура ОбновитьРешениеЗаявок()
РешениеЗаявок.Отбор.РегистраторЗаявки.Установить(ЭтотОбъект.Ссылка
);
РешениеЗаявок.Отбор.РегистраторЗаявки.Использование = Истина;
РешениеЗаявок.Обновить();
КонецПроцедуры
Процедура ДатаПриИзменении(Элемент)
Дата = ДатаЗаявки;
КонецПроцедуры
Перем мУдалятьДвижения;
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
КонецПроцедуры
Процедура ДвиженияПоРегистрам()
НаборЗаписей = Движения.УчетЗаявокОбслуживания;
Движение = НаборЗаписей.Добавить();
123
Движение.Регистратор = Ссылка;
Движение.Организация = Организация;
Движение.Отдел = Отдел;
Движение.ДатаПоступления = ДатаЗаявки;
Движение.Заявитель = Заявитель;
Движение.ВидПроблемы = ВидПроблемы;
Движение.Оборудование = Оборудование;
Движение.Примечание = Примечание;
НаборЗаписей.Записать();
НаборЗаписей =
РегистрыСведений.ВыполнениеЗаявокПоОбслуживанию.СоздатьНаборЗаписей(
);
НаборЗаписей.Отбор.РегистраторЗаявки.Установить(Ссылка);
НаборЗаписей.Отбор.Период.Установить(ДатаЗаявки);
НаборЗаписей.Прочитать();
Если НаборЗаписей.Количество() = 0 Тогда
Движение = НаборЗаписей.Добавить();
Движение.Период = ДатаЗаявки;
Движение.РегистраторЗаявки = Ссылка;
Движение.Организация = Организация;
Движение.ДатаКомментария = ДатаЗаявки;
Движение.СтатусЗаявки = Перечисления.СтатусЗаявки.ВОбработке;
Движение.Исполнитель =
Справочники.ФизическиеЛица.ПустаяСсылка();
Движение.Описание = Примечание;
Иначе
//Запись уже существует
Движение = НаборЗаписей[0];
Движение.Период = ДатаЗаявки;
Движение.РегистраторЗаявки = Ссылка;
124
Движение.Организация = Организация;
Движение.ДатаКомментария = ДатаЗаявки;
Движение.СтатусЗаявки = Перечисления.СтатусЗаявки.ВОбработке;
Движение.Исполнитель =
Справочники.ФизическиеЛица.ПустаяСсылка();
Движение.Описание = Примечание;
КонецЕсли;
НаборЗаписей.Записать()
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
РежимПроведения = РежимПроведенияДокумента.Неоперативный;
мУдалятьДвижения = НЕ ЭтоНовый();
Если Не ЗначениеЗаполнено(Организация) Тогда
Отказ = Истина;
КонецЕсли;
Если Не ЗначениеЗаполнено(ДатаЗаявки) Тогда
Отказ = Истина;
КонецЕсли;
Если Не ЗначениеЗаполнено(Заявитель) Тогда
Отказ = Истина;
КонецЕсли;
Если Не ЗначениеЗаполнено(ВидПроблемы) Тогда
Отказ = Истина;
КонецЕсли;
Если мУдалятьДвижения Тогда
ОбщегоНазначения.УдалитьДвиженияРегистратора(ЭтотОбъект,
Отказ);
КонецЕсли;
Если Не Отказ Тогда
ДвиженияПоРегистрам();
КонецЕсли
КонецПроцедур
125
Процедура ОбработкаУдаленияПроведения(Отказ)
НаборЗаписей =
РегистрыСведений.ВыполнениеЗаявокПоОбслуживанию.СоздатьНаборЗаписей(
);
НаборЗаписей.Отбор.РегистраторЗаявки.Установить(Ссылка);
НаборЗаписей.Отбор.ДатаКомментария.Установить(ДатаЗаявки);
НаборЗаписей.Отбор.Период.Установить(ДатаЗаявки);
НаборЗаписей.Прочитать();
НаборЗаписей.Очистить();
КонецПроцедуры
перем ПараметрДанныхНачПериод;
перем ПараметрДанныхКонПериод;
перем ПараметрДанныхОрганизация;
перем РеквизитыОтчета;
перем ВнешниеНаборыДанных;
Процедура Сформировать(Кнопка)
ПараметрДанныхНачПериод =
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[1];
Если ПараметрДанныхНачПериод.Значение = Неопределено Тогда
Предупреждение("Начальная дата не задана!");
Возврат;
КонецЕсли;
ПараметрДанныхНачПериод.Использование = Истина;
ПараметрДанныхКонПериод =
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[2];
Если ПараметрДанныхКонПериод.Значение = Неопределено Тогда
Предупреждение("Конечная дата не задана!");
Возврат;
КонецЕсли;
ПараметрДанныхКонПериод.Использование = Истина;
Запрос = Новый Запрос;
126
Запрос.Текст =
"ВЫБРАТЬ
| УчетЗаявокОбслуживания.Регистратор,
| УчетЗаявокОбслуживания.Организация,
| УчетЗаявокОбслуживания.Отдел,
| УчетЗаявокОбслуживания.ДатаПоступления,
| УчетЗаявокОбслуживания.Заявитель,
| УчетЗаявокОбслуживания.ВидПроблемы,
| УчетЗаявокОбслуживания.Оборудование,
| УчетЗаявокОбслуживания.Примечание КАК Описание,
| УчетЗаявокОбслуживания.Регистратор.Номер КАК
НомерЗаявки,
|
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.Исполнитель,
|
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.СтатусЗаявки
|ИЗ
| РегистрСведений.УчетЗаявокОбслуживания КАК
УчетЗаявокОбслуживания
| ЛЕВОЕ СОЕДИНЕНИЕ
РегистрСведений.ВыполнениеЗаявокПоОбслуживанию.СрезПоследних КАК
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних
| ПО УчетЗаявокОбслуживания.Регистратор =
ВыполнениеЗаявокПоОбслуживаниюСрезПоследних.РегистраторЗаявки
|ГДЕ
| УчетЗаявокОбслуживания.Активность = ИСТИНА";
СтрЗамены = "УчетЗаявокОбслуживания.Активность = ИСТИНА";
127
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[3].Значение) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.Организация = &Организация";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Организация",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[3].Значение);
КонецЕсли;
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[4].Значение) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА
| И
УчетЗаявокОбслуживания.Отдел = &Отдел";
Запрос.Текст = СТРЗаменить(Запрос.Текст, СтрЗамены,
НовСтрЗамены);
Запрос.УстановитьПараметр("Отдел",
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[4].Значение);
КонецЕсли;
Если
ЗначениеЗаполнено(КомпоновщикНастроек.Настройки.ПараметрыДанных.Элем
енты[5].Значение) Тогда
НовСтрЗамены = " УчетЗаявокОбслуживания.Активность =
ИСТИНА