|
Реферат: Автоматизированное рабочее место (Программирование)
****************************************************************************
********* ДополнениеИзменение данных
**
*********************************************************************
PROCEDURE ins && Процедура ДополненияИзменения
PARAMETERS d_ins
ord_a=order()
CLEAR
RELEASE KW,GW,XW,KS,ELC,TL,RD,OT,OR1,LG_TA
HIDE POPUP serv
ON KEY LABEL F1 DO HELP WITH 8
ON KEY LABEL F7 DO N_YDOS_AND_KOD
sele a
STORE .F. TO _PAD_OTCH
DEFINE POPUP YL FROM 4,10
n=recno()
m=1
br=1
DIMENSION yl_za(100,1)
go top
i=1
yl_za(i,1)=yl
DO WHILE !EOF()
DEFINE BAR (br) OF YL PROMPT yl_za(i,1)
IF yl=yl_za(i,1)
skip
loop
ENDIF
m=m+1
i=i+1
yl_za(i,1)=yl
br=br+1
ENDDO
DIMENSION yl_za(m,1)
ON SELECTION POPUP YL DO YLIZ WITH PROMPT()
define window hp from 12,28 to 20,60 shadow color scheme 16
DO CASE
CASE d_ins=1
SCATTER MEMVAR BLANK
STORE 1 TO red
set skip to
CLOSE DATA
SELE i
USE HELP
SELE a
USE RABOT
SELE d
USE LGOT
CASE d_ins=2
IF RECCOUNT()=0
RETURN
ELSE
GO _REC
kw=kw_l
gw=g_w_l
xw=x_w_l
ks=k_ys_l
ot=otop_l
elc=el_c_l
tl=tel_l
rd=rad_l
lg_ta=lgot
or1=or_r
yl_ins=yl
dom_ins=dom
k_ins=kw_ra
SCATTER MEMVAR
STORE 2 TO red
ENDIF
ENDCASE
ACTIVATE WINDOW INS
=POS_CH2()
@ 1,10 GET m.fam
@ 2,10 GET m.tab picture '9999' VALID unic() ERROR 'Повтор Табеля'
@ 2,28 GET m.tel picture '99999999'
@ 3,10 GET m.yl WHEN yliz_s()
@ 3,30 GET m.dom PICTURE 'NNNN'
@ 3,40 GET m.kw_ra picture 'nnnn'
@ 4,10 GET m.kv_m picture '###.##' default ''
*@ 5,39 GET m.kol_vo DISABLE
*@ 3,2 GET yl_z FUNCTION '*I ' VALID YLIZ1() WHEN INS2() DEFA 1 SIZE 1,7
@ 5,35 GET m.elec picture '999999'
@ 6,35 GET m.elec1 picture '999999'
@ 5,43 GET or1 FUNCTION '*C Ордер' VALID O_R() DEFA 0 COLOR SCHEME 16
@ 6,43 GET lg_ta FUNC '*C Льгота' VALID vib_lg() DEFA .f.COLOR SCHEME 16
@ 8,1 to 8,70 double
@ 12,2 GET kw FUNCTION '*C Квартплата' DEFAULT .F. VALID KW_INS() COLOR
SCHEME 16
@ 13,2 GET gw FUNCTION '*C Горячая вода' VALID GW_INS() defa .f. COLOR
SCHEME 16
@ 14,2 GET xw FUNCTION '*C Холодная вода' VALID XW_INS() DEFA .F. COLOR
SCHEME 16
@ 15,2 GET ks FUNC '*C Комунальные услуги' VALI KS_INS() DEFA .F. COLO
SCHEME 16
@ 16,2 GET ot FUNCTION '*C Отопление' VALID OT_INS() DEFA .F. COLOR SCHEME
16
@ 17,2 GET elc FUNC '*C Электроэнергия' VALID ELC_INS() DEFA .F. COLOR
SCHEME 16
@ 18,2 GET tl FUNCTION '*C Телефон' VALID TL() WHEN TL1() DEFA .F. COLOR
SCHEME 16
@ 19,2 GET rd FUNCTION '*C Радио' VALID rd() WHEN rd1() DEFA .F. COLOR
SCHEME 16
*@ 10,30 SAY 'Категория'
*@ 10,47 get d.info
@ 11,30 say 'Действительна с' COLOR SCHEME 17
@ 11,47 get m.dat_c COLOR SCHEME 17
@ 11,58 say 'по' COLOR SCHEME 17
@ 11,61 get m.dat_po VALID IIF(m.dat_c=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 |
ПРИЛОЖЕНИЕ 3
ТЕКСТ ПРОГРАММЫ МОНИТОРА АПП-РК
|iapbckg | |
|iapbckg(%|;IAKoff;03:44 PM 6 Mar 1996 |
|an) | |
| |n |
| |%cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec|
| |,%cod,%idev |
| |n %cabspis,%to,%hl,%SHARE,%noper,%nsmen |
| |s %SHARE=$$SHARE^AppSyst() |
| |s $zp=$c(30) s $ztrap="errhndr^iapbckgsub" |
| |s ^appstat("CMD")="WAIT" |
| |s ^appstat("STATUS")="INIT" |
| |o %an u |
| |%an:(ixxlate=0:speed=2400:parity="none":stopbits=1) |
| |d addjrn^iapbckgsub("APPRK","Запуск Апп монитор","") |
| |w "E*" |
| |k ^appzxcab |
| |k ^appcab |
| |f %i=1:1:32 d |
| |. s |
| |^appcab(%i)="-1"_$zp_"0"_$zp_"00.00"_$zp_"00.00"_$zp_""_$|
| |zp |
| |. s |
| |^appcab(%i)=^appcab(%i)_"00.00"_$zp_""_$zp_"0"_$zp_"0"_$z|
| |p |
| |. s |
| |^appcab(%i)=^appcab(%i)_"0"_$zp_"0"_$zp_"0"_$zp_"00.00"_$|
| |zp |
| |. s ^appcab(%i)=^appcab(%i)_"-1"_$zp_"0" |
| |. w "O"_%i_"*" |
| |. f %zone=0:1:20 s ^appcab(%i,%zone)="0"_$zp_"0" |
| |. f %zone=128:1:148 s ^appcab(%i,%zone)="0"_$zp_"0" |
| | |
| |s %ws=0 |
|freecab |; получить список кабин |
| |s %ws=%ws+1 |
| |i %ws=20 g thlt |
| |s ^appstat("STATUS")="CAB OFF" |
| |w "I*" |
| |s ^appstat("STATUS")="LIST" |
| |w "S*" |
| |s %free=$$gres^iapbckgsub() i %free="HALT" g thlt |
| |i %free="TIME" g thlt |
| |s %i=1 |
|ncab | |
| |s %cmd=$p(%free," ",%i+1) |
| |s %cc=$e(%cmd,1,2)+0 |
| |s %cod=$e(%cmd,3,3) |
| |i %cmd="" g lastcab |
| |i (%cc>32)!(%cc0 q %ufNEWDATA |
| |s |
| |%res=$$LIST^dp58Sel("^appACDC(%id)","%id",20,13,40,8,"",0|
| |,"SINGLE","","DrawCOUNTRY^iaphand") |
| |i $p(%res,$c(30),2)="KEYESC" q "PROBLEM" |
| |q %id_$c(30)_"KEYENTER" |
| | |
|DrawCOUNT| |
|RY | |
| |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q |
| |w $j(%id,%dpSX) q |
| | |
|OutSHTAT(| |
|) | |
| |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q |
| |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" |
| |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" |
| |n %id,%id1,%res |
| |s %id=$p(%ufNEWDATA,$c(30),1) |
| |s %id1=%f("COUNTRY") i %id1="СНГ" g OutSHT1 |
| |i %id="" g OutSHT0 |
| |i $d(^appACDC(%id1,%id))>0 q %ufNEWDATA |
|OutSHT0 | |
| |s |
| |%res=$$LIST^dp58Sel("^appACDC(%id1,%id)","%id",20,13,40,8|
| |,"",0,"SINGLE","","DrawCOUNTRY^iaphand") |
| |g OutSHT2 |
|OutSHT1 | |
| |i %id="" g OutSHT3 |
| |i $d(^app8ACDC(%id))>0 q %ufNEWDATA |
|OutSHT3 | |
| |s |
| |%res=$$LIST^dp58Sel("^app8ACDC(%id)","%id",20,13,40,8,"",|
| |0,"SINGLE","","DrawCOUNTRY^iaphand") |
|OutSHT2 | |
| |i $p(%res,$c(30),2)="KEYESC" q "PROBLEM" |
| |q %id_$c(30)_"KEYENTER" |
| | |
| | |
|InREGION(| |
|) | |
| |s %f("REGION")="" |
| |i %f("COUNTRY")'="СНГ" q "FIELDOFF" |
| |q %ufOLDDATA |
| | |
|OutREGION| |
|() | |
| |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q |
| |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" |
| |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" |
| |n %id1,%id,%res |
| |s %id1=%f("SHTAT") |
| |s %id=$p(%ufNEWDATA,$c(30),1) |
| |i %id="" q %ufNEWDATA |
| |i $d(^app8ACDC(%id1,%id))>0 q %ufNEWDATA |
| |s |
| |%res=$$LIST^dp58Sel("^app8ACDC(%id1,%id)","%id",20,13,40,|
| |8,"",0,"SINGLE","","DrawCOUNTRY^iaphand") |
| |i $p(%res,$c(30),2)="KEYESC" q "PROBLEM" |
| |q %id_$c(30)_"KEYENTER" |
| | |
|OutTARGET| |
|() | |
| |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q |
| |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" |
| |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" |
| |q %ufNEWDATA |
| | |
|InCODE() | |
| |i %f("COUNTRY")'="СНГ" q |
| |^appACDC(%f("COUNTRY"),%f("SHTAT")) |
| |i |
| |(^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS"))&(%f("REGIO|
| |N")="") q 2 |
| |i %f("REGION")="" q ^app8ACDC(%f("SHTAT")) |
| |i ^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS") q |
| |2_^app8ACDC(%f("SHTAT"),%f("REGION")) |
| |q |
| |^app8ACDC(%f("SHTAT"))_^app8ACDC(%f("SHTAT"),%f("REGION")|
| |) |
| | |
|OutCODE()| |
| |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q |
| |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" |
| |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" |
| |i $l($p(%ufNEWDATA,$c(30),1))3 s %fff("TIME")=3 q |
| |"FIELDOFF" |
| |q $p(^appstat("ORDERS",%id),%,13) |
| | |
|OutTIME()| |
| |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA |
| |i ($p(%ufNEWDATA,$c(30),1)+0)$p(^appstat("ORDERS",%id),%,1|
| |3) q "PROBLEM" |
| |q %ufNEWDATA |
| | |
|InTEL() | |
| |n %ntel,%i |
| |i $p(^appstat("ORDERS",%id),%,18)=1 s %fff("TEL")=0 q |
| |"FIELDOFF" |
| |s %ntel=0 f %i=5:1:9 i |
| |$p(^appstat("ORDERS",%id),%,%i)'="" s %ntel=%ntel+1 |
| |i %ntel=1 s %fff("TEL")=1 q "FIELDOFF" |
| | |
| |q %ntel |
| | |
|OutTEL() | |
| |n %ntel,%i |
| |s %ntel=0 f %i=5:1:9 i |
| |$p(^appstat("ORDERS",%id),%,%i)'="" s %ntel=%ntel+1 |
| |i %ntel=0 q %ufNEWDATA |
| |i ($p(%ufNEWDATA,$c(30),1)+0)%ntel q "PROBLEM" |
| |q %ufNEWDATA |
| | |
|EXECUTE(%| |
|nord) | |
| |n %fff,%reestr,%tsumm,%ord,%ntel,%i,%key |
| |s %ntel=0 |
| |i $p(^appstat("ORDERS",%nord),%,18) g exec2 |
| |f %i=5:1:9 i $p(^appstat("ORDERS",%id),%,%i)'="" s |
| |%ntel=%ntel+1 |
|exec2 | |
| |s %ord=^appstat("ORDERS",%nord) |
| |s %fff("TIME")=$p(%ord,%,13) |
| |d drscr^uf58("iap!HEXEC") |
| |i $$get^uf58("iap!HEXEC","%fff")="ESC" q |
| | |
| |s %fff("NOPER")=$p(%ord,%,24) |
| |d drscr^uf58("iap!HSTOL") |
| |i $$get^uf58("iap!HSTOL","%fff")="ESC" q |
| |s $p(%ord,%,24)=%fff("NOPER") |
| | |
| |s %key=$$^dp58dlg(7,20,11,60,"Подтвердите |
| |выполнение","ВЫПОЛНИТЬ"_%_"ОТМЕНА","",2,"","") |
| |i $p(%key,$c(30),2)="KEYESC" g exec2 |
| |i $p(%key,$c(30),1)=2 q |
| |s $p(%ord,%,22)=%fff("TIME") |
| |i %ntel=0 s $p(%ord,%,27)=%fff("TEL") g exec1 |
| |s %i=0 i %ntel>2 s %i=$p(^SpravUsl(61,30+%ntel),%,4) |
| |s $p(%ord,%,15)=$p(%ord,%,15)-%i |
| |s %i=0 i %fff("TEL")>2 s |
| |%i=$p(^SpravUsl(61,30+%fff("TEL")),%,4) |
| |s $p(%ord,%,15)=$p(%ord,%,15)+%i |
| |s $p(%ord,%,27)=%fff("TEL") |
|exec1 | |
| |s |
| |%tsumm=$zzoo((%fff("TIME")+$p(%ord,%,15))*$p(%ord,%,16)) |
| |s %rest=$p(%ord,%,14)-%tsumm |
| |s $p(%ord,%,23)=%rest |
| |i %rest=0 s %key=1 g exec11 |
| |s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за |
| |остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","") |
| |i $p(%key,$c(30),2)="KEYESC" g exec2 |
|exec11 | |
| |s ^appstat("ORDERS",%nord)=%ord |
| |s |
| |%reestr=$$REESTR("ВЫП",%nord,$p(%ord,%,13),$p(%ord,%,22),|
| |,%tsumm,) |
| |;d |
| |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":82,1:882),%tsumm,%|
| |reestr) |
| |d |
| |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":82,1:882),0,%reest|
| |r) |
| |d ADDRRR(%reestr) |
| | |
| |i $p(%key,$c(30),1)=1 g exec4 |
| |s |
| |%reestr=$$REESTR("НЕВ",%nord,$p(%ord,%,13),$p(%ord,%,22),|
| |,,%rest) |
| |d |
| |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":84,1:884),0,%reest|
| |r,"","Заказ "_%nord) |
| |d ADDRRR(%reestr) |
| |g exec3 |
|exec4 | |
| |s |
| |%reestr=$$REESTR("ОСТ",%nord,$p(%ord,%,13),$p(%ord,%,22),|
| |,,%rest) |
| |s %i=$s($p(%ord,%,3)="СНГ":85,1:885) |
| |s %i=%i+($$SYSH=$p(%ord,%,28)) |
| |d |
| |AddOplata^AppSys(81,$p(%ord,%,14),"","",$$KVITAN(%nord,%o|
| |rd,1),"p") |
| |d AddOplata^AppSys(%i,-%rest,%reestr) |
| |d ADDRRR(%reestr) |
| |i %rest>0 s %key=$$^dp58msg(3,20,"Барышня,"_%_"верните |
| |пожалуста клиенту остаток"_%_$zzc(%rest),0) |
| |k ^appstat("ORDERS",%nord) |
| |i $$AskPrint^iaphand() d PrintKvit^AppSysd |
| |e d NewKvit^AppSysd |
|exec3 | |
| |q |
| | |
|ABORT(%no| |
|rd) | |
| |n |
| |%ord,%notify,%tarif,%key,%id,%tsumm,%rest,%reestr,%ttime,|
| |%fff |
| |s %ord=^appstat("ORDERS",%nord) s %notify=$p(%ord,%,18) |
| |i $p(%ord,%,20)="" s %key=$$^dp58msg(3,20,"Девушка с |
| |двумя веслами,"_%_"нельзя снимать заказ"_%_"если вы его |
| |еще не педерали",0) q |
| |s %tarif=$p(%ord,%,16) |
|abr2 | |
| |s %id="" |
| |s |
| |%key=$$LIST^dp58Sel("^SpravUsl(61+%notify,51,%id)","%id",|
| |60,3,10,11,"",0,"SINGLE","Причина","DrawREASON^iaphandsub|
| |") |
| |i $p(%key,%,2)="KEYESC" q |
| |s $p(%ord,%,26)=$p(^SpravUsl(61+%notify,51,%id),%,1) |
| |s %ttime=$p(^SpravUsl(61+%notify,50,%id),%,4) |
| |i $p(%ord,%,1)'="" s |
| |%ttime=%ttime+$p(^SpravUsl(61+%notify,51,%id),%,4) |
| |i %notify g abr1 |
| |i $p(%ord,%,5)="" s |
| |%ttime=%ttime+$p(^SpravUsl(61,52,%id),%,4) g abr1 |
| |i $p(%ord,%,9)'="" s |
| |%ttime=%ttime+$p(^SpravUsl(61,55,%id),%,4) g abr1 |
| |i $p(%ord,%,8)'="" s |
| |%ttime=%ttime+$p(^SpravUsl(61,54,%id),%,4) g abr1 |
| |i $p(%ord,%,7)'="" s |
| |%ttime=%ttime+$p(^SpravUsl(61,53,%id),%,4) g abr1 |
|abr1 | |
| |s %fff("NOPER")=$p(%ord,%,24) |
| |d drscr^uf58("iap!HSTOL") |
| |i $$get^uf58("iap!HSTOL","%fff")="ESC" g abr2 |
| |s $p(%ord,%,24)=%fff("NOPER") |
| |s %tsumm=$zzoo(%ttime*$p(%ord,%,16)) |
| |s %rest=$p(%ord,%,14)-%tsumm |
| |s $p(%ord,%,23)=%rest |
| |s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за |
| |остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","") |
| |i $p(%key,$c(30),2)="KEYESC" g abr2 |
| | |
| |s ^appstat("ORDERS",%nord)=%ord |
| | |
| |s |
| |%reestr=$$REESTR("СНТ",%nord,$p(%ord,%,13),$p(%ord,%,22),|
| |,%tsumm,) |
| |d |
| |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":82,1:882),0,%reest|
| |r) |
| |d ADDRRR(%reestr) |
| | |
| |i $p(%key,$c(30),1)=1 g abr4 |
| |s |
| |%reestr=$$REESTR("НЕВ",%nord,$p(%ord,%,13),$p(%ord,%,22),|
| |,,%rest) |
| |d |
| |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":84,1:884),0,%reest|
| |r,"","Заказ "_%nord) |
| |d ADDRRR(%reestr) |
| |g abr3 |
|abr4 | |
| |s |
| |%reestr=$$REESTR("ОСТ",%nord,$p(%ord,%,13),$p(%ord,%,22),|
| |,,%rest) |
| |s %i=$s($p(%ord,%,3)="СНГ":85,1:885) |
| |s %i=%i+($$SYSH=$p(%ord,%,28)) |
| |d |
| |AddOplata^AppSys(81,$p(%ord,%,14),"","",$$KVITAN(%nord,%o|
| |rd,1),"p") |
| |d AddOplata^AppSys(%i,-%rest,%reestr) |
| |d ADDRRR(%reestr) |
| |i %rest>0 s %key=$$^dp58msg(3,20,"Барышня,"_%_"верните |
| |пожалуста клиенту остаток"_%_$zzc(%rest),0) |
| |k ^appstat("ORDERS",%nord) |
| |i $$AskPrint^iaphand() d PrintKvit^AppSysd |
| |e d NewKvit^AppSysd |
|abr3 | |
| |q |
| | |
|DrawREASO| |
|N | |
| |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q |
| |w $zzr($p(^SpravUsl(61+%notify,51,%id),%,1),%dpSX) q |
| | |
|REST(%nor| |
|d) | |
| |n |
| |%ord,%notify,%tarif,%key,%id,%tsumm,%rest,%reestr,%ttime,|
| |%i |
| |s %ord=^appstat("ORDERS",%nord) s %notify=$p(%ord,%,18) |
| | |
| |s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за |
| |остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","") |
| |i $p(%key,$c(30),2)="KEYESC" q |
| |i $p(%key,$c(30),1)=2 q |
| | |
| |s %rest=$p(%ord,%,23) |
| |s |
| |%reestr=$$REESTR("ВЗВ",%nord,$p(%ord,%,13),$p(%ord,%,22),|
| |,,%rest) |
| |s %i=$s($p(%ord,%,3)="СНГ":85,1:885) |
| |s %i=%i+($$SYSH=$p(%ord,%,28)) |
| |d |
| |AddOplata^AppSys(81,$p(%ord,%,14),"","",$$KVITAN(%nord,%o|
| |rd,1),"p") |
| |d AddOplata^AppSys(%i,-%rest,%reestr) |
| |d ADDRRR(%reestr) |
| |i %rest>0 s %key=$$^dp58msg(3,20,"Девушка с |
| |веслом,"_%_"верните пожалуста клиенту |
| |остаток"_%_$zzc(%rest),0) |
| |k ^appstat("ORDERS",%nord) |
| |i $$AskPrint^iaphand() d PrintKvit^AppSysd |
| |e d NewKvit^AppSysd |
| |q |
| | |
|REESTR |(%SUBJECT,%NORD,%FULLTIME,%TOTALTIME,%DEPOSIT,%TOTAL,%RES|
| |T) |
| |n %r,%z,%t |
| |s %z=^appstat("ORDERS",%NORD) |
| |s %r.1=8 |
| |s %r.2=%APPSYS("NOM_GOES") |
| |s %r.3=%APPSYS("NOM_OPER") |
| |s %r.4=$p($$GetDTQ^AppSys,%,1) |
| |s %r.5=%NORD |
| |s %r.6=%APPSYS("NOM_KVIT") ; НОМЕР КВИТАНЦИИ |
| |s %r.7="" i %SUBJECT="ПРН" s %r.7=%APPSYS("NOM_OPER") |
| |s %r.8="" i %SUBJECT="ПРН" s %r.8=$p(%z,%,19) ; $h |
| |принятия заказа |
| |s %r.9=$p(%z,%,24) ; номер опреатора который принял заказ|
| |на столе |
| |s %r.10="" i %SUBJECT="ПРН" s %r.10=$p(%z,%,20) ; $h |
| |передачи заказа |
| |s %r.11="" i %SUBJECT'="ПРН" s %r.11=%APPSYS("NOM_OPER") |
| |s %r.12="" i %SUBJECT'="ПРН" s %r.12=$h ; выполнение |
| |заказа |
| |s %r.13=$g(%FULLTIME) |
| |s %r.14=$g(%TOTALTIME) |
| |s %r.15=$p(%z,%,17) |
| |s %r.16=%SUBJECT |
| |s %r.17=$p(%z,%,2) |
| |s %r.18=$p(%z,%,16) |
| |s %r.19=$p(%z,%,3) |
| |s %r.20="ОБЫЧНЫЙ" i $p(%z,%,4)=1 s %r.20="СРОЧНЫЙ" |
| |s %r.21=$p(%z,%,11) |
| |s %r.22=$p(%z,%,15) |
| |s %r.23=$g(%DEPOSIT) |
| |s %r.24=$g(%TOTAL) |
| |s %r.25=$g(%REST) |
| |s %r.26="" i $p(%z,%,25)=1 s %r.26="ЛЬГОТНЫЙ" |
| |s %r.27=$p(%z,%,10) |
| |s %r.28=$p(%z,%,12) |
| |s %r.29="" |
| |i $p(%z,%,18) d |
| |. s |
| |%r.29=$$DATE2SYS^dp58sys($e($p(%z,%,5),1,2)_"/"_$e($p(%z,|
| |%,5),3,4)_"/"_$e($p(%z,%,5),5,6))_","_$$TIME2SYS^dp58sys(|
| |$e($p(%z,%,6),1,2)_":"_$e($p(%z,%,6),3,4)) |
| |s |
| |%t=$p(%z,%,5)_","_$p(%z,%,6)_","_$p(%z,%,7)_","_$p(%z,%,8|
| |)_","_$p(%z,%,9) |
| |i $p(%z,%,27)'="" s |
| |$p(%t,",",$p(%z,%,27))="["_$p(%t,",",$p(%z,%,27))_"]" |
| |s %r.30=%t |
| |i $p(%z,%,18) s %r.30=$p(%z,%,7) |
| |s %r.31=$p(%z,%,1) |
| |s %r.32=$p(%z,%,24) |
| |s %r.33=$p(%z,%,26) |
| |i $p(%z,%,27)'="" s %r.33=$p(%z,%,27)_" "_$p(%z,%,26) |
| |s %r.34=$p(%z,%,23) |
| |q %r |
|ADDRRR(%R| |
|RR) | |
| |s |
| |^ReestrIndRK($p(%RRR,$c(30),5),$p(%RRR,$c(30),16))=%APPSY|
| |S("LAST_IND") |
| |q |
| | |
|KVITAN(%N| |
|ORD,%ORD,| |
|%RESTF) | |
| |n %kv,%d s %kv="Заказ N "_%NORD |
| |s %kv=%kv_$c(13)_$p(%ORD,%,11) |
| |s %d=$p(%ORD,%,5) |
| |i $p(%ORD,%,18) |
|s | |
|%kv=%kv_$| |
|c(13)_$e(| |
|%d,1,2)_"| |
|/"_$e(%d,| |
|3,4)_"/"_| |
|$e(%d,5,6| |
|) | |
| |s %d=$p(%ORD,%,6) |
| |i $p(%ORD,%,18) |
|s | |
|%kv=%kv_$| |
|c(13)_$e(| |
|%d,1,2)_"| |
|:"_$e(%d,| |
|3,4) | |
| |i %RESTF s |
| |%kv=%kv_$c(13)_$p(%ORD,%,2)_"-"_$p(%ORD,%,4+$p(%ORD,%,27)|
| |) |
| |q %kv |
| |; IAKoff Save, %n, 05/06/96 |
|iaphandin| |
|it | |
|iaphandin|;IAKoff;02:06 PM 12 Feb 1996; |
|it | |
| |i $g(^SpravUsl(61))="" s ^SpravUsl(61)="РУЧНОЙ |
| |ЗАКАЗ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,10))="" s |
| |^SpravUsl(61,10)="ОБЫЧНЫЙ-1-1-1-0-разы" |
| |i $g(^SpravUsl(61,11))="" s |
| |^SpravUsl(61,11)="СРОЧНЫЙ-1-1-2-0-разы" |
| |i $g(^SpravUsl(61,31))="" s |
| |^SpravUsl(61,31)="ПРИГЛАШЕНИЕ-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,32))="" s |
| |^SpravUsl(61,32)="СПРАВКА-0-0-2-0-мин." |
| |i $g(^SpravUsl(61,33))="" s ^SpravUsl(61,33)="ВЫЗОВ ПО 3 |
| |ТЛФ.-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,34))="" s ^SpravUsl(61,34)="ВЫЗОВ ПО 4 |
| |ТЛФ.-0-0-2-0-мин." |
| |i $g(^SpravUsl(61,35))="" s ^SpravUsl(61,35)="ВЫЗОВ ПО 5 |
| |ТЛФ.-0-0-3-0-мин." |
| |i $g(^SpravUsl(61,50))="" s ^SpravUsl(61,50)="СНЯТИЕ |
| |ЗАКАЗА-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,1))="" s |
| |^SpravUsl(61,50,1)="ОМС-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,50,2))="" s |
| |^SpravUsl(61,50,2)="НВЛ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,3))="" s |
| |^SpravUsl(61,50,3)="NoНО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,4))="" s |
| |^SpravUsl(61,50,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,5))="" s |
| |^SpravUsl(61,50,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,6))="" s |
| |^SpravUsl(61,50,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,7))="" s |
| |^SpravUsl(61,50,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,8))="" s |
| |^SpravUsl(61,50,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,9))="" s |
| |^SpravUsl(61,50,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,10))="" s |
| |^SpravUsl(61,50,10)="ОДС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,50,11))="" s |
| |^SpravUsl(61,50,11)="ЗНЯ-666-0-1-0-мин." |
| |i $g(^SpravUsl(61,51))="" s ^SpravUsl(61,51)="СНЯТИЕ С |
| |ПРИГЛАШЕНИЯ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,1))="" s |
| |^SpravUsl(61,51,1)="ОМС-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,51,2))="" s |
| |^SpravUsl(61,51,2)="НВЛ-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,51,3))="" s |
| |^SpravUsl(61,51,3)="NoНО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,4))="" s |
| |^SpravUsl(61,51,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,5))="" s |
| |^SpravUsl(61,51,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,6))="" s |
| |^SpravUsl(61,51,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,7))="" s |
| |^SpravUsl(61,51,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,8))="" s |
| |^SpravUsl(61,51,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,9))="" s |
| |^SpravUsl(61,51,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,10))="" s |
| |^SpravUsl(61,51,10)="ОДС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,51,11))="" s |
| |^SpravUsl(61,51,11)="ЗНЯ-666-0-1-0-мин." |
| |i $g(^SpravUsl(61,52))="" s ^SpravUsl(61,52)="СНЯТИЕ СО |
| |СПРАВКИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,1))="" s |
| |^SpravUsl(61,52,1)="ОМС-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,52,2))="" s |
| |^SpravUsl(61,52,2)="НВЛ-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,52,3))="" s |
| |^SpravUsl(61,52,3)="NoНО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,4))="" s |
| |^SpravUsl(61,52,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,5))="" s |
| |^SpravUsl(61,52,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,6))="" s |
| |^SpravUsl(61,52,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,7))="" s |
| |^SpravUsl(61,52,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,8))="" s |
| |^SpravUsl(61,52,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,9))="" s |
| |^SpravUsl(61,52,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,10))="" s |
| |^SpravUsl(61,52,10)="ОДС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,52,11))="" s |
| |^SpravUsl(61,52,11)="ЗНЯ-666-0-1-0-мин." |
| |i $g(^SpravUsl(61,53))="" s ^SpravUsl(61,53)="СНЯТИЕ С |
| |3-Х ТЕЛЕФОНОВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,1))="" s |
| |^SpravUsl(61,53,1)="ОМС-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,53,2))="" s |
| |^SpravUsl(61,53,2)="НВЛ-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,53,3))="" s |
| |^SpravUsl(61,53,3)="NoНО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,4))="" s |
| |^SpravUsl(61,53,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,5))="" s |
| |^SpravUsl(61,53,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,6))="" s |
| |^SpravUsl(61,53,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,7))="" s |
| |^SpravUsl(61,53,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,8))="" s |
| |^SpravUsl(61,53,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,9))="" s |
| |^SpravUsl(61,53,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,10))="" s |
| |^SpravUsl(61,53,10)="ОДС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,53,11))="" s |
| |^SpravUsl(61,53,11)="ЗНЯ-666-0-1-0-мин." |
| |i $g(^SpravUsl(61,54))="" s ^SpravUsl(61,54)="СНЯТИЕ С |
| |4-Х ТЕЛЕФОНОВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,1))="" s |
| |^SpravUsl(61,54,1)="ОМС-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,54,2))="" s |
| |^SpravUsl(61,54,2)="НВЛ-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,54,3))="" s |
| |^SpravUsl(61,54,3)="NoНО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,4))="" s |
| |^SpravUsl(61,54,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,5))="" s |
| |^SpravUsl(61,54,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,6))="" s |
| |^SpravUsl(61,54,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,7))="" s |
| |^SpravUsl(61,54,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,8))="" s |
| |^SpravUsl(61,54,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,9))="" s |
| |^SpravUsl(61,54,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,10))="" s |
| |^SpravUsl(61,54,10)="ОДС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,54,11))="" s |
| |^SpravUsl(61,54,11)="ЗНЯ-666-0-1-0-мин." |
| |i $g(^SpravUsl(61,55))="" s ^SpravUsl(61,55)="СНЯТИЕ С |
| |5-ТИ ТЕЛЕФОНОВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,1))="" s |
| |^SpravUsl(61,55,1)="ОМС-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,55,2))="" s |
| |^SpravUsl(61,55,2)="НВЛ-0-0-1-0-мин." |
| |i $g(^SpravUsl(61,55,3))="" s |
| |^SpravUsl(61,55,3)="NoНО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,4))="" s |
| |^SpravUsl(61,55,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,5))="" s |
| |^SpravUsl(61,55,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,6))="" s |
| |^SpravUsl(61,55,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,7))="" s |
| |^SpravUsl(61,55,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,8))="" s |
| |^SpravUsl(61,55,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,9))="" s |
| |^SpravUsl(61,55,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,10))="" s |
| |^SpravUsl(61,55,10)="ОДС-0-0-0-0-мин." |
| |i $g(^SpravUsl(61,55,11))="" s |
| |^SpravUsl(61,55,11)="ЗНЯ-666-0-1-0-мин." |
| |i $g(^SpravUsl(62))="" s ^SpravUsl(62)="ЗАКАЗ ПО |
| |УВЕДОМЛЕНИЮ-0-0-1-0-мин." |
| |i $g(^SpravUsl(62,10))="" s |
| |^SpravUsl(62,10)="ОБЫЧНЫЙ-1-1-1-0-разы" |
| |i $g(^SpravUsl(62,11))="" s |
| |^SpravUsl(62,11)="СРОЧНЫЙ-1-1-2-0-разы" |
| |i $g(^SpravUsl(62,31))="" s |
| |^SpravUsl(62,31)="ПРИГЛАШЕНИЕ-0-0-1-0-мин." |
| |i $g(^SpravUsl(62,32))="" s |
| |^SpravUsl(62,32)="СПРАВКА-0-0-1-0-мин." |
| |i $g(^SpravUsl(62,50))="" s ^SpravUsl(62,50)="СНЯТИЕ |
| |ЗАКАЗА-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,50,1))="" s |
| |^SpravUsl(62,50,1)="ОМС-0-0-2-0-мин." |
| |i $g(^SpravUsl(62,50,2))="" s |
| |^SpravUsl(62,50,2)="НВЛ-0-0-2-0-мин." |
| |i $g(^SpravUsl(62,50,3))="" s |
| |^SpravUsl(62,50,3)="NoНО-0-0-2-0-мин." |
| |i $g(^SpravUsl(62,50,4))="" s |
| |^SpravUsl(62,50,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,50,5))="" s |
| |^SpravUsl(62,50,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,50,6))="" s |
| |^SpravUsl(62,50,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,50,7))="" s |
| |^SpravUsl(62,50,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,50,8))="" s |
| |^SpravUsl(62,50,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,50,9))="" s |
| |^SpravUsl(62,50,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,50,10))="" s |
| |^SpravUsl(62,50,10)="ОДС-0-0-2-0-мин." |
| |i $g(^SpravUsl(62,50,11))="" s |
| |^SpravUsl(62,50,11)="ЗНЯ-666-0-2-0-мин." |
| |i $g(^SpravUsl(62,51))="" s ^SpravUsl(62,51)="СНЯТИЕ С |
| |ПРИГЛАШЕНИЯ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,1))="" s |
| |^SpravUsl(62,51,1)="ОМС-0-0-1-0-мин." |
| |i $g(^SpravUsl(62,51,2))="" s |
| |^SpravUsl(62,51,2)="НВЛ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,3))="" s |
| |^SpravUsl(62,51,3)="NoНО-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,4))="" s |
| |^SpravUsl(62,51,4)="ПВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,5))="" s |
| |^SpravUsl(62,51,5)="ПС-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,6))="" s |
| |^SpravUsl(62,51,6)="ТИ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,7))="" s |
| |^SpravUsl(62,51,7)="СО-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,8))="" s |
| |^SpravUsl(62,51,8)="РВ-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,9))="" s |
| |^SpravUsl(62,51,9)="ВК-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,10))="" s |
| |^SpravUsl(62,51,10)="ОДС-0-0-0-0-мин." |
| |i $g(^SpravUsl(62,51,11))="" s |
| |^SpravUsl(62,51,11)="ЗНЯ-666-0-1-0-мин." |
| |q |
ПРИЛОЖЕНИЕ 5
ТЕКСТ ПРОГРАММЫ СТАРТЕРА МОНИТОРА
| |; IAKoff Save, %n, 05/06/96 |
|iapmon | |
|iapmon |;IAKoff;11:47 PM 23 Jan 1996; |
| |q |
| |;Обслуживание АПП-РК |
|run() | |
| |n %nname,%d |
| |i $g(^appstat("NODE"))'=$znode q 1 |
| |s %d=$g(^appstat("DEVICE"))+0 |
| |i (%d108) q 2 |
| |i $$tstjob()'="" g endrun |
| |s ^appstat(1)="F" s ^appstat(2)="F" s ^appstat(3)="F" |
| |j |
| |^iapbckg(^appstat("DEVICE")):(name="APP-MON":strstk=8000:|
| |sysstk=8000) |
|endrun | |
| |q 0 |
| | ; ---------------------------------------- |
|tstjob() | | |
