[?]: Cimplicity 8.2 Historical Alarm Viewer

Прочие PLC и HMI на русском
Post Reply
RomanR
Posts: 48
Joined: Mon Apr 07, 2008 6:18 am
Location: Israel

[?]: Cimplicity 8.2 Historical Alarm Viewer

Post by RomanR » Fri Feb 14, 2014 9:20 pm

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

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

RomanR
Posts: 48
Joined: Mon Apr 07, 2008 6:18 am
Location: Israel

Re: [?]: Cimplicity 8.2 Historical Alarm Viewer

Post by RomanR » Sat Feb 22, 2014 8:38 pm

Если кому то интересно то вот насочинял. вроде работает
только пришлось отключить выбор фильтров в приложение.незнаю почему но приложение стало выдавать ошибку при попытки изменения фильтра
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

Post Reply