Не разрешается: размещать ЭВМ в подвалах; проводить работу по ремонту узлов или блоков ЭВМ непосредственно в машинном зале; хранить постоянно в залах ЭВМ машинные носители информации, запасные блоки и детали; оставлять без присмотра включенную в сеть электронную аппаратуру, которая используется для испытания и контроля ЭВМ. /20/
ЗАКЛЮЧЕНИЕ
В РЕЗУЛЬТАТЕ ПРОДЕЛАННОЙ РАБОТЫ СОЗДАН ПРОГРАММНЫЙ ПРОДУКТ СПОСОБНЫЙ ОБЕСПЕчИТЬ УРОВЕНЬ АВТОМАТИЗАЦИИ ДОСТАТОчНЫЙ ДЛя ВЫПОЛНЕНИя ОСНОВНЫХ ФУНКЦИЙ ПРЕДОСТАВЛЕНИя УСЛУГ ЭЛЕКТРОСВяЗИ НАСЕЛЕНИЮ ОБЛАСТИ, БЫСТРО И КОРРЕКТНО ОБРАБОТАТЬ ИНФОРМАЦИЮ, чТО ОБЕСПЕчИВАЕТ ПОЛУчЕНИя ПРИБЫЛИ ЗА ПРЕДОСТАВЛЕННЫЕ УСЛУГИ В ПОЛНОМ ОБЪЕМЕ.
Созданная система расширила спектр услуг электросвязи, предоставляемых населению области, и имеет существенные преимущества, основными из которых являются: качественно новый метод работы операторов, существенно снижающие уровень ручного труда; информирование абонента о размерах и сроках оплаты за услуги; оперативность и качество подготовки данных, исключающее ошибки в системе расчетов за услуги; экономия расходных материалов.
Первая версия системы запущена в эксплуатацию в августе 1995 года на двух центральных отделениях связи. К концу 1995 года система успешно эксплуатировалась на 19 отделениях связи г. Запорожья.
Список использованных источников
1. РУКОВОДСТВО СИСТЕМНОГО МЕНЕДЖЕРА ПО ДТ-МАКС. КЕМБРИДЖ. ИНТЕРСИСТЕМЫ, 1994 Г.
2. Руководство программиста по ДТ-МАКС. Кембридж. ИнтерСистемы, 1994 г.
3. Междугородние телефонные правила. Министерство связи СССР. “Связь”. 1968 г.
4. Закон Украины "Об охране труда", Постановление Верховного Совета Украины от 14.10.92 г. N 2696-XII
5. Державний реєстр міжгалузевих і галузевих нормативних актів про охорону праці (Реєстр ДНАОП). За станом на 01.02.95 р. Затверджено наказом Державного комітету України по нагляду за охороною праці від 06.02.95 р. N 12, Київ, 1995 р.
6. Законодавство України про охорону праці. Збірник нормативних документів. Том 1,2,3,4. Київ, 1995 р.
7. В.Ф. Кобевник. Охрана труда. Киев. "Выща школа" 1990 г.
8. ГОСТ 12.0.002-80 ССБТ Термины и определения.
9. ГОСТ 12.0.003-74* ССБТ Опасные и вредные производственные факторы.
10. ГОСТ 12.1.019-79* ССБТ Электробезопасность. Общие требования и номенклатура видов защиты.
11. Создание благоприятных условий труда пользователей ЭВМ, работающих с дисплеями на информационно-вычислительных центрах. Методические рекомендации. Одобрены Постановлением Госкомтруда УССР 15.10.86 г. N 134.
12. Временные санитарные нормы и правила для работников вычислительных центров, утв. Гл. госуд. сан. врачом СССР от 2.03.88 г. N 4559-88.
13. ГОСТ 12.2.032-78 ССБТ. Рабочее место при выполнении работ сидя.
14. ГОСТ 12.2.049-80 ССБТ. Оборудование производственное. Общие эргономические требования.
15. ГОСТ 21689-76 "Система" Человек-машина. "Кресло человека- оператора. Общие эргономические требования."
16. ГОСТ 12.1.005-88 ССБТ. Общие санитарно-гигиенические требования к воздуху рабочей зоны.
17. СНиП 11-4-79. Естественное и искусственное освещение. Нормы проектирования. Изменения, утвержденные Госстроем СССР от 4.12.1985 г. N 205.
18. ГОСТ 12.1.003-83 ССБТ. Шум. Общие требования безопасности.
19. Закон Украины “О пожарной безопасности” от 17.12.93.
20. Правила пожежної безпеки України. Затверджені: В.О. головного державного інспектора України з пожежного нагляду 14.06.95. Київ “ Укрархбудінформ” 1995
ПРИЛОЖЕНИЕ 1
СПЕЦИФИКАЦИя КОМПОНЕНТОВ СИСТЕМЫ
|Обозначение |Наименование |Примечание | |iap |АРМ АПП АК |Интерфейсная секция | | | |работы с оператором | | | |автоматических кабин | |iapbckg |Монитор АПП-РК |Модуль коммуникации с | | | |АПП-РК | |iapbckgsub |Монитор АПП-РК |Набор прцедур для модуля| | | |коммуникации с АПП-РК | |iaphand |АРМ АПП РК |Интерфейсная секция | | | |работы с оператором | | | |ручных кабин | |iaphandsub |АРМ АПП РК |Набор прцедур для | | | |интерфейсной секции | | | |работы с оператором | | | |ручных кабин | |iaphandinit |АРМ АПП РК |Модуль инициализация | | | |справочника услуг для | | | |ручных кабин | |iapmon |Стартер могитора АПП-РК |Модуль инициализации и | | | |запуска |
ПРИЛОЖЕНИЕ 2
ТЕКСТ ПРОГРАММЫ АРМ АПП АК
|iap | | |iap |;IAKoff;04:04 PM 6 Mar 1996 | | |;Обслуживание АПП-РК | | |n %res,%,%NCAB,%OLDTRAPER,%BEEP,%LON,%LOFF | | |s %BEEP=$c(7)_$c(7)_$c(7)_$c(7)_$c(7)_$c(7)_$c(7)_$c(7) | | |s %=$c(30) s %OLDTRAPER=$ztrap | | |s $ztrap="ERROR^iap" | | |s %LON=0,%LOFF=0 | |reinit | | | |i $$INITAPP()=0 q | | |s %NCAB=$$INITCAB() | | |i %NCAB=0 s %res=$$^dp58msg(12,30,"Ошибка в определении | | |кабин",1) q | | |i %NCAB>16 s %NCAB=16 | | |w /color(7,0) d ^dp58box(0,0,24,79,0,$c(177)) | | |w /color(0,7),/c(0,0),$zzr($$DAYNAME^dp58sys()_" | | |"_$$FULLDATE^dp58sys(),80) | |redraw | | | |s | | |%res=$$LIST^dp58Sel("^appstat(""CABLIST"",%i)","%i",0,1,78,| | |%NCAB+1,"N",1,"DOUBLE","Опреатор : | | |"_%APPSYS("NOM_OPER")_$c(30)_" N ЗАДАТОК | | |ОСТАТОК ТАРИФ ВРЕМЯ КОД+ТЕЛЕФОН | | |СОСТ."_$c(30)_"F3-Вкл. F4-Откл. F5-Кв. F6-Прткл. | | |F8-Ручн.заказ. | | |ESC-Выход","DrawCab^iap||OutCab^iap","KEYF3,KEYF4,KEYCRASH,| | |KEYF5,KEYF6,KEYF8") | | |i $p(%res,$c(30),2)="KEYCRASH" d CRASH q | | |i $p(%res,$c(30),2)="KEYENTER" | | |i $p(%res,$c(30),2)="KEYF3" s %LON=$$OPENCAB(%LOFF) s | | |%LOFF="" | | |i $p(%res,$c(30),2)="KEYF4" s %LOFF=$$CLOSECAB(%LON) s | | |%LON="" | | |i $p(%res,$c(30),2)="KEYF5" s %LOFF=$$TICKETS(%LOFF) | | |i $p(%res,$c(30),2)="KEYF6" s %LOFF=$$HISTORY(%LOFF) | | |i $p(%res,$c(30),2)="KEYF8" d ^iaphand | | |i $p(%res,$c(30),2)="KEYESC" s ^appstat(1)="F" q | | |g redraw | | | | |DrawCab | | | |n %s,I,P,%CAB | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |s %CAB=^appcab(%i) | | | | | |s %s=$p(%CAB,$c(30),1) | | |s I=$s(%s=-1:7,%s=0:14,%s=1:0,%s=2:14,%s=3:14,%s=4:0,1:7) | | |s P=$s(%s=-1:0,%s=0:0,%s=1:15,%s=2:7,%s=3:0,%s=4:15,1:7) | | |w /color(I,P) | | |w " " | | |w $j(^appstat("CABLIST",%i),2)_" " | | |w /color($p(%dpCOLORS,",",7),$p(%dpCOLORS,",",8)) | | | | | |w " ¦ " | | |i %LON=%i w /color(0,15) | | |w $p($zzc($p(%CAB,$c(30),3),18),".",1) | | |w /color($p(%dpCOLORS,",",7),$p(%dpCOLORS,",",8))," ¦ " | | | | | |i %LOFF=%i w /color(0,15) | | |w $p($zzc($p(%CAB,$c(30),4),18),".",1) | | |w /color($p(%dpCOLORS,",",7),$p(%dpCOLORS,",",8)) | | |w " ¦ ",$p($zzc($p(%CAB,$c(30),6),12),".",1) | | |n %time | | |s %time=$p(%CAB,$c(30),14) | | |i %time=-1 s %time=$p(%CAB,$c(30),13) | | |e d | | |. s %time=$p($h,",",2)-%time | | |. s %s=%time60 | | |. s %time=$zzj(%s,2)_":"_$zzj(%time#60,2) | | |w " ¦",$j(%time,5) | | | | | |w "¦ ",$j($p(%CAB,$c(30),7)_"-"_$p(%CAB,$c(30),5),11) | | | | | |s %s=$p(%CAB,$c(30),2) | | |w " ¦ ",$s(%s=0:"к",%s=1:"А",%s=2:"Р") | | |s %s=$p(%CAB,$c(30),15)+0 | | |w $s(%s=0:"..",%s=1:"..",%s=2:"--",1:"/") | | |q | | | | |OutCab | | | |i (^appstat("STATUS")="A") s %dpKEYCODE="KEYCRASH" | | |s %str=$$TIME^dp58sys() | | |w /c(80-$l(%str),0),/color(0,7),%str | | |i %dpKEYCODE="KEYNOPRESS" s %dpKEYCODE="KEYREDRAW" | | |i %dpKEYCODE="KEYDOWN" s %dpKEYCODE="KEYEND" | | |i %dpKEYCODE="KEYUP" s %dpKEYCODE="KEYHOME" | | |i %dpKEYCODE="KEYPAGEDOWN" s %dpKEYCODE="KEYEND" | | |i %dpKEYCODE="KEYPAGEUP" s %dpKEYCODE="KEYHOME" | | |q | | | ; | | |-----------------------------------------------------------| |INITCAB(| | |) | | | |n %i,%n | | |s %i="",%n=0 | |initcab1| | | |s %i=$o(^appstat("CABLIST",%i)) | | |i %i="" q %n | | |s %n=%n+1 | | |g initcab1 | | | ; | | |-----------------------------------------------------------| |INITAPP(| | |) | | | |n %res,%ws | | |i $$tstjob^iapmon()'="" g initapp3 | | |w /color(14,0) | | |s %res=$$^dp58msg(12,30,"Запуск монитора",0.1) | | |s %res=$$run^iapmon | | |i %res=1 s %res=$$^dp58msg(12,30,"АПП не подключен"_%_"к | | |вашей станции."_%_"Опишите в устаноквх на АПП",0) q 0 | | |i %res=2 s %res=$$^dp58msg(12,30,"Не верный номер | | |устройства."_%_"Опишите в устаноквх на АПП",0) q 0 | | |h 3 | |initapp2| | | |s %ws=10 | |initapp1| | | |w /color(14,0) | | |s %res=$$^dp58msg(12,35,"Ожидание готовности монитора | | |:"_%ws,0.1) h 1 | | |i ^appstat("STATUS")="A" s %res=$$^dp58msg(12,30,"Неполадки| | |! ! !"_%_"Авария АПП-РК"_%_"Сбросте АПП-РК"_%_"и | | |попытайтесь еще раз.",0) q 0 | | |i ^appstat("STATUS")="H" s %res=$$^dp58msg(12,30,"Неполадки| | |! ! !"_%_"Сбросте АПП-РК"_%_"и попытайтесь еще раз.",0) q 0| | |s %ws=%ws-1 i %ws=0 q 0 | | |i ^appstat("CMD")'="R" g initapp1 | |initapp3| | | |i (^appstat(1)'="F") s %res=$$^dp58msg(12,30,"Второй | | |лишний.",1) q 0 | | |s ^appstat(1)=%APPSYS("NOM_OPER") | | |s ^appstat(1,"NOM_OPER")=%APPSYS("NOM_OPER") | | |s ^appstat(1,"NOM_GOES")=%APPSYS("NOM_GOES") | | |s ^appstat(1,"NOM_MESS")=%APPSYS("NOM_MESS") | | |s ^appstat(1,"NOM_DENN")=%APPSYS("NOM_DENN") | | |s ^appstat(1,"NOM_SMEN")=%APPSYS("NOM_SMEN") | | |s ^appstat("USD_KURS")=%APPSYS("USD_KURS") | | |q 1 | | | | | | ; | | |-----------------------------------------------------------| |CRASH | | | |i $$^dp58msg(8,30,"А В А Р И Я ! ! !"_%_"Нажмите на задней | | |панели АПП-РК"_%_"маленькую беленькую кнопочку"_%_"и затем | | |нажмите на клавиатуре ",0)'="KEYENTER" g CRASH | | |s ^appstat(1)="F" | | |q | | | ; | | |-----------------------------------------------------------| |OPENCAB(| | |%cab) | | | |n %forma,%res | | |i (^appstat("STATUS")="A")!(^appstat("STATUS")="H") s | | |%res=$$^dp58msg(12,35,"АВАРИЙНАЯ СИТУАЦИЯ | | |!"_$c(30)_"ВКЛЮЧАТЬ КАБИНЫ НЕЛЬЗЯ.",0) q %cab | | |i $g(%cab)'="" s | | |%forma("CABNUM")=$g(^appstat("CABLIST",%cab)) | | |s %forma("SUMMA")=0 | | |d drscr^uf58("iap!OPEN") | | |i $$get^uf58("iap!OPEN","%forma")="ESC" q %cab | | |s %cab=$$phys(%forma("CABNUM")) | | |i (^appcab(%cab).2=2) d ^AppOnRk58(%cab,"ON") q %cab | | |d cabon(%cab,%forma("SUMMA")) | | |q %cab | |OutOPCN(| | |) | | | |n %res,%cab | | |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA | | |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g | | |OPCN1 | | |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g OPCN1 | | |i ^appcab(%cab).1=1 s %res="Кабина занята !" g OPCN1 | | |i ^appcab(%cab).1=2 s %res="В кабине остаток !" g OPCN1 | | |q %ufNEWDATA | |OPCN1 | | | |s %res=$$^dp58msg(3,35,%res,0) | | |d drscr^uf58("iap!OPEN") | | |d redraw^uf58("iap!OPEN","%forma") | | |q "PROBLEM" | |InOPSM()| | | |n %cab | | |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) | | |i (^appcab(%cab).2=2) q "FIELDOFF" | | |q %ufOLDDATA | | | ; | | |-----------------------------------------------------------| |CLOSECAB| | |(%cab) | | | |n %forma,%res | | |i $g(%cab)'="" s | | |%forma("CABNUM")=$g(^appstat("CABLIST",%cab)) | | |d drscr^uf58("iap!CLOSE") | | |i $$get^uf58("iap!CLOSE","%forma")="ESC" q %cab | | |s %cab=$$phys(%forma("CABNUM")) | | |i (^appcab(%cab).2=2) d ^AppOnRk58(%cab,"OFF") q %cab | | |d caboff(%cab) | | |q %cab | |OutCLCN(| | |) | | | |n %res,%cab | | |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA | | |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g | | |CLCN1 | | |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g CLCN1 | | |i ^appcab(%cab).1=0 s %res="Кабина свободна !" g CLCN1 | | |q %ufNEWDATA | |CLCN1 | | | |s %res=$$^dp58msg(3,35,%res,0) | | |d drscr^uf58("iap!CLOSE") | | |d redraw^uf58("iap!CLOSE","%forma") | | |q "PROBLEM" | | | ; | | |-----------------------------------------------------------| |phys(%l)| | | |n %i | | |s %i="" | |phys1 | | | |s %i=$o(^appstat("CABLIST",%i)) | | |i %i="" q 0 | | |i %l=^appstat("CABLIST",%i) q %i | | |g phys1 | | | ; | | |-----------------------------------------------------------| |cabon(%n| | |umcab,%z| | |adat) | | | |k ^appticket(%numcab) | | |n %hl | | |s %hl="1" i %numcab>16 s %hl="2" | | |s %cmd="B"_%numcab_" "_%zadat | |cabon1 | | | |i ^appstat("CMD")'="R" g cabon1 | | |s ^appstat("CMD")="WRQ"_%hl | | |i ^appstat("CMD")="WEN"_%hl g cabon3 | | |i ^appstat("CMD")="R" g cabon1 | |cabon3 | | | |s ^appstat("CMD","COM")=%cmd | | |s ^appstat("CMD")="WAC"_%hl | | |q | | | | | | ; | | |-----------------------------------------------------------| |caboff(%| | |numcab) | | | |n %hl,%kk | | |s %hl="1" i %numcab>16 s %hl="2" | | |i ^appstat("STATUS")="A" g caboff6 | | |s %cmd="O"_%numcab | |caboff1 | | | |i ^appstat("CMD")'="R" g caboff1 | | |s ^appstat("CMD")="WRQ"_%hl | | |i ^appstat("CMD")="WEN"_%hl g caboff3 | | |i ^appstat("CMD")="R" g caboff1 | |caboff3 | | | |s ^appstat("CMD","COM")=%cmd | | |s ^appstat("CMD")="WAC"_%hl | |caboff4 | | | |r *%kk:0.1 i %kk'=-1 g caboff5 | |caboff6 | | | |i | | |(^appcab(%numcab).1'=0)&(^appcab(%numcab).1'=2)&(^appcab(%n| | |umcab).1'=1) g caboff4 | |caboff5 | | | |q | | | ; | | |-----------------------------------------------------------| |TICKETS(| | |%cab) | | | |n %forma,%res,%sel,%sid,%id | | |i $g(%cab)="" s %cab=0 | | |s %forma("CABNUM")=$g(^appstat("CABLIST",%cab)) | | |d drscr^uf58("iap!TICKET") | | |i $$get^uf58("iap!TICKET","%forma")="ESC" q %cab | | |s %cab=$$phys(%forma("CABNUM")) | | |s %id="" f d s %id=$o(^appticket(%cab,%id)) s:%id'="" | | |%sel(%id)=%id q:%id="" | | |i (^appcab(%cab).2=2) q %cab ; ПЕЧАТЬ КВИТАНЦИЙ ПО РУЧНОЙ | | |КАБИНЕ | |tickets1| | | |s | | |%res=$$SELECT^dp58Sel("^appticket(%cab,%id)","%id","%sel(%s| | |id)","%sid",10,12,61,9,"",0,"SINGLE","Квитанции по кабине N| | |"_%cab_$c(30)_"ПРОД. КОД ГОРОД РЕГИОН | | |ТЕЛЕФОН СУММА "_$c(30)_"-ОТМЕТКА | | |-ПЕЧАТЬ","DrawTicket^iap","KEYF4") | | |i $p(%res,$c(30),2)="KEYESC" q %cab | | |i $p(%res,$c(30),2)="KEYF4" d TICKPRINT q %cab | | |g tickets1 | | | | |DrawTick| | |et | | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |w $j($p(^appticket(%cab,%id),$c(30),3),5)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),4),3)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),5),12)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),8),14)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),6),10)_" " | | |w $zzc($p(^appticket(%cab,%id),$c(30),7),12,2) | | |q | | | | |OutTCCN(| | |) | | | |n %res,%cab | | |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA | | |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g | | |TCCN1 | | |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g TCCN1 | | |i ^appcab(%cab).1=1 s %res="Кабина занята !" g TCCN1 | | |i $d(^appticket(%cab))=0 s %res="Нет квитанции !" g TCCN1 | | |i ^appcab(%cab).1=2 s %res="В кабине остаток !" g TCCN1 | | |q %ufNEWDATA | |TCCN1 | | | |s %res=$$^dp58msg(3,35,%res,0) | | |d drscr^uf58("iap!TICKET") | | |d redraw^uf58("iap!TICKET","%forma") | | |q "PROBLEM" | | | | | ; | | |--------| | |--------| | |--------| | |--------| | |--------| | |--------| | |--------| | |--- | | |TICKPRIN| | |T | | | |n %KVIT,%sid | | |s %sid=$o(%sel("")) i %sid="" q | |tickprn1| | | |i $g(%sel(%sid))=0 g tickprn3 | | |s | | |%KVIT(%sid)= | |tickprn3| | | |s %sid=$o(%sel(%sid)) i %sid'="" g tickprn1 | | |d PrintKvit^AppSysd | | |q | | | ; | | |-----------------------------------------------------------| |HISTORY(|;IAKoff;10:34 PM 26 Aug 1995; | |%cab) | | | |n %ll,%ee,%id | | |i $g(%cab)="" s %cab=0 | | |s %forma("CABNUM")=$g(^appstat("CABLIST",%cab)) | | |d drscr^uf58("iap!HISTORY") | | |i $$get^uf58("iap!HISTORY","%forma")="ESC" q %cab | | |s %cab=$$phys(%forma("CABNUM")) | | |s %ee="C"_%cab | | |i $d(^appjrn(%ee))=0 g ihlp1 | | |s %ll="^appjrn(%ee,%id)" s %id="" s | | |%id=$o(^appjrn(%ee,%id),-1) | | |s %rr=$$LIST^dp58Sel(%ll,"%id",1,10,76,12,"",0,"DOUBLE"," | | |Журнал ","DrawHist^iap") | |ihlp1 | | | |q %cab | | | | |OutHSCN(| | |) | | | |n %res,%cab | | |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA | | |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g | | |HSCN1 | | |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g HSCN1 | | |q %ufNEWDATA | |HSCN1 | | | |s %res=$$^dp58msg(3,35,%res,0) | | |d drscr^uf58("iap!HISTORY") | | |d redraw^uf58("iap!HISTORY","%forma") | | |q "PROBLEM" | | | | |DrawHist| | | |n %rrr,%time,%date | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |s %rrr=^appjrn(%ee,%id,"MSG") | | |s %time=$j($p(^appjrn(%ee,%id,"TIME"),$c(30),1),8) | | |s %date=$j($p(^appjrn(%ee,%id,"TIME"),$c(30),2),5) | | |i $p(%rrr," ",1)="ON" g drwh1 | | |i $p(%rrr," ",1)="OFF" g drwh2 | | |i $p(%rrr," ",1)="BBB" g drwh3 | | |i $p(%rrr," ",1)="EEE" g drwh4 | | |i $p(%rrr," ",1)="AAA" g drwh5 | | |w $zzr(%rrr,61)_%time_" "_%date_" " q | |drwh1 | | | |w $zzr("Вкл. "_$p(%rrr," ",2),61)_%time_" "_%date_" " q | |drwh2 | | | |w $zzr("Выкл. "_$p(%rrr," ",2),61)_%time_" "_%date_" " q | |drwh3 | | | |w $zzr("Нач. разг. тариф:"_$p(%rrr," ",4)_" тел:"_$p(%rrr,"| | |",6),61)_%time_" "_%date_" " q | |drwh4 | | | |w $zzr("Кон. разг. время:"_$p(%rrr," ",3)_" | | |сумма:"_$p(%rrr," ",5),61)_%time_" "_%date_" " | | |q | |drwh5 | | | |w $zzr("Авар. зав. время:"_$p(%rrr," ",3)_" | | |сумма:"_$p(%rrr," ",5),61)_%time_" "_%date_" " | | |q | | | | | | ; | | |-----------------------------------------------------------| |ERROR | | | |s $ztrap=%OLDTRAPER | | |s ^appstat(1)="F" | | |g @$ztrap |
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11