96
Описано дерево вызова программных модулей;
Описаны все разработанные программные модули;
Приведен контрольный пример программы.
Разработанный модуль является важной составляющей процесса
внедрения документооборота в организации и позволяет упростить процесс
работы с документами с помощью единой электронной базы.
97
Список использованной литературы
1. Бартеньев О.В. 1С: Предприятие: программирование для всех – М.:
Диалог-МИФИ, 2005 – 464с.
2. Березецкий С.А., Репин Д.С. Автоматизированная информационная
система «Мониторинг мероприятий по модернизации региональных систем
дошкольного образования» // Информатизация образования и науки. – 2014. -
№3 (23). – С. 63-74.
3. Басаков, М. И. Документы и документооборот коммерческой организации
/ М.И. Басаков. – М.: Феникс, 2016. - 416 c
4. Мокрозуб В.Г., Поляков А.Н., Сердюк А.И.В., Марусич К.В., Овечкин
М.В. Автоматизированная информационная система подготовки производства
машиностроительного предприятия // Вестник Тамбовского государственного
технического университета. – 2012. – Т. 18. - №3. – С. 598-603.
5. Радченко М.Г., Хрусталёва Е.Ю. «1С: предприятие 8.3. Практическое
пособие разработчика (+ CD-ROM)» – М.: Эксмо, 2016 – 928с.
6. Борсук Н.А., Смоляр Е.С. Вопросы автоматизации документооборота на
предприятии // Наукоемкостные технологии в приборо- и машиностроении и
развитие инновационной деятельности в вузе: материалы Всероссийской
научно-технической конференции, 14-16 ноября 2017г. Т. 4 - Калуга:
Издательство МГТУ им. Н.Э. Баумана, 2017. – С. 34-39. URL:
http://conference.bmstu-kaluga.ru/uploads/userfiles/december_2017_4.pdf (дата
обращения: 10.04.2020)
7. Губич, Л.В. Внедрение на промышленных предприятиях
информационных технологий поддержки жизненного цикла продукции: метод.
рекомендации / Л.В. Губич, Н.И. Петкевич; ред. О.Н. Пручковской. - Минск:
Белорусская наука, 2012. - 189 с. - [Электронный ресурс]. – Режим доступа:
http://biblioclub.ru/index.php?page=book&id=142897 (дата обращения:
24.03.2020).
8. Норенков, И.П. Основы автоматизированного проектирования
[Электронный ресурс]: учебное пособие / И.П. Норенков. — Электрон. дан. —
98
Москва: Изд-во МГТУ им. Н. Э. Баумана, 2009. — 430 с. — Режим доступа:
https://e.lanbook.com/book/106527 (дата обращения: 24.03.2020)
9. Петухов Р. Н. Концепция базы данных для системы электронного
документооборота в Oracle Database // Молодой ученый. — 2017. — №5. — С.
27-31. — URL https://moluch.ru/archive/139/39219/ (дата обращения: 24.03.2020).
10. Рыжко, А. Л. Информационные системы управления производственной
компанией учебник для академического бакалавриата [Электронный ресурс] /
А. Л. Рыжко, А. И. Рыбников, Н. А. Рыжко – М.: Издательство Юрайт, 2018. –
354 с. – Режим доступа: https://biblio-online.ru/book/6E043B8F-D9D7-4362-855C-
D7E53CC85A19/informacionnye-sistemy-upravleniya-proizvodstvennoy-kompaniey
(дата обращения: 10.04.2020)
11. Смоляр Е.С., Борсук Н.А. Анализ возможностей технологической
платформы «1С: Предприятие 8.3» // Наукоемкостные технологии в приборо- и
машиностроении и развитие инновационной деятельности в вузе: материалы
Всероссийской научно-технической конференции, 17-19 апреля 2018 г. Т.4 –
Калуга: Издательство МГТУ им. Н.Э. Баумана, 2018 – С. 4-7.
URL:http://conference.bmstukaluga.ru/uploads/userfiles/april_2018_tom_3.pdf (дата
обращения: 20.03.2020)
12. «1С: Документооборот 8» [Электронный ресурс] // «1C: Предприятие 8»
Система программ. URL: http://v8.1c.ru/doc8/ (дата обращения: 17.03.2020)
13. Шаньгин, В.Ф. Защита компьютерной информации [Электронный
ресурс]: учебное пособие / В.Ф. Шаньгин. — Электрон. дан. — Москва: ДМК
Пресс, 2010. — 544 с. — Режим доступа: https://e.lanbook.com/book/1122 (дата
обращения: 10.04.2020)
14. «Directum. Управление договорами» [Электронный ресурс] // Directum.
Системы для комплексных задач внутреннего и внешнего документооборота.
URL: http://directum.ru/contracts_management (дата обращения: 20.03.2020)
15. «Docsvision Договоры» [Электронный ресурс] // СЭД Docsvision. URL:
http://www.docsvision.com/kupit/dv-catalog/docsvision5-dogovori.html (дата
обращения: 20.03.2020)
99
Приложение 1. Листинг программы
Проверка условия согласования
// согласование
Процедура НаСогласованиеПроверка Условия
(ТочкаМаршрутаБизнесПроцесса, Результат)
Результат = ЗначениеЗаполнено (ШаблонСогласования);
КонецПроцедуры
Реализация процедуры «Согласование»
Процедура СогласованиеПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
СогласованиеОбъект =
БизнесПроцессы.Согласование.СоздатьБизнесПроцесс();
СогласованиеОбъект.Дата = ТекущаяДатаСеанса();
СогласованиеОбъект.Автор = Автор;
Мультпредметность.ЗаполнитьПредметыПроцессаПоШаблону
(ШаблонСогласования, СогласованиеОбъект);
Мультипредметность.ПередатьПредметыПроцессу (СогласованиеОбъект,
ЭтотОбъект, Ложь, Истина);
СогласованиеОбъект.Проект = Проект;
СогласованиеОбъект.ПроектнаяЗадача = ПроектнаяЗадача;
СогласованиеОбъект.ЗаполнитьПоШаблону (ШаблонСогласования);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов
(ЭтотОбъект, СогласованиеОбъект);
ФормируемыеБизнесПроцессы.Добавить (СогласованиеОбъект);
КонецПроцедуры
Проверка процедуры «Согласование» в бизнес-процессе
Процедура СогласованиеПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Если Не ЗначениеЗаполнено (ШаблонСогласования) Тогда
Результат = Истина;
Иначе
ВложенныйПроцесс = НайтиВложенныйПроцесс
(БизнесПроцессы.ОбработкаВнутреннегоДокумента.ТочкаМаршрута.Согласова
ние);
Результат =
БизнесПроцессы.Согласование.ПроцессЗавершилсяУдачно
(ВложенныйПроцесс)
100
Или
БизнесПроцессы.Согласование.ПроцессЗавершилсяУдачноСЗамечаниями
(ВложенныйПроцесс);
КонецЕсли;
КонецПроцедуры
Проверка условия процедуры «Утверждение»
Процедура НаУтвержденииПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Результат = ЗначениеЗаполнено (ШаблонУтверждения);
КонецПроцедуры
Реализация Процедуры «Утверждение»
Процедура УтверждениеПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
УтверждениеОбъект =
БизнесПроцессы.Утверждение.СоздатьБизнесПроцесс();
УтверждениеОбъект.Дата = ТекущаяДатаСеанса();
УттверждениеОбъект.Автор = Автор;
Мультпредметность.ЗаполнитьПредметыПроцессаПоШаблону
(ШаблонУтверждения, УтверждениеОбъект);
Мультипредметность.ПередатьПредметыПроцессу (УтверждениеОбъект,
ЭтотОбъект, Ложь, Истина);
УтверждениеОбъект.Проект = Проект;
УтверждениеОбъект.ПроектнаяЗадача = ПроектнаяЗадача;
УтверждениеОбъект.ЗаполнитьПоШаблону (ШаблонУтверждения);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов
(ЭтотОбъект, УтверждениеОбъект);
ФормируемыеБизнесПроцессы.Добавить (УтверждениеОбъект);
КонецПроцедуры
Проверка процедуры «Утверждение» в бизнес-процессе
Процедура УтвержденПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Если Не ЗначениеЗаполнено (ШаблонУтверждения) Тогда
Результат = Истина;
Иначе
ВложенныйПроцесс = НайтиВложенныйПроцесс
(БизнесПроцессы.ОбработкаВнутреннегоДокумента.ТочкаМаршрута.Утвержде
ние);
101
Результат =
БизнесПроцессы.Утверждение.ПроцессЗавершилсяУдачно
(ВложенныйПроцесс)
Или
БизнесПроцессы.Утверждение.ПроцессЗавершилсяУдачноСЗамечаниями
(ВложенныйПроцесс);
КонецЕсли;
КонецПроцедуры
Проверка условия регистрации документа
// регистрация
Процедура НаРегистрациюПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Результат = ЗначениеЗаполнено (ШаблонРегистрации);
КонецПроцедуры
Создание процедуры «Регистрация»
Процедура РегистрацияПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
РегистрацияОбъект = БизнесПроцессы.
Регистрация.СоздатьБизнесПроцесс();
РегистрацияОбъект.Дата = ТекущаяДатаСеанса();
РегистрацияОбъект.Автор = Автор;
Мультпредметность.ЗаполнитьПредметыПроцессаПоШаблону
(ШаблонРегистрации, РегистрацияОбъект);
Мультипредметность.ПередатьПредметыПроцессу (РегистрацияОбъект,
ЭтотОбъект, Ложь, Истина);
РегистрацияОбъект.Проект = Проект;
РегистрацияОбъект.ПроектнаяЗадача = ПроектнаяЗадача;
РегистрацияОбъект.ЗаполнитьПоШаблону (ШаблонРегистрации);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов
(ЭтотОбъект, РегистрацияОбъект);
ФормируемыеБизнесПроцессы.Добавить (РегистрацияОбъект);
КонецПроцедуры
Проверка условия регистрации при создании задачи
Процедура РегистрацияПриСозданииЗадач (ТочкаМаршрутаБизнесПроцесса,
ФормируемыеЗадачи, Отказ)
МассивПреметов =
МультипредметностьКлиентСервер.ПолучитьМассивСтруктурПредметовОбъек
та (ЭтотОбъект,Истика);
102
СтрокаПредметов =
МультипредметностьКлиентСервер.ПредметыСтрокой (МассивПредметов,
Истина, Ложь);
Для Каждого Задача Из ФормируемыеЗадачи Цикл
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача – Зарегистрировать %1’»),
СтрокаПредметов);
Задача.Автор = Автор;
Задача.Проект = Проект;
Задача.ПроектнаяЗадача = ПроектнаяЗадача;
КонецЦикла;
КонецПроцедуры
Проверка условия рассмотрения документа
// рассмотрение
Процедура НаРассмотрениеПроверкаУсловия
(ТочкаМаршрутаБизнесПроцесса, Результат)
Результат = ЗначениеЗаполнено (ШаблонРассмотрения);
КонецПроцедуры
Создание процедуры «Рассмотрение»
Процедура РассмотрениеПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
РассмотрениеОбъект = БизнесПроцессы.
Рассмотрение.СоздатьБизнесПроцесс();
РассмотрениеОбъект.Дата = ТекущаяДатаСеанса();
РассмотрениеОбъект.Автор = Автор;
Мультпредметность.ЗаполнитьПредметыПроцессаПоШаблону
(ШаблонРассмотрения, РассмотрениеОбъект);
Мультипредметность.ПередатьПредметыПроцессу (РассмотрениеОбъект,
ЭтотОбъект, Ложь, Истина);
РассмотрениеОбъект.Проект = Проект;
РассмотрениеОбъект.ПроектнаяЗадача = ПроектнаяЗадача;
РассмотрениеОбъект.ЗаполнитьПоШаблону (ШаблонРассмотрения);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов
(ЭтотОбъект, РассмотрениеОбъект);
РассмотрениеСсылка =
БизнесПроцессы.Рассмотрение.ПолучитьСсылку();
РассмотрениеОбъект.УстановитьСсылкуНового (РассмотрениеСсылка);
103
Рассмотрение = РассмотрениеСсылка;
Записать();
ФормируемыеБизнесПроцессы.Добавить (РассмотрениеОбъект);
КонецПроцедуры
Проверка условия рассмотрения при создании задачи
Процедура РассмотрениеПриСозданииЗадач (ТочкаМаршрутаБизнесПроцесса,
ФормируемыеЗадачи, Отказ)
МассивПреметов =
МультипредметностьКлиентСервер.ПолучитьМассивСтруктурПредметовОбъек
та (ЭтотОбъект,Истика);
СтрокаПредметов =
МультипредметностьКлиентСервер.ПредметыСтрокой (МассивПредметов,
Истина, Ложь);
Для Каждого Задача Из ФормируемыеЗадачи Цикл
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача – Рассмотреть %1’»),
СтрокаПредметов);
Задача.Автор = Автор;
Задача.Проект = Проект;
Задача.ПроектнаяЗадача = ПроектнаяЗадача;
КонецЦикла;
КонецПроцедуры
Проверка процедуры «Рассмотрение» в бизнес-процессе
Процедура РассмотренПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Результат = БизнесПроцессы.рассмотрение.ПроцессЗавершилсяУдачно
(Рассмотрение);
КонецПроцедуры
Проверка условия исполнения документа
// исполнение
Процедура НаИсполнениеПроверкаУсловия (ТочкаМаршрутаБизнесПроцесса,
Результат)
Результат = ЗначениеЗаполнено (ШаблонИсполненияОзнакомления) ИЛИ
ЗначениеЗаполнено (ШаблонРассмотрения);
КонецПроцедуры
Проверка условия «Исполнение» при создании задачи
Процедура ИсполнениеПриСозданииЗадач (ТочкаМаршрутаБизнесПроцесса,
ФормируемыеЗадачи, Отказ)
104
МассивПреметов =
МультипредметностьКлиентСервер.ПолучитьМассивСтруктурПредметовОбъек
та (ЭтотОбъект,Истика);
СтрокаПредметов =
МультипредметностьКлиентСервер.ПредметыСтрокой (МассивПредметов,
Истина, Ложь);
Для Каждого Задача Из ФормируемыеЗадачи Цикл
Если ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
(«СправочникСсылка.ШаблоныИсполнения») Тогда
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача – Исполнить %1’»),
СтрокаПредметов);
ИначеЕсли ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
(«СправочникСсылка.ШаблоныИсполнения») Тогда
Задача.Наименование =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку (
НСтр («ru = ‘Ведущая задача – Ознакомиться %1’»),
СтрокаПредметов);
КонецЕсли;
Задача.Автор = Автор;
Задача.Проект = Проект;
Задача.ПроектнаяЗадача = ПроектнаяЗадача;
КонецЦикла;
КонецПроцедуры
Процедура «Исполнение» при условии ознакомления с документом
Процедура
ИсполнениеИзнакомлениеПередСозданиемВложенныхБизнесПроцессов
(ТочкаМаршрутаБизнесПроцесса, ФормируемыеБизнесПроцессы, Отказ)
Если ЗначениеЗаполнено (ШаблонРассмотрения) Тогда
Если Рассмотрение.ВариантРассмотрения =
Перечисления.ВариантыРассмотрения.НаправитьНаИсполнение Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Исполнение.СоздатьБизнесПроцесс ();
ИначеЕсли Рассмотрение.ВариантРассмотрения =
Перечисления.ВариантыРассмотрения.НаправитьНаОзнакомление Тогда
ИсполнениеИзнакомлениеОбъект =
БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс ():
ИначеЕсли Рассмотрение.ВариантРассмотрения =
Перечисления.ВариантыРассмотрения.НаправитьНаОзнакомление Тогда
Если Рассмотрение.ВариантОбработкиРезолюции =
Перечисления.ВариантыОбработкиРезолюции.направитьНаИсполнение Тогда
105
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Исполнение.СоздатьБизнесПроцесс ();
ИначеЕсли Рассмотрение.ВариантОбработкиРезолюции =
Перечисления.ВариантыОбработкиРезолюции.НаправитьНаОзнакомление
Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс ();
КонецЕсли;
КонецЕсли;
ИсполнениеОзнакомлениеОбъект.Дата = ТекущаяДатаСеанса ();
ИсполнениеОзнакомлениеОбъект.ЗаполнитьПоРассмотрению (Рассмотрение);
РаботаСБизнесПроцессами.СкопироватьЗначенияДопРеквизитов (ЭтотОбъект,
ИсполнениеОзнакомлениеОбъект);
ФормируемыеБизнесПроцессы.Добавить (ИсполнениеОзнакомлениеОбъект);
ИначеЕсли ЗначениеЗаполнено (ШаблонИсполненияОзнакомления) Тогда
Если ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
(«СправочникСсылка.ШаблоныИсполнения») Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Исполнение.СоздатьБизнесПроцесс ();
НаименованиеПоУмолчанию = НСтр («ru = ‘Исполнить’»);
ИначеЕсли ТипЗнч (ШаблонИсполненияОзнакомления) = Тип
(«СправочникСсылка.ШаблоныОзнакомления») Тогда
ИсполнениеОзнакомлениеОбъект =
БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс ();
НаименованиеПоУмолчанию = НСтр («ru = ‘Ознакомиться’»);
КонецЕсли;
КонецЕсли;
КонецПроцедуры