DT_PECLSAT1_Envio_do_email_de_Confirmacao_de_uma_Transferencia_recem_criada_via_JDPRISM

Descrição:

Este Ponto de entrada usado para manutenção e acontece antes do envio do e-mail de confirmação de uma transferência recém criada via JDPRISM.

Eventos:

if ! lAny
oLogger:LogToTable({;
{'VQL_AGROUP', 'DPMXFER'},;
{'VQL_TIPO' , 'ERROR' },;
{'VQL_DADOS' , STR0001 /* 'Nenhum item do DPMXFER com saldo para transferência'*/ } ;
})
return .T. // não pode retornar erro, pois não ter itens não significa erro, somente falta de estoque
Endif

cEmail := "<h4>Orçamento Filial: "+VS1->VS1_FILIAL+"</h4><br/><h4>Orçamento: "+VS1->VS1_NUMORC+" gerado via JDPRISM, será necessário manutenção para efetivação da mesma.</h4>" + CHR(13) + CHR(10)
cEmail += "<table>" + CHR(13) + CHR(10)
cEmail += "<tr> <td>Item</td> <td>Quantidade</td> <td>Status</td> </tr>" + CHR(13) + CHR(10)
for nIdx := 1 to Len(aEmail)
cEmail += aEmail[nIdx] + CHR(13) + CHR(10)
next
cEmail += "</table>"
//
//
// Envia e-mail
//
If ExistBlock("PECLSAT1") // Temporario PECLSAT1
aParam := {VS1->VS1_NUMORC}
ExecBlock("PECLSAT1",.f.,.f., aParam) // checagem de ponto de entrada onde o cliente pode invalidar a validacao de exclusividade ao alterar grupo caso deseje
EndIf
//
oMail := DMS_EmailHelper():New()
oMail:Send({;
{'assunto' , '[JDPRISM TRANFER] Filial: "'+VS1->VS1_FILIAL+'" Orçamento: "'+VS1->VS1_NUMORC+'" '},;
{'mensagem', cEmail },;
{'origem' , GetNewPar("MV_MIL0088", "") },;
{'destino' , GetNewPar("MV_MIL0089", "") } ;
})
//

Função:

DMS_Transferencia():Efetivar()