Histórico da Página

#INCLUDE "FWEVENTVIEWCONSTS.CH"

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

 	jMsg := JsonObject():New()
	jMsg["title"] := "cliente"
	jMsg["body"] := "Evento enviado com sucesso."
	jMsg["click_action"] := "notificar"

	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, jMsg:toJson(), .T.)

Return