Рефераты

Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы

| |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 |

ПРИЛОЖЕНИЕ 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)!(%cc50 g timeout |

| |g mainloop |

| | |

|talkbeg | |

| |s ^appstat("STATUS")="TB" |

| |s %cc=$j($p(%free," ",2),1,0) |

| |i (%cc>32)!(%cc32)!(%cc$p(^appcab(%cc),$zp,4) g|

| |aie1 |

| |s %summ=$zzoo($p(^appcab(%cc),$zp,6)*%tmin) |

|aie1 | |

| |s ^appcab(%cc).4=$p(^appcab(%cc),$zp,4)-%summ |

| |s ^appcab(%cc).8=^appcab(%cc).8+1 |

| |s ^appcab(%cc).9=^appcab(%cc).9+1 |

| |s ^appcab(%cc).10=^appcab(%cc).10+%summ |

| |s ^appcab(%cc).11=%summ |

| |s ^appcab(%cc).12=^appcab(%cc).12+%summ |

| |s ^appcab(%cc).13=$j(%min,2)_"."_$j(%sec,2) |

| |s ^appcab(%cc).1=2 |

| |i ^appcab(%cc).4=0 s ^appcab(%cc).1=0 |

| |d addjrn^iapbckgsub("C"_%cc,"AAA "_%cc_" |

| |"_$p(^appcab(%cc),$zp,13)_" "_%summ_" |

| |"_$p(^appcab(%cc),$zp,4)_" UNKNOWN") |

| |d AFTERTE |

| |s ^appcab(%cc).14=-1 |

|ie3 | |

| |s %i=%i+1 |

| |g ie1 |

|ie2 | |

| |s ^appstat("STATUS")="A" |

| |g thlt1 |

| | ; ------------------------------------ |

|timeout | |

| |d addjrn^iapbckgsub("APPRK","Монитор |

| |остановлен.","Timeout") |

| |s ^appstat("STATUS")="H" |

| | ; ------------------------------------ |

|thlt | |

| |d addjrn^iapbckgsub("APPRK","Монитор остановлен.","") |

| |s ^appstat("STATUS")="H" |

|thlt1 | |

| |c %an |

| |k |

| |%cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec|

| |,%cod,%idev |

| |q |

| | ; ---------------------------------- КОНЕЦ |

|AFTERTE | |

| |s %tsec=$p(^appcab(%cc),$c(30),14) |

| |s %tmin=%tsec\60 ;---системное время в |

| |минутах |

| |s %sec=$tr($j(%tsec#60,2)," ",0) ;---кол-во секунд |

| |s %min=$e(%tmin#60+100,2,3) ;---кол-во минут |

| |s %hour=%tmin\60+23#24+1 ;---кол-во часов |

| |s %hour=$tr($j(%hour,2)," ",0) |

| |; заполнение журнала ====================================|

| |i %zone=0 s |

| |^appcab(%cc).5=$p(^appcab(%cc),$zp,7)_$p(^appcab(%cc),$zp|

| |,5) s ^appcab(%cc).7="ГОР" |

| |i %zone>127 s |

| |^appcab(%cc).7=$e($p(^appcab(%cc),$zp,7),3,3)_$e($p(^appc|

| |ab(%cc),$zp,5),1,2) s |

| |^appcab(%cc).5=$e($p(^appcab(%cc),$zp,5),3,11) |

| |; заполнение квитанций ==================================|

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)+1)=$zd_$zp_%hour|

| |_":"_%min_$zp_"0"_$zp_"КОД"_$zp_"ГОРОД"_$zp_"ТЕЛЕФОН"_$zp|

| |_"0000.00" |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).3=^appcab(%cc).|

| |13 |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).4=^appcab(%cc).|

| |7 |

| |s %cmd="" |

| |s %cod=$p(^appcab(%cc),$c(30),7) |

| |i %zone>127 g COUNTRY |

| |s %i=$e($p(^appcab(%cc),$c(30),5),1,3) |

| |i $e(%cod,1,1)="2" s %i=$e(%cod,2,3) s |

| |%cod=^AppSys58("KOD_OBLS") |

| |i $d(^app8DCAC(%cod))>0 s |

| |%cmd=$p(^app8DCAC(%cod),$c(30),2) |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).8=$e(%cmd,1,14)|

| |i $d(^app8DCAC(%cod,$e(%i,1,2)))>0 d |

| |. s %cmd=^app8DCAC(%cod,$e(%i,1,2)) |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).5=$e(%cmd,1,12)|

| |g cntick |

|COUNTRY | |

| |s %i=%cod_$p(^appcab(%cc),$c(30),5) |

| |s %cmd="" |

|cntry1 | |

| |i %i="" g cntry2 |

| |i $g(^appDCAC(%i))="" s %i=$e(%i,1,$l(%i)-1) g cntry1 |

| |s %cmd=$g(^appDCAC(%i)) |

|cntry2 | |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).5=$e($p(%cmd,$c|

| |(30),2),1,12) |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).8=$e($p(%cmd,$c|

| |(30),1),1,14) |

|cntick | |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).6=^appcab(%cc).|

| |5 |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).7=^appcab(%cc).|

| |11 |

| |; заполнение реестра |

| |======================================= |

| |s %gs=^appstat(1,"NOM_GOES") s %ms=^appstat(1,"NOM_MESS")|

| |s %dn=^appstat(1,"NOM_DENN") |

| |d inreestr^iapbckgsub(%summ,%zone) |

| |s %noper=^appstat(1,"NOM_OPER") |

| |s %nsmen=^appstat(1,"NOM_SMEN") |

| |i $d(^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc))=0 |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).1=%summ_|

| |$zp_1 g after1 |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).1=$p(^Re|

| |estrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc),$zp,1)+%sum|

| |m |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).2=$p(^Re|

| |estrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc),$zp,2)+1 |

|after1 | |

| |i |

| |$d(^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone))=0|

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).1=%su|

| |mm_$zp_1 g after2 |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).1=$p(|

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone),$zp,1|

| |)+%summ |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).2=$p(|

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone),$zp,2|

| |)+1 |

|after2 | |

| |q |

| | |

| |; IAKoff Save, %n, 05/06/96 |

|iapbckgsu| |

|b | |

|iapbckgsu|;IAKoff;09:47 PM 28 Feb 1996 |

|b | |

| |q |

|instat(%s| |

|) | |

| |n %res |

| |i $l(%s)>3 s %res="?" g ins1 |

| |i ($l(%s)0 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))255 q "PROBLEM" |

|outime2 | |

| |s %addtime=0 |

| |s %addtime=$p(^SpravUsl(61+%notify),%,4) |

| |i %f("CALL")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61+%notify,31),%,4) |

| |i %notify g outime1 |

| |i %f("PH1")="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,32),%,4) g outime1 |

| |i %f("PH5")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,35),%,4) g outime1 |

| |i %f("PH4")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,34),%,4) g outime1 |

| |i %f("PH3")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,33),%,4) g outime1 |

|outime1 | |

| |w /color(7,0),/c(38,10),$j(%addtime,3) |

| |q %ufNEWDATA |

| | |

|OutFAST()| |

| |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 |

| | |

|InTOTAL()| |

| |n %summ |

| |s |

| |%tarif=%tarif1*$p(^SpravUsl(61+%notify,10+%f("FAST")),%,4|

| |) |

| |s %summ=%tarif*(%f("TIME")+%addtime) |

| |w /c(57,5),/color(7,0),$zzc(%tarif,13) |

| |q $zzoo(%summ) |

| | |

|OutTOTAL(| |

|) | |

| |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 |

| | |

|AskPrint(| |

|) | |

| |n %Ret |

|askdel | |

| |s %Ret=$$^dp58dlg(20,42,23,77,"ПОДТВЕРДИТЕ ПЕЧАТЬ"," |

| |Печатать "_%_" Не печатать ","",2,"7,0,7,0,0,7,7,0") |

| |w /color(0,8) |

| |d ^dp58box(20,42,23,77,0," ") |

| |i $p(%Ret,%,2)="KEYENTER" q (2-%Ret) |

| |i $p(%Ret,%,2)="KEYESC" q 0 |

| |g askdel |

| | |

Страницы: 1, 2, 3, 4, 5, 6


© 2010 Современные рефераты