Exibir Eventos no E3Alarm

Boa noite, preciso apresentar eventos na tela E3Alarm, e foi configurado no evento o seguinte script:

Message = "O usuário " & Application.User & " efetuou o comando " & CMD & " para o circuito " & xc_Iluminacao.Fonte.TAG
ActorID = Application.User
Area = xc_Iluminacao.Fonte.AreaAlarme
Severity = 0
EventTime = now

Application.GetObject(“ServidorAlarmes”).LogTrackingEvent Message, ActorID, Area, Severity, EventTime

podem me ajudar por gentileza

É possível criar um DigitalAlarmSource programaticamente, assim o evento/alarme irá aparecer no E3Alarm. Segue exemplo:

Sub btnCreateAlarm_Click()
	Dim objAlarmServer 
	Set objAlarmServer = Application.GetObject("ServidorAlarmes")
	
	With objAlarmServer.AddObject("DigitalAlarmSource", False, "MyAlarm")
		.DigitalMessageText = "O usuário " & Application.User & " efetuou o comando (...)"
		.Digital = True
		.DigitalSeverity = 0
		.Source = True
		.Activate()
	End With
End Sub

* Lembrando que a cada clique neste botão irá gerar um novo alarme sem que o anterior seja desativado/deletado, para isso, deve-se checar primeiramente se já existe o objeto MyAlarm no "ServidorAlarmes" e manipulá-lo.

1 Like

Marco,

Conforme consta no manual do E3, o método LogTrackingEvent simula um evento ou alarme e o envia direto para o banco de dados do Servidor de Alarmes, sem passar pelo E3Alarm. Por isto, este evento não pode ser visto no E3Alarm, nem tampouco o alarme pode ser reconhecido.

Para visualizar os eventos gravados no banco você pode utilizar o E3Browser.

1 Like