Histórico da Página

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 E-mail.Email. (smtp.totvs.com.br:587)
• MV_RELAUSR – Usuário para Autenticação no Servidor de E-mail.Email. (sp01\nome.sobrenome)
• MV_RELAPSW – Senha para Autenticação no Servidor de E-mail.Email. (*********)
• MV_RELAUTH – Indica se o Servidor de E-mail 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. .F.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. .FNecessário verificar configuração do servidor de e-mail.
• MV_RELFROM – Endereço do remetente dos e-mails emails a serem enviados. (******@******)

Verificar link abaixo, caso tenha duvidas na configurações dos parametros:

Configurar_Email

...

Procedimentos

Para a criação dos eventos:

1. Clique em Incluir.
2. Preencha os campos obrigatórios conforme help de campo.
3. Verifique o preenchimento do campo TEQ_CONDIC(Cond. Valid)
4. 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.

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.

1. Confira os dados e Confirme.

...