{"id":11144,"date":"2020-07-15T11:39:01","date_gmt":"2020-07-15T14:39:01","guid":{"rendered":"http:\/\/kb.elipse.com.br\/en\/?p=11144"},"modified":"2020-07-15T11:39:01","modified_gmt":"2020-07-15T14:39:01","slug":"how-to-export-a-current-filter-list-from-e3alarm-to-print-it","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/how-to-export-a-current-filter-list-from-e3alarm-to-print-it\/","title":{"rendered":"Exporting alarms from E3Alarm."},"content":{"rendered":"

Question:<\/h2>\n

Can I export the current filter list of an E3Alarm in order to print it?<\/p>\n

Solution:<\/h2>\n

Yes, you can export the current filter list of an E3Alarm. To do so, you must first sweep the E3Alarm’s current filter’s events list, and then export them to text or Excel files (or any other accessible format) via Windows system objects with VBScript<\/a>.<\/p>\n

The E3Alarm’s events list works similarly to the object-oriented programming logic in Elipse E3\/Power. This list can be accessed via a collection called Events, which is available in E3Alarm. The collection’s Count<\/em> property returns the number of events in the current filter.<\/p>\n

evtcount = Screen.Item(\"E3Alarm1\").Events.Count<\/pre>\n
Once you have that information, you can then sweep the events list with E3Alarm’s GetEventByIndex<\/em> method, associated to a repetition loop.<\/p>\n
For count = 0 to evtcount - 1\r\nset evtAlarm = Screen.Item(\"E3Alarm1\").GetEventByIndex(count)\r\n'prints the value in  InTime field of the retrieved event \r\nmsgbox \"Date\/Time (Input) of the retrieved event is: \"& evtAlarm.InTime\r\nNext<\/pre>\n
Then, once loading the event object, you can access the values from all fields referring to the alarm. These are Date\/Time (Input), Date\/Time (Output), Message, Operator, among others. You can find the complete list with all possible fields in an event at Scripts: Reference Manual<\/strong>; the list is at: Visualization – E3Alarm – Events Collection – Event – Properties<\/em>.<\/p>\n
Once you apply the condition loop, you will be able to identify which alarms in the E3Alarm’s alarms list are active.<\/p>\n
For count = 0 to evtcount - 1\r\nset evtAlarm = Screen.Item(\"E3Alarm1\").GetEventByIndex(count)\r\nIf evtAlarm.ConditionActive = \"True\" Then\r\n'prints the value at InTime field of the retrieved event\r\nmsgbox \"Date\/Time (Input) of the retrieved event is: \"& evtAlarm.InTime\r\nEnd If\r\nNext<\/pre>\n
The items explained above, as well as the edition of Excel files via VBScript, have inspired the development of the demo application attached to this article.<\/p>\n
The related article, How to read\/write in Excel files via Elipse E3\/Power<\/a>,<\/strong> shows you in greater details how to manipulate Excel files via an Elipse application.<\/p>\n
NOTE: <\/strong>The demo application was developed at Elipse E3 <\/strong>version 5.1 <\/strong>build 186.<\/strong><\/p>\n
 <\/p>\n
Related articles:<\/h3>\n
\n