sp acordos gerados email

CREATE OR REPLACE PROCEDURE cboxp_gera_email_acordoauto IS
-- Declara Variáveis

vcorpoemail            clob NULL;
vcount                 NUMBER NULL;


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


DADOS_CORPOS cccorpo%ROWTYPE;



BEGIN

       SELECT COUNT(*)
       INTO vcount
       FROM cboxv_acordogerado_auto;

       -- 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 : blue;
                              font-size : 10 ;
                              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);

       sp_envia_email_centerbox('compras@centerbox.com.br','Acordos Gerados automáticos '||TO_CHAR(SYSDATE,'dd/mm/yyyy'),'Prezados,<br><br>O processo 603- Geração de Acordos Automáticos foi executado com sucesso e as verbas finalizadas geraram os acordos aos seus respectivos fornecedores .<br><br>'
     ||vcorpoemail||'<br><br><br>'||'E-mail enviado pelo Servidor automaticamente, por favor não responder.');



END;