...
Bloco de código | ||
---|---|---|
| ||
#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' EventInsert(FW_EV_CHANEL_ENVIRONMENT, FW_EV_CATEGORY_MODULES, cEventID, FW_EV_LEVEL_INFO, "", cTitulo, jMsg:toJson(), .T.) Return |
...