rem " AP_EVS"
IFelem(isGenug)
#Yes
##Mess=Param(Y)
###Yes
####Goto Metka:FinalY
##Mess=Param(YN)
###Yes
####Goto Metka:FinalYN
##Goto Metka:Awost
IFelem(Timer)
#Yes
##rem IsOutTime(time:Push,30 sec)
###rem Yes
####rem TextToCK(%1,Пауза > 30 сек.|Конец диалога.)
####rem SetFaza(Final)
##GetFaza(GetPersona)
###Yes
####IsOutTime(time:GetPersona,30 sec)
#####Yes
######TextToCK(%1,Kод Персоны |не введен(30сек))
######SetFaza(Final)
######Exit
##GetFaza(GetRoom)
###Yes
####IsOutTime(time:GetRoom,30 sec)
#####Yes
######TextToCK(%1,Kод помещения|не введен(30сек))
######SetFaza(Final)
######Exit
##GetFaza(Action)
###Yes
####IsOutTime(time:Action,30 sec)
#####Yes
######TextToCK(%1,Пауза > 30 сек.|Конец диалога.)
######SetFaza(Final)
######Exit
##GetFaza(NextRoom)
###Yes
####IsOutTime(time:NextRoom,3 sec)
#####Yes
######rem Goto Metka:NextRoom
######Goto Metka:Final
##GetFaza(WaitCommand)
###Yes
####IsOutTime(time:WaitCommand,5 sec)
#####Yes
######Goto Metka:WaitCommand
##GetFaza(Final)
###Yes
####IsOutTime(time:Final,3 sec)
#####Yes
######Goto Metka:Final
##GetFaza(WaitGenug)
###Yes
####IsOutTime(time:WaitGenug,60 sec)
#####Yes
######Goto Metka:Awost
IFelem(%1)
#Yes
##rem Time(Push)
##GetFaza(Open)
###Yes
####GetMenu(#)
#####Yes
######SetFaza(GetPersona)
######TextToCK(%1,Введите|персональный код)
######Exit
##GetFaza(GetPersona)
###Yes
####PersonaByPK
#####Yes
######TextToCK(%1,Введите|код помещения)
######SetFaza(GetRoom)
######Exit
#####No
######TextToCK(%1,Нелегальный код)
######AlarmTablo(R,Набран нелегальный персональный код,на клавиатуре охраны,<Внимание!>)
######SetFaza(Final)
######Exit
##GetFaza(GetRoom)
###Yes
####GetMenu(#)
#####Yes
######TextToCK(%1,Конец диалога)
######SetFaza(Final)
######Exit
####isRoomPinKod(PinKod)
#####No
######TextToCK(%1,Пом.PinKod|Отсутствует)
######AlarmTablo(R,FamIO ввел нелегальный код помещения,на клавиатуре охраны,<Внимание!>)
######SetFaza(NextRoom)
######Exit
####GRoomByPKisLegal(PinKod)
#####Yes
######GRoomByPKisLock(PinKod)
#######Yes
########SetFlag(Lock)
########isRoomByPK(PinKod)
#########Yes
##########TextToCK(%1,Пом.PinKod|На охране)
#########No
##########TextToCK(%1,Гр.пом.PinKod|На охране)
#######No
########GRoomByPKisUnLock(PinKod)
#########Yes
##########SetFlag(UnLock)
##########isRoomByPK(PinKod)
###########Yes
############TextToCK(%1,Пом.PinKod|Не на охране)
###########No
############TextToCK(%1,Гр.пом.PinKod|Не на охране)
#########No
##########SetFlag(LockUnLock)
##########TextToCK(%1,Гр.пом.PinKod|Часть на охране)
######GRoomByPKisGuard(PinKod)
#######Yes
########SetFaza(WaitCommand)
########Exit
#######No
########SetFaza(NextRoom)
########Exit
#####No
######TextToCK(%1,Пом.PinKod|Нет допуска)
######AlarmTablo(R,FamIO ввел нелегальный код помещения,на клавиатуре охраны,<Внимание!>)
######SetFaza(NextRoom)
######Exit
GetFaza(Action)
#Yes
##GetMenu
###Yes
####GetMenu(#)
#####Yes
######TextToCK(%1,Принята команда|Enter)
######rem Goto Metka:NextRoom
######Goto Metka:Final
####GetMenu(0,-,<)
#####Yes
######ClearInputPK
######GetFlag(UnLock)
#######No
########TextToCK(%1,Принята команда|Menu-снять с охраны)
########UnLockRoom(PinKod)
#########Yes
##########isRoomByPK(PinKod)
###########Yes
############TextToCK(%1,Пом.PinKod|снято с охраны)
###########No
############TextToCK(%1,Гр.пом.PinKod|снята с охраны)
##########SetFaza(NextRoom)
##########Exit
#########No
##########Goto Metka:Awost
####GetMenu(1,+,>)
#####Yes
######ClearInputPK
######GetFlag(Lock)
#######No
########TextToCK(%1,Принята команда|Menu-пост. на охр.)
########TryLockRoom(PinKod)
#########Yes
##########SetFaza(WaitGenug)
##########Exit
#########No
##########Goto Metka:Awost
####TextToCK(%1,Команда Menu|Неправильная)
####ClearInputPK
####SetFaza(WaitCommand)
####Exit
Exit
Metka:NextRoom
TextToCK(%1,Введите|код помещения)
SetFaza(GetRoom)
DelFlag(Lock)
DelFlag(UnLock)
DelFlag(LockUnLock)
Exit
Metka:WaitCommand
SetFaza(Action)
GetFlag(Lock)
#Yes
##TextToCK(%1,0-снять с охраны|Enter выход)
GetFlag(UnLock)
#Yes
##TextToCK(%1,1-пост. на охр.|Enter выход)
GetFlag(LockUnLock)
#Yes
##TextToCK(%1,0-снять',' 1-пост.|Enter выход)
Exit
Metka:Awost
TextToCK(%1,Команда Menu|не выполнена !!!)
SetFaza(NextRoom)
Exit
Metka:FinalY
isRoomByPK(PinKod)
#Yes
##TextToCK(%1,Пом.PinKod|пост. на охрану)
#No
##TextToCK(%1,Гр.пом.PinKod|пост. на охрану)
SetFaza(NextRoom)
Exit
Metka:FinalYN
isRoomByPK(PinKod)
#Yes
##TextToCK(%1,Пом.PinKod|не готово к охр.)
#No
##TextToCK(%1,Гр.пом.PinKod|не готова к охр.)
SetFaza(NextRoom)
Exit
Metka:Final
TextToCK(%1,Клавиатура ЭВС в|режиме ожидания)
Stop
