Botão de Ação - Envio de Email com parametros

 ENVIO DE EMAIL APARTIR DO FINANCEIRO COM COLETA DE INFORMAÇÕES

Botão de Ação - Envio de Email com parametros
- Coleta informação na tela que solicita a escolha do usuário

    ○ Campo adicional criado e ligado com a tabela de usuários TSIUSU

    ○ Campo adicional => AD_RESPONSAVEL_SOLICITACAO

- Coleta informação do(s) titulo(s) selecionados na Movimentação Financeira

- Demais detalhes são informados no script

- Utiliza o Centro de Resultado informado no Financeiro

- Texto do email com quebra de linha

- Utiliza a tabela TSIUSU para poder selecionar o usuário

Script:

for (var i = 0; i < linhas.length; i++) {

  var query = getQuery();

  var linha = linhas[i];

  var mensagem = "";

  query.setParam("USUARIO", getParam("USUARIO"));

  query.update("INSERT INTO TMDFMG (CODFILA, ASSUNTO, CODMSG, DTENTRADA, STATUS, CODCON, TENTENVIO, MENSAGEM, TIPOENVIO, MAXTENTENVIO, EMAIL, NUANEXO, MIMETYPE) " +

               "VALUES (" +

               "(SELECT NVL(MAX(CODFILA), 0) + 1 FROM TMDFMG), " + // CODFILA

               "'Informações do Financeiro', " + // ASSUNTO

               "NULL, " + // CODMSG

               "SYSDATE, " + // DTENTRADA

               "'Pendente', " + // STATUS

               "0, " + // CODCON

               "0, " + // TENTENVIO

               "(SELECT LISTAGG('Detalhes do pagamento: ' || CHR(10) || 'Nome do Parceiro: ' || PAR.NOMEPARC || CHR(10) || 'Núm.Financeiro: ' || FIN.NUFIN || CHR(10) || 'Núm.Nota: ' || FIN.NUMNOTA || CHR(10) || 'Valor do Título: ' || TO_CHAR(FIN.VLRDESDOB, 'FM999G999D00') || CHR(10) || 'Valor Pago: ' || TO_CHAR(FIN.VLRBAIXA, 'FM999G999D00') || CHR(10) || 'Data de Vencimento: ' || TO_CHAR(FIN.DTVENC, 'DD/MM/YYYY') || CHR(10) || 'Data da Baixa: ' || TO_CHAR(FIN.DHBAIXA, 'DD/MM/YYYY'), '; ') WITHIN GROUP (ORDER BY FIN.NUFIN) AS MENSAGEM FROM TGFPAR PAR INNER JOIN TGFFIN FIN ON FIN.CODPARC = PAR.CODPARC WHERE FIN.NUFIN = " + linha.getCampo("NUFIN") + "), " + 

               "'E', " + // TIPOENVIO

               "3, " + // MAXTENTENVIO

               "(SELECT MAX(CASE WHEN USU.CODUSU = {USUARIO} AND USU.EMAIL IS NOT NULL THEN USU.EMAIL END) FROM TSIUSU USU), " +  // EMAIL

               "NULL, " + // NUANEXO

               "NULL" + // MIMETYPE

               ")");

  // Adicionando condição para exibir a mensagem

  mensagem = "PROCESSO FINALIZADO - Email(s) enviado(s) para o(s) usuário(s) selecionado - OBS.: Verifique a rotina FILA para confirmar envio";

  query.close();

}

Escolha o usuário que receberá o email

USUARIO