Como adicionar uma rotina de usuario no Event Viewer

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

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

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

Parametros:

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

cCateg – Categoria do Evento, referente ao canal selecionado, como padrão deve-se utilizar a constante FW_EV_CATEGORY_MODULES.

cEventID – Codigo do evento cadastrado na tabela E3. No nosso exemplo o código é 777.

nLevel – Nivel do evento utilizado, como padrão deve-se utilizar a constante FW_EV_LEVEL_INFO.

cCargo – de uso interno

cTitle – Titulo da mensagem.

cMessage – Texto a ser apresentada no corpo da mensagem.

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()

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

cMesagem  := "Evento enviado com sucesso."

ctitulo:='Teste do Event Viewer'

EventInsert(FW_EV_CHANEL_ENVIRONMENT, FW_EV_CATEGORY_MODULES, cEventID,FW_EV_LEVEL_INFO,"",ctitulo,cMesagem,.T.)

Return

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

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