Akcie KVIT, BLOCK, UNBLOCK
Súvisiace stránky:
[ _retInt := ] KVIT alarmObjIdent [ _retInt := ] BLOCK alarmObjIdent[, userObjIdent] [ _retInt := ] UNBLOCK alarmObjIdent[, userObjIdent] |
_retInt | out | Identifikátor typu Int - úspešnosť akcie. |
alarmObjIdent | in | Odkaz na objekt typu Alarm, alebo objekt, ktorý môže generovať procesný alarm. |
userObjIdent | in | Odkaz na objekt typu Užívateľ. |
BEGIN INT _stav _stav := BLOCK alarm IF _stav = _ERR_NO_ERROR THEN MESSAGE "alarm bol zablokovaný" ON srvskol1v.HIP _stav := KVIT alarm ;pokus kvitovať zablokovaný alarm IF _stav = _ERR_NO_ERROR THEN MESSAGE "alarm bol kvitovaný" ON srvskol1v.HIP ;nemôže nastať ELSE MESSAGE "alarm nemôže byť kvitovaný, pretože je zablokovaný" ON srvskol1v.HIP ENDIF ELSE MESSAGE "alarm sa nepodarilo zablokovať" ON srvskol1v.HIP ENDIF END |
Súvisiace stránky:
Pridať komentár