{"id":10785,"date":"2020-06-24T10:21:37","date_gmt":"2020-06-24T13:21:37","guid":{"rendered":"http:\/\/kb.elipse.com.br\/?p=10785"},"modified":"2023-05-03T16:00:47","modified_gmt":"2023-05-03T19:00:47","slug":"como-exportar-uma-lista-de-filtro-corrente-do-e3alarm","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/como-exportar-uma-lista-de-filtro-corrente-do-e3alarm\/","title":{"rendered":"Exportando alarmes do objeto E3Alarm."},"content":{"rendered":"

Descri\u00e7\u00e3o:<\/h2>\n

\u00c9 poss\u00edvel exportar a lista do filtro corrente de um E3Alarm a fim de imprimi-la?<\/p>\n

Solu\u00e7\u00e3o:<\/h2>\n

Sim, \u00e9 poss\u00edvel exportar a lista do filtro corrente do E3Alarm. Para isso, deve-se varrer a lista dos eventos do filtro corrente do E3Alarm e export\u00e1-los para arquivos de texto ou formato Excel, ou ent\u00e3o qualquer outro arquivo acess\u00edvel, via objetos do sistema Windows com a linguagem VBScript<\/a>.<\/p>\n

A lista de eventos de um E3Alarm funciona da mesma forma que a l\u00f3gica de programa\u00e7\u00e3o orientada a objetos do Elipse E3\/Power. Esta lista \u00e9 acess\u00edvel atrav\u00e9s de uma cole\u00e7\u00e3o chamada Eventos, e est\u00e1 dispon\u00edvel no objeto E3Alarm. A propriedade Count<\/em> da cole\u00e7\u00e3o nos fornece o n\u00famero de eventos do filtro corrente.<\/p>\n

evtcount = Screen.Item(\"E3Alarm1\").Events.Count<\/pre>\n
Em posse da quantidade de eventos da lista, \u00e9 poss\u00edvel ent\u00e3o varrer a lista dos eventos utilizando o m\u00e9todo GetEventByIndex<\/em> do E3Alarm, combinado a um la\u00e7o de repeti\u00e7\u00e3o.<\/p>\n
For count = 0 to evtcount - 1\r\nset evtAlarm = Screen.Item(\"E3Alarm1\").GetEventByIndex(count)\r\n'imprime o valor do campo InTime do evento encontrado\r\nmsgbox \"A Data\/Hora (Entrada) do evento encontrado \u00e9: \"& evtAlarm.InTime\r\nNext<\/pre>\n
Logo ap\u00f3s, com o objeto evento carregado, \u00e9 poss\u00edvel acessar os valores de todos os campos referentes a um alarme. Estes s\u00e3o Data\/Hora de entrada, Data\/Hora de Sa\u00edda, Mensagem, Operador, entre outros. A se\u00e7\u00e3o completa de poss\u00edveis campos de um evento pode ser encontrada no Manual de Refer\u00eancia e Scripts<\/strong>; esta lista est\u00e1 no t\u00f3pico: Visualiza\u00e7\u00e3o – E3Alarm – Cole\u00e7\u00e3o de Eventos – Evento – Propriedades<\/em>.<\/p>\n
Aplicando um la\u00e7o de condi\u00e7\u00e3o, \u00e9 poss\u00edvel identificar os alarmes da lista do E3Alarm que est\u00e3o em condi\u00e7\u00e3o ativa.<\/p>\n
For count = 0 to evtcount - 1\r\nset evtAlarm = Screen.Item(\"E3Alarm1\").GetEventByIndex(count)\r\nIf evtAlarm.ConditionActive = \"Verdadeiro\" Then\r\n'imprime o valor do campo InTime do evento encontrado\r\nmsgbox \"A Data\/Hora (Entrada) do evento encontrado \u00e9: \"& evtAlarm.InTime\r\nEnd If\r\nNext<\/pre>\n
A uni\u00e3o dos itens explicados acima, com a edi\u00e7\u00e3o de arquivo Excel via VBScript, motivaram a cria\u00e7\u00e3o da aplica\u00e7\u00e3o exemplo anexa neste artigo.<\/p>\n
O artigo relacionado, Como Ler\/Escrever em arquivos Excel pelo Elipse E3\/Power<\/a>,<\/strong>\u00a0possui maiores detalhes de como manipular arquivos Excel via aplica\u00e7\u00e3o Elipse.<\/p>\n
NOTA: <\/strong>A aplica\u00e7\u00e3o exemplo foi desenvolvida no Elipse E3 <\/strong>vers\u00e3o 5.1 <\/strong>build 186.<\/strong><\/p>\n
 <\/p>\n
Artigos Relacionados:<\/h3>\n
\n