[?]: Cimplicity 8.2 Historical Alarm Viewer

[RomanR]

доброва времени суток всем.
такая проблемка.
есть 38 главных скринов все точки на отдельном скрине подвязаны
к одному рисорсу тоесть всего 38 рисорсов.
требуется открывать скрин с Historical Alarm Viewer с подвязкой на алармы определенного рисорса/главного скрина

на данный момент самое простое решение построить есчё 38 скинов с Historical Alarm Viewer с отдельными фильтрами.
но хотелось бы оригинального решения (один скрин с HAV и менять филтр при поднятии. не подскажите как?) или другим путем.
заранее спасибки.

[RomanR]

Если кому то интересно то вот насочинял. вроде работает
только пришлось отключить выбор фильтров в приложение.незнаю почему но приложение стало выдавать ошибку при попытки изменения фильтра

Alarm Filter

Show

Code: Select all

Sub UpdateSql_Or_Filter() 

dim kaka as String 
dim kaka2 as String 
Dim Var_Resource As String 
Dim Var_alarm_class 


Var_Resource= CimgetObject.getvariable("Resource") 
Var_alarm_class= CimgetObject.getvariable("alarm_class") 

If Var_alarm_class<>"" Then 
MyFilter="WHERE resource='" & Var_Resource & "' And alarm_class='" & Var_alarm_class & "'" 
Else 
MyFilter="WHERE resource='" & Var_Resource & "'" 
End If 


' kaka= cimOleObj.SQL 
'	 kaka2= cimOleObj.FilterClause 
cimOleObj.FilterClause=MyFilter 

cimOleObj.EnableFilterSelection =False 
cimOleObj.Refresh 
'CimGetScreen.Refresh True