Цитата Сообщение от ВладОвен Посмотреть сообщение
Версия 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