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 := ""
	cMens += "Teste"
	
	//Corpo do e-Mail
	cMens += ""
	//Dados do registro
	cMens+= 'Auditoria: '+QUA->QUA_NUMAUD+'
'
	//Dados dos itens
	cMens+= ''
	cMens+= '  '
	cMens+= '
Dados Relacionados:
'
	For nLinha := 1 to Len(oGet:aCols)
		cMens += '- Destinatário: '+oGet:aCols[nLinha,3]+'
'
		cMens += '- e-Mail: '+oGet:aCols[nLinha,4]+'
'
		cMens += '- Auditor: '+AllTrim(Posicione("QAA", 1, FWxFilial("QAA")+oGet:aCols[nLinha,6], "QAA_NOME"))+'
'
		cMens += '- Início: '+dToC(oGet:aCols[nLinha,8])+" - "+oGet:aCols[nLinha,9]+'
'
		cMens += '- Fim: '+dToC(oGet:aCols[nLinha,10])+" - "+oGet:aCols[nLinha,11]+'
'
		cMens += '- Telefone: '+oGet:aCols[nLinha,12]+'
'
	Next nLinha		
	cMens+= '  
'
	//Finalizando
	cMens += ""
	cMens += ""
	
	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