PROC GERA EMAIL ACORDOS AUTO

-- Created on 04/09/2023 by 3048648D-67DF-4B51
DECLARE
--CREATE OR REPLACE PROCEDURE cboxp_gera_email_acordoauto IS
-- Declara Variáveis
vcorpoemail            clob NULL;
vcount                 NUMBER NULL;
 obj_param_smtp             c5_tp_param_smtp;

-- Declara Cursores
CURSOR cccorpo IS
SELECT empresa,
nroacordo,
fornecedor,
comprador
 FROM DTRV_ACORDO_SV_GERADO
 ;

DADOS_CORPOS cccorpo%ROWTYPE;


BEGIN

       SELECT COUNT(*)
       INTO vcount
       FROM dtrv_acordo_sv_gerado;

       -- Processa os fetchs
       OPEN cccorpo;
       FETCH cccorpo INTO DADOS_CORPOS;
       CLOSE cccorpo;
       -- Cabeçalho do arquivo
       vcorpoemail := '<table border ="1" color= "black"><style type="text/css">
                      tr {color : orange;
                              font-size : 12 ;
                              font-family : Verdana;
                          border : 1px solid black;}
       </style>
       <tr><font color="black" ><td>COMPRADOR</td>
           <td>EMPRESA  </td>
           <td>NROACORDO</td>
           <td>FORNECEDOR</td></font></tr>';

       -- Corpo de arquivo.
       IF vcount = 0 THEN
         vcorpoemail := vcorpoemail||'<tr><td>Não há dados novos</td></tr>';
         END IF;


       FOR DADOS_CORPOS IN cccorpo

       LOOP
              IF DADOS_CORPOS.NROACORDO !=0
              THEN
              --vcorpoemail:=vcorpoemail||'<tr><td>'||lpad(DADOS_CORPOS.COMPRADOR,15,' ')||' - '||rpad(DADOS_CORPOS.EMPRESA,14,' ')||': Acordo: '||rpad(DADOS_CORPOS.NROACORDO,6,' ')||' Fornecedor: '||DADOS_CORPOS.FORNECEDOR||'<BR><BR> '||/*chr(13)||*/chr(10);
              vcorpoemail:=vcorpoemail||'<tr><td>'||DADOS_CORPOS.COMPRADOR||'</td><td>'||DADOS_CORPOS.EMPRESA||'</td><td>'||TO_CHAR(DADOS_CORPOS.NROACORDO)||'</td><td>'||DADOS_CORPOS.FORNECEDOR||'</td></tr> '/*||\*chr(13)||*\chr(10)*/;

              END IF;

       END LOOP;

       vcorpoemail :=vcorpoemail||'</table>';


       -- Gera Saída
       --DBMS_OUTPUT.put_line(vcorpoemail);
 obj_param_smtp := c5_tp_param_smtp(12);
  IF obj_param_smtp.CriadoComSucesso = 0 THEN
    RETURN;
  END IF;
      sp_envia_email(obj_param      => obj_param_smtp,
       psDestinatario =>'paulofis@gmail.com, wellington@daterraatacadoevarejo.com.br'
       ,psAssunto      =>'[DATERRA] - Acordos Automáticos Gerados '||TO_CHAR(SYSDATE,'dd/mm/yyyy')
       ,psMensagem     =>'Prezados,<br><br> Acordos referente verbas sem acordo.<br><br>'
     ||vcorpoemail||'<br><br><br>'||'E-mail enviado pelo Servidor automaticamente, por favor não responder.'
       ,psindusahtml   => 'S');



END;