Ponto de Entrada – QAD150EN

Exemplo do Ponto de Entrada QAD150EN.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  QAD150EN                                                                                      |
 | Desc:  Personaliza mensagem de e-Mail no Agenda Auditoria                                            |
 | Links: http://tdn.totvs.com/display/public/mp/QAD150EN+-+Personalizar+Mensagem+de+E-mail             |
 *------------------------------------------------------------------------------------------------------*/

User Function QAD150EN()
	Local cMens := ""
	Local cDestino := Alltrim(GetMV("MV_X_EMAIL")) +";"
	Local nLinha := 0
	
	//Cabeçalho do email
	cMens := "<html>"
	cMens += "<head><title>Teste</title></head>"
	
	//Corpo do e-Mail
	cMens += "<body>"
	//Dados do registro
	cMens+= '<b>Auditoria:</b> '+QUA->QUA_NUMAUD+'<br>'
	//Dados dos itens
	cMens+= '<table>'
	cMens+= '  <tr><td><b>Dados Relacionados:</b><br><hr>'
	For nLinha := 1 to Len(oGet:aCols)
		cMens += '- <b>Destinatário: </b>'+oGet:aCols[nLinha,3]+'<br>'
		cMens += '- <b>e-Mail: </b>'+oGet:aCols[nLinha,4]+'<br>'
		cMens += '- <b>Auditor: </b>'+AllTrim(Posicione("QAA", 1, FWxFilial("QAA")+oGet:aCols[nLinha,6], "QAA_NOME"))+'<br>'
		cMens += '- <b>Início: </b>'+dToC(oGet:aCols[nLinha,8])+" - "+oGet:aCols[nLinha,9]+'<br>'
		cMens += '- <b>Fim: </b>'+dToC(oGet:aCols[nLinha,10])+" - "+oGet:aCols[nLinha,11]+'<br>'
		cMens += '- <b>Telefone: </b>'+oGet:aCols[nLinha,12]+'<br><hr>'
	Next nLinha		
	cMens+= '  </td></tr>'
	cMens+= '</table>'
	//Finalizando
	cMens += "</body>"
	cMens += "</html>"
	
	Alert(cMens)
Return cMens

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

– Pesquisa no TDN