67
В работе любой организации важен контроль за движениями
информации, которое выполняет разработанное программное обеспечение. В
разработанном продукте реализована работа с различными типами
документов, имеется возможность разграничения доступа к различным
папкам, в документы можно вкладывать различные файлы, хранить их,
удалять и открывать. На основании созданных документов можно запускать
бизнес-процессы, по выполнению которых документ приобретёт
соответствующий статус.
Таким образом, применение данной конфигурации значительно
упростит взаимодействие сотрудников организации и сократит время на
выполнение административных функций.
Программный продукт имеет большое количество вариантов
совершенствования за счёт большой функциональности платформы 1С.
Возможно ввести новые аналитики учета, разработать интеграции с другими
системами, ввод нового функционала по разграничению прав или работы с
документами.
Затраты на внедрение ИС в 303000 рублей окупятся через 1,4 года.
Трудовые затраты в часах на обработку одного документа снизятся на 23
минуты, а коэффициент относительного снижения трудовых затрат составит
76,6%. Индекс снижения трудовых затрат или повышение
производительности труда равен 4,3
.
Можно сделать вывод, что поставленные задачи и цель автоматизации
документооборота ООО «ПолиНекст» достигнуты, разработанный
программный продукт соответствует техническому заданию и может быть
применен как средство автоматизации документооборота компании.
68
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Вострецова Е.В. Основы информационной безопасности : учебное
пособие для студентов вузов / Е. В. Вострецова. — Екатеринбург : Изд-во
Урал. ун-та, 2019. — 204 с. [Электронный ресурс]. — Режим доступа: URL:
http://elar.urfu.ru/bitstream/10995/73899/3/978-5-7996-2677-8_2019.pdf (25.05.
2020).
2. Галимянов А.Ф., Галимянов Ф.А. Архитектура информационных
систем / А.Ф. Галимянов, Ф.А. Галимянов. – Казань: Казан. ун-т, 2019. – 117
с. [Электронный ресурс]. — Режим доступа: URL:
https://dspace.kpfu.ru/xmlui/bitstream/handle/net/150691/F_Arkhitektura_informa
cionnykh_sistem.pdf?sequence=-1 (дата обращения: 15.05.2020).
3. Герасимчук, В. А. Автоматизация процессов предприятия / В. А.
Герасимчук. — Текст : непосредственный // Молодой ученый. — 2016. — №
69
11 (115). — С. 654-657. — URL: https://moluch.ru/archive/115/30382/ (дата
обращения: 25.05.2020).
4. Горбенко А.О. Информационные системы в экономике: учебное
пособие / А. О. Горбенко. — 3-е изд. (эл.). — Электрон. текстовые дан. (1
файл pdf : 295с.).—М. : БИНОМ. Лаборатория знаний, 2015.— [Электронный
ресурс]. — Режим доступа: URL:
http://www.iuk.kg/dept/files/econom/dokumenty/
Uchebniki/Informachioni%20sistemi.pdf (26.05.2020).
5. Долганова О.И. Моделирование бизнес-процессов : учебник и
практикум для академического бакалавриата / О.И. Долганова,
Е.В. Виноградова, А.М. Лобанова ; под редакцией О.И. Долгановой. —
Москва : Издательство Юрайт, 2019. — 289 с. — (Бакалавр. Академический
курс). — ISBN 978-5-534-00866-1. — Текст : электронный // ЭБС Юрайт
[Электронный ресурс]. — Режим доступа:
URL: https://urait.ru/bcode/433143 (дата обращения: 19.05.2020).
6. Ишмурадова И.И., Павликов С.В. Проектирование информационных
систем: учебно-методическое пособие / И.И. Ишмурадова, С.В. Павликов. –
Набережные Челны: Изд-во Набережночелнинского института КФУ, 2019. –
36 с. [Электронный ресурс]. — Режим доступа: URL:
https://kpfu.ru/staff_files/F_1782625583/UP__2019___kopiya.pdf (дата
обращения: 12.05.2020).
7. Каурова О.В. Финансово-экономический анализ предприятия
туристской индустрии : учебное пособие / Каурова О.В., Малолетко А.Н.,
Подсевалова Е.Н. — Москва : КноРус, 2017. — 215 с. [Электронный ресурс].
— Режим доступа: URL: https://book.ru/book/919914 (дата обращения:
12.05.2020).
8. Коробко В.И. Теория организации: учеб. пособие для бакалавров и
магистров вузов / — М. : АНО ВО «Институт непрерывного образования»,
2016. – 168с. [Электронный ресурс]. — Режим доступа: URL:
70
http://lib.7480040.ru/images/books/978-5-905248-22-1.pdf (дата обращения:
12.05.2020).
9. Костровец Л.Б. Теория организации и организационное поведение:
учебник / Л.Б. Костровец, И.Ю. Беганская, Л.В. Черная, Л.В. Кулешова, М.А.
Малик, Н.Г Яблонская. –Донецк : ГОУ ВПО «ДонАУиГС», 2017. –575с.
10. Куль Т.П. Операционные системы. Программное обеспечение:
учебник / сост. Т.П. Куль. – Санкт-Петербург : Лань, 2020. – 248 с. : ил. –
(Учебники для вузов. Специальная литература). [Электронный ресурс]. —
Режим доступа: URL: https://e.lanbook.com/reader/book/131045/#2 (дата
обращения: 25.05.2020).
11. Николаев М.А., Махотаева М.Ю. Оценка эффективности проектов:
Учебное пособие. – Псков: Изд-во ПсковГУ, 2017. –234 с.
12. Похилько А. Ф. Моделирование процессов и данных с использованием
CASE- технологий : учебное пособие / А. Ф. Похилько, И. В. Горбачев, С. В.
Рябов. – Ульяновск : УлГТУ, 2014. – 163 с. [Электронный ресурс]. — Режим
доступа: URL: http://venec.ulstu.ru/lib/disk/2014/179.pdf (дата обращения:
19.05.2020).
13. Хахаев И.А. Информационные таможенные технологии: учеб.
пособие. – СПб: НИУ ИТМО, 2014. – 122 с. [Электронный ресурс]. — Режим
доступа: URL: https://books.ifmo.ru/file/pdf/1693.pdf (27.05.2020).
14. Чистова Д.В. Проектирование информационных систем : учебник и
практикум для академического бакалавриата / под ред. Д.В. Чистова. — М. :
Издательство Юрайт, 20176. — 258 с. — Серия : Бакалавр. Академический
курс. [Электронный ресурс]. — Режим доступа: URL: https://static.my-
shop.ru/product/pdf/213/2127126.pdf (10.06.2020).
15. Ясенев В.Н. ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ: Учебное
пособие. Авторы: Ясенев В.Н., Дорожкин А.В., Матвеев В.А., Сочков А.Л.,
Ясенев О.В. Под общей редакцией проф. Ясенева В.Н.–Нижний Новгород:
Нижегородский госуниверситетим. Н.И. Лобачевского, 2018. – 182с.
[Электронный ресурс]. — Режим доступа: URL: http://www.iee.unn.ru/wp-
71
content/uploads/sites/9/2018/09/Yasenev_posobie_isecurity.pdf (дата
обращения: 22.05.2020).
16. Яшин С. Н. Оценка эффективности инновационной деятельности:
учебник / С. Н. Яшин, И. Л. Туккель, Е. В. Кошелев, С. А. Мака- ров, Ю. С.
Коробова. — Нижний Новгород: Изд-во Нижегородского госуниверситета,
2018. — 409 с. [Электронный ресурс]. — Режим доступа: URL:
http://www.iee.unn.ru/wp-content/uploads/sites/9/2017/12/OEID.pdf (25.06.2020)
17.О системе Directum [Электронный ресурс]. — Режим доступа: URL:
http://www.directum.ru (23.05.2020).
18.О системе DocsVision [Электронный ресурс]. — Режим доступа: URL:
http://www.docsvision.com (23.05.2020).
19.О системе PayDox [Электронный ресурс]. — Режим доступа: URL:
http://www.paydox.ru/Help/DoTour.asp?do=tour&l=ru (23.05.2020).
ПРИЛОЖЕНИЯ
ПРИЛОЖЕНИЕ 1
Листинг программных модулей
Листинг формы справочника «Документы»
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ЗаполнитьСписокФайлов();
УстановитьВидимость();
Папка = Справочники.Папки.ПустаяСсылка();
Параметры.Свойство("Папка", Папка);
Если Папка <> Неопределено Тогда
Объект.Папка = Папка
КонецЕсли;
Если Объект.Ссылка.Пустая() Тогда
Объект.ДатаСоздания = ТекущаяДата();
Объект.Ответственный = ПараметрыСеанса.ТекущийПользователь;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура УстановитьВидимость()
72
Элементы.ГруппаФайлы.Заголовок ="Файлы (" + Файлы.Количество()+ ")";
Элементы.ГруппаРезолюции.Заголовок ="Резолюции (" +
Объект.Резолюции.Количество()+ ")";
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьНовыйФайл(Команда)
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.ПолноеИмяФайла = "";
ДиалогОткрытия.МножественныйВыбор = Ложь;
ДиалогОткрытия.Заголовок = "Выберете файл для загрузки";
ОписаниеОповещения = Новый
ОписаниеОповещения("ПослеЗагрузкиФайла",ЭтаФорма, "НовыйФайл");
ДиалогОткрытия.Показать(ОписаниеОповещения);
КонецПроцедуры
&НаСервере
Процедура УдалитьФайлНаСервере(Файл)
ФайлОбъект = Файл.ПолучитьОбъект();
ФайлОбъект.ПометкаУдаления = Истина;
ФайлОбъект.Записать();
КонецПроцедуры
&НаКлиенте
Процедура УдалитьФайл(Команда)
Если Элементы.Файлы.ТекущиеДанные = Неопределено Тогда
ПоказатьПредупреждение(,"Сначала выберите файл!");
Иначе
УдалитьФайлНаСервере(Элементы.Файлы.ТекущиеДанные.ФайлСсылка);
Файлы.Удалить(Файлы.НайтиПоИдентификатору(Элементы.Файлы.ТекущаяСтрок
а));
УстановитьВидимость();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗагрузкиФайла(ВыбранныйФайл,ДопПараметр) Экспорт
Если ВыбранныйФайл = Неопределено Тогда
Возврат;
КонецЕсли;
ОписаниеОповещения = Новый ОписаниеОповещения("ПослеПомещенияФайла",
ЭтаФорма, "НовыйФайл");
НачатьПомещениеФайла(ОписаниеОповещения,, ВыбранныйФайл[0], Ложь,
УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ПослеПомещенияФайла(Результат, Адрес,
ВыбранноеИмяФайла,ДопПараметры) Экспорт
Если Не Результат Тогда
73
Возврат;
КонецЕсли;
Если ДопПараметры = "НовыйФайл" Тогда
СоздатьНовыйФайл(Адрес, ВыбранноеИмяФайла);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура СоздатьНовыйФайл(АдресВХранилище, ИмяФайла)
Формат = Прав(ИмяФайла, СтрДлина(ИмяФайла) - СтрНайти(ИмяФайла, ".",
НаправлениеПоиска.СКонца));
ИмяФайла = Прав(ИмяФайла, СтрДлина(ИмяФайла) - СтрНайти(ИмяФайла, "\",
НаправлениеПоиска.СКонца));
НовыйФайл = Справочники.Файлы.СоздатьЭлемент();
НовыйФайл.Владелец = Объект.Ссылка;
НовыйФайл.Наименование = ИмяФайла;
НовыйФайл.ФорматФайла = Формат;
НовыйФайл.ХранилищеФайла = Новый
ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресВХранилище));
НовыйФайл.Записать();
НоваяСтрока = Файлы.Добавить();
НоваяСтрока.ФайлСсылка = НовыйФайл.Ссылка;
НоваяСтрока.Наименование = Строка(НовыйФайл.Ссылка);
УстановитьВидимость();
КонецПроцедуры
&НаКлиенте
Процедура ФайлыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Файл = Новый Файл(ПолучитьКаталогФайлов() +
Файлы.НайтиПоИдентификатору(ВыбраннаяСтрока).Наименование);
ОписаниеОповещения = Новый
ОписаниеОповещения("ПослеПроверкиНаличияФайла", ЭтаФорма, ВыбраннаяСтрока);
Файл.НачатьПроверкуСуществования(ОписаниеОповещения)
КонецПроцедуры
&НаКлиенте
Процедура ПослеПроверкиНаличияФайла(Результат, ВыбраннаяСтрока) Экспорт
Если Результат = Истина Тогда
ОписаниеОповещения = Новый
ОписаниеОповещения("ПослеЗапускаФайла", ЭтаФорма);
НачатьЗапускПриложения(ОписаниеОповещения,Файлы[ВыбраннаяСтрока].Наиме
нование, ПолучитьКаталогФайлов());
Иначе
ОписаниеОповещения = Новый
ОписаниеОповещения("ПослеЗаписиФайла", ЭтаФорма);
ДвоичныеДанные = СохранитьФайл(ВыбраннаяСтрока);
АдресФайла =
Файлы.НайтиПоИдентификатору(ВыбраннаяСтрока).Наименование;
ДвоичныеДанные.НачатьЗапись(ОписаниеОповещения,
ПолучитьКаталогФайлов()+АдресФайла);
74
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗапускаФайла(Результат, ДопПараметр) Экспорт
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗаписиФайла(Результат) Экспорт
ОписаниеОповещения = Новый ОписаниеОповещения("ПослеЗапускаФайла",
ЭтаФорма);
НачатьЗапускПриложения(ОписаниеОповещения, АдресФайла,
ПолучитьКаталогФайлов());
КонецПроцедуры
&НаСервере
Функция СохранитьФайл(НомерСтроки)
Возврат
Файлы.НайтиПоИдентификатору(НомерСтроки).ФайлСсылка.ХранилищеФайла.Получит
ь();
КонецФункции
&НаСервере
Функция ПолучитьКаталогФайлов()
Возврат КаталогВременныхФайлов()
КонецФункции
&НаСервере
Процедура ЗаполнитьСписокФайлов()
Запрос = Новый Запрос("ВЫБРАТЬ
| Файлы.Ссылка КАК ФайлСсылка,
| Файлы.Наименование КАК Наименование
|ИЗ
| Справочник.Файлы КАК Файлы
|ГДЕ
| Файлы.Владелец = &Владелец
| И Файлы.ПометкаУдаления = ЛОЖЬ");
Запрос.УстановитьПараметр("Владелец", Объект.Ссылка);
Результат = Запрос.Выполнить().Выгрузить();
Для Каждого Строка Из Результат Цикл
НоваяСтрока = Файлы.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция ПолучитьТекущегоПользователя()
Возврат ПараметрыСеанса.ТекущийПользователь
КонецФункции
&НаКлиенте
75
Процедура РезолюцииПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
Элементы.Резолюции.ТекущиеДанные.Дата = ТекущаяДата();
Элементы.Резолюции.ТекущиеДанные.Автор = ПолучитьТекущегоПользователя();
КонецПроцедуры
&НаКлиенте
Процедура ЗапуститьСогласование(Команда)
ПоказатьЗначение(,СоздатьЗадачу("Согласование"));
КонецПроцедуры
&НаКлиенте
Процедура ЗапуститьУтверждение(Команда)
ПоказатьЗначение(,СоздатьЗадачу("Утверждение"));
КонецПроцедуры
&НаКлиенте
Процедура ЗапуститьОзнакомление(Команда)
ПоказатьЗначение(,СоздатьЗадачу("Ознакомление"));
КонецПроцедуры
&НаСервере
Функция СоздатьЗадачу(БизнесПроцесс)
НовыйБизнесПроцесс = БизнесПроцессы[БизнесПроцесс].СоздатьБизнесПроцесс();
НовыйБизнесПроцесс.ВнутреннийДокумент = Объект.Ссылка;
НовыйБизнесПроцесс.ДатаНачала = ТекущаяДата();
НовыйБизнесПроцесс.Дата = ТекущаяДата();
НовыйБизнесПроцесс.АвторЗадачи = ПараметрыСеанса.ТекущийПользователь;
Для Каждого Файл Из Файлы Цикл
НоваяСтрока = НовыйБизнесПроцесс.Файлы.Добавить();
НоваяСтрока.Файл = Файл.ФайлСсылка;
КонецЦикла;
НовыйБизнесПроцесс.Записать();
НоваяЗадача = Задачи.Задача.СоздатьЗадачу();
НоваяЗадача.ТочкаМаршрута =
БизнесПроцессы[БизнесПроцесс].ТочкиМаршрута.Старт;
НоваяЗадача.ДатаНачала = ТекущаяДата();
НоваяЗадача.Дата = ТекущаяДата();
НоваяЗадача.Наименование = БизнесПроцесс + " " + Объект.Наименование;
Для Каждого Файл Из Файлы Цикл
НоваяСтрока = НоваяЗадача.Файлы.Добавить();
НоваяСтрока.Файл = Файл.ФайлСсылка;
КонецЦикла;
НоваяЗадача.БизнесПроцесс = НовыйБизнесПроцесс.Ссылка;
НоваяЗадача.ВнутреннийДокумент = Объект.Ссылка;
НоваяЗадача.АвторЗадачи = Объект.Ссылка;
НоваяЗадача.Записать();
НовыйБизнесПроцесс.ВедущаяЗадача = НоваяЗадача.Ссылка;
НовыйБизнесПроцесс.Записать();
Возврат НовыйБизнесПроцесс.Ссылка
76
КонецФункции
&НаКлиенте
Процедура РезолюцииПриИзменении(Элемент)
УстановитьВидимость();
КонецПроцедуры
&НаСервере
Процедура СписокПапокСсылкаНажатиеНаСервере(Папка)
Список.Параметры.УстановитьЗначениеПараметра("Папка", Папка);
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
СписокПапок.Параметры.УстановитьЗначениеПараметра("ТекущийПользователь",
ПараметрыСеанса.ТекущийПользователь);
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если Элементы.СписокПапок.ТекущиеДанные <> Неопределено Тогда
Список.Параметры.УстановитьЗначениеПараметра("Папка",
Элементы.СписокПапок.ТекущиеДанные);
Иначе
Список.Параметры.УстановитьЗначениеПараметра("Папка",
ПредопределенноеЗначение("Справочник.Папки.ПустаяСсылка"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СписокПапокПриАктивизацииСтроки(Элемент)
СписокПапокСсылкаНажатиеНаСервере(Элементы.СписокПапок.ТекущиеДанные.
Ссылка);
КонецПроцедуры
&НаКлиенте
Процедура Создать(Команда)
СтруктураПараметров = Новый Структура;
СтруктураПараметров.Вставить("Папка",
Элементы.СписокПапок.ТекущиеДанные.Ссылка);
ОткрытьФорму("Справочник.Документы.Форма.ФормаЭлемента",
СтруктураПараметров);
КонецПроцедуры
Обработка проведения «Группы доступа»
Движения.ДоступКПапкам.Записывать = Истина;
Для Каждого ТекСтрокаСписокПользователей Из СписокПользователей Цикл
Для Каждого ТекСтрокаСписокДоступныхПапок Из СписокДоступныхПапок Цикл
Движение = Движения.ДоступКПапкам.Добавить();
Движение.Период = Дата;