Дипломная работа: Автоматизация документооборота организации ФГУП "Почта России"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
101
Результат =
БизнесПроцессы.Утверждение.ПроцессЗавершилсяУдачно
(ВложенныйПроцесс)
Или
БизнесПроцессы.Утверждение.ПроцессЗавершилсяУдачноСЗамечаниями
(ВложенныйПроцесс);
КонецЕсли;
КонецПроцедуры
Проверка условия регистрации документа
// регистрация
Процедура НаРегистрациюПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Результат = ЗначениеЗаполнено (ШаблонРегистрации);
КонецПроцедуры
Создание процедуры «Регистрация»
Процедура РегистрацияПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
РегистрацияОбъект = БизнесПроцессы.
Регистрация.СоздатьБизнесПроцесс();
РегистрацияОбъект.Дата = ТекущаяДатаСеанса();
РегистрацияОбъект.Автор = Автор;
Мультпредметность.ЗаполнитьПредметыПроцессаПоШаблону
(ШаблонРегистрации, РегистрацияОбъект);
Мультипредметность.ПередатьПредметыПроцессу (РегистрацияОбъект,
ЭтотОбъект, Ложь, Истина);
РегистрацияОбъект.Проект = Проект;
РегистрацияОбъект.ПроектнаяЗадача = ПроектнаяЗадача;
РегистрацияОбъект.ЗаполнитьПоШаблону (ШаблонРегистрации);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов
(ЭтотОбъект, РегистрацияОбъект);
ФормируемыеБизнесПроцессы.Добавить (РегистрацияОбъект);
КонецПроцедуры
Проверка условия регистрации при создании задачи
Процедура РегистрацияПриСозданииЗадач (ТочкаМаршрутаБизнесПроцесса,
ФормируемыеЗадачи, Отказ)
МассивПреметов =
МультипредметностьКлиентСервер.ПолучитьМассивСтруктурПредметовОбъек
та (ЭтотОбъект,Истика);
102
СтрокаПредметов =
МультипредметностьКлиентСервер.ПредметыСтрокой (МассивПредметов,
Истина, Ложь);
Для Каждого Задача Из ФормируемыеЗадачи Цикл
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача Зарегистрировать %1’»),
СтрокаПредметов);
Задача.Автор = Автор;
Задача.Проект = Проект;
Задача.ПроектнаяЗадача = ПроектнаяЗадача;
КонецЦикла;
КонецПроцедуры
Проверка условия рассмотрения документа
// рассмотрение
Процедура НаРассмотрениеПроверкаУсловия
(ТочкаМаршрутаБизнесПроцесса, Результат)
Результат = ЗначениеЗаполнено (ШаблонРассмотрения);
КонецПроцедуры
Создание процедуры «Рассмотрение»
Процедура РассмотрениеПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
РассмотрениеОбъект = БизнесПроцессы.
Рассмотрение.СоздатьБизнесПроцесс();
РассмотрениеОбъект.Дата = ТекущаяДатаСеанса();
РассмотрениеОбъект.Автор = Автор;
Мультпредметность.ЗаполнитьПредметыПроцессаПоШаблону
(ШаблонРассмотрения, РассмотрениеОбъект);
Мультипредметность.ПередатьПредметыПроцессу (РассмотрениеОбъект,
ЭтотОбъект, Ложь, Истина);
РассмотрениеОбъект.Проект = Проект;
РассмотрениеОбъект.ПроектнаяЗадача = ПроектнаяЗадача;
РассмотрениеОбъект.ЗаполнитьПоШаблону (ШаблонРассмотрения);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов
(ЭтотОбъект, РассмотрениеОбъект);
РассмотрениеСсылка =
БизнесПроцессы.Рассмотрение.ПолучитьСсылку();
РассмотрениеОбъект.УстановитьСсылкуНового (РассмотрениеСсылка);
103
Рассмотрение = РассмотрениеСсылка;
Записать();
ФормируемыеБизнесПроцессы.Добавить (РассмотрениеОбъект);
КонецПроцедуры
Проверка условия рассмотрения при создании задачи
Процедура РассмотрениеПриСозданииЗадач (ТочкаМаршрутаБизнесПроцесса,
ФормируемыеЗадачи, Отказ)
МассивПреметов =
МультипредметностьКлиентСервер.ПолучитьМассивСтруктурПредметовОбъек
та (ЭтотОбъект,Истика);
СтрокаПредметов =
МультипредметностьКлиентСервер.ПредметыСтрокой (МассивПредметов,
Истина, Ложь);
Для Каждого Задача Из ФормируемыеЗадачи Цикл
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача Рассмотреть %1’»),
СтрокаПредметов);
Задача.Автор = Автор;
Задача.Проект = Проект;
Задача.ПроектнаяЗадача = ПроектнаяЗадача;
КонецЦикла;
КонецПроцедуры
Проверка процедуры «Рассмотрение» в бизнес-процессе
Процедура РассмотренПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Результат = БизнесПроцессы.рассмотрение.ПроцессЗавершилсяУдачно
(Рассмотрение);
КонецПроцедуры
Проверка условия исполнения документа
// исполнение
Процедура НаИсполнениеПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Результат = ЗначениеЗаполнено (ШаблонИсполненияОзнакомления) ИЛИ
ЗначениеЗаполнено (ШаблонРассмотрения);
КонецПроцедуры
Проверка условия «Исполнение» при создании задачи
Процедура ИсполнениеПриСозданииЗадач (ТочкаМаршрутаБизнесПроцесса,
ФормируемыеЗадачи, Отказ)
104
МассивПреметов =
МультипредметностьКлиентСервер.ПолучитьМассивСтруктурПредметовОбъек
та (ЭтотОбъект,Истика);
СтрокаПредметов =
МультипредметностьКлиентСервер.ПредметыСтрокой (МассивПредметов,
Истина, Ложь);
Для Каждого Задача Из ФормируемыеЗадачи Цикл
Если ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
(«СправочникСсылка.ШаблоныИсполнения») Тогда
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача Исполнить %1’»),
СтрокаПредметов);
ИначеЕсли ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
(«СправочникСсылка.ШаблоныИсполнения») Тогда
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача Ознакомиться %1’»),
СтрокаПредметов);
КонецЕсли;
Задача.Автор = Автор;
Задача.Проект = Проект;
Задача.ПроектнаяЗадача = ПроектнаяЗадача;
КонецЦикла;
КонецПроцедуры
Процедура «Исполнение» при условии ознакомления с документом
Процедура
ИсполнениеИзнакомлениеПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
Если ЗначениеЗаполнено (ШаблонРассмотрения) Тогда
Если Рассмотрение.ВариантРассмотрения =
Перечисления.ВариантыРассмотрения.НаправитьНаИсполнение Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Исполнение.СоздатьБизнесПроцесс ();
ИначеЕсли Рассмотрение.ВариантРассмотрения =
Перечисления.ВариантыРассмотрения.НаправитьНаОзнакомление Тогда
ИсполнениеИзнакомлениеОбъект =
БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс ():
ИначеЕсли Рассмотрение.ВариантРассмотрения =
Перечисления.ВариантыРассмотрения.НаправитьНаОзнакомление Тогда
Если Рассмотрение.ВариантОбработкиРезолюции =
Перечисления.ВариантыОбработкиРезолюции.направитьНаИсполнение Тогда
105
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.ИсполнениеоздатьБизнесПроцесс ();
ИначеЕсли Рассмотрение.ВариантОбработкиРезолюции =
Перечисления.ВариантыОбработкиРезолюции.НаправитьНаОзнакомление
Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс ();
КонецЕсли;
КонецЕсли;
ИсполнениеОзнакомлениеОбъект.Дата = ТекущаяДатаСеанса ();
ИсполнениеОзнакомлениеОбъект.ЗаполнитьПоРассмотрению (Рассмотрение);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов тотОбъект,
ИсполнениеОзнакомлениеОбъект);
ФормируемыеБизнесПроцессы.Добавить (ИсполнениеОзнакомлениеОбъект);
ИначеЕсли ЗначениеЗаполнено (ШаблонИсполненияОзнакомления) Тогда
Если ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
(«СправочникСсылка.ШаблоныИсполнения») Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Исполнение.СоздатьБизнесПроцесс ();
НаименованиеПоУмолчанию = НСтр («ru = Исполнить’»);
ИначеЕсли ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
СправочникСсылка.ШаблоныОзнакомления») Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс ();
НаименованиеПоУмолчанию = НСтр («ru = ‘Ознакомиться’»);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Источник: https://baza.diplomsite.ru/previewfile/1722