VBA Code:
Set obVarAlarm = MyWorkspace.ActiveDocument.Variables.CreateVar(tbName.Text & "_Alarm", zDrivers.Item(1), 17, m_obVarType)
If (Not obVarAlarm Is Nothing) Then
Dim jj As Integer
'Activate subitem and set identification
For jj = 0 To obVarAlarm.SubItemCount - 1
obVarAlarm.ActivateSubItem (jj)
obVarAlarm.SubItem(jj).Tagname = Replace(obVarAlarm.SubItem(jj).name, ".", " ")
'Set alarm formula for every attribute different from Running Status
If (InStr(1, obVarAlarm.SubItem(jj).name, "Running Status") = 0) Then
obVarAlarm.SubItem(jj).CreateDynProperty ("MathInfo[0].SourceVars")
obVarAlarm.SubItem(jj).DynProperties("MathInfo[0].SourceVars[0].Title") = obVar.SubItem(jj).name
obVarAlarm.SubItem(jj).CreateDynProperty ("MathInfo[0].SourceVars")
obVarAlarm.SubItem(jj).DynProperties("MathInfo[0].SourceVars[1].Title") = obVarEnable.name
'define type of formular (6208 = Statistik)
obVarAlarm.SubItem(jj).DynProperties("MathInfo[0].Type") = 6208
'insert formular
obVarAlarm.SubItem(jj).DynProperties("MathInfo[0].Formula") = "NOT(X01) AND X02"
Dim cc As Integer
'Set Limit param
For cc = 0 To obVarAlarm.SubItem(jj).EdLimitCount - 1
If obVarAlarm.SubItem(jj).EdLimitItem(cc).LimitValue = 1 Then
obVarAlarm.SubItem(jj).EdLimitItem(cc).Alarm = 1
obVarAlarm.SubItem(jj).EdLimitItem(cc).AlarmAck = 1
obVarAlarm.SubItem(jj).EdLimitItem(cc).Color = 255
obVarAlarm.SubItem(jj).EdLimitItem(cc).Blinking = 1
Debug.Print MyWorkspace.ActiveDocument.DynProperties("AlarmGroups[PLC1].Id")
obVarAlarm.SubItem(jj).EdLimitItem(cc).Group = MyWorkspace.ActiveDocument.DynProperties("AlarmGroups[PLC1].Id")
End If
Next cc
End If
Next jj
End If