85
Результаты выполненных расчетов сводятся в таблицу 28.
Таблица 28. Показатели сравнительной экономической эффективности от
внедрения программного продукта
Наименование показателей
Значение
Условная годовая экономия затрат (Эуг), рублей
2 000 000
Коэффициент экономической эффективности капитальных
вложений (Е
р
)
0,77
Срок окупаемости капитальных вложений (Т
р
), лет
1,3
86
Заключение
В ходе написания ВКР была тщательно проанализирована предметная
область деятельности компании. Были изучены рекомендованные литературные
источники.
В выпускной квалификационной работе исследована компания ООО
«Агронефтепродукт», которая специализируется на продаже светлых и тёмных
нефтепродуктов.
В ходе анализа деятельности ООО «Агронефтепродукт» были выявлены
основные информационные потоки, циркулирующие в рамках данного
предприятия и между основными его подразделениями, и построена модель
системы управления заявками клиентов.
В работе собраны сведения о существующих подходах к организации
автоматизированных систем работы с клиентами на сегодняшний день. Было
проведено исследование таких систем. Проанализированы положительные и
отрицательные стороны информационных систем расчетов с клиентами,
внедряемых на предприятиях различных масштабов и отраслей.
Среди выявленных недостатков существующих бизнес-процессов
компании можно выделить:
- многократное дублирование одних и тех же данных в заявках,
договорах, платежных документах;
- низкую оперативность работ с документами при обслуживании
клиента;
- много времени тратится на составление различных отчетов для
руководства;
- трудоемкие процессы при обработке полученной за рабочий день
информации;
– технические средства, которые имеются в компании используются
неэффективно, так как многие процессы, которые можно автоматизировать
выполняются вручную.
Было выявлено, что на рынке наблюдается достаточное количество
автоматизированных систем работы с клиентами для предприятий различного
рода производственной деятельности. Однако следует отметить, что несмотря на
87
столь широкую распространенность и доступность данных систем, они довольно
громоздкие и имеют множество лишних функций, которые на данный момент не
нужны исследуемой компании.
На основании проведенного анализа было принято решение о
необходимости приобретения и последующего внедрения системы,
представляющей собой распределенное приложение, построенное по модульному
принципу. Разработаны модели вариантов использования каждого из модулей, на
основании которых было проведено функциональное моделирование системы.
По результатам функционального моделирования системы управления
корпоративной информацией была построена информационная модель базы
данных, используемая в качестве репозитория для хранения заявок клиентов.
Разработаны и другие модели представления системы, а также алгоритмы
программных модулей.
Отдел продаж и отдел снабжения теперь будут иметь оперативную
информацию по имеющимся процессам реализации нефтепродуктов,
происходящим в компании, а отдел продаж будет иметь предварительные данные
о планируемых поставках и отгрузке. Кроме того, информационная система
позволит уменьшить трудозатраты, связанные с учетом товарно-материальных
ценностей в бухгалтерии.
В качестве базы данных выбран PostgreSQL 11.4, так как имеет большой
спектр услуг администрирования и широко используется в информационных
системах для среднего бизнеса.
В заключительной главе производится расчет экономической
эффективности внедрения информационной системы. В результате получается
значительное снижение трудозатрат сотрудников ООО «Агронефтепродукт» за
счет автоматизации:
- заполнения документации, так как не нужно делать копии бумажных
документов для подразделений, вести карточки учета товаров и т.п.;
- документооборота между следующими отделами – продажи, снабжение,
склады и бухгалтерия;
- процессов подготовки отчетных форм для руководства и сотрудников
профильных подразделений.
88
Оценена экономическая эффективность внедрения системы управления
корпоративной информации на анализируемом предприятии. Срок окупаемости
проекта составил 1,3 года и позволяет сократить материальные затраты
предприятия в результате автоматизации бизнес-процессов.
В результате внедрено полностью функционирующее приложение,
удовлетворяющее всем поставленным требованиям и способное решать
поставленные перед ним задачи, с возможностью его дальнейшей модификации и
совершенствования за счет открытой архитектуры.
89
Список использованной литературы
1. Трудовой кодекс Российской Федерации от 30.12.2001 N 197-ФЗ (ред. от
05.02.2018) // "Собрание законодательства РФ", 07.01.2002, N 1 (ч. 1), ст.3.
2. Федеральный закон от 27.07.2006 N 149-ФЗ (ред. от 23.04.2018) "Об
информации, информационных технологиях и о защите информации" //
"Собрание законодательства РФ", 31.07.2006, N 31 (1 ч.), ст. 3448
3. ГОСТ Р ИСО/МЭК 12207-2010. Национальный стандарт Российской
Федерации. Информационная технология. Системная и программная
инженерия. Процессы жизненного цикла программных средств. М.:
Стандартинформ, 2016
4. ISO/IEC 15288. Информационные технологии. Системная и программная
инженерия. Управение жизненным циклом. М.: Стандартинформ, 2016
5. Архангельский А.Я. Программирование в C++ Builder. 7-e изд. — М.: Бином-
Пресс, 2017. — 896 с.
6. Боровской А.Н. Программирование в Delphi 10. СПб.: БХВ-Петербург, 2018 -
448 с.
7. Краткое руководство по DB2 [Электронный ресурс] //
URL:http://www.w3ii.com/ru/db2/db2_quick_guide.html (дата обращения:
04.07.2019)
8. Новиков Б.А., Горшкова E.A. Основы технологий баз данных. М.: ДМК Пресс,
2019. — 240 с.
9. ООО «Агронефтепродукт» [Электронный ресурс] // ООО
«Агронефтепродукт» [Офиц. сайт]. URL:http://agroneft.com/ (дата обращения:
04.07.2019)
10. Осетрова И.С. Разработка баз данных в MS SQL Server 2014. Учебное пособие.
— СПб: Университет ИТМО, 2016
11. Палицын В.А. Технико-экономическое обоснование дипломных проектов:
метод. пособие для студ. всех спец. БГУИР. В 4-х ч. Ч. 4: Проекты
программного обеспечения. Минск: БГУИР, 2016. – 76 с.
12. Полетайкин А.Н. Социальные и экономические информационные системы:
законы функционирования и принципы построения. Новосибирск : СибГУТИ,
2016
90
13. Пржиялковский В.В. Введение в Oracle. М.: НОУ "Интуит", 2016. — 358с.
14. Руководство по установке для SQL Server в Linux [Электронный ресурс] //
URL:https://docs.microsoft.com/ru-ru/sql/linux/sql-server-linux-setup?view=sql-
server-2017 (дата обращения: 04.07.2019)
15. Сравнение языков программирования [Электронный ресурс] //
URL:https://ru.wikipedia.org/wiki/Сравнение_языков_программирования (дата
обращения: 04.07.2019)
16. Устав ООО «Агронефтепродукт»
17. Флойд К.С. Введение в MySQL. 2-е изд. — М.: Интуит, 2016. — 280 c.
18. Документация к Postgres Pro Standard 11.4.1 [Электронный ресурс] //
URL:https://postgrespro.ru/docs/postgrespro/11/ (дата обращения: 04.07.2019)
19. Шавенько Н.К. Основы теории информации и кодирования. Учебное пособие.
– М,: Изд-во МИИГАиК, 2015. – 125 с.
20. Шарп Д. Microsoft Visual C#. Подробное руководство. 8-е издание — СПб.:
Питер, 2017. — 848 с.
21. Моргунов Е. П. PostgreSQL. Основы языка SQL: учеб. пособие / Е. П.
Моргунов; под ред. Е. В. Рогова, П. В. Лузанова. — СПб.: БХВ-Петербург,
2018. — 336 с.
22. 1С CRM [Электронный ресурс] // URL:http://solutions.1c.ru/crm (дата
обращения: 04.07.2019)
23. Bitrix CRM [Электронный ресурс] //
URL:https://www.bitrix24.ru/features/crm.php (дата обращения: 04.07.2019)
24. Dynamics CRM [Электронный ресурс] // URL:https://www.microsoft.com/ru-
ru/dynamics365/sales (дата обращения: 04.07.2019)
25. RetailCRM [Электронный ресурс] // URL:https://www.retailcrm.ru/about (дата
обращения: 04.07.2019)
26. SAP CRM [Электронный ресурс] // URL:http://sap-crm.ru/ (дата обращения:
04.07.2019)
27. Terrasoft CRM [Электронный ресурс] // URL:https://www.terrasoft.ru/sales (дата
обращения: 04.07.2019)
28. Wire CRM [Электронный ресурс] // URL:https://wirecrm.com/ (дата обращения:
04.07.2019)
91
Приложения
Приложение 1: Код модуля формы обработки «Загрузка продаж на АЗС»
&НаСервере
Процедура ВыполнитьЗагрузкуНаСервере(АдресФайла, Загружать)
ФайлПриемник = ПолучитьИмяВременногоФайла("xml");
ДанныеХранилища = ПолучитьИзВременногоХранилища(АдресФайла);
ДанныеХранилища.Записать(ФайлПриемник);
Объект.ИмяФайлаДанных = ФайлПриемник;
Если НЕ ЗначениеЗаполнено(Объект.КассаККМ) Тогда
сообщить("не выбрана Касса ККМ");
Возврат;
КонецЕсли;
Если Загружать Тогда
//сравним код АЗС из файла с кассой
ПозКодКассы = СтрНайти(Объект.КассаККМ.Наименование, "АЗС-");
Если ПозКодКассы = 0 Тогда
сообщить("в наименовании кассы не удалось найти код АЗС",
СтатусСообщения.Внимание);
Иначе
КодКассы = Число(СокрЛП(Сред(Объект.КассаККМ.Наименование,
ПозКодКассы+4, 2)));
Если НЕ Число(Объект.КодАЗС) = КодКассы Тогда
сообщить("в файле код кассы не соответствует выбранной
Кассе ККМ", СтатусСообщения.ОченьВажное);
Возврат;
КонецЕсли;
КонецЕсли;
Для Каждого Стр Из ТЗ_ВидыТоплива Цикл
Если НЕ ЗначениеЗаполнено(Стр.Номенклатура) Тогда
сообщить("в таблице 'Виды топлива' не задано соответствие
для вида " + Стр.Топливо);
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Стр.Коэф) Тогда
сообщить("в таблице 'Виды топлива' не задан Коэффициент
(зависит от ед.изм.) для вида " + Стр.Топливо);
Возврат;
КонецЕсли;
КонецЦикла;
Иначе
//очищаем табл.контрагентов
ТЗ_КонтрДоговора.Очистить();
КонецЕсли;
ТЗ_Топливо = РеквизитФормыВЗначение("ТЗ_ВидыТоплива");
ТЗ_Контр = РеквизитФормыВЗначение("ТЗ_КонтрДоговора");
ОбъектДляСервера = РеквизитФормыВЗначение("Объект");
ЗаполнитьЗначенияСвойств(ОбъектДляСервера, Объект);
ЕстьЗаправкиСотрудников = ОбъектДляСервера.ВыполнитьЗагрузкуXML(Загружать,
ТЗ_Топливо, ТЗ_Контр); //Соответствие_ВидыТоплива);
Если НЕ Загружать Тогда
ЗначениеВРеквизитФормы(ОбъектДляСервера, "Объект");
ЗначениеВРеквизитФормы(ТЗ_Топливо, "ТЗ_ВидыТоплива");
ЗначениеВРеквизитФормы(ТЗ_Контр, "ТЗ_КонтрДоговора");
КонецЕсли;
ЭтаФорма.Элементы.НадписьЗаправкиСотрудников.Заголовок =
?(ЕстьЗаправкиСотрудников, "В файле есть данные о заправках сотрудников", "");
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьЗагрузку(Команда)
Если СокрЛП(ИмяФайлаОбмена) = "" Тогда
Сообщить("Не выбран файл для загрузки!");
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Объект.КассаККМ) Тогда
Сообщить("Не указана Касса ККМ!");
Возврат;
КонецЕсли;
ОчиститьСообщения();
ИмяФайла = СокрЛП(ИмяФайлаОбмена);
//читаем файл
ВыбФайл = Новый Файл(ИмяФайла);
Если НЕ ВыбФайл.Существует() Тогда
Сообщить("Файл не существует!");
Возврат;
КонецЕсли;
Объект.ИмяФайла = ВыбФайл.Имя;
ДвоичныеДанные = Новый ДвоичныеДанные(СокрЛП(ИмяФайлаОбмена));
АдресФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные, Новый
УникальныйИдентификатор);
ВыполнитьЗагрузкуНаСервере(АдресФайла, Истина);
КонецПроцедуры
&НаКлиенте
Процедура КаталогФайловНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Если НЕ ЗначениеЗаполнено(Объект.КассаККМ) Тогда
Сообщить("Не указана Касса ККМ!");
Возврат;
КонецЕсли;
ДиалогВыбораФайла = Новый
ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
// Установка каталога выбора файла по умолчанию
ДиалогВыбораФайла.Каталог = "C:\Topaz\TopazOffice\RemoteServer\Reports";
// Фильтр по маске файла, соответствующей отчету о закрытии смены
ДиалогВыбораФайла.Фильтр = "Отчеты о закрытии смены|CloseSession*.XML";
Если ДиалогВыбораФайла.Выбрать() Тогда
ИмяФайлаОбмена = ДиалогВыбораФайла.ПолноеИмяФайла;
ИмяФайла = СокрЛП(ИмяФайлаОбмена);
//читаем файл
ВыбФайл = Новый Файл(ИмяФайла);
Если НЕ ВыбФайл.Существует() Тогда
Сообщить("Файл не существует!");
Возврат;
КонецЕсли;
ОчиститьСообщения();
Объект.ИмяФайла = ВыбФайл.Имя;
ДвоичныеДанные = Новый ДвоичныеДанные(СокрЛП(ИмяФайлаОбмена));
АдресФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные, Новый
УникальныйИдентификатор);
ВыполнитьЗагрузкуНаСервере(АдресФайла, Ложь); //сначала покажем
пользователю таблицы топлива и контрагентов
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ЭтаФорма.Элементы.НадписьЗаправкиСотрудников.Заголовок = "";
КонецПроцедуры
&НаКлиенте
Процедура ТЗ_КонтрДоговораДоговорПриИзменении(Элемент)
ТекущаяСтрока = Элементы.ТЗ_КонтрДоговора.ТекущиеДанные;
ТекущаяСтрока.ВидЦены = ПолучитьНаСервере(ТекущаяСтрока.Договор,
"К_ВидЦены");
КонецПроцедуры
&НаСервере
Функция ПолучитьНаСервере(Откуда, Реквизит)
Возврат Откуда.К_ВидЦены;
КонецФункции
&НаСервере
Функция ПолучитьНаСервереЕдИзм(Откуда)
Возврат Откуда.ЕдиницаИзмерения;
КонецФункции
&НаКлиенте
Процедура ТЗ_ВидыТопливаНоменклатураПриИзменении(Элемент)
ТекущаяСтрока = Элементы.ТЗ_ВидыТоплива.ТекущиеДанные;
ТекущаяСтрока.ЕдИзм = ПолучитьНаСервереЕдИзм(ТекущаяСтрока.Номенклатура);
КонецПроцедуры
&НаКлиенте
Процедура КассаККМПриИзменении(Элемент)
ОчиститьСообщения();
Если ЗначениеЗаполнено(ИмяФайлаОбмена) Тогда
//с правильной кассой надо перечитать файл
ДвоичныеДанные = Новый ДвоичныеДанные(СокрЛП(ИмяФайлаОбмена));
АдресФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные, Новый
УникальныйИдентификатор);
ВыполнитьЗагрузкуНаСервере(АдресФайла, Ложь); //сначала покажем
пользователю таблицы топлива и контрагентов
КонецЕсли;
КонецПроцедуры