122
&НаКлиенте
Процедура ПриОткрытии(Отказ)
// если нет прав - то форма только просмотр
Если Не ОбщийСрв.ПроверкаПрав(Объект.Автор,
ОбщийСрв.ПолучитьГлПользователь()) Тогда
ЭтаФорма.ТолькоПросмотр = Истина;
КонецЕсли;
// если проведена и запрет проведенных
Если Объект.Проведен И
ОбщийСрв.обПолучитьКонстанту("ЗапретПроведенных") Тогда
ЭтаФорма.ТолькоПросмотр = Истина;
КонецЕсли;
// ЗАКЛАДКА ИСПОЛНИТЕЛИ
// если пользователь является исполнителем этого документа и он открыл
документ - то считается что он с ним ознакомлен -
// надо проставить отметку об ознакомлении
ИсполнительОзнакомлен = Ложь;
Для Каждого СтрокаИсполнитель Из Объект.Исполнители Цикл
Если (СтрокаИсполнитель.Исполнитель =
ОбщийСрв.ПолучитьГлПользователь()) И (СтрокаИсполнитель.Ознакомлен =
глПустаяДата) Тогда
СтрокаИсполнитель.Ознакомлен = ТекущаяДата(); //
простановка даты ознакомления - и есть признак ознакомления
ИсполнительОзнакомлен = Истина;
ОбщийСрв.ЗаписьВедетИсполнитель(Истина); // признак того
что дальнейшая запись будет вестись исполнителем
Прервать;
КонецЕсли;
КонецЦикла;
Если ИсполнительОзнакомлен = Истина Тогда // если была простановка даты
ознакомления
П = Новый Структура;
П.Вставить("РежимЗаписи", РежимЗаписиДокумента.Запись);
Записать(П);
КонецЕсли;
// ЗАКЛАДКА ПОДЗАДАЧИ
ВывестиПанельПодзадач(); // первоначальное заполнение дерева подзадач
// РодительскаяЗадача =
ОбщийСрв.НайтиРодительскуюЗадачу(Объект.Ссылка);
КонецПроцедуры
// реакция на команду формы Записать и закрыть
&НаКлиенте
123
Процедура ФормаЗаписатьИЗакрыть(Команда)
Записать();
Закрыть();
КонецПроцедуры
// реакция на команду формы Распровести
&НаКлиенте
Процедура ФормаРаспровести(Команда)
П = Новый Структура;
П.Вставить("РежимЗаписи", РежимЗаписиДокумента.ОтменаПроведения);
Записать(П);
КонецПроцедуры
// реакция на окончание выбора в других формах
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
// результат пришел из формы Исполнение исполнителем
Если ИсточникВыбора.ИмяФормы =
"Документ.Задача.Форма.ФормаИсполнения" Тогда
ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.РезультатИсполнения
= ВыбранноеЗначение.Получить(0).Значение;
ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.ДатаИсполнения
= ВыбранноеЗначение.Получить(1).Значение;
ЭтотОбъект.Элементы.Исполнители.ТекущиеДанные.Комментарий
= ВыбранноеЗначение.Получить(2).Значение;
ОбщийСрв.ЗаписьВедетИсполнитель(Истина); // флаг того, что
записывать можно, даже если нет прав
П = Новый Структура;
П.Вставить("РежимЗаписи", РежимЗаписиДокумента.Запись);
ЭтотОбъект.Записать(П);
КонецЕсли;
// результат пришел из формы выбора справочника Этапы
Если ИсточникВыбора.ИмяФормы = "Справочник.Этапы.ФормаВыбора"
Тогда
ЗаполнитьДеревоПоШаблону(ВыбранноеЗначение);
КонецЕсли;
КонецПроцедуры
// проверить возможность записи документа из формы
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
124
Если ПараметрыЗаписи.РежимЗаписи = РежимЗаписиДокумента.Проведение
Тогда
Отказ = Не ПроверкаВозможностиПроведения();
КонецЕсли;
Если ПараметрыЗаписи.РежимЗаписи =
РежимЗаписиДокумента.ОтменаПроведения Тогда
Отказ = Не ПроверкаВозможностиРасПроведения();
КонецЕсли
КонецПроцедуры
&НаКлиенте
Функция ПроверкаВозможностиРасПроведения(ЭтаЗадача = Неопределено)
Если ЭтаЗадача = Неопределено Тогда
ЭтаЗадача = Объект.Ссылка;
КонецЕсли;
// задать пользователю вопрос
//МассивОтменяемых =
ОбщийСрв.СформироватьСписокОтменяемых(ЭтаЗадача);
//Если МассивОтменяемых.Количество() Тогда
// Если Вопрос("Отмена выполнения задачи " +
ОбщийСрв.ПредставлениеЗадачи(ЭтаЗадача)
// + " приведет к отмене выполнения задач-родителей. Все
равно отменить?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
// Возврат Ложь;
// КонецЕсли;
//КонецЕсли;
Возврат Истина;
КонецФункции
Функция ПроверкаВозможностиПроведения(ЭтаЗадача = Неопределено)
Если ЭтаЗадача = Неопределено Тогда
ЭтаЗадача = Объект.Ссылка;
КонецЕсли;
// задать пользователю вопрос
Возврат Истина;
КонецФункции
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);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецФункции
// перехват выбора (двойной щелчок) - открыть текущую подзадачу
&НаКлиенте
Процедура ДеревоПодзадачВыбор(Элемент, ВыбраннаяСтрока, Поле,
СтандартнаяОбработка)
Если Не ((Поле.Имя = "ДеревоПодзадачКомментарий") Или (Поле.Имя =
"ДеревоПодзадачПодзадача")) Тогда // эти поля - для собственного редактирования
ОткрытьПодзадачу();
КонецЕсли;
КонецПроцедуры
// перехват стандартной команды Добавить - добавить в дерево существующую
задачу
// открыть форму выбора и после выбора добавить выбранную задачу в дерево
&НаКлиенте