suvorina_tv_razrabotka-podsistemy-monitoringa-sistemy-elektronnogo-dokumentooborota-companymedia-4x_31656
.pdfРис.20. Отчетобазахсодинаковым |
ReplicaID |
|
|||
Впрошломадминистратвручнуюсистемыпришлбы ось |
|
|
|
||
проверятькаждбазнапредую |
|
|
метсовпаденияидентификационных |
|
|
номеров, илинаниматьспециалиста |
|
, которойбынаписалскрипт |
-агент |
||
поискапроблемныхбаз |
, |
чтостоилобыкомпанииденегвремени |
|
. |
|
Даннаяразработкапо воляетначительноупрошстисктьбок |
|
|
|
|
|
согласноимеющимсяпятнадцати |
|
|
тестам,авслучаевыявленияновых |
|
|
типичсцевознарыхошибокевновлениясуществуетвозможнос |
|
|
|
|
ть |
добанопроверкиитьые |
|
.Разработанныйфункционалподсистемы |
|
|
|
позволяетоцениватьлюбыесущпараметрыствующие |
|
|
|
|
поля |
документов,чтоделаетобластьприменени |
ямониторпрактическинга |
|
|||
безграничной,наусмотрени |
|
е |
пользователя. |
Наданныймомент |
, |
подсистемамониторингаиспользуетсявцентретехнического |
|
|
|
|
51
сопроводленияАО«ИнтерТраст»сотруоперникеловативнойми |
|
поддержкипрограммногосопровождения |
, планируетсявнедрение |
подсистемывклиентверсиикиетемы |
CompanyMedia. |
3.3.Расчетожидаемогоэкономическогоэффекта
Таккакразработаннаяподсистемамониторингабылавнедрена |
|
|
|
эксплуатацию на предприятииИнтерТраст« » |
, наоснованииданных |
|
|
еерабмподжноте |
считать ожидаемыйэкономическийэффект |
. В |
|
основеанализалежитизвесмеоценкитситуацииодныйбезвнерения |
|
|
|
подисвнеднистемы |
дрениемподчистемымониторинга[9] |
. |
|
Дляобоснованцелесообразностиразработкивнедрения |
|
|
|
подсистемымониспользуторинга |
|
емрасчеткоэффициента |
|
оперативностиуправления |
[10]. Коэффициент оперативностиК |
||
оцениваетвремяпринятиярешенияполок |
|
алиисправлениюзации |
|
ошсибокстемы |
, определяетсяпоформуле: |
|
|
где |
- |
времяпринятрешениятрадициподх; онномде |
- |
||
времяпри |
|
нятия решенияc |
использованиемподсистемы |
мониторинга. |
|
Данные |
длярасчета |
коэффициентаоперативности |
представлены |
||
таблице2 |
. Расчеты |
среднего временина |
выполненоперациеи |
||
обрдаботкенных |
произведенаоснованиихро ометражаы140 |
|
|||
заявок- |
запросовна |
исправлениеош бокстемыихустранения, |
|
||
посвтечупившихмесяцацентрниехническсопровогождения |
. |
||||
|
|
|
|
|
Таблица2 |
|
|
|
|
Данныедлярасчета |
|
Наименованиеоперации |
|
Времяобработки |
52
|
|
|
ручнойметод |
сприменениемподсисте ы |
|
|
|
|
|
мониторинга |
|
Среднеевремяобработки |
входных данных |
5 мин |
2 мин. |
|
|
Провекорполучеректностикаданныхных |
|
10 мин |
2 мин |
|
|
Средвремяанализаее |
причинпоявления |
30мин |
2 мин |
|
|
проблемы |
|
|
|
|
|
Среднеев |
ремяподготовки |
|
60 мин |
30 мин |
|
решения |
|
|
|
|
|
Итого |
|
|
105 мин |
36 мин |
|
Испфорасчетальзрмулукоэффициентая |
|
ператив(1)данностиые |
|
||
изтаблицыполучим2 |
значение коэффициента оперативности, равное |
||||
105 / 36 = 2,9. Наосновании привычисделатьнийеденныхможно |
|
||||
выв,чтод |
внедрениеподсистемыавтоматизацииприводитк |
|
|
||
многократному повышениюоперативностибо |
|
тыпо |
обработке |
||
запросаиисправлению |
ошибок системы. |
|
|
||
Ожидаемыйэкономическийэффектотиспользованияподсистемы |
|
|
|
||
складываетсяиз: |
|
|
|
|
-условэкорасходовнонаоплатуймиитрудасотрудниковзасчет болееэффективниспользованиярабвремени;чего
-дополнительногодохода,связувеличениемннколичестваго обрабатываемыхзаявок. [12]
Определимколичествысвобчасовгдлясотрудниковждаемых |
|
|
|
отделатехпкоддержмпанииИнтертраст« »Общее. количество |
|
|
|
рабочихчасовгоду1974, |
(8час. xдней247 |
- 1 974) [11] |
|
Количествосот,руднаботающихс стемойков |
|
|
- 10Тогда.при |
использованподсистемыразработамониторинганавыполнениеной |
|
|
|
такогожеобъемаработпообрзабудетявозатотквраза3ачено |
|
|
|
меньшеврем,т..дони |
полнительновысвобождается |
1316 часов |
53
расчетенаодногосотрудника, будутторыеиспользованы |
|
|
|
|
я |
|
обработкидополнительногоколичест |
|
вазаявок. |
|
|
||
Рассчитаемсуммуусловэкорасходовнонаоплатуймиитрудаодного |
|
|
|
|
|
|
сотрудниказасчетболееэффективногоиспользованиявремени |
|
|
|
|
|
|
работы. [13] |
|
|
|
|
|
|
Присреднемколичестверабочихднеймесяцеравномдню21, |
|
|
|
|
в |
|
каждомизкоторыхрабочих8 часреднейовзарплатеециалиста |
|
|
|
|
|
|
техническойподдержки50 |
000руб |
лейвмесяц, получим: |
|
|
||
1316/21/8*50000 = 388690, 47 рублей вгодн |
аодногосотрудника |
. |
||||
Рассчитаемд |
ополнительный дотувеличенияходколичества |
|
|
|||
обрабатываемыхзаявок: |
|
|
|
|
|
|
Дополнительный доходв(процентах) |
|
=новое(количест |
во решаемых |
|||
заявок - староеколичествово): |
староеколичество |
,получим: |
(406- |
|||
140)/140*100%=190 %. |
|
|
|
|
|
54
|
|
Выводы |
|
1. |
Временнзатратпо ые |
разработкеподсистемымониторинга |
|
|
былиоцененывколичестве700часов |
|
. |
2. |
Разработаннподсипровустановкеиеманетребуетя |
|
|
|
специальныхзнанийдляеевнедрения |
|
. |
3. |
Внедренподсавтоматизациистемыприводитк |
|
|
|
многократному повышениюоперативностиботы |
пообработке |
|
|
запросаиисправлениюош бокстемы |
|
(рассчитанкоэффициент |
|
оперативности K=2,9). |
|
|
4.Cумма условэкорасходовнонаоплатуймиитрудаодного сотрудниказасчетболееэффективногоиспользованиявремени
работы равна 388690,рублейвгод47 |
. |
5. Дополнительныйдотувеличенияходк |
оличества |
обрабатываемыхзаявоксоставляет190 |
%. |
55
|
|
Заключение |
|
Вданнойдип |
ломнойработебылавыполненаразработка |
|
|
подсистемымониторингадляэлектронногомыдокументооборота |
|
||
CompanyMediaДаннаясистпресобоймадставляет. |
|
|
|
многофункциональнуюсистэлектронногомудокументооборота, |
|
||
позволяющуюорганизовыва |
|
тьинформацпотоквнутрионные |
|
междуразличнымиорганизациям |
,обеспечиватьконтрольбизнес |
- |
|
процедприятияссовускорятьвремяпринятияуправленческих |
|
||
решений.Внастоящвремянаблюеекувдаенцияличениются |
|
|
|
числапользоваСЭДиросколичетел й |
|
стваклиенсистемыов |
|
CompanyMedia,поэтому |
|
дляобеспечкоррработысистемыктнойния |
|
возникла необхоподсисозданмониторингаястемыь |
. |
||
Разработаннаяподсистемамониторингарешаетпроблему |
|
|
|
автоматизацииконтролясистемыCompanyMedia, |
оптимизируетра |
боту |
|
поиустранениюкуошибок |
|
,чтоп предомогаетсбоивратить |
|
системыCompanyMedia. |
|
|
|
Разрабсистемапотаннаязволяетконтролприложс строватьемыния |
|
|
|
CompanyMedia,локализовыватьисточникиошибокпотенциа |
|
льных |
|
ошибок, оптимизироватьработусисте |
мыипредотвратитьзавышенных |
|
|
расходсистемныхресурсов |
|
. |
|
Результатыработысистпр мыдставляютсявидедетализированных |
|
||
отчетов,вкоторыхсписокобнапроблемуженныхсортируетсяпо |
|
||
степеважности |
и, чтоп зволяетадминистраторамсистемы |
|
|
моментальнополучитьинформациюсостояниисистемы.Реализована |
|
||
возмпочтоуведомленийжностьслучаеыхобнаружения |
|
|
|
потенциальныхсбоевсистемы, |
|
настройкарасписаниязапуска |
|
56
процессовмониторинга |
,возможностьвы |
бораконтролируемого |
||
серве.Такжебылиразработаныпятнадцапроверочныхтеснать |
|
|
|
|
основаниинаибчастоповторяющихсялееошиработесистемы,к |
|
|
|
|
помимоэтогосущетсв |
ует возмсозданияжностьдобавления |
|
|
|
подсистемуновыхтестов.Даннаясистемабылап |
|
|
ротестирована |
|
рабочихсерверахкомпании |
«АОИнтертраст» |
.Планируется |
||
дальвнедрениеподейшеесистемызаказчиков.Была |
|
|
|
|
опинструкциясанаповнедрениюэксплуасис. тированиюемы |
|
|
|
|
Согласнопроведеннымрасчетам, |
внедрениеподсисте |
мымониторинга |
||
приведеткмногократномувышениюоперативно |
|
|
стисотрудников |
|
пред,чтопориятиясокразволитить |
временныезатратысотрудников. |
|
||
Суммасловэкорасходовнонаоплатуймиитрудаодного |
|
|
|
|
сотруподдержкиника |
«АОИнтертраст» |
составила 388690,рублей47 |
|
|
вгод ,адополнительныйотувеличходколичествар шенныхния |
|
|
|
|
заявоксоставил190% |
, наоснованиич |
егоможносделатьвывод |
|
|
высокойэффективнвнедренияподсистемыниторингастему |
|
|
|
|
CompanyMedia.Вдальнейшемпланируютсяработы |
|
|
|
|
совершенствованиюинтерфейсаподсистемы, |
|
|
разработке |
новых |
проверочныхтестовиинтеграцияподсистемымо |
|
|
нитсоринга |
|
стороннимисервимониторисостояамисерверовнгаия |
|
|
, |
чтобы |
получитьещеболееширокоепредставлениесоснетояниилько |
|
|
|
системы CompanyMedia, нои |
болеедетальнуюинформацию |
о |
|
состоянии серверов, |
накоторыхнаходитсясисте |
ма. |
|
57
Сплитературысок
1.СЭД// AdviserГосударствоБизнесIT.ruURL: http://wwwСтатьяСЭД.подробнееtadviser()дата(обращения:.ru/index.php/ 12.05.2015).
2.ВдовД.АктуальныевозможностиСЭД/ECMСовременныетехнологии// делопроизводстваидокументооборота. 2016. №1.
3.ВсоответПоложенимежведомствесистемтвииэлектронногоного документообутв(.постаноПраРФвроительстваотлением22№.09.2009 754)
4.СЭДрынок( России) // TadviserГосударствоБизнесIT .URL:ru http://wwwСтатьяСЭД.tadviser(.ru/index.php/ рынокРоссии)дата( обращения: 15.05.2016).
5.МакаровС.Электронныйдокуме:конецэпохиилитооборотновые возможности? // PC№7(906)Week/RE. . 2016.
6.ПриказМинкомсвязиРФот02.09Обутве.2011ТребованийжденииN 221 "
кинформационнымсистэлемамктронного докумфедеральныхнтооборота органисповласлни,учитывающихельитомчисленеобходимостьой обработкипосредданныхсстемтвомлужебнойинформации ограниченногораспространения"
7.СистемаCompanyMediaИнтерТрастURL: //
|
http://www.intertrust.ru/products/companymedia/датаобращения: 20.05.2016)( . |
|
|
8. |
Автоматизациядокументооборота |
— основадокументационного |
|
|
обесуправленияечения//ИнтерТрастURL: |
|
|
|
http://www.intertrust.ru/products/companymedia/biznes- |
|
|
|
resheniya/dokumentatsionnoe-obespechenie-upravleniya/ (датаобращения: |
||
|
15.05.2016). |
|
|
9. |
Масловский,В.П.Управлениепроектами.Красноярск: 2008. |
|
|
10. ТЕХНИКО-ЭКОНОМИЧЕСКИЙЭФФЕКТРАЗРАБОТКИ |
|
||
|
ПОДСИСТЕМЫДОКУМЕНТООБОРОТА// TECH EXTERNAL |
|
|
|
ИнформационныетехнологииURL: http://www.techexternal.ru/ewonas |
-50- |
|
|
1.htmlда ( таобращения: 19.05.2016). |
|
|
11. |
Производственныйкалендарьна2016год//КонсультантПлюс |
|
- надежная |
|
правоваяподдержкаURL: |
|
|
|
http://www.consultantдатаобращения: .ru/law/ref/calendar/proizvodstvennye/ ( |
|
|
|
20.05.2016). |
|
|
12. |
МорозоваТ.В.Методическиеуказаниявыполтехнениюико |
|
- |
|
экономическогообосновандипломныхработстудентовнженерныхя |
|
|
|
специальностей.Таганрог: 2016. |
|
|
13.ЭКОНОМИЧЕСКИЙЭФФЕОТВНЕДРЕНИЯОРПОРАТИВНОГО ХРАНИЛИЩАДАННЫХ// http://www.ulyssys.com URL: http://www.ulyssys.com/i/lng.ru/page.effectдатаобращения( : 22.05.2016)
58
ПРИЛОЖЕНИЕ
Probe AnalisAmountDocumentInDbs
Option Public Option Declare
Use "DocumentProcessor" Use "ErrorHandler"
Use "Utilities" Type Row
Server As String Title As String ReplicaID As String Amount As Long
End Type
Public Sub Search (db As NotesDatabase, dbType As String, paramNote As NotesDocument, out As DocumentProcessor)
On Error Goto ErrH
Dim nss As New NotesSession Dim Doc As NotesDocument
Dim DbControl As NotesDatabase Dim Server As String
Dim ReplicaIDs
Dim maxDocs As Long Dim r() As Row
Dim i As Integer
Dim j As Integer Dim tmpR As row
Server=paramNote.GetItemValue("
Server")(0)
ReplicaIDs=paramNote.ReplicaIDs Redim r(Ubound(ReplicaIDs)) maxDocs=0
For i=0 To Ubound(ReplicaIDs) Set DbControl=Nothing
Set DbControl=New NotesDatabase("","")
Call DbControl.OpenByReplicaID(Server,Replica IDs(i))
If DbControl.IsOpen Then r(i).server=Server
r(i).Title=DbControl.Title
r(i).ReplicaID=ReplicaIDs(i)
r(i).Amount=DbControl.AllDocument
s.Count
End If
Next 'SORT
For i=0 To Ubound(r)-1
For j=i+1 To Ubound(r)
If r(i).Amount<
r(j).Amount Then
tmpR= r(i) r(i)=r(j) r(j)=tmpR
End If
Next
Next maxDocs=r(0).Amount
Forall x In r Set
doc=nss.CurrentDatabase.CreateDocument
Doc.Name=x.Title
Doc.ReplicaID=x.ReplicaID
Doc.Amount=x.Amount
Doc.Value=maxDocs
Doc.Server=Server Call
out.ProcessDocument(doc) End Forall
Exit Sub
ErrH:
Error Err, Error$ & Chr(10) & Getthreadinfo(1) & " (l." & Erl & ")"
End Sub
Probe AnalisAmountDocumentOnDifServer
Option Public Option Declare
Use "DocumentProcessor" Use "ErrorHandler"
Use "Utilities"
Public Sub Search (db As NotesDatabase, dbType As String, paramNote As NotesDocument, out As DocumentProcessor)
On Error Goto ErrH
Dim nss As New NotesSession Dim Doc As NotesDocument Dim Db1 As NotesDatabase Dim Db2 As NotesDatabase
Set Db1=New NotesDatabase("","") Set Db2=New NotesDatabase("","") Call
Db1.OpenByReplicaID(paramNote.GetItem
Value("Server1")(0),paramNote.GetItemValu
e("ReplicaID")(0))
59
Call Db2.OpenByReplicaID(paramNote.GetItem Value("Server2")(0),paramNote.GetItemValu e("ReplicaID")(0))
Set Doc=nss.CurrentDatabase.CreateDocument
Doc.Server1=paramNote.GetItemVa
lue("Server1")(0)
Doc.Server2=paramNote.GetItemVa
lue("Server2")(0)
Doc.Amount1=Db1.AllDocuments.C
ount
Doc.Amount2=Db2.AllDocuments.C
ount
Doc.Value=Db1.AllDocuments.Coun t -Db2.AllDocuments.Count
Call out.ProcessDocument(doc)
Exit Sub
ErrH:
Error Err, Error$ & Chr(10) &
Getthreadinfo(1) & " (l." & Erl & ")"
End Sub
Probe CMAgMa Analysis
Option Declare
Use "DocumentProcessor" Use "ErrorHandler"
Dim session As NotesSession Dim currentServer As NotesName
Dim afserverDb As NotesDatabase Dim afserverAgentList List As String Dim problemCount As Long
Public |
Sub Search (db As NotesDatabase, |
dbType |
As String, paramNote As |
NotesDocument, |
out |
As |
DocumentProcessor) |
|
|
'Call SearchInCatalog (db, dbType, |
||
paramNote, out) |
|
'еслив |
конструктивеисточда ныхиком |
|
|
задкаталогется |
|
|
Call SearchInCMAgMa (db, dbType,
paramNote, out) |
'еслив |
|
конструктивеисточда ныхиком |
|
|
задаетсянаборбазCMAgMa |
|
|
End Sub |
|
|
Private Sub ReportProblem (out As |
||
DocumentProcessor, |
note |
As |
NotesDocument, description As String)
Dim image As New NotesDocument (note.ParentDatabase)
Let image.UniversalID = note.UniversalID
Call image.ReplaceItemValue ("Title", description)
Call image.ReplaceItemValue ("DbTitle", note.ParentDatabase.Title)
Call image.ReplaceItemValue ("DbName", Evaluate ({@DbName}, note))
Call out.ProcessDocument (image) 'Error 1, description
Let problemCount = problemCount
+ 1
End Sub
Private Sub ProcessSetupAgentNote (setupAgentNote As NotesDocument, out As DocumentProcessor)
Dim startAgentName As String
Dim startAgentSequence As Double Dim startAgentServer As
NotesName
Dim sysReplicaId As String
Dim sysDb As NotesDatabase
Dim sysView As NotesView
Dim orgReplicaId As String Dim orgDb As NotesDatabase
Dim orgSettingsView As notesView Dim orgSettingsNote As
NotesDocument
Dim targetType As String Dim targetReplicaId As String
Dim targetDb As NotesDatabase Dim targetAgent As NotesAgent Dim targetProgramNote As
NotesDocument
On Error Goto ErrorHandler
Let startAgentName = setupAgentNote.GetItemValue ("NameAgent") (0)
Let startAgentSequence = setupAgentNote.GetItemValue ("NumberInSequence") (0)
Set startAgentServer = New NotesName (setupAgentNote.GetItemValue ("StartServer") (0))
If Not session.IsOnServer Or startAgentServer.Canonical = currentServer.Canonical Then
Let sysReplicaId = setupAgentNote.GetItemValue ("SSRepId")
(0)
If sysReplicaId = "" Then
60