93
После внедрения СЭД весь процесс документооборота, стал более
прозрачным, стала видна все картина целиком. Благодаря этому, упростился
контроль руководством всех стадий выполнения бизнес-процессов.
Большим плюсом внедряемого решения возможность самостоятельной
дальнейшей модернизации информационной системы под потребности
Организации.
К стратегическим преимуществам внедрения СЭД в ООО «Башкирская
концессионная компания» можно отнести сокращение сроков принятия решений
и поднятие их качества на новый уровень благодаря оперативному доступу ко
всей необходимой для этого информации.
Таким образом, основные задачи дипломного проекта — анализ
деятельности предприятия, выявление существующих недостатков в текущей
технологии управления, разработка автоматизированной системы электронного
документооборота, выполнены.
В заключении можно сделать вывод что за счет внедрения системы
электронного документооборота мы достигаем основной цели проекта –
повышение эффективности организационного управления в ООО "Башкирская
концессионная компания".
94
Список литературы
1. ГОСТ 19.701-90 (ИСО 5807-85) Схемы алгоритмов, программ, данных и
систем. Условные обозначения и правила выполнения.
2. ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология. Системная и
программная инженерия. Процессы жизненного цикла программных средств
3. Астелс, Дэвид; Миллер Гранвилл; Новак, Мирослав, Практическое
руководство по экстремальному программированию, Пер. с англ. - М.:
Издательский дом "Вильямс", 2008. - 320 с.: ил. - Парал. тит. англ
4. Балдин, К.В. Информационные системы в экономике : учебник / К.В. Балдин,
В.Б. Уткин. - 7-е изд. - М. : Издательско-торговая корпорация «Дашков и К°»,
2017. - 395 с. : ил. - Библиогр. в кн. - ISBN 978-5-394-01449-9 ; То же [Электронный
ресурс]. - URL: http://biblioclub.ru/index.php?page=book&id=454036(21.10.2017).
5. Вендров А.М., CASE-технологии. Современные методы и средства
проектирования информационных систем - М.: Финансы и статистика, 2007 г, 456
стр.
6. Голицына О. Л., И. И. Попов, Н. В. Максимов, Т. Л. Партыка,
Информационные технологии, М, Издательство Инфра-М, 2009 г., 608 стр.
7. Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование
информационных систем, М, Издательство: Форум, 2009 г., 432 стр.
8. Загинайлов, Ю.Н. Основы информационной безопасности: курс визуальных
лекций : учебное пособие / Ю.Н. Загинайлов. - М. ; Берлин : Директ-Медиа, 2015.
- 105 с. : ил. - Библиогр. в кн. - ISBN 978-5-4475-3947-4 ; То же [Электронный
ресурс]. - URL: http://biblioclub.ru/index.php?page=book&id=362895 (21.10.2017).
9. Информационная безопасность и защита информации, Мельников В. П., М.:
Академия, 2012, - 336 стр.
10. Информационные системы и технологии управления : учебник / под ред. Г.А.
Титоренко. - 3-е изд., перераб. и доп. - М. : Юнити-Дана, 2015. - 591 с. : ил., табл.,
схемы - (Золотой фонд российских учебников). - ISBN 978-5-238-01766-2 ; То же
[Электронный ресурс]. - URL: http://biblioclub.ru/index.php?page=book&id=115159
(21.10.2017).
11. Кузнецов, С. Введение в реляционные базы данных / С. Кузнецов. - 2-е изд.,
исправ. - М. : Национальный Открытый Университет «ИНТУИТ», 2016. - 248 с. :
95
ил. - (Основы информационных технологий). - Библиогр. в кн. ; То же
[Электронный ресурс]. - URL:
http://biblioclub.ru/index.php?page=book&id=429088.
12. Култыгин О.П. Администрирование баз данных. СУБД MS SQL Server. - М:
Московская финансово-промышленная академия, 2012 -232 с. (Университетская
серия).
13. Методология функционального моделирования IDEF0, Руководящий
документ, Госстандарт России
14. Методы и средства проектирования информационных систем и технологий:
учебное пособие / Федеральное государственное автономное образовательное
учреждение высшего профессионального образования «Северо-Кавказский
федеральный университет», Министерство образования и науки Российской
Федерации; авт.-сост. Е.В. Крахоткина. - Ставрополь : СКФУ, 2015. - 152 с. : ил. -
Библиогр. в кн. ; То же [Электронный ресурс]. - URL:
http://biblioclub.ru/index.php?page=book&id=458082
15. Модель процессов MSF, Microsoft.
16. Методическая поддержка для разработчиков и администраторов
1С:Предприятия 8 / ООО «1С» [Электронный ресурс] - URL : https://its.1c.ru
17. Системы электронного документооборота [Электронный ресурс] -URL :
https://www.doc-online.ru
18. ООО «Директум» [Электронный ресурс] - URL : https://www.directum.ru
96
Приложение. Листинг основных программных модулей
Модуль работы с внутренними, входящими и исходящими документами
// Формирует наименование документа из заголовка
Функция НаименованиеДокумента(Документ) Экспорт
Заголовок = СокрЛП(Документ.Заголовок);
ДлинаНаименования = Документ.Метаданные().ДлинаНаименования;
Если ЗначениеЗаполнено(Документ.РегистрационныйНомер)
И СтрНайти(Заголовок, Документ.РегистрационныйНомер) = 0
И СтрНайти(Заголовок, Формат(Документ.ДатаРегистрации,
"ДЛФ=D")) = 0 Тогда
Постфикс = " " + СтрШаблон(
НСТР("ru = '(№ %1 от %2)'"),
СокрЛП(Документ.РегистрационныйНомер),
Формат(Документ.ДатаРегистрации,
"ДЛФ=D"));
Иначе
Постфикс = "";
КонецЕсли;
Если СтрДлина(Заголовок + Постфикс) > ДлинаНаименования Тогда
Заголовок = Лев(Заголовок, ДлинаНаименования -
СтрДлина(Постфикс));
ДлинаЗаголовка = СтрДлина(Заголовок);
ПозицияПробела = ДлинаЗаголовка;
Пока ПозицияПробела > 0 Цикл
Если Сред(Заголовок, ПозицияПробела, 1) = " " Тогда
Прервать;
КонецЕсли;
ПозицияПробела = ПозицияПробела - 1;
97
КонецЦикла;
Если ПозицияПробела > 1 Тогда
Заголовок = Лев(Заголовок, ПозицияПробела - 1);
КонецЕсли;
КонецЕсли;
Возврат Заголовок + Постфикс;
КонецФункции
// Формирует наименование номенклатуры дел
Функция НаименованиеНоменклатурыДел(НоменклатураДел) Экспорт
Заголовок = НоменклатураДел.ПолноеНаименование;
Заголовок = СтрЗаменить(Заголовок, Символы.ПС, " ");
Заголовок = СокрЛП(Заголовок);
ДлинаНаименования =
НоменклатураДел.Метаданные().ДлинаНаименования;
Если СтрДлина(Заголовок) > ДлинаНаименования Тогда
Заголовок = Лев(Заголовок, ДлинаНаименования);
ДлинаЗаголовка = СтрДлина(Заголовок);
ПозицияПробела = ДлинаЗаголовка;
Пока ПозицияПробела > 0 Цикл
Если Сред(Заголовок, ПозицияПробела, 1) = " " Тогда
Прервать;
КонецЕсли;
ПозицияПробела = ПозицияПробела - 1;
КонецЦикла;
Если ПозицияПробела > 1 Тогда
Заголовок = Лев(Заголовок, ПозицияПробела - 1);
КонецЕсли;
КонецЕсли;
Возврат Заголовок;
КонецФункции
98
// Возвращает количество файлов по документу
Функция КоличествоФайлов(Документ, ПоказатьУдаленные = Ложь)
Экспорт
Если Не ЗначениеЗаполнено(Документ) Тогда
Возврат 0;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| КОЛИЧЕСТВО(*) КАК Количество
|ИЗ
| Справочник.Файлы КАК Файлы
|ГДЕ
| Файлы.ВладелецФайла = &Документ";
Запрос.УстановитьПараметр("Документ", Документ);
Если Не ПоказатьУдаленные Тогда
Запрос.Текст = Запрос.Текст +"
| И Файлы.ПометкаУдаления = ЛОЖЬ";
КонецЕсли;
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат 0;
КонецЕсли;
Выборка = Результат.Выбрать();
Выборка.Следующий();
Возврат Выборка.Количество;
КонецФункции
// Возвращает количество задач по документу
Функция КоличествоЗадач(Документ, ТолькоНевыполненные = Ложь)
Экспорт
99
Если Не ЗначениеЗаполнено(Документ) Тогда
Возврат 0;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| КОЛИЧЕСТВО(*) КАК Количество
|ИЗ
| Задача.ЗадачаИсполнителя КАК ЗадачаИсполнителя
|ГДЕ
| ЗадачаИсполнителя.Предметы.Предмет = &Документ
| И НЕ ЗадачаИсполнителя.ПометкаУдаления
| И ЗадачаИсполнителя.БизнесПроцесс.Состояние <>
ЗНАЧЕНИЕ(Перечисление.СостоянияБизнесПроцессов.Прерван)";
Если ТолькоНевыполненные Тогда
Запрос.Текст = Запрос.Текст + " И (НЕ
ЗадачаИсполнителя.Выполнена)";
КонецЕсли;
Запрос.УстановитьПараметр("Документ", Документ);
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат 0;
КонецЕсли;
Выборка = Результат.Выбрать();
Выборка.Следующий();
Возврат Выборка.Количество;
КонецФункции
// Возвращает вид документа по умолчанию
Функция ПолучитьВидДокументаПоУмолчанию(Ссылка) Экспорт
ВидДокумента = Неопределено;
100
Если ТипЗнч(Ссылка) = Тип("СправочникСсылка.ВходящиеДокументы")
Тогда
ВидДокумента =
ХранилищеОбщихНастроек.Загрузить("НастройкиРаботыСДокументами",
"ВидВходящегоДокумента");
ТипМетаданных = "ВидыВходящихДокументов";
ИначеЕсли ТипЗнч(Ссылка) =
Тип("СправочникСсылка.ИсходящиеДокументы") Тогда
ВидДокумента =
ХранилищеОбщихНастроек.Загрузить("НастройкиРаботыСДокументами",
"ВидИсходящегоДокумента");
ТипМетаданных = "ВидыИсходящихДокументов";
ИначеЕсли ТипЗнч(Ссылка) =
Тип("СправочникСсылка.ВнутренниеДокументы") Тогда
ВидДокумента =
ХранилищеОбщихНастроек.Загрузить("НастройкиРаботыСДокументами",
"ВидВнутреннегоДокумента");
ТипМетаданных = "ВидыВнутреннихДокументов";
КонецЕсли;
Если Не ЗначениеЗаполнено(ВидДокумента) Тогда
Запрос = Новый Запрос;
Запрос.Текст = СтрЗаменить(
"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| ТаблицаВидаДокументов.Ссылка КАК Ссылка
|ИЗ
| &ВидДокумента КАК ТаблицаВидаДокументов
|ГДЕ
| (НЕ ТаблицаВидаДокументов.ПометкаУдаления)
| И (НЕ ТаблицаВидаДокументов.ЭтоГруппа)
| И ЛОЖЬ В
| (ВЫБРАТЬ
| ЛОЖЬ КАК ЗначениеЛожь
101
| ИЗ
| (ВЫБРАТЬ ПЕРВЫЕ 2
| ИСТИНА КАК ЗначениеИстина
| ИЗ
| &ВидДокумента КАК
ТаблицаВидаДокументов
| ГДЕ
| (НЕ
ТаблицаВидаДокументов.ПометкаУдаления)
| И (НЕ
ТаблицаВидаДокументов.ЭтоГруппа)
| ) КАК ВыбранныеОбъекты
| ИМЕЮЩИЕ
|
КОЛИЧЕСТВО(ВыбранныеОбъекты.ЗначениеИстина) = 1)",
"&ВидДокумента", "Справочник." + ТипМетаданных);
Результат = Запрос.Выполнить();
Если Не Результат.Пустой() Тогда
Выборка = Результат.Выбрать();
Выборка.Следующий();
ВидДокумента = Выборка.Ссылка;
КонецЕсли;
КонецЕсли;
Возврат ВидДокумента;
КонецФункции
// Возвращает соответствие состояний документов
Функция ПолучитьСоответствиеСостояний() Экспорт
Соответствие = Новый Соответствие;
Соответствие.Вставить(Перечисления.СостоянияДокументов.НаСогласова
нии, "СостояниеСогласование");
102
Соответствие.Вставить(Перечисления.СостоянияДокументов.НеСогласова
н, "СостояниеСогласование");
Соответствие.Вставить(Перечисления.СостоянияДокументов.Согласован,
"СостояниеСогласование");
Соответствие.Вставить(Перечисления.СостоянияДокументов.НаУтвержде
нии, "СостояниеУтверждение");
Соответствие.Вставить(Перечисления.СостоянияДокументов.НеУтвержде
н, "СостояниеУтверждение");
Соответствие.Вставить(Перечисления.СостоянияДокументов.Утвержден,
"СостояниеУтверждение");
Соответствие.Вставить(Перечисления.СостоянияДокументов.НаПодписан
ии, "СостояниеПодписание");
Соответствие.Вставить(Перечисления.СостоянияДокументов.Отклонен,
"СостояниеПодписание");
Соответствие.Вставить(Перечисления.СостоянияДокументов.Подписан,
"СостояниеПодписание");
Соответствие.Вставить(Перечисления.СостоянияДокументов.Проект,
"СостояниеРегистрация");
Соответствие.Вставить(Перечисления.СостоянияДокументов.НаРегистрац
ии, "СостояниеРегистрация");
Соответствие.Вставить(Перечисления.СостоянияДокументов.Зарегистрир
ован, "СостояниеРегистрация");
Соответствие.Вставить(Перечисления.СостоянияДокументов.НеЗарегистр
ирован, "СостояниеРегистрация");
Соответствие.Вставить(Перечисления.СостоянияДокументов.НаРассмотре
нии, "СостояниеРассмотрение");
Соответствие.Вставить(Перечисления.СостоянияДокументов.Рассмотрен,
"СостояниеРассмотрение");
Соответствие.Вставить(Перечисления.СостоянияДокументов.НаИсполнен
ии, "СостояниеИсполнение");