Histórico da Página
Eventos
Esta rotina cria os tipos de eventos e parâmetros para o envio dos e-mails, cadastrados na Lista de E-mails, para controle de gestão de prazos, ou valores dos processos desejados.
|
...
|
...
|
...
|
...
Principais Parâmetros
Para que seja enviado os e-mails é necessário configurar os parâmetros:
...
- MV_PORSMTP – Porta para uso do servidor SMTP.
...
- (25) - A configuração da Porta deve ser feita no paramentro MV_RELSERV
- MV_RELSERV – Servidor de
...
- Email. (smtp.totvs.com.br:587)
- MV_RELAUSR – Usuário para Autenticação no Servidor de
...
- Email. (sp01\nome.sobrenome)
- MV_RELAPSW – Senha para Autenticação no Servidor de
...
- Email. (*********)
- MV_RELAUTH – Indica se o Servidor de
...
- Email requer autenticação
...
- . (.T.)
- MV_RELTIME – Tempo limite para a tentativa de conexão no servidor SMTP.
...
- (60 = segundos)
- MV_RELSSL – Verificação para uso do protocolo de segurança SSL para envio dos emails.
...
- Necessário verificar configuração do servidor de e-mail.
- MV_RELTLS – Verificação para uso do protocolo de segurança TLS para envio dos emails.
...
- Necessário verificar configuração do servidor de e-mail.
- MV_RELFROM – Endereço do remetente dos
...
- emails a serem enviados. (******@******)
Verificar link abaixo, caso tenha duvidas na configurações dos parametros:
...
Procedimentos
Para a criação dos eventos:
...
- Clique em Incluir
...
- .
- Preencha os campos obrigatórios conforme help de campo.
- Verifique o preenchimento do campo TEQ_CONDIC(Cond. Valid)
- Se ele estiver como 1 - Data, o campo TEQ_CAMPO(Campo Tab.) deve ser um campo que tem o retorno do tipo data, se estiver como 2 - Valor, o campo TEQ_CAMPO(Campo Tab.) deve ser um campo que tem o retorno do tipo caracter.
A seguinte regra é utiliza para buscar os registros a serem incluidos no envio de e-mail.
| Bloco de código |
|---|
If (cAlias)->TEQ_CONDIC == "1" // Data Hoje (invertido o simbolo para a consistencia SQL) Do Case Case (cAlias)->TEQ_OPEMAT == "1" ; cValCond := DtoS(Date() - (cAlias)->TEQ_PARAME) // 1=Adição Case (cAlias)->TEQ_OPEMAT == "2" ; cValCond := DtoS(Date() + (cAlias)->TEQ_PARAME) // 2=Subtração Case (cAlias)->TEQ_OPEMAT == "3" ; cValCond := DtoS(Date() / (cAlias)->TEQ_PARAME) // 3=Multiplicação Case (cAlias)->TEQ_OPEMAT == "4" ; cValCond := DtoS(Date() * (cAlias)->TEQ_PARAME) // 4=Divisão EndCase Else // Valor Parametro (invertido o simbolo para a consistencia SQL) Do Case Case (cAlias)->TEQ_OPEMAT == "1" ; cValCond := AllTrim(Str((cAlias)->TEQ_VLRRES - (cAlias)->TEQ_PARAME)) // 1=Adição Case (cAlias)->TEQ_OPEMAT == "2" ; cValCond := AllTrim(Str((cAlias)->TEQ_VLRRES + (cAlias)->TEQ_PARAME)) // 2=Subtração Case (cAlias)->TEQ_OPEMAT == "3" ; cValCond := AllTrim(Str((cAlias)->TEQ_VLRRES / (cAlias)->TEQ_PARAME)) // 3=Multiplicação Case (cAlias)->TEQ_OPEMAT == "4" ; cValCond := AllTrim(Str((cAlias)->TEQ_VLRRES * (cAlias)->TEQ_PARAME)) // 4=Divisão EndCase EndIf |
Um exemplo, caso busque ordens de serviços a serem enviados, e coloque o campo TEQ_CONDIC(Cond. Valid) igual a 1, o campo deve ser um campo que retorne data, o mais indicado para a tabela AB6, é utilizar o campo AB6_EMISSA.
Caso busque ordens de serviço com numeração acima de 500, coloque o campo TEQ_CONDIC(Cond. Valid) igual a 2, o campo deve ser um campos que retorne um caracter, o mais indicado para a tabela AB6, é utilizar o campo AB6_NUMOS, como queremos Ordens de serviço acima de 500, o campo TEQ_VLRRES(Val Cond.) ficará com o valor de 500, que é o valor inicial que queremos buscar.
- Confira os dados e Confirme.
...
...
Veja também
...
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas