… // Facility #define FAC_FRAME_ 22 #define FAC_SEGMENTS_ 23 // Severity #define SEV_EMG_ 0 #define SEV_ALERT_ 1 #define SEV_CRITICAL_ 2 #define SEV_ERROR_ 3 #define SEV_WARN_ 4 #define SEV_NOTICE_ 5 #define SEV_INFORM_ 6 #define SEV_DEBUG_ 7 User Function tlogmsg() LogMsg('tlogmsg', FAC_FRAME_, SEV_NOTICE_, 1, '', '', 'Mensagem do Frame 1') LogMsg('tlogmsg', FAC_FRAME_, SEV_WARN_, 1, '', '', 'Mensagem do Frame 2') LogMsg('tlogmsg', FAC_SEGMENTS_, SEV_INFORM_, 1, '', '', 'Mensagem do Segments 1') LogMsg('tlogmsg', FAC_SEGMENTS_, SEV_INFORM_, 1, '', '', 'Mensagem do Segments 2') LogMsg('tlogmsg', FAC_FRAME_, SEV_CRITICAL_, 1, '', '[frame msg="mensagem 3" nro="2"]', '') LogMsg('tlogmsg', FAC_SEGMENTS_, SEV_ERROR_, 1, '', '[seg val="teste 1" nroid="4"]', '') Return .T. ... |