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

|iaphandsu| |

|b | |

|iaphandsu|;IAKoff;02:41 PM 2 Mar 1996; |

|b | |

| |q |

| | |

|SYSH() |q |

| |%APPSYS("NOM_OPER")_","_%APPSYS("NOM_SMEN")_","_%APPSYS("|

| |NOM_DENN")_","_%APPSYS("NOM_MESS") |

| | |

| | |

|ORDERLIST| |

| |n %key,%title,%id |

| |s %title="Nзк Опр |

| |"_$zzr("СТРАНА",7)_$zzr("ОБЛАСТЬ",8)_$zzr("РЕГИОН",7)_$zz|

| |r("НАС.ПУНКТ",10)_$zzr("ПРИНЯТ",9)_$zzr("ПЕРЕДАН",9)_$zzr|

| |("ЖДЕТ",6) |

|ordlist | |

| |s |

| |%key=$$LIST^dp58Sel("^appstat(""ORDERS"",%id)","%id",2,3,|

| |65,8,"",0,"SINGLE"," Список заказов |

| |"_%_$zzr(%title,58)_%_"F2-Принять F4-Ред/Смтр F8-Снять |

| |-Прд/Вып/Ост","DrawORDERS^iaphandsub","KEYF2,KEYF8|

| |,KEYF4") |

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

| |i $p(%key,%,2)="KEYF2" d ADDORDER^iaphand() g ordlist |

| |i %id="" g ordlist |

| |i $p(%key,%,2)="KEYF4" d ADDORDER^iaphand(%id) g ordlist |

| |i |

| |($p(%key,%,2)="KEYENTER")&($p(^appstat("ORDERS",%id),%,23|

| |)'="") d REST(%id) g ordlist |

| |i |

| |($p(%key,%,2)="KEYENTER")&($p(^appstat("ORDERS",%id),%,20|

| |)="") d SENT(%id) g ordlist |

| |i $p(%key,%,2)="KEYENTER" d EXECUTE(%id) g ordlist |

| |i $p(%key,%,2)="KEYF8" d ABORT(%id) g ordlist |

| |g ordlist |

| | |

|DrawORDER| |

|S | |

| |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q |

| |i %id="" w $zzr(" НЕТ ЗАКАЗОВ ",%dpSX) q |

| |w $zzr(%id,4) |

| |w $zzr($e($p(^appstat("ORDERS",%id),%,21),1,3),4) |

| |w $zzr($e($p(^appstat("ORDERS",%id),%,3),1,6),7) |

| |w $zzr($e($p(^appstat("ORDERS",%id),%,11),1,7),8) |

| |w $zzr($e($p(^appstat("ORDERS",%id),%,10),1,6),7) |

| |w $zzr($e($p(^appstat("ORDERS",%id),%,12),1,9),10) |

| |i $p(^appstat("ORDERS",%id),%,23)="" g drord3 |

| |w "Остаток:"_$zzc($p(^appstat("ORDERS",%id),%,23),17) g |

| |drord2 |

|drord3 | |

| |i $p(^appstat("ORDERS",%id),%,18) g drord1 |

| |w |

| |$$TIME^dp58sys($p($p(^appstat("ORDERS",%id),%,19),",",2))|

| |_" " |

| |i $p(^appstat("ORDERS",%id),%,20)="" w "----- " |

| |e w |

| |$$TIME^dp58sys($p($p(^appstat("ORDERS",%id),%,20),",",2))|

| |_" " |

| |w |

| |$zzr(($p($h,",",2)-$p($p(^appstat("ORDERS",%id),%,19),","|

| |,2))\60,3)_"мин " |

| |g drord2 |

|drord1 | |

| |n %d s %d=$p(^appstat("ORDERS",%id),$c(30),5) |

| |w $j($e(%d,1,2)_"/"_$e(%d,3,4)_"/"_$e(%d,5,6),9) |

| |s %d=$p(^appstat("ORDERS",%id),$c(30),6) w |

| |$j($e(%d,1,2)_":"_$e(%d,3,4),9) |

| |w $j("",7) |

|drord2 | |

| |q |

| | |

| | |

|SENT(%nor| |

|d) | |

| |n %key,%msg,%notify,%ord,%reestr,%fff |

| |s %ord=^appstat("ORDERS",%nord) |

| |s %notify=$p(%ord,%,18) |

| |s %msg=%APPSYS("NOM_GOES")_"-му отд. связи"_% |

| |i $p(%ord,%,4)=1 s %msg=%msg_"СРОЧНЫЙ"_% |

| |s %msg=%msg_$p(%ord,%,3)_% |

| |i %notify s %msg=%msg_$p(%ord,%,11)_% |

| |i %notify s %msg=%msg_$p(%ord,%,10)_% |

| |i %notify s %msg=%msg_$p(%ord,%,12)_% |

| |i '%notify s %msg=%msg_"Код:"_$p(%ord,%,2)_% |

| |i %notify s %msg=%msg_$tr($p(%ord,%,7)," ",%)_% |

| |i %notify s %msg=%msg_"Дата:"_$p(%ord,%,5)_% |

| |e s %msg=%msg_"Тел:"_$p(%ord,%,5)_% |

| |i %notify s %msg=%msg_"Время:"_$p(%ord,%,6)_% |

| |i '%notify f %key=6:1:9 i $p(%ord,%,%key)'="" s |

| |%msg=%msg_" или "_$p(%ord,%,%key)_% |

| |i $p(%ord,%,1)'="" s %msg=%msg_"Пригласить |

| |"_$p(%ord,%,1)_% |

| |s %msg=%msg_$p(%ord,%,13)_" минут"_% |

| |s |

| |%key=$$^dp58dlg(3,20,5+$l(%msg,%),60,%msg,"ПЕРЕДАН"_%_"ОТ|

| |КАЗ","",2,"","") |

| |i $p(%key,$c(30),2)="KEYESC" q |

| |i $p(%key,$c(30),1)=2 q |

| |s %fff("NOPER")="" |

| |d drscr^uf58("iap!HSENT") |

| |i $$get^uf58("iap!HSENT","%fff")="ESC" q |

| |s $p(%ord,%,24)=%fff("NOPER") |

| |s $p(%ord,%,20)=$p($h,",",2-$p(%ord,%,18)) |

| |s $p(%ord,%,28)=$$SYSH |

| |s ^appstat("ORDERS",%nord)=%ord |

| |s |

| |%reestr=$$REESTR^iaphandsub("ПРН",%nord,$p(%ord,%,13),,$p|

| |(%ord,%,14),,) |

| |d |

| |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":81,1:881),$p(%ord,|

| |%,14),%reestr,"",$$KVITAN(%nord,%ord,0)) |

| |d ADDRRR(%reestr) |

| |i $$AskPrint^iaphand() d PrintKvit^AppSysd |

| |e d NewKvit^AppSysd |

| |q |

| | |

|InTIME() | |

| |i ($p(^appstat("ORDERS",%id),%,13)+0)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 |

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12