Para reconhecer um Alarme, é necessário informar um usuário válido e o motivo do reconhecimento.

1.Insira um Botão de Comando próximo ao E3Alarm para reconhecer o Alarme selecionado.

2.No evento Click deste Botão de Comando, insira o script a seguir.

Set alarme = Screen.Item("E3Alarm1").GetFocusedEvent()
ObjName = alarme.AlarmSourceName
Description = alarme.Message
Action = "Reconhecimento de alarme"
If Application.ESign(ObjName, Description, Action, "", "",_
  Usuario, Comentario) Then
  'Motivo do reconhecimento
  Application.GetObject("Dados.MotivoReconhecimento").Value = Comentario
  'Reconhece o alarme
  Screen.Item("E3Alarm1").AckSelected(Usuario)
  'Limpa o motivo
  Application.GetObject("Dados.MotivoReconhecimento").Value = ""
End If

3.Execute a aplicação e teste a nova funcionalidade.