Como implementar nova rotina de usuário no Event Viewer

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

tabela E3

Itens da tabela E3

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

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

Parâmetros:

Nome	Tipo	Obrigatório	Default	Descrição
cChanel	Caractere	X	FW_EV_CHANEL_ENVIRONMENT	Canal do Evento, como padrão deve-se utilizar a constante FW_EV_CHANEL_ENVIRONMENT.
cCateg	Caractere	X	FW_EV_CATEGORY_MODULES	Categoria do Evento, referente ao canal selecionado, como padrão deve-se utilizar a constante FW_EV_CATEGORY_MODULES.
cEventID	Caractere	X		Código do evento cadastrado na tabela E3.
nLevel	Numérico	X	FW_EV_LEVEL_INFO	Nível do evento utilizado, como padrão deve-se utilizar a constante FW_EV_LEVEL_INFO.
cCargo	Caractere	X		Uso interno
cTitle	Caractere	X		Título da mensagem
cMessage	Caractere	X		Mensagem do evento, podendo ser uma string json. Caso seja uma string json deverá conter as propriedades obrigatórias, sendo elas: notification, title e body (exemplo de utilização abaixo) - Possibilidade da string em formato json disponível a partir da LIB Label 20221010
lPublic	Lógico		.F.	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.

Retorno:

Caso tenha algum erro o retorno será nulo

Exemplo:

Evento com mensagem em formato texto

#INCLUDE "FWEVENTVIEWCONSTS.CH"

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


	cEventID  := "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

Evento com mensagem em formato json string

#INCLUDE "FWEVENTVIEWCONSTS.CH"

User Function TstEW()     Local cEventID as character
    Local cTitulo as character
    Local jMsg as json
    Local jNotification as json
    
    jNotification := JsonObject():New()

    jMsg := JsonObject():New()
    jMsg["title"] := "cliente"
    jMsg["body"] := "Evento enviado com sucesso."
       
    jNotification["notification"] := jMsg
    
    cEventID  := "777" //Evento cadastrado na tabela E3
 
    cTitulo:='Teste do Event Viewer'      
     
    //Possibilidade da string em formato json disponível a partir da LIB Label 20220905
    EventInsert(FW_EV_CHANEL_ENVIRONMENT, FW_EV_CATEGORY_MODULES, cEventID, FW_EV_LEVEL_INFO, "", cTitulo, jNotification: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.

Event Viewer do módulo de Compras

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

Páginas filhas

Como implementar nova rotina de usuário no Event Viewer