Abrir tela ao reconhecer o E3Alarme

#1

Bom dia

Há a possibilidade de ao reconhecer um alarme no E3Alarm, abrir uma tela para o usuário descrever algumas informações??

E o reconhecimento do alarme fica condicionado a inserir uma informação na tela?

Agradeço desde já.

Obrigado

#2

@wagner.dracha, boa tarde.

Por favor, verificar este KB.

Sds.

1 Like
#3

Show, muito boa a ideia!!

Mas há a possibilidade de eu colocar essa tela sem pedir login e senha novamente?

E adicionar um campo?

#4

@wagner.dracha, bom dia.

Bom, este é um objeto padrão do E3 e é obrigatório logar novamente devido às regras da FDA CFR 21. Se precisar sem usuário e senha, precisará personalizar a tela ou utilizar um InputBox, por exemplo (utilizando o mesmo script do KB anterior):

'Retorna o objeto alarme selecionado
Set alarme = Screen.Item("E3Alarm1").GetFocusedEvent()

If TypeName(alarme) = "IEventStatus" then

   'Assinatura eletrônica
   'If Application.ESign(alarme.AlarmSourceName, alarme.Message, "Reconhecimento", , , User, Comment) then

	Comment = InputBox("Insira aqui seu comentário:") 'Utilizando o InputBox

      'Não reconhece se o comentário estiver em branco
      If Comment = "" then 
         MsgBox "Por favor informe o motivo do reconhecimento", vbExclamation
         Exit Sub
      End if
      
      'Guarda justificativa e reconhece o alarme
      Application.GetObject("Dados.MotivoReconhecimentoAlarme").Value = Comment
      Application.GetObject(alarme.FullAlarmSourceName).Ack(User)
      
      'Limpa justificativa
      Application.GetObject("Dados.MotivoReconhecimentoAlarme").Value = ""

   'End if

End if

Não entendi o que quis dizer. Por favor, poderia detalhar?

Sds.

#5

Então, eu criei uma nova tela, coloquei os campos que eu preciso que sejam respondidos, e no evento duplo click, eu coloco o resultado do evento GetFocusedEvent numa InternalTag no servidor e depois peço para abrir a nova tela.