97
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ Р ИСО/МЭК 12207/99. Государственный стандарт РФ.
Информационная технология. Процессы жизненного цикла информационных
систем. Издание официальное. - М., 2015
2. Схемы алгоритмов, программ, данных и систем. Условные
обозначения и правила выполнения. ГОСТ 19.701-90 (ИСО 5807-85) /
Государственный комитет СССР по управлению качеством продукции и
стандартам, 01.01.1992.
3. Автоматизированные информационные системы, базы и банки
данных. Вводный курс: Учебное пособие, М.: Гелиос АРВ, 2011. - 368 с., ил
4. Астелс, Дэвид; Миллер Гранвилл; Новак, Мирослав, Практическое
руководство по экстремальному программированию, Пер. с англ. - М.:
Издательский дом "Вильямс", 2016. - 320 с.: ил. - Парал. тит. англ
5. Баженова И. Ю. , Основы проектирования приложений баз
данных, Издательства: Бином. Лаборатория знаний, Интернет-университет
информационных технологий, 2017 г., , 328 стр.
6. Вендров А.М., CASE-технологии. Современные методы и
средства проектирования информационных систем - М.: Финансы и
статистика, 2018 г, 456 стр.
7. Вигерс Карл, Разработка требований к программному
обеспечению, Пер, с англ. - М.: Издательско-торговый дом "Русская
Редакция", 2019. -576с.: ил
8. Гашков С. Б., Э. А. Применко, М. А. Черепнев Криптографические
методы защиты информации, М, Издательство: Академия, 2011г., 304 стр.
9. Гвоздева Т. В., Б. А. Баллод, Проектирование информационных
систем, М, Издательство: Феникс, 2019 г., 512 стр.
10. Голицына О. Л., И. И. Попов, Н. В. Максимов, Т. Л. Партыка,
Информационные технологии, М, Издательство Инфра-М, 2018 г., 608 стр.
11. Дейв Крейн, Эрик Паскарелло, Даррен Джеймс. AJAX в действии:
Учебник – М.: Вильямс, 2019. 450 – 490 с.
98
12. Дэвид Флэнаган. JavaScript. Подробное руководство: Учебник –
М.: Символ Плюс, 2019. 243 – 249 с.
13. Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование
информационных систем, М, Издательство: Форум, 2018 г., 432 стр.
14. Емельянова Н. З., Т. Л. Партыка, И. И. Попов, М, Издательство
Форум, 2019 г., , 416 стр.
15. Илюшечкин В. М. , Основы использования и проектирования баз
данных, М, Издательство Юрайт, 2019 г., 224 стр.
16. Котляров В. П., Т. В. Коликова, Основы тестирования
программного обеспечения, Издательства: Интернет-университет
информационных технологий, Бином. Лаборатория знаний, 2018 г., 288 стр.
17. Кристиан Дари, Богдан Бринзаре, Филип Черчез-Тоза, Михай
Бусика. AJAX и PHP. Разработка динамических веб-приложений: Учебник –
М.: Символ Плюс, 2019, 289 стр.
18. Кузин А. В., С. В. Левонисова, Базы данных, М, Издательство:
Академия, 2018 г., 320 стр.
19. Кузнецов С. Д., Основы баз данных, М, Издательства: Бином.
Лаборатория знаний, Интернет-университет информационных технологий,
2019 г., 488 стр.
20. Молчанов А. Ю., Системное программное обеспечение, М,
Издательство: Питер, 2019 г., 400 стр.
21. Незнанов А. А., Программирование и алгоритмизация, М,
Издательство: Академия, 2019 г., 304 стр.
22. Пирогов В. Ю., Информационные системы и базы данных. М,
Организация и проектирование, Издательство: БХВ-Петербург, 2018 г.528 стр.
23. Предметно-ориентированные экономические информационные
системы, М, Издательство: Финансы и статистика, 2019 г., 224 стр.
24. Реляционные базы данных: практические приемы оптимальных
решений. – СПб.: БХВ-Петербург, 2018 – 400с.:ил;
99
25. Симионов Ю.Ф., Боромотов В.В. Информационный менеджмент.
— Ростов н.Д: Феникс, 2019, 250с., ил.;
26. Чипига А. Ф., Информационная безопасность
автоматизированных систем, М, Издательство: Гелиос АРВ, 2019 г., 336 стр.
100
ПРИЛОЖЕНИЕ
Программный код
// префикс номера документа
Процедура
ПриУстановкеНовогоНомера
(СтандартнаяОбработка,
Префикс)
Префикс =
Обмен.ПолучитьПрефиксНо
мера();
КонецПроцедуры
// при вводе нового документа
Процедура
ОбработкаЗаполнения(Основ
ание, Значение)
ОбщийСрв.ПриВвод
еНовойЗадачи(ЭтотОбъект);
// заполнить все реквизиты
по-умолчанию для новой
задачи
// если вводится на
основании Контрагента
Если
ТипЗнч(Основание) =
Тип("СправочникСсылка.Ко
нтрагенты") Тогда
Контрагент
= Основание;
//
основание - это контрагент
Отвественный =
Основание.Отвественный; //
отвественный по задаче -
ответсвенный по контрагенту
Исполнитель
= Исполнители.Добавить();
// первый
исполнитель -
Исполнитель.Исполн
итель =
Основание.Отвественный;
Исполнитель.Процен
т = 100;
КонецЕсли;
// если вводится на
основании другой задачи
Если
ТипЗнч(Основание) =
Тип("ДокументСсылка.Задач
а") Тогда
ОбщийСрв.ПриВвод
еНовойЗадачи(ЭтотОбъект,
Основание);
ДокОснование =
Документы.Задача.ПустаяСс
ылка();
КонецЕсли;
Если
ТипЗнч(Основание) =
Тип("Структура") Тогда
//если вводлится новый из
списка с установленным
отбором
// то данные
заполняются автоматически
из отбора "Заполнять из
данных заполнения"
КонецЕсли
КонецПроцедуры
// если копирование - то
переопределить логику
копирования
Процедура
ПриКопировании(ОбъектКоп
ирования)
Автор =
ПараметрыСеанса.глПользов
атель; // автор - текущий
пользователь
Отвественный =
ПараметрыСеанса.глПользов
атель; // автор - текущий
пользователь
Статус =
Справочники.Статусы.Новая;
// новая
задача - статус Новая
ДокОснование =
ОбъектКопирования.Ссылка;
// Док основание - та задача из
котрой скопировали
Переписка.Очистить(
);
Исполнители.Очисти
ть();
Подзадачи.Очистить(
);
Номенклатура.Очист
ить();
КонецПроцедуры
// перед удалением документа
Процедура
ПередУдалением(Отказ)
// проверка на
закрытый период
Если
ОбщийСрв.ВЗакрытомПерио
де(ЭтотОбъект) Тогда
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + "Находится в
закрытом периоде. Удаление
невозможно");
Отказ =
Истина;
Возврат;
КонецЕсли;
// проверка
Проведена
Если
(ЭтотОбъект.Проведен И
Константы.ЗапретПроведенн
ых.Получить()) И Не
ПараметрыСеанса.глЗаписьВ
едетИсполнитель Тогда
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + "Уже выполнена.
Удаление невозможно");
Отказ =
Истина;
Возврат;
КонецЕсли;
// проверка прав
Если Не
ОбщийСрв.ПроверкаПрав(Ав
тор,
ПараметрыСеанса.глПользов
атель) Тогда
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + "Нет прав удалять
чужой документ");
Отказ =
Истина;
Возврат;
КонецЕсли;
// удалить вхождение
этого документа в табличную
часть Подзадачи любых
остальных документов
ТЗРодителей =
СформироватьСписокРодите
лей(ЭтотОбъект.Ссылка); //
сформировать ТЗ всех
документов, в которые
входит удаляемая
101
Для Каждого
СтрокаРодитель Из
ТЗРодителей Цикл // для
каждого родителя
УдалитьПодзадачу(С
трокаРодитель.Ссылка,
ЭтотОбъект.Ссылка); //
удалить
текущую(удяляемую) задачу
из родителя
КонецЦикла
КонецПроцедуры
// удалить ЗадачаРебенок из
табличной части Подзадачи у
ЗадачаРодитель
Процедура
УдалитьПодзадачу(ЗадачаРо
дитель, ЗадачаРебенок)
Если
ЗадачаРодитель.Пустая()
Тогда
Возврат;
КонецЕсли;
ЗадачаРодительОбъе
кт =
ЗадачаРодитель.ПолучитьОб
ъект();
СтруктураОтбора =
Новый
Структура("Подзадача",
ЗадачаРебенок);
МассивУдаляемыхСт
рок =
ЗадачаРодительОбъект.Подза
дачи.НайтиСтроки(Структур
аОтбора);
Для Каждого
ЭлементМассива Из
МассивУдаляемыхСтрок
Цикл
ЗадачаРодительОбъе
кт.Подзадачи.Удалить(Элеме
нтМассива);
КонецЦикла;
ЗадачаРодительОбъе
кт.Записать();
КонецПроцедуры
// сформироват ТЗ
документов, в которые
ПодЗадачаРебенок входит в
таб часть Подзадачи ( вявном
виде, не через рекурсию)
Функция
СформироватьСписокРодите
лей(ПодЗадачаРебенок)
Запрос = Новый
Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
Задачи.Ссылка
|ИЗ
|
Документ.Задача.По
дзадачи КАК
ЗадачаПодзадачи
|
ЛЕВОЕ
СОЕДИНЕНИЕ
Документ.Задача КАК Задачи
| ПО
ЗадачаПодзадачи.Ссылка =
Задачи.Ссылка
|ГДЕ
|
ЗадачаПодзадачи.По
дзадача =
&ПодзадачаРебенок
|";
Запрос.УстановитьП
араметр("ПодзадачаРебенок",
ПодзадачаРебенок);
РезультатЗапроса =
Запрос.Выполнить();
ТЗ =
РезультатЗапроса.Выгрузить(
);
Возврат ТЗ;
КонецФункции
// провести все
непроведенные подзадачи из
ЗадачаОбъект и провести ее
саму
Процедура
ВыполнитьВсеПодзадачиПри
нудительно(ЗадачаОбъект)
Для Каждого
ТекСтрокаПодзадача Из
ЗадачаОбъект.Подзадачи
Цикл // по всем строкам таб.
части Подзадачи
Если
ТекСтрокаПодзадача.Подзад
ача.Проведен <> Истина
Тогда // если не была
проведена
ВыполнитьВсеПодза
дачиПринудительно(ТекСтро
каПодзадача.Подзадача.Полу
читьОбъект()); // провести все
ее подзадачи
ТекСтрокаПодзадача
.Подзадача.ПолучитьОбъект(
).Записать(РежимЗаписиДоку
мента.Проведение,
РежимПроведенияДокумента
.Неоперативный); // провести
ее саму
Сообщить("Выполне
на подзадача " +
ОбщийСрв.ПредставлениеЗа
дачи(ТекСтрокаПодзадача.П
одзадача));
КонецЕсли;
КонецЦикла;
КонецПроцедуры
// проверить, есть ли среди ТЧ
Исполнители записи без
отметки исполнения
Функция
ПроверитьИсполнение()
Исполненно =
Истина;
Для Каждого
ТекСтрокаИсполнитель Из
Исполнители Цикл
Если
ТекСтрокаИсполнитель.Дата
Исполнения =
Дата(01,01,0001,00,00,00)
Тогда
Сообщить("Задача не
может быть выполнена, так
как исполнитель \" +
ТекСтрокаИсполнитель.Испо
лнитель +
"\ не
проставил отметку
исполнения");
Исполненно = Ложь;
КонецЕсли;
Если Не
ТекСтрокаИсполнитель.Резу
льтатИсполнения.Пустая()
Тогда
Если
Не
102
ТекСтрокаИсполнитель.Резу
льтатИсполнения.Успех
Тогда
Сообщить("Задача не
может быть выполнена, так
как исполнитель \" +
ТекСтрокаИсполнитель.Испо
лнитель +
"\
проставил отрицательную
отметку исполнения");
Исполненно = Ложь;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат Исполненно;
КонецФункции
// действия при проведении
документа
Функция
ПриПроведении(Отказ)
// проверка того, что
все исполнители проставили
отметку об исполнении
Если
Константы.ПроверятьИсполн
ениеПриВыполнении.Получи
ть() Тогда // общая константа
Если
ОбщийСрв.ПолучитьКонстан
ту(ТекущаяДата(),
ОбщийСрв.ПолучитьГлПоль
зователь(),
"ПроверятьИсполнениеПриВ
ыполнении") Тогда //
настройка пользователя
Если
Не ПроверитьИсполнение()
Тогда
Отказ = Истина;
Возврат Ложь;
КонецЕсли;
КонецЕсли;
КонецЕсли;
// проверка того, что
все подзадачи проведены
ЕстьНеВыполненые
Подзадачи = Ложь;
Для Каждого
ТекСтрокаПодзадача Из
Подзадачи Цикл
Если
ТекСтрокаПодзадача.Подзад
ача.Проведен <> Истина
Тогда
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + " имеет
невыполненные подзадачи");
ЕстьНеВыполненые
Подзадачи = Истина;
КонецЕсли;
КонецЦикла;
Если
ЕстьНеВыполненыеПодзадач
и = Истина Тогда
Если
(Константы.ПринудительноВ
ыполнятьПодзадачи.Получит
ь()) И // общая константа
(ОбщийСрв.ПолучитьКонста
нту(ТекущаяДата(),
ОбщийСрв.ПолучитьГлПоль
зователь(),
"ПринудительноВыполнятьП
одзадачи")) Тогда //
настройка пользователя
Сообщить("Подзадач
и будут выполнены
принудительно...");
ВыполнитьВсеПодза
дачиПринудительно(ЭтотОб
ъект); // автоматически
провести все подзадачи
данной задачи
Иначе //
нельзя автоматически
выполнять подзадачи
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + " не может быть
выполнена");
Отказ = Истина;
Возврат Ложь;
КонецЕсли;
КонецЕсли;
Возврат Истина
КонецФункции
// обработка проведения
Процедура
ОбработкаПроведения(Отказ,
РежимПроведения)
Если Не
ПриПроведении(Отказ)
Тогда // проверить
проведение подзадач
Возврат;
КонецЕсли;
// регистр
ИспользованниеНоменклатур
ы
Движения.Использов
аниеНоменклатуры.Записыва
ть = Истина;
Для Каждого
ТекСтрокаНоменклатура Из
Номенклатура Цикл
Если
ТекСтрокаНоменклатура.Нал
ичие Тогда // если в ТЧ стоит
признак наличия
Продолжить;
КонецЕсли;
Если НЕ
ТекСтрокаНоменклатура.Но
менклатура.ВидНоменклатур
ы.Списывается Тогда // если
номенклатуру не надо
списывать
Продолжить;
КонецЕсли;
Движение =
Движения.ИспользованиеНо
менклатуры.Добавить();
Движение.Период =
Дата;
Движение.Номенкла
тура =
ТекСтрокаНоменклатура.Но
менклатура;
Движение.Задача
=
ЭтотОбъект.Ссылка;
Движение.Количеств
103
о =
ТекСтрокаНоменклатура.Кол
ичество;
Движение.Сумма
=
ТекСтрокаНоменклатура.Су
мма;
КонецЦикла;
КонецПроцедуры
// обработка распроведения
Процедура
ОбработкаУдаленияПроведе
ния(Отказ)
Если Не
ОтменитьПроведениеРодите
лей(ЭтотОбъект.Ссылка)
Тогда // отменитиь
проведение задач-родителей
Отказ =
Истина;
Возврат;
КонецЕсли;
КонецПроцедуры
// отменить проведение всех
родителей
ДокСсылкаРебенок
Функция
ОтменитьПроведениеРодите
лей(ДокСсылкаРебенок)
МассивОтменяемых
=
ОбщийСрв.СформироватьСп
исокОтменяемых(ДокСсылка
Ребенок); // сформировать
массив распроводимых
документов
Если
МассивОтменяемых.Количес
тво() Тогда // если есть хоть
один - сообщить
Сообщить
("Отмена выполнения " +
ОбщийСрв.ПредставлениеЗа
дачи(ЭтотОбъект)
+ " приводит к отмене
выполнения задач-
родителей...");
КонецЕсли;
Для Каждого
СтрокаОтменяемый Из
МассивОтменяемых Цикл //
для каждого документа из
распроводимых
Если
ОбщийСрв.ВЗакрытомПерио
де(СтрокаОтменяемый.Значе
ние) Тогда // если находится в
закрытом периоде
Сообщить("Отмена
выполенния " +
ОбщийСрв.ПредставлениеЗа
дачи(ДокСсылкаРебенок)
+ " приводит к отмене
выполенния " +
ОбщийСрв.ПредставлениеЗа
дачи(СтрокаОтменяемый.Зна
чение)
+ ",
находящейся в закрытом
периоде. Отмена не может
быть выполнена");
Возврат Ложь;
КонецЕсли;
Если Не
ОбщийСрв.ПроверкаПрав(Ст
рокаОтменяемый.Значение.А
втор,
ПараметрыСеанса.глПользов
атель) Тогда // проверка прав
Сообщить("Отмена
выполенния " +
ОбщийСрв.ПредставлениеЗа
дачи(ДокСсылкаРебенок)
+ " приводит к отмене
выполенния " +
ОбщийСрв.ПредставлениеЗа
дачи(СтрокаОтменяемый.Зна
чение)
+ ", на
редактирование которого у
Вас нет прав. Отмена не
может быть выполнена");
Возврат Ложь;
КонецЕсли;
КонецЦикла;
// распровести
каждый
Для Каждого
СтрокаОтменяемый Из
МассивОтменяемых Цикл
Если
СтрокаОтменяемый.Значение
.ПолучитьОбъект().Проведен
Тогда
СтрокаОтменяемый.
Значение.ПолучитьОбъект().
Записать(РежимЗаписиДоку
мента.ОтменаПроведения);
Сообщить("Отменен
о выполнение родительской "
+
ОбщийСрв.ПредставлениеЗа
дачи(СтрокаОтменяемый.Зна
чение));
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
// перед любой записью
(включая проведение и
распроведение) - проверка
Процедура
ПередЗаписью(Отказ,
РежимЗаписи,
РежимПроведения)
Головная =
ЭтоГоловная(); // установить
признак - головная или нет
Если
ОбщийСрв.ВЗакрытомПерио
де(ЭтотОбъект) Тогда //
провера на закрытый период
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + "Находится в
закрытом периоде.
Редактирование
невозможно");
Отказ =
Истина;
Возврат;
КонецЕсли;
// проверка того что
проведен (тогда
редактирование запрещено)
Если Не
(РежимЗаписи =
РежимЗаписиДокумента.Про
ведение Или
РежимЗаписи =
104
РежимЗаписиДокумента.Отм
енаПроведения) Тогда
Если (ЭтотОбъект.Проведен
И
Константы.ЗапретПроведенн
ых.Получить()) И Не
ПараметрыСеанса.глЗаписьВ
едетИсполнитель
И Не
ПараметрыСеанса.ИдетОбме
нДанными Тогда
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + "Уже выполнена.
Редактирование
невозможно");
Отказ = Истина;
Возврат;
КонецЕсли;
КонецЕсли;
// проверка прав
Если Не
ОбщийСрв.ПроверкаПрав(Ав
тор,
ПараметрыСеанса.глПользов
атель) Тогда
Сообщить(ОбщийСр
в.ПредставлениеЗадачи(Этот
Объект) + "Нет прав
редактировать чужой
документ");
Отказ =
Истина;
Возврат;
КонецЕсли;
Если РежимЗаписи =
РежимЗаписиДокумента.Про
ведение Тогда
РеальнаяДатаВыпол
нения = ТекущаяДата(); //
дата реального выполнения -
дата проведения
Если
Константы.УстанавливатьЗав
ершенаУспешно.Получить()
= Истина Тогда
Статус =
Справочники.Статусы.Завер
шенаУспешно; // статус -
успешно
КонецЕсли;
КонецЕсли;
Если РежимЗаписи =
РежимЗаписиДокумента.Отм
енаПроведения Тогда
РеальнаяДатаВыпол
нения = 0; // если
распровели - значит нет
реальной даты завершения
Статус =
Справочники.Статусы.Пуста
яСсылка(); // и нет статуса
КонецЕсли;
КонецПроцедуры
// проверка на то, что
данная задача не входит ни в
одну другую в качетсве
подзадачи
Функция ЭтоГоловная()
Запрос = Новый
Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ЗадачаПодзадачи.По
дзадача
|ИЗ
|
Документ.Задача.По
дзадачи КАК
ЗадачаПодзадачи
| ГДЕ
ЗадачаПодзадачи.Подзадача
= &ИскомаяЗадача
|";
Запрос.УстановитьП
араметр("ИскомаяЗадача",
ЭтотОбъект.Ссылка);
Результат =
Запрос.Выполнить();
Возврат
(Результат.Выбрать().Количе
ство() = 0);
КонецФункции
Форма документа «Задача»
&НаСервере
Процедура
ПриСозданииНаСервере(Отк
аз, СтандартнаяОбработка)
// ЗАКЛАДКА
ПОДЗАДАЧИ
Если
Параметры.Свойство("ЭтоНо
вый") Тогда // если из
вызывающей формы был
пердан признак что это новый
документ
Если
Параметры.ЭтоНовый Тогда
// значит нажали кнопку
Новая подзадача в тч
Подзадачи родителя
Основание =
Параметры.Родитель;
Если
Не Основание.Пустая() Тогда
ОбщийСрв.ПриВвод
еНовойЗадачи(Объект,
Основание, Ложь); //
перезаполнить реквизиты и
тч новой на основании
родителя
// но не
добавлять в тч Подзадачи
// далее см. в
ПослеЗаписи этой
задачи - добавить эту
новую в тч Подзадачи
родителя
// далее см. в
ОбработкаОповещения
родителя -
спозиционироваться на вновь
добавленной задче в дереве
КонецЕсли;
КонецЕсли;
КонецЕсли;
ФильтрПроведенные
= 2; // первоначальное
значение фильтра "Все"
ЗаполнитьДеревоПо
дзадач(); // первоначально
создать дерево подзадач
КонецПроцедуры
&НаКлиенте
Процедура
ПриОткрытии(Отказ)
105
// если нет прав - то
форма только просмотр
Если Не
ОбщийСрв.ПроверкаПрав(Об
ъект.Автор,
ОбщийСрв.ПолучитьГлПоль
зователь()) Тогда
ЭтаФорма.ТолькоПр
осмотр = Истина;
КонецЕсли;
// если проведена и
запрет проведенных
Если
Объект.Проведен И
ОбщийСрв.обПолучитьКонст
анту("ЗапретПроведенных")
Тогда
ЭтаФорма.ТолькоПр
осмотр = Истина;
КонецЕсли;
// ЗАКЛАДКА
ИСПОЛНИТЕЛИ
// если пользователь
является исполнителем этого
документа и он открыл
документ - то считается что
он с ним ознакомлен -
// надо проставить
отметку об ознакомлении
ИсполнительОзнако
млен = Ложь;
Для Каждого
СтрокаИсполнитель Из
Объект.Исполнители Цикл
Если
(СтрокаИсполнитель.Исполн
итель =
ОбщийСрв.ПолучитьГлПоль
зователь()) И
(СтрокаИсполнитель.Ознако
млен = глПустаяДата) Тогда
СтрокаИсполнитель.
Ознакомлен =
ТекущаяДата(); //
простановка даты
ознакомления - и есть
признак ознакомления
ИсполнительОзнако
млен = Истина;
ОбщийСрв.ЗаписьВе
детИсполнитель(Истина); //
признак того что дальнейшая
запись будет вестись
исполнителем
Прервать;
КонецЕсли;
КонецЦикла;
Если
ИсполнительОзнакомлен =
Истина Тогда // если была
простановка даты
ознакомления
П = Новый
Структура;
П.Вставить("РежимЗ
аписи",
РежимЗаписиДокумента.Зап
ись);
Записать(П);
КонецЕсли;
// ЗАКЛАДКА
ПОДЗАДАЧИ
ВывестиПанельПодз
адач(); // первоначальное
заполнение дерева подзадач
// РодительскаяЗадача
=
ОбщийСрв.НайтиРодительск
уюЗадачу(Объект.Ссылка);
КонецПроцедуры
// реакция на команду формы
Записать и закрыть
&НаКлиенте
Процедура
ФормаЗаписатьИЗакрыть(Ко
манда)
Записать();
Закрыть();
КонецПроцедуры
// реакция на команду формы
Распровести
&НаКлиенте
Процедура
ФормаРаспровести(Команда)
П = Новый
Структура;
П.Вставить("РежимЗ
аписи",
РежимЗаписиДокумента.Отм
енаПроведения);
Записать(П);
КонецПроцедуры
// реакция на окончание
выбора в других формах
&НаКлиенте
Процедура
ОбработкаВыбора(Выбранно
еЗначение, ИсточникВыбора)
// результат пришел
из формы Исполнение
исполнителем
Если
ИсточникВыбора.ИмяФормы
=
"Документ.Задача.Форма.Фо
рмаИсполнения" Тогда
ЭтотОбъект.Элемент
ы.Исполнители.ТекущиеДан
ные.РезультатИсполнения =
ВыбранноеЗначение.Получит
ь(0).Значение;
ЭтотОбъект.Элемент
ы.Исполнители.ТекущиеДан
ные.ДатаИсполнения =
ВыбранноеЗначение.Получит
ь(1).Значение;
ЭтотОбъект.Элемент
ы.Исполнители.ТекущиеДан
ные.Комментарий
=
ВыбранноеЗначение.Получит
ь(2).Значение;
ОбщийСрв.ЗаписьВе
детИсполнитель(Истина); //
флаг того, что записывать
можно, даже если нет прав
П = Новый
Структура;
П.Вставить("РежимЗ
аписи",
РежимЗаписиДокумента.Зап
ись);
ЭтотОбъект.Записать
(П);
КонецЕсли;
// результат
пришел из формы выбора
справочника Этапы
Если
ИсточникВыбора.ИмяФормы
=
106
"Справочник.Этапы.ФормаВ
ыбора" Тогда
ЗаполнитьДеревоПо
Шаблону(ВыбранноеЗначени
е);
КонецЕсли;
КонецПроцедуры
// проверить возможность
записи документа из формы
&НаКлиенте
Процедура
ПередЗаписью(Отказ,
ПараметрыЗаписи)
Если
ПараметрыЗаписи.РежимЗап
иси =
РежимЗаписиДокумента.Про
ведение Тогда
Отказ = Не
ПроверкаВозможностиПрове
дения();
КонецЕсли;
Если
ПараметрыЗаписи.РежимЗап
иси =
РежимЗаписиДокумента.Отм
енаПроведения Тогда
Отказ = Не
ПроверкаВозможностиРасПр
оведения();
КонецЕсли
КонецПроцедуры
&НаКлиенте
Функция
ПроверкаВозможностиРасПр
оведения(ЭтаЗадача =
Неопределено)
Если ЭтаЗадача =
Неопределено Тогда
ЭтаЗадача =
Объект.Ссылка;
КонецЕсли;
// задать
пользователю вопрос
//МассивОтменяемы
х =
ОбщийСрв.СформироватьСп
исокОтменяемых(ЭтаЗадача)
;
//Если
МассивОтменяемых.Количес
тво() Тогда
// Если
Вопрос("Отмена выполнения
задачи " +
ОбщийСрв.ПредставлениеЗа
дачи(ЭтаЗадача)
//
+ " приведет к отмене
выполнения задач-родителей.
Все равно отменить?",
РежимДиалогаВопрос.ДаНет
) = КодВозвратаДиалога.Нет
Тогда
//
Возврат Ложь;
// КонецЕсли;
//КонецЕсли;
Возврат Истина;
КонецФункции
Функция
ПроверкаВозможностиПрове
дения(ЭтаЗадача =
Неопределено)
Если ЭтаЗадача =
Неопределено Тогда
ЭтаЗадача =
Объект.Ссылка;
КонецЕсли;
// задать
пользователю вопрос
Возврат Истина;
КонецФункции
// ЗАКЛАДКА СВОЙСТВА
&НаКлиенте
Процедура
СвойстваВидСвойстваОбраб
откаВыбора(Элемент,
ВыбранноеЗначение,
СтандартнаяОбработка)
// проверка
соответсвия типа выбранного
свойства
Если Не
СвойстваВидСвойстваОбраб
откаВыбораНаСервере(Выбр
анноеЗначение) Тогда
Сообщить("Тип
свойства выбранного вида
свойств не относится к
задачам");
СтандартнаяОбработ
ка = Ложь;
Возврат;
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Функция
СвойстваВидСвойстваОбраб
откаВыбораНаСервере(ВыбВ
идСвойства)
Если
ВыбВидСвойства.ПолучитьО
бъект().ТипСвойства.ТипОбъ
екта <>
Перечисления.ТипыОбъектов
.Задача Тогда
Возврат
Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
//------------------------------------
--------------------------------------
-
// ЗАКЛАДКА ПЕРЕПИСКА
// выход из поля ввода текста
сообщения - это команда на
добавление сообщения
&НаКлиенте
Процедура
НовоеСообщениеОкончание
ВводаТекста(Элемент, Текст,
ДанныеВыбора,
ПараметрыПолученияДанны
х, СтандартнаяОбработка)
Если
ПустаяСтрока(Текст) Тогда
Возврат;
КонецЕсли;
ДобавитьНовоеСооб
щение(Текст);
КонецПроцедуры
// программное добавление
сообщения
&НаКлиенте
Процедура
ДобавитьНовоеСообщение(Т
екстСообщения)