Файл: автоматизация приема и обработки заявок отделом техподдержки ооо "компьютерные бизнес системы".pdf

125
// ЗАКЛАДКА СВОЙСТВА
&НаКлиенте
Процедура СвойстваВидСвойстваОбработкаВыбора(Элемент, ВыбранноеЗначение,
СтандартнаяОбработка)
// проверка соответсвия типа выбранного свойства
Если
Не
СвойстваВидСвойстваОбработкаВыбораНаСервере(ВыбранноеЗначение) Тогда
Сообщить("Тип свойства выбранного вида свойств не относится к задачам");
СтандартнаяОбработка = Ложь;
Возврат;
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Функция СвойстваВидСвойстваОбработкаВыбораНаСервере(ВыбВидСвойства)
Если ВыбВидСвойства.ПолучитьОбъект().ТипСвойства.ТипОбъекта <>
Перечисления.ТипыОбъектов.Задача Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
//---------------------------------------------------------------------------
// ЗАКЛАДКА ПЕРЕПИСКА
// выход из поля ввода текста сообщения - это команда на добавление сообщения
&НаКлиенте
Процедура
НовоеСообщениеОкончаниеВводаТекста(Элемент,
Текст,
ДанныеВыбора, ПараметрыПолученияДанных, СтандартнаяОбработка)
Если ПустаяСтрока(Текст) Тогда
Возврат;
КонецЕсли;
ДобавитьНовоеСообщение(Текст);
КонецПроцедуры
// программное добавление сообщения
&НаКлиенте
Процедура ДобавитьНовоеСообщение(ТекстСообщения)
Если Объект.Ссылка.Пустая() Тогда
Сообщить("Нужно сначала записать новую задачу");

126
Возврат;
КонецЕсли;
НоваяСтрока
= Объект.Переписка.Добавить();
НоваяСтрока.Пользователь
= ОбщийСрв.ПолучитьГлПользователь();
НоваяСтрока.ДатаСообщения = ТекущаяДата();
НоваяСтрока.Сообщение
= ТекстСообщения;
ОбщийСрв.ЗаписьВедетИсполнитель(Истина); // флаг того, что записывать можно, даже если нет прав
Записать();
КонецПроцедуры
//---------------------------------------------------------------------------
// ЗАКЛАДКА ИСПОЛНИТЕЛИ
// по команде Исполнить
&НаКлиенте
Процедура ИсполнителиИсполнить(Команда)
Если
ОбщийСрв.ПроверкаПрав(ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.Ис полнитель, ОбщийСрв.ПолучитьГлПользователь()) Тогда
П = Новый Структура;
П.Вставить("Исполнитель",
ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.Исполнитель);
П.Вставить("РезультатИсполнения",
ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.РезультатИсполнения);
П.Вставить("ДатаИсполнения",
ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.ДатаИсполнения);
П.Вставить("Комментарий",
ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.Комментарий);
ФормаИсполнение
=
ПолучитьФорму("Документ.Задача.Форма.ФормаИсполнения", П, ЭтотОбъект);
ФормаИсполнение.ОткрытьМодально();
// дальше см. в ОбработкаВыбора формы
Иначе
Сообщить("У вас нет прав для проставления отметки об исполнении");
КонецЕсли;
КонецПроцедуры
// перед записью в ТЧ Исполнители - не должно быть пустых и проверка процентов
&НаКлиенте

127
Процедура ИсполнителиПередОкончаниемРедактирования(Элемент, НоваяСтрока,
ОтменаРедактирования, Отказ)
Если Элемент.ТекущиеДанные.Исполнитель.Пустая() И Не (НоваяСтрока и
ОтменаРедактирования) Тогда
Сообщить("Исполнитель должен быть обязательно выбран");
Отказ = Истина;
КонецЕсли;
Процентов = 0;
Для Каждого СтрокаИсполнитель Из Объект.Исполнители Цикл
Процентов = Процентов + СтрокаИсполнитель.Процент;
КонецЦикла;
Если Процентов > 100 Тогда
Сообщить("Суммарный процент исполнения не может превышать
100%");
Отказ = Истина;
КонецЕсли;
КонецПроцедуры
// выбор нового исполнителя - проверка что такого еще не было
&НаКлиенте
Процедура
ИсполнителиИсполнительОбработкаВыбора(Элемент,
ВыбранноеЗначение, СтандартнаяОбработка)
Если УжеЕстьВТаблице(ВыбранноеЗначение) Тогда
СтандартнаяОбработка = Ложь;
Сообщить("Этот исполнитель уже выбран");
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция УжеЕстьВТаблице(Выбор)
МассивНайденныхСтрок
=
Объект.Исполнители.НайтиСтроки(Новый
Структура("Исполнитель",Выбор));
Возврат МассивНайденныхСтрок.Количество();
КонецФункции
//ввод новой строки в ТЧ Исполнители - запрет копирования (не может быть двух одинаковых строк)
&НаКлиенте
Процедура ИсполнителиПередНачаломДобавления(Элемент, Отказ, Копирование,
Родитель, Группа, Параметр)
Если Копирование = Истина Тогда
// запрет копирования
Отказ = Истина;

128
КонецЕсли;
КонецПроцедуры
//ввод новой строки в ТЧ Исполнители - автоматически рассчитать процент
&НаКлиенте
Процедура
ИсполнителиПриНачалеРедактирования(Элемент,
НоваяСтрока,
Копирование)
Если НоваяСтрока = Истина Тогда
Процентов = 0;
Для Каждого СтрокаИсполнитель Из Объект.Исполнители Цикл
Процентов = Процентов + СтрокаИсполнитель.Процент;
КонецЦикла;
Если Процентов > 100 Тогда
Процентов = 100;
КонецЕсли;
СтрокаИсполнитель = Элемент.ТекущиеДанные;
СтрокаИсполнитель.Процент = 100-Процентов;
СтрокаИсполнитель.Задание = Объект.Наименование;
КонецЕсли;
КонецПроцедуры
//-------------------------------------------------------------------------------
// ЗАКЛАДКА ПОДЗАДАЧИ
&НаКлиенте
Процедура ВывестиПанельПодзадач() // первоначальное заполнение дерева подзадач
ЭтотОбъект.Элементы.ДеревоПодзадач.НачальноеОтображениеДерева
=
НачальноеОтображениеДерева.РаскрыватьВерхнийУровень;
КонецПроцедуры
// заполнить дерево подзадач
&НаСервере
Процедура ЗаполнитьДеревоПодзадач()
ЭтаФорма.Прочитать(); // перечитать данные формы
ДеревоОбъект = РеквизитФормыВЗначение("ДеревоПодзадач");
ДеревоОбъект.Строки.Очистить();
// удалить все подзадачи
// сформировать корень - текущая задача
Голова = ДеревоОбъект.Строки.Добавить();
Голова.ПодЗадача
= Объект.Ссылка;
Голова.Выполнена
= Объект.Проведен;
Голова.Наименование
= "ЭТА ЗАДАЧА";
Голова.Пометка
=
УстановитьПометку(Объект);
// отметка исполнения

129
// по всем подзадачам табличной части
Для Каждого СтрокаПодЗадача Из Объект.Подзадачи Цикл
ЗаполнитьПодЗадачу(СтрокаПодЗадача, Голова); // вызвать для корня и далее для каждой строки дерева
КонецЦикла;
ЗначениеВРеквизитФормы(ДеревоОбъект, "ДеревоПодзадач");
КонецПроцедуры
// рекурсивное заполнение одной подзадачи
&НаСервере
Процедура ЗаполнитьПодЗадачу(СтрокаПодЗадача, Узел)
// фильтр по проведенным и не проведенным
Если (ФильтрПроведенные = 0) Или (ФильтрПроведенные = 1) Тогда
Если
Не
Число(СтрокаПодЗадача.ПодЗадача.Проведен)
=
ФильтрПроведенные Тогда
Возврат;
КонецЕсли;
КонецЕсли;
// // фильтр по теущему значению
//Если ФильтрЗначение <> Неопределено Тогда
//
Если ФильтрКолонка = "Наименование" Тогда
//
Если
Найти(СтрокаПодЗадача.ПодЗадача.Наименование,
ФильтрЗначение) = 0 Тогда
//
Возврат;
//
КонецЕсли;
//
ИначеЕсли ФильтрКолонка = "Комментарий" Тогда
//
Если Найти(СтрокаПодЗадача.Комментарий, ФильтрЗначение) =
0 Тогда
//
Возврат;
//
КонецЕсли;
//
ИначеЕсли ФильтрКолонка = "Описание" Тогда
//
Если
Найти(СтрокаПодЗадача.ПодЗадача.КраткоеОписание,
ФильтрЗначение) = 0 Тогда
//
Возврат;
//
КонецЕсли;
//
ИначеЕсли ФильтрКолонка = "Статус" Тогда
//
Если СтрокаПодЗадача.ПодЗадача.Статус <> ФильтрЗначение
Тогда
//
Возврат;
//
КонецЕсли;
//
ИначеЕсли ФильтрКолонка = "ДатаПостановки" Тогда
//
Если
НачалоДня(СтрокаПодЗадача.ПодЗадача.Дата)
<>
НачалоДня(ФильтрЗначение) Тогда

130
//
Возврат;
//
КонецЕсли;
//
ИначеЕсли ФильтрКолонка = "ДатаОжидаемая" Тогда
//
Если НачалоДня(СтрокаПодЗадача.ПодЗадача.ДатаОкончания)
<> НачалоДня(ФильтрЗначение) Тогда
//
Возврат;
//
КонецЕсли;
//
КонецЕсли;
//КонецЕсли;
// создать новый узел дерева
НовыйУзел = Узел.Строки.Добавить();
НовыйУзел.ПодЗадача
= СтрокаПодЗадача.ПодЗадача;
НовыйУзел.Выполнена
=
СтрокаПодЗадача.ПодЗадача.Проведен;
НовыйУзел.НомерВТабЧасти
= СтрокаПодЗадача.НомерСтроки;
НовыйУзел.Наименование
=
Строка(СтрокаПодЗадача.ПодЗадача.Номер)
+
"
"
+
СтрокаПодЗадача.ПодЗадача.Наименование;
НовыйУзел.Статус
= СтрокаПодЗадача.ПодЗадача.Статус;
НовыйУзел.Дата
=
СтрокаПодЗадача.ПодЗадача.Дата;
НовыйУзел.ДатаОжидаемая
=
СтрокаПодЗадача.ПодЗадача.ОжидаемаяДатаВыполнения;
НовыйУзел.Комментарий
=
СтрокаПодЗадача.Комментарий;
НовыйУзел.Пометка
=
УстановитьПометку(СтрокаПодЗадача.ПодЗадача);
//НовыйУзел.Картинка = БиблиотекаКартинок.ДебетКредит;
// теперь рекурсивно для каждого поддрева
Для Каждого СтрокаПодЗадача Из СтрокаПодЗадача.ПодЗадача.Подзадачи
Цикл
ЗаполнитьПодЗадачу(СтрокаПодЗадача, НовыйУзел);
КонецЦикла;
КонецПроцедуры // ЗаполнитьПодЗадачу
// признак выполнения задачи
Функция УстановитьПометку(Задача)
Возврат Число(Задача.Проведен);
//Если Задача.Проведен Тогда
//
Возврат 1;
//КонецЕсли;
//

131
//Для Каждого СтрокаПодЗадача Из Задача.Подзадачи Цикл
//
Если НЕ Задача.Проведен Тогда
//
Возврат 2;
//
КонецЕсли;
//КонецЦикла;
//
//Возврат 0;
КонецФункции
//пройти по массиву Путь (хранит ссылки на подзадачи) начиная с головы и вернуть
ИД последнего узла
&НаКлиенте
Функция СпозиционироватьсяВДеревеПодзадач(Вдереве, Путь, Й)
Если Путь.Количество() = 0 Тогда
Возврат 0;
КонецЕсли;
Ключ = Путь[Й];
Для Каждого ТекущаяСтрока Из Вдереве.ПолучитьЭлементы() Цикл
Если ТекущаяСтрока.Подзадача = Ключ Тогда
Если Й = 0 Тогда
Возврат ТекущаяСтрока.ПолучитьИдентификатор();
Иначе
Возврат СпозиционироватьсяВДеревеПодзадач(ТекущаяСтрока, Путь,
Й-1);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецФункции
// перехват выбора (двойной щелчок) - открыть текущую подзадачу
&НаКлиенте
Процедура
ДеревоПодзадачВыбор(Элемент,
ВыбраннаяСтрока,
Поле,
СтандартнаяОбработка)
Если Не ((Поле.Имя = "ДеревоПодзадачКомментарий") Или (Поле.Имя =
"ДеревоПодзадачПодзадача")) Тогда // эти поля - для собственного редактирования
ОткрытьПодзадачу();
КонецЕсли;
КонецПроцедуры
// перехват стандартной команды Добавить - добавить в дерево существующую задачу
// открыть форму выбора и после выбора добавить выбранную задачу в дерево
&НаКлиенте

132
Процедура
ДеревоПодзадачПередНачаломДобавления(Элемент,
Отказ,
Копирование, Родитель, Группа, Параметр)
Отказ = Истина;
Если Не Копирование Тогда // копирование невозможно
ДобавитьСуществующуюПодзадачу();
КонецЕсли;
КонецПроцедуры
// перехват стандартной команды Изменить - открыть подзадачу
&НаКлиенте
Процедура ДеревоПодзадачПередНачаломИзменения(Элемент, Отказ)
Если Не ((Элемент.ТекущийЭлемент.Имя = "ДеревоПодзадачКомментарий")
Или (Элемент.ТекущийЭлемент.Имя = "ДеревоПодзадачПодзадача")) Тогда // эти поля - для собственного редактирования
Отказ = Истина;
ОткрытьПодзадачу();
КонецЕсли;
КонецПроцедуры
// перехват стандартной команды Удалить
&НаКлиенте
Процедура ДеревоПодзадачПередУдалением(Элемент, Отказ)
УзелРодитель
=
Элементы.ДеревоПодзадач.ТекущиеДанные.ПолучитьРодителя(); // получить узел- родитель
Если УзелРодитель = Неопределено Тогда // если нет родителя - то значит пытаются удалить корень
Отказ = Истина;
Возврат;
КонецЕсли;
ПутьВДереве = ПолучитьПутьВДереве(УзелРодитель); //запомнить путь до текущего узла
УдалитьПодзадачуНаСервере(УзелРодитель.Подзадача,
Элементы.ДеревоПодзадач.ТекущиеДанные.ПодЗадача); // удалить из таб части
ЗаполнитьДеревоПодзадач(); // перестроить дерево подзадач
Элементы.ДеревоПодзадач.ТекущаяСтрока
=
СпозиционироватьсяВДеревеПодзадач(ДеревоПодзадач,
ПутьВДереве,
ПутьВДереве.Количество()-1); // спозиционироваться на добавленной задаче
Оповестить("Дерево", Новый Структура,ЭтотОбъект); // всем формам послать оповещение о проведенном изменениии - пусть они перстаивают свое дерево
Отказ = Истина; // уже все сделано

133
КонецПроцедуры
// перехват стандартного Изменения (изменение последовательность строк или комментарий)
&НаКлиенте
Процедура ДеревоПодзадачПриИзменении(Элемент)
СохранитьДеревоНаСервере();
П = Новый Структура;
Оповестить("Дерево",П, ЭтотОбъект); // оповестить об изменении, сделанном в этом форме, все остальные формы - пусть они перстаривают свое дерево
КонецПроцедуры
// по команде НоваяПодзадача