Histórico da Página

• Primeiro devemos criar o evento na tabela E3 das tabelas padrões do sistema:

 Image RemovedImage Added

Image RemovedImage Added

• Depois criamos um Rdmake utilizando a Função abaixo:

EventInsert(cChannel,cCateg,cEventID,nLevel,cCargo,cTitle,cMessagexMessage,lPublic)

Parametros:

cChanel – Canal do Evento, como padrão deve-se utilizar a constante FW_EV_CHANEL_ENVIRONMENT.

...

cTitle – Titulo da mensagem.

cMessage xMessage – Texto ou Objeto Json em formato de string a ser apresentada no corpo da mensagem. Caso seja o string json deverá conter as propriedades obrigatórias, sendo elas: title, body, click_action

lPublic - se passada como .T. (verdadeiro), a mensagem poderá ser lida por todos inscritos no evento, caso contrário só pelo usuário gerador do evento.

Exemplo:

#INCLUDE "FWEVENTVIEWCONSTS.CH"

User Function TstEW()
	Local cEventID as character
 	Local cMensagem as character
 	Local cTitulo as character


	cEventID  := "

...

User Function TstEW()

...

777" //Evento cadastrado na tabela E3

	cMensagem  := "Evento enviado com sucesso."

	cTitulo:='Teste do Event Viewer'      

	EventInsert(FW_EV_CHANEL_ENVIRONMENT, FW_EV_CATEGORY_MODULES, cEventID, FW_EV_LEVEL_INFO, "", cTitulo, cMensagem, .T.)

Return

#INCLUDE "FWEVENTVIEWCONSTS.CH"

User Function TstEW()
	Local cEventID as character
 	Local cMensagem as character
 	Local cTitulo as character
	Local jMsg as json

 	jMsg := JsonObject():New()
	jMsg["title"] := "cliente"
	jMsg["body"] := "inclusão de cliente"
	jMsg["click_action"] := "notificar"

	cEventID  := "777" //Evento cadastrado na tabela E3

	cMensagem  := "Evento enviado com sucesso."

	cTitulo:='Teste do Event Viewer'      

	

ctitulo:='Teste do Event Viewer'

EventInsert(FW_EV_CHANEL_ENVIRONMENT, FW_EV_CATEGORY_MODULES, cEventID, FW_EV_LEVEL_INFO, "",

...

 cTitulo, jMsg:toJson(), .T.)

...

Return

...

• Efetuar o cadastro do evento através da rotina "Inscrição no Event Viewer" na pasta miscelânea de qualquer módulo.

 Image RemovedImage Added

Agora é só executar a rotina criada e verificar o e-mail enviado.