...
Os eventos 038 e 039 podem ser ativados através da rotina Messenger - MATA045 ou Event Viewer - CFGXPTO, esses eventos alertam os usuários sobre o término do contrato(038) ou seu iminente vencimento(039). Abaixo algumas informações complementares:
...
| Evento | Mensagem exemplo | Exemplo alteração da mensagem padrão |
|---|
| 038 | Aviso de vencimento do contrato:
Contrato\Revisao: {NÚMERO DO CONTRATO}\{REVISÃO}
Filial : {FILIAL DO CONTRATO}
Data de inicio: {DATA DE INICIO - CN9_DTINIC}
Data de Termino: {DATA FIM - CN9_DTFIM} | | Bloco de código |
|---|
| firstline | 1 |
|---|
| title | Exemplo |
|---|
| linenumbers | true |
|---|
| #INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} MMENS038
Ponto de entrada que permite modificar a mensagem enviada pelo evento 038
@param aDados, vetor, dados do contrato atual no formato:
aDados[1] = Contrato
aDados[2] = Revisão
aDados[3] = Data Inicio
aDados[4] = Data Final
aDados[5] = Filial
@param cMensagem, caractere, mensagem padrão do sistema
@return cNovaMsg, caractere, mensagem a ser enviada aos usuários
*/
User Function MMENS038()
Local cNovaMsg := ""
Local aDados := ParamIxb[1]//Dados do Contrato
Local cMensagem := ParamIxb[2]//Mensagem Atual
cNovaMsg := I18N("Contrato #1 no evento 038", {aDados[1]})
ConOut(I18N("Mensagem #1 será substituída por #2",{cMensagem, cNovaMsg}) )
Return cNovaMsg |
|
| 039 | Aviso de vencimento do contrato:
Contrato\Revisao: {NÚMERO DO CONTRATO}\{REVISÃO}
Filial : {FILIAL DO CONTRATO}
Data de inicio: {DATA DE INICIO - CN9_DTINIC}
Data de Termino: {DATA FIM - CN9_DTFIM} | | Bloco de código |
|---|
| firstline | 1 |
|---|
| title | Exemplo |
|---|
| linenumbers | true |
|---|
| #INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} MMENS039
Ponto de entrada que permite modificar a mensagem enviada pelo evento 039
@param aDados, vetor, dados do contrato atual no formato:
aDados[1] = Contrato
aDados[2] = Revisão
aDados[3] = Data Inicio
aDados[4] = Data Final
aDados[5] = Filial
@param cMensagem, caractere, mensagem padrão do sistema
@return cNovaMsg, caractere, mensagem a ser enviada aos usuários
*/
User Function MMENS039()
Local cNovaMsg := ""
Local aDados := ParamIxb[1]//Dados do Contrato
Local cMensagem := ParamIxb[2]//Mensagem Atual
cNovaMsg := I18N("Contrato #1 no evento 039", {aDados[1]})
ConOut(I18N("Mensagem #1 será substituída por #2",{cMensagem, cNovaMsg}) )
Return cNovaMsg |
|
| Informações |
|---|
|
Os pontos de entrada dos eventos do GCT são acionados tanto via M-Messenger quanto EventViewer |
03 DEMAIS INFORMAÇÕES
Lista de parâmetros:
...
