sp envia email padaria terc

-- Created on 12/09/2023 by 3048648D-67DF-4B51
DECLARE
  -- Local variables here
-- Declara Variáveis
vcorpoemail            clob NULL;
vcount                 NUMBER NULL;
vcount2                NUMBER NULL;
vcount3                NUMBER NULL;
 obj_param_smtp             c5_tp_param_smtp;

-- Declara Cursores
CURSOR cccorpo IS
               SELECT seqproduto,
                      desccompleta,
                      embalagem,
                      quantidade,
                      nrodoctos,
                      vlrunitario,
                      vlrvenda,
                      vlrlucro,
                      ctobrutomarkupdown,
                      lucratividade
                      FROM dtv_venda_padaria
 ;
CURSOR ccestoque IS
                 SELECT seqproduto,
                        produto,
                        embalagem,
                        precounitario,
                        qtdtotal quantidade,
                        VLRPRECOVENDA
                        FROM DTV_ESTOQUE_PADARIA t
                        WHERE t.QTDTOTAL < 0
                        ;

CURSOR cccompra IS
                SELECT seqproduto,
                       desccompleta produto,
                       embalagem,
                       quantidade,
                       vlrvenda vendas
                       FROM DTV_COMPRA_PADARIA t;


DADOS_CORPOS cccorpo%ROWTYPE;
DADOS_ESTOQUE ccestoque%ROWTYPE;
DADOS_COMPRAS cccompra%ROWTYPE;

BEGIN

       SELECT COUNT(*)
       INTO vcount
       FROM dtv_venda_padaria;

       SELECT COUNT(*)
       INTO vcount2
       FROM dtv_estoque_padaria;

       SELECT COUNT(*)
       INTO vcount3
       FROM dtv_compra_padaria;

       -- Processa os fetchs
       OPEN cccorpo;
       FETCH cccorpo INTO DADOS_CORPOS;
       CLOSE cccorpo;

       OPEN ccestoque;
       FETCH ccestoque INTO DADOS_ESTOQUE;
       CLOSE ccestoque;

       OPEN cccompra;
       FETCH cccompra INTO DADOS_COMPRAS;
       CLOSE cccompra;

       -- Cabeçalho VENDAS
       vcorpoemail := '<table border ="1" color= "black"><style type="text/css">
                      tr {color : Black;
                              font-size : 12 ;
                              font-family : Verdana;
                          border : 2px solid black;}
       </style>
       <tr style="background-color:#D9D9D9"><font color="black" ><td>SEQPRODUTO</td>
           <td>PRODUTO</td>
           <td>EMBALAGEM</td>
           <td>QUANTIDADE</td>
           <td>QTDDOCTOS</td>
           <td>VENDA</td>
           <td>CUSTO</td>
           <td>VLRUNITARIO</td>
           <td>LUCRATIVIDADE%</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.SEQPRODUTO !=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.SEQPRODUTO||'</td><td>'||DADOS_CORPOS.DESCCOMPLETA||'</td><td>'||DADOS_CORPOS.EMBALAGEM||'</td><td>'
                                      ||DADOS_CORPOS.QUANTIDADE||'</td><td>'||TO_CHAR(DADOS_CORPOS.NRODOCTOS)||'</td><td>'||TO_CHAR(DADOS_CORPOS.VLRVENDA)||'</td><td>'||TO_CHAR(DADOS_CORPOS.CTOBRUTOMARKUPDOWN)||'</td><td>'||TO_CHAR(DADOS_CORPOS.VLRUNITARIO)||'</td><td>'||TO_CHAR(DADOS_CORPOS.LUCRATIVIDADE)||'</td></tr>'/*||\*chr(13)||*\chr(10)*/;

              END IF;

       END LOOP;

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

       /*CABELHO ESTOQUE*/
       vcorpoemail := vcorpoemail||'<br><br>
                                      <p>Quantidade de Estoque Acumlado.</p>
                      <table border ="1" color= "black">
                             <style type="text/css">
                                    tr {color       : Black;
                                        font-size   : 12 ;
                                        font-family : Verdana;
                                        border      : 2px solid black;}
                             </style>
       <tr style="background-color:#D9D9D9"><font color="black" ><td>SEQPRODUTO</td>
           <td>PRODUTO</td>
           <td>EMBALAGEM</td>
           <td>QUANTIDADE</td>
           <td>VENDA</td>
           <td>PRECOUNIT</td> </font></tr>';

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


       FOR DADOS_ESTOQUE IN ccestoque

       LOOP
              IF DADOS_ESTOQUE.SEQPRODUTO !=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_ESTOQUE.SEQPRODUTO||'</td><td>'||DADOS_ESTOQUE.PRODUTO||'</td><td>'||DADOS_ESTOQUE.EMBALAGEM||'</td><td>'||DADOS_ESTOQUE.QUANTIDADE||'</td><td>'||DADOS_ESTOQUE.VLRPRECOVENDA||'</td><td>'||DADOS_ESTOQUE.Precounitario||'</td></tr>'/*||\*chr(13)||*\chr(10)*/;

              END IF;

       END LOOP;

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

       /*CABELHO COMPRA*/
       vcorpoemail := vcorpoemail||'<br><br>
                                      <p>Quantidade de compras Acumlado.</p>
                      <table border ="1" color= "black">
                             <style type="text/css">
                                    tr {color       : Black;
                                        font-size   : 12 ;
                                        font-family : Verdana;
                                        border      : 2px solid black;}
                             </style>
       <tr style="background-color:#D9D9D9"><font color="black" ><td>SEQPRODUTO</td>
           <td>PRODUTO</td>
           <td>EMBALAGEM</td>
           <td>QUANTIDADE</td>
           <td>VENDA</td> </font></tr>';

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


       FOR DADOS_COMPRAS IN cccompra

       LOOP
              IF DADOS_COMPRAS.SEQPRODUTO !=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_COMPRAS.SEQPRODUTO||'</td><td>'||DADOS_COMPRAS.PRODUTO||'</td><td>'||DADOS_COMPRAS.EMBALAGEM||'</td><td>'||DADOS_COMPRAS.QUANTIDADE||'</td><td>'||DADOS_COMPRAS.VENDAS||'</td></tr>'/*||\*chr(13)||*\chr(10)*/;

              END IF;

       END LOOP;

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

 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] - Vendas referente ao dia '||TO_CHAR(SYSDATE,'dd/mm/yyyy')
       ,psMensagem     =>'
                                <br><br>Prezados,
                                <br><br> Vendas referente ao dia '||TO_CHAR(SYSDATE,'dd/mm/yyyy')
                                ||'<br><br>'
                                ||vcorpoemail
                                ||'<br><br><br>'||'E-mail enviado pelo Servidor automaticamente, por favor não responder. <br><br><br>
                                <img src="https://daterraatacadoevarejo.com.br/wp-content/uploads/2021/05/logo_daterra_hor_b-1024x81.png" width="512" height="40"  align="center" style="background-color:#D9D9D9">'
       ,psindusahtml   => 'S');



END;