Exportando alarmes do objeto E3Alarm.

Descrição:

É possível exportar a lista do filtro corrente de um E3Alarm a fim de imprimi-la?

Solução:

Sim, é possível exportar a lista do filtro corrente do E3Alarm. Para isso, deve-se varrer a lista dos eventos do filtro corrente do E3Alarm e exportá-los para arquivos de texto ou formato Excel, ou então qualquer outro arquivo acessível, via objetos do sistema Windows com a linguagem VBScript.

A lista de eventos de um E3Alarm funciona da mesma forma que a lógica de programação orientada a objetos do Elipse E3/Power. Esta lista é acessível através de uma coleção chamada Eventos, e está disponível no objeto E3Alarm. A propriedade Count da coleção nos fornece o número de eventos do filtro corrente.

evtcount = Screen.Item("E3Alarm1").Events.Count

Em posse da quantidade de eventos da lista, é possível então varrer a lista dos eventos utilizando o método GetEventByIndex do E3Alarm, combinado a um laço de repetição.

For count = 0 to evtcount - 1
set evtAlarm = Screen.Item("E3Alarm1").GetEventByIndex(count)
'imprime o valor do campo InTime do evento encontrado
msgbox "A Data/Hora (Entrada) do evento encontrado é: "& evtAlarm.InTime
Next

Logo após, com o objeto evento carregado, é possível acessar os valores de todos os campos referentes a um alarme. Estes são Data/Hora de entrada, Data/Hora de Saída, Mensagem, Operador, entre outros. A seção completa de possíveis campos de um evento pode ser encontrada no Manual de Referência e Scripts; esta lista está no tópico: Visualização – E3Alarm – Coleção de Eventos – Evento – Propriedades.

Aplicando um laço de condição, é possível identificar os alarmes da lista do E3Alarm que estão em condição ativa.

For count = 0 to evtcount - 1
set evtAlarm = Screen.Item("E3Alarm1").GetEventByIndex(count)
If evtAlarm.ConditionActive = "Verdadeiro" Then
'imprime o valor do campo InTime do evento encontrado
msgbox "A Data/Hora (Entrada) do evento encontrado é: "& evtAlarm.InTime
End If
Next

A união dos itens explicados acima, com a edição de arquivo Excel via VBScript, motivaram a criação da aplicação exemplo anexa neste artigo.

O artigo relacionado, Como Ler/Escrever em arquivos Excel pelo Elipse E3/Power, possui maiores detalhes de como manipular arquivos Excel via aplicação Elipse.

NOTA: A aplicação exemplo foi desenvolvida no Elipse E3 versão 5.1 build 186.

Artigos Relacionados:

• Como Ler/Escrever em arquivos Excel pelo Elipse E3/Power.
• KB-31747: Filtrando e imprimindo uma lista de alarmes.
• KB-12658: Como ler/escrever em arquivos texto (TXT) pelo E3.

Anexos:

E3Alarm.zip