• Abrir una pantalla con CimEdit.
  • Añadir un botón a la pantalla.
  • Clic derecho sobre el botón para acceder a sus Propiedades.
  • En el apartado "Script", hacer clic en "Edit".
  • Copiar/Pegar el siguiente Script en el ScriptEditor y posteriormente cerrarlo
'Toggle Alarm Point Enable 
Sub DisableEnableAlarm()       
    Dim oAlarmPoint As New Point     
    On Error GoTo ErrorHandler 
    oAlarmPoint.Id = "ALM01" 'Put your Alarm Point Name here (Line 7)
    oAlarmPoint.Get 

    If oAlarmPoint.QualityAlarms_Enabled Then
         oAlarmPoint.EnableAlarm False     
    Else
         oAlarmPoint.EnableAlarm True     
    End If
 
ErrorHandler:     
    Set oAlarmPoint = Nothing     
    If err <> 0 Then         
        LogStatus CIM_FAILURE,"DiableEnableAlarm",error$,err,erl     
    End If 
End Sub
  • Seleccionar la pestaña "Events" y crear un evento "Mouse Up" con un "Procedure" para ejecutar.
    El "Procedure" debe ser configurado para usar una acción "Invoke Script" que ejecute el método "DisableEnableAlarm".

  • Guardar los cambios y cerrar.