VC132EML Ponto de Entrada utilizado para possibilitar montar diferente do Padrão o corpo do E-mail que será Enviado

Ponto de Entrada

Descrição:

Ponto de Entrada localizado na rotina de envio de Email do Potencial de Bonus de Venda em relação ao Estoque atual (VEIC132). Possibilita montar diferente do padrão o corpo do e-mail que será enviado.

Localização:

Atualizações / John Deere / Painel Ped Compra Maq JD

Eventos:

Static Function VC1320011_Processa()

Local aALLBonus := VEIC131( .f. ) // Faz o levantamento do Potencial de Bonus de Venda em relação ao Estoque atual

Local cTitulo := STR0004 // Potencial de Bonus de Venda em relação ao Estoque atual

Local cMensagem := ""

If ExistBlock("VC132EML")

cMensagem := ExecBlock("VC132EML",.f.,.f.,{ cTitulo , aClone(aALLBonus) }) // E-mail customizado

Else

cMensagem := VC1320021_Monta_Email( cTitulo , aClone(aALLBonus) ) // Montagem de E-mail Padrão

EndIf

If !Empty(cMensagem)

VC1320031_Enviar_Email( cTitulo , cMensagem ) // Enviar o E-mail

EndIf

If ExistBlock("VC132FIM")

ExecBlock("VC132FIM",.f.,.f.,{ cTitulo , aClone(aALLBonus) }) // PE executado no final do processo

EndIf

Return .T.

Programa Fonte:

VEIC132.PRW

Função:

VC1320011_PROCESSA()

Parâmetros:

Nome	Tipo	Descrição
cTitulo	Caracter	Titulo Padrão do E-mail
aALLBonus	Array	Vetor contendo todos os dados dos Bonus de Venda possiveis com seus respectivos Veiculos/Maquinas

Retorno:

Nome	Tipo	Descrição
cMensagem	Caracter	corpo do e-mail em formato de TAGS de <HTML>

Exemplo:

Include totvs.ch

// Ponto de Entrada localizado na rotina de envio de Email do Potencial de

// Bonus de Venda em relação ao Estoque atual (VEIC132).

// Possibilita montar diferente do padrão o corpo do e-mail que será enviado

User Function VC132EML()

Local cTitulo := ParamIxb[1] // Titulo Padrão do E-mail

Local aALLBonus := ParamIxb[2] // Vetor contendo todos os dados dos Bonus de Venda possiveis com seus respectivos Veiculos/Maquinas

Local cMensagem := "" // Retornar o corpo e-mail em TAGS de <HTML>

/*

Posicoes do Vetor aALLBonus ( 1a.Linha do Vetor é o TOTAL GERAL )

aALLBonus[nBon,1] = Codigo do Bonus

aALLBonus[nBon,2] = Descricao do Bonus

aALLBonus[nBon,3] = Quantidade ( soma de todos os Veiculos/Maquinas deste Bonus )

aALLBonus[nBon,4] = Vlr.Liquido ( soma de todos os Veiculos/Maquinas deste Bonus )

aALLBonus[nBon,5] = Vetor dos Veiculos/Maquinas que fazem parte do Bonus

aALLBonus[nBon,5,nVei,01] = RecNo do VV1 ( Veiculo/Maquina )

aALLBonus[nBon,5,nVei,02] = Marca

aALLBonus[nBon,5,nVei,03] = Modelo ( Codigo - Descricao )

aALLBonus[nBon,5,nVei,04] = Cor ( Codigo - Descricao )

aALLBonus[nBon,5,nVei,05] = Chassi

aALLBonus[nBon,5,nVei,06] = Quantidade

aALLBonus[nBon,5,nVei,07] = Vlr.Liquido

aALLBonus[nBon,5,nVei,08] = ChaInt (VV1_CHAINT)

aALLBonus[nBon,5,nVei,09] = Data do Pedido

aALLBonus[nBon,5,nVei,10] = Data do Marcado Vendido

aALLBonus[nBon,6] = Dt.Inicial do Bonus

aALLBonus[nBon,7] = Dt.Final do Bonus

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Exemplo de Retorno -> TAGS <HTML>

For nCntFor := 2 to len(aALLBonus) // 1a.Linha do Vetor é o TOTAL GERAL

cMensagem += " "

cMensagem += "<TABLE width=100% border=1>"

cMensagem += "<TR>"

cMensagem += "<TD width=45% bgcolor=silver><center>Bonus</center></TD>"

cMensagem += "<TD width=15% bgcolor=silver><center>Dt.Inicial</center></TD>"

cMensagem += "<TD width=15% bgcolor=silver><center>Dt.Final</center></TD>"

cMensagem += "<TD width=10% bgcolor=silver><center>Quantidade</center></TD>"

cMensagem += "<TD width=15% bgcolor=silver><center>Vlr.Liquido</center></TD>"

cMensagem += "</TR>"

cMensagem += "<TR>"

cMensagem += "<TD>"+aALLBonus[nCntFor,01]+" - "+aALLBonus[nCntFor,02]+"</TD>"

cMensagem += "<TD><center>"+aALLBonus[nCntFor,06]+"</center></TD>"

cMensagem += "<TD><center>"+aALLBonus[nCntFor,07]+"</center></TD>"

cMensagem += "<TD><center>"+Transform(aALLBonus[nCntFor,03],"@E 999,999")+"</center></TD>"

cMensagem += "<TD align=right>"+Transform(aALLBonus[nCntFor,04],"@E 999,999,999,999.99")+"</TD>"

cMensagem += "</TR>"

cMensagem += "</TABLE>"

//

aALLVeic := aClone(aALLBonus[nCntFor,05]) // Veiculos/Maquinas referente ao Bonus posicionado

//

cMensagem += "<TABLE width=100% border=1>"

cMensagem += "<TR>"

cMensagem += "<TD width=12%><center>Dt.Pedido</center></TD>"

cMensagem += "<TD width=12%><center>Marcado Vendido</center></TD>"

cMensagem += "<TD width=11%><center>Marca</center></TD>"

cMensagem += "<TD width=20%><center>Modelo</center></TD>"

cMensagem += "<TD width=15%><center>Cor</center></TD>"

cMensagem += "<TD width=15%><center>Chassi</center></TD>"

cMensagem += "<TD width=15%><center>Vlr.Liquido</center></TD>"

cMensagem += "</TR>"

//

For nCntVei := 1 to len(aALLVeic)

cMensagem += "<TR>"

cMensagem += "<TD><center>"+aALLVeic[nCntVei,09]+"</center></TD>"

cMensagem += "<TD><center>"+aALLVeic[nCntVei,10]+"</center></TD>"

cMensagem += "<TD>"+aALLVeic[nCntVei,02]+"</TD>"

cMensagem += "<TD>"+aALLVeic[nCntVei,03]+"</TD>"

cMensagem += "<TD>"+aALLVeic[nCntVei,04]+"</TD>"

cMensagem += "<TD>"+aALLVeic[nCntVei,05]+"</TD>"

cMensagem += "<TD align=right>"+Transform(aALLVeic[nCntVei,07],"@E 999,999,999,999.99")+"</TD>"

cMensagem += "</TR>"

MsgAlert("Ponto de Entrada VC132EML executado com sucesso!","Atenção")

Return cMensagem

Ponto de Entrada relacionado: VC132FIM Ponto de Entrada utilizado para possibilitar customizações no final do processo de Envio de E-mail

Árvore de páginas

VC132EML Ponto de Entrada utilizado para possibilitar montar diferente do Padrão o corpo do E-mail que será Enviado

Ponto de Entrada