Histórico da Página
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: |
| |||||||||
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas