117
внедрение системы автоматизации обработки информации (Т
ок
),
рассчитываемые в годах, долях года или в месяцах года:
Т
ок
= К
П
/C (7),
где К
П
– 119512 рублей;
Т
ок
= 119512 / 550910.87 = 0.22 года или почти 3 месяца.
Тем самым, доказана высокая эффективность внедрения разработанной
системы, с помощью которой организация сможет сэкономить до 550910.83
рублей в год и до 1068.99 часов трудозатрат, коэффициенты снижения
трудозатрат и стоимости составляют по 0.99, индексы трудозатрат и стоимости
равны 314411.76 и 4237776.92 соответственно, а срок окупаемости не
превышает 3 месяцев. На разработку системы ушло две рабочие недели, а
общие финансовые затраты составили 119512 рублей.
Наглядное сравнение стоимостных затрат и трудоемкости представлены
на диаграмме 1.
118
Диаграмма 1
"КАК БУДЕТ"
"КАК ЕСТЬ"
"КАК БУДЕТ"
"КАК ЕСТЬ"
0
50000
100000
150000
200000
250000
300000
350000
400000
Поиск и загрузка
файла
Разархивирование
Получение данных
Преобразование
данных
Выгрузка данных
Актуализация
данных
Сравнение вариантов "как есть" и "как будет"
"КАК БУДЕТ"
"КАК ЕСТЬ"
"КАК БУДЕТ"
"КАК ЕСТЬ"
119
ЗАКЛЮЧЕНИЕ
Как мы уже выяснили, любая компания занимается обработкой
информации: ручным способом и с помощью ЭВМ. Грамотно настроенная
система с пакетом прикладных программ, которая автоматизирует целый
бизнес-процесс или поддерживающий процесс, позволяет снизить влияние
человеческого фактора, повысить эффективность обработки информации,
уменьшить стоимостные и трудовые затраты, увеличить прибыль компании,
повысить безопасность информации. Это то, к чему стремится каждый.
В рамках текущего дипломного проекта была проведена обширная
работа от «А» до «Я», которая включила в себя глубокое изучение матчасти,
аналитику текущих процессов АО «Цифровой диван», погружение в мир
технологий, позволяющих автоматизировать важный технологический
процесс, который был детально рассмотрен, исследование средств
автоматизации, альтернатив, выбор технических и аппаратных средств, а
именно его обоснование, принятие о решении разработки системы, начиная с
модели жизненного цикла и заканчивая внедрением с расчетом экономической
эффективности.
Описание проекта было разделено на 3 крупные части:
1. Аналитическая часть
2. Проектная часть
3. Экономическая часть
В аналитической части исследовалась организация: расположение,
численность, отделы, структура управления, рассмотрены основные бизнес-
процессы и подробно остановились на автоматизируемом технологическом
поддерживающем процессе, были детально исследованы техническая и
программная архитектуры, для которых построены различные схемы, проведен
анализ рассматриваемого процесса, для которого была выработана концепция и
способ решения – автоматизации с целью достижения существенного
результата, просчитаны риски и указаны этапы жизненного цикла ПО,
120
предварительно рассчитали экономическую эффективность от внедрения
будущей системы, в которой стало понятно, что процесс загрузки
аналитических данных с интернет-ресурса, преобразование и выгрузка в
корпоративную базу данных АО «Цифровой диван» сократится в значительной
мере на 88 – 148 минут, в связи с чем приняли решение о разработке системы.
В проектной части вновь описали этапы жизненного цикла, методики,
по которым производится разработка систем автоматизации, выбрав каскадную
модель жизненного цикла, был приведен список возможных рисков в процессе
разработки на каждом этапе и способы их предотвращения, описана системы
безопасности, которую не требовалось по новой разрабатывать и внедрять в
действующую банковскую организацию. Была разработана информационная
модель технологического процесса, описан детально процесс от истоков до
результата, который требуется для дальнейшей деятельности сотрудников
аналитического отдела. Полностью охарактеризована имеющаяся в наличии
база данных Oracle Database 11g, описан источник данных и таблица-результат,
представлен сценарий диалога между ЭВМ и сотрудником, в результате
которого стало известно, что человек в этом процессе полностью исключится,
что положительно повлиет на скорость исполнения процесса, человеческий
фактор, безопасность данных и выделение ресурсов человеческих и
финансовых. Программные модули были разработаны с нуля и приведены в
полную боевую готовность, что было подтверждено серией скриншотов и
полевых испытаний, которые доказали, что эффективность на несколько
десятков порядков была повышена, а скорость обработки информации
оказалась даже выше, чем планировалось при выработке концепции и
составила 40 секунд против 22 минут, а текущий вариант с ручной обработкой
информации сотрудниками аналитического отдела с возможными ошибками
колебался в промежутке от 110 до 270 минут, что в среднем составляет 190
минут или 3 часа 10 минут, то есть занимает 40% рабочего дня, которые
сотрудник мог потратить на другие задачи и ускорить процессы, протекающие
в аналитическом отделе, либо за ненадобностью сократить расходы на этого
121
человека, путем увольнения.
В экономической части результат был закреплен расчетом
экономической эффективности от внедрения разработанной системы
автоматизации, в результате которой было проведено исследование методик
расчетов, анализ необходимых данных, детальный расчет стоимостных и
трудовых затрат для вариантов «как есть» и «как будет», проведено детальное
сравнение между экземплярами и вынесен вердикт о высочайшей
эффективности в случае внедрения разработанного программного решения, а
именно возможность сэкономить до 550910.83 рублей в год и сократить до
1068.99 часов трудозатрат, высвободив рабочие единицы и перебросив
сотрудников на иные важные задачи. Срок окупаемости инвестиций в проект
не превышает при этом 3 месяцев, за счет глобальной экономии финансов.
Дополнительно следует отметить, что проект является полностью
законченным и не предполагает дальнейших доработок в текущем рабочем
процессе, однако, с небольшими модификациями его можно использовать в
других целях, поскольку подобные бизнес-процессы во всём банке идентичны
с технической точки зрения и их довольно большое количество, что является
выгодным вложением средств. Расширить функционал возможно, взяв под
контроль часть процесса из другого отдела, который формирует документы с
аналитическими данными по устройствам самообслуживания. Также можно
сделать программу универсальной, в зависимости от используемых данных,
позволяя настраивать перед использованием.
122
СПИСОК ЛИТЕРАТУРЫ
1. ГОСТ 19.104-78. ЕСПД. Основные надписи.
2. ГОСТ 19781. Программное обеспечение систем обработки данных,
термины и определения.
3. ГОСТ 34.601-90. Информационная технология. Автоматизированные
системы. Стадии создания
4. Гущин А.Н., Базы данных: учебник. - М.: Директ-Медиа, 2014.
5. Методы и средства проектирования информационных систем и
технологий: учебное пособие / авт.-сост. Е.В. Крахоткина. - Ставрополь:
СКФУ, 2015.
6. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование
информационных систем – М.: ИУИТ, 2012.
7. Заботина Н.Н. Проектирование информационных систем: учебное
пособие. – М.: ИНФРА-М, 2013.
8. Абрамова Л.В. Инструментальные средства информационных систем:
учебное пособие. - Архангельск: САФУ, 2013.
9. Томас Кайт, Oracle для профессионалов. Архитектура, методики
программирования и особенности версий 9i, 10g и 11g. – М.: Вильямс,
2011
10. Сэм Алапати, Oracle Database 11g. Руководство администратора баз
данных
11. Крис Фиайли, SQL. – М., 2013.
12. Алекс Кригель; Борис Трухнов, SQL. Библия пользователя. 2-е издание.
– М,. 2010.
13. O’Reilly, Oracle SQL Loader: The Definitive Guide. – М.: Oracle
Corporation, 2001.
14. Ковешников М.Г. Автоматизация загрузки больших массивов данных
предметной области в промышленную базу данных. – М., 2013.
15. Kathy Rich, Oracle Database Utilities, 11g Release 2 (11.2). – М.: Oracle
123
Corporation, 2011.
16. Информационная база с определениями и терминами -
https://ru.wikipedia.org/wiki/Заглавная_страница
17. Документация по ПО Oracle - https://docs.oracle.com/en/
18. Материалы по SQL, функциям Oracle Database - https://oracleplsql.ru
19. Обучение SQL - https://sqlbolt.com
20. Материалы по языкам программирования, примеры решений -
https://www.cyberforum.ru
21. Информационный технологический ресурс - https://habr.com/ru/
124
ПРИЛОЖЕНИЕ
1. Главный модуль: макрос (файл actualUS.xlsm):
Option Explicit
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" _
(ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As
String, _
ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As LongPtr
Sub actualus()
Dim myIE As SHDocVw.InternetExplorer
Dim doc As HTMLDocument
Dim num As HTMLBaseElement
Dim IE As InternetExplorer
Dim myWindows As New SHDocVw.ShellWindows
Dim c, h, i, j, a, b, day As Long
Dim ws As Worksheet
Dim wb, filename, docDate, path, pathRAR, pathCSV, pathDate As String
Dim reportDate As Date
Dim cn As New ADODB.Connection
' Параметры подключения к БД
Const dbank =
"(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=DESKTOP-
RTCML1M)(PORT =
1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=d
125
bank)))"
cn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=" & dbank
& ";User Id=C##AVG;password=ASDqwe"
' Параметры подключения к интернет-ресурсу
Const BaseURL = "https://digitalbank.ru/us/statistics"
' Пути к файлам RAR, EXCEL, CSV
pathRAR = "C:\Users\micro\Desktop\ActualUS\RAR\"
path = "C:\Users\micro\Desktop\ActualUS\EXCEL\"
pathCSV = "C:\Users\micro\Desktop\ActualUS\CSV\"
' Вызов функции, останавливающей Internet Explorer
KillIE
' Запуск Internet Explorer и загрузка сайта компании АО "Цифровой
диван"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate BaseURL, 4
' Вызов функции ожидания Internet Explorer
WaitIE IE
' Поиск приложения Internet Explorer в Windows 10
For Each myIE In myWindows
If InStr(1, myIE.Name, "Internet Explorer", vbBinaryCompare) > 0 Then
Exit For
End If
Next myIE
126
' Значение document для Internet Explorer, позволяющее получить доступ
к управлению страницей
Set doc = myIE.document
' Пока страница не загружена
While num Is Nothing
Set num = doc.getElementsByTagName("title").Item(0)
Sleep 500
Wend
' Значение даты документа
docDate = Format(Now, "YYYY-MM-DD")
' В случае ошибки переход к следующему оператору
On Error Resume Next
' Путь, куда загружать файлы RAR
MkDir pathRAR
' Отключение обработчика ошибок
On Error GoTo 0
' Цикл поиска и загрузки документа с корпоративного интернет-ресурса
For b = 0 To doc.querySelectorAll("li a").Length - 1
Set num = doc.querySelectorAll("li a").Item(b)
If InStr(1, num.innerText, docDate, vbTextCompare) > 0 And InStr(1,
num.innerText, "Данные_УС_", vbTextCompare) <> 0 _
Then a = URLDownloadToFile(0, num.getAttribute("href"), pathRAR &
Replace(num.innerText, " ", ""), 0, 0)
Next
' Таймер ожидания