Linha Microsiga Protheus

Árvore de páginas

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 customizações no final do processo.

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:
NomeTipoDescrição

cTitulo

Caracter

Titulo Padrão do E-mail

aALLBonus

Array

Vetor contendo todos os dados dos Bonus de Venda

Retorno:


N/A

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 customizações no final do processo

User Function VC132FIM()

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

/*


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


*/


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


Return



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