![Цитата](images/misc/quote_icon.png)
Сообщение от
ВладОвен
Версия CodeSys - 3.5 SP17 Patch2 (64 bit).
Код:
// очистка истории тревог из кода программы
VAR
itfAlarmConfiguration : AlarmManager.IAlarmConfiguration;
itfAlarmConfiguration7 : AlarmManager.IAlarmConfiguration7;
END_VAR
FOR i := 0 TO AlarmGlobals.g_AlarmHandler.AlarmConfigurationCount - 1 DO
itfAlarmConfiguration := AlarmGlobals.g_AlarmHandler.GetAlarmConfiguration(i);
IF __QUERYINTERFACE(itfAlarmConfiguration, itfAlarmConfiguration7) THEN
// сохраняем в журнале текущие тревоги
itfAlarmConfiguration7.ClearHistory(xKeepActiveAlarms := TRUE);
END_IF
END_FOR