Onde está o erro?

CREATE OR REPLACE PROCEDURE SP_INT_CPG_TITULO AS

/*****************************************************************
* PROCEDURE : SP_INT_CPG_TITULO                                  *
* OBJETIVO  : Le tabela TEMP para gravação da tabela em produção *
* CRIAÇÃO   : 28/01/2009 10:20:15                                *
* VERSAO    : 1.0 - TESTE                                        *
* AUTOR     : Fabio Cruz -                  *
*****************************************************************/

-------------------------------------------------
-- DECLARACAO DE VARIAVEIS AUXILIARES A TABELA --
-------------------------------------------------

VG_CODFIL         numeric  (3,0);
VG_TPEMITENTE     char     (1);  
VG_CODEMITENTE    numeric  (15,0);
VG_NUMTIT         numeric  (6,0);
VG_DESDTIT        char     (3);  
VG_CODORIGCPG     numeric  (6,0);
VG_DTEMISSAO      DATE;      
VG_DTVENCTO       DATE;      
VG_CODPORT        numeric  (6,0);
VG_VLORIG         numeric  (15,2);
VG_VLORIGIND      numeric  (20,6);
VG_SLDTIT         numeric  (15,2);
VG_SLDTITIND      numeric  (20,6);
VG_CODIND         char     (4);   
VG_NUMBORD        numeric  (6,0); 
VG_NUMAUTORIZ     numeric  (6,0); 
VG_NUMTITGER      numeric  (6,0); 
VG_DESDTITGER     varchar  (3);   
VG_STATUS         numeric  (1,0); 
VG_SERIE          varchar  (3);   
VG_NUMDOCTO       numeric  (15,0);
VG_NUMAGE         numeric  (5,0); 
VG_TPCOB          char     (2);   
VG_NUMBCO         numeric  (3,0); 
VG_NUMCTA         numeric  (10,0);
VG_NUMCHQ         numeric  (10,0);
VG_NRFATURA       numeric  (15,0);

VG_DTENTREGADATE;     
VG_VLPAGOnumeric  (15,2);
VG_NUMCONTRATOnumeric  (15,0);
VG_CODSITTITCPGvarchar  (2);
VG_CODBARRAvarchar  (50);
VG_CODFORNEnumeric  (12,0);
VG_FLENVBCOchar     (1);   
VG_OBSvarchar  (255);
VG_TPPAGTOvarchar  (4);   
VG_DTPAGTODATE;     
VG_CODUSERLIBPAGTO numeric  (6,0); 
VG_FLLIBPAGTO char     (1);   
VG_OBSLIBPAGTO varchar  (255);
VG_DTDIGIT DATE;     
VG_FLREPLICA char     (1);   
VG_FLINT char     (1);   
VG_DESCEMITENTE varchar  (150); 
VG_NUMNOTA numeric  (6,0);
VG_TPNOTA numeric  (3,0);
VG_CODFILDEV numeric  (3,0);
VG_NUMNOTADEV numeric  (6,0);
VG_SERIEDEV varchar  (3);   
VG_TPNOTADEV numeric  (3,0); 
VG_CODCONTA numeric  (3,0); 
VG_DIGAGEDEST char     (1);   
VG_DIGCTADEST varchar  (2);   
VG_NUMAGEDEST numeric  (5,0);
VG_NUMBCODEST numeric  (3,0); 
VG_NUMCTADEST numeric  (10,0);
VG_SERIECHQ varchar  (6);   
VG_TPNEG numeric  (3,0); 
VG_CODBLOQREQ varchar  (6);   
VG_CODEMPR numeric  (9,0); 
VG_CODFILCONTRAFIN numeric  (5,0); 
VG_NUMCONTRAFIN numeric  (9,0); 
VG_SERIECONTRAFIN varchar  (3);   
VG_TPCONTRATO  char     (1);   
VG_MESAPURACAOCOMIS DATE;     
VG_VLABATPREV  numeric  (17,4);
VG_VLBOLETOPREV  numeric  (17,4);
VG_VLDESCPREV  numeric  (17,4);
VG_VLFDORESPREV  numeric  (17,4);
VG_VLFUNRURALPREV numeric  (17,4);
VG_VLGARANTIAPREV numeric  (17,4);
VG_VLIRPREV  numeric  (17,4);
VG_VLISSPREV  numeric  (17,4);
VG_VLJUROSPREV  numeric  (17,4);
VG_VLMULTAPREV  numeric  (17,4);
VG_VLPRINCPREV  numeric  (17,4);
VG_VLSEGPREV  numeric  (17,4);
VG_VLTACPREV  numeric  (17,4);
VG_VLTAXADESAOPREV  numeric  (17,4);
VG_VLTAXADMPREV  numeric  (17,4);
VG_VLABAT  numeric  (17,4);
VG_VLBOLETO  numeric  (17,4);
VG_VLDESC  numeric  (17,4);
VG_VLFDORES  numeric  (17,4);
VG_VLFUNRURAL  numeric  (17,4);
VG_VLGARANTIA  numeric  (17,4);
VG_VLIR  numeric  (17,4);
VG_VLISS  numeric  (17,4);
VG_VLJUROS  numeric  (17,4);
VG_VLMULTA  numeric  (17,4);
VG_VLPRINC  numeric  (17,4);
VG_VLSEG  numeric  (17,4);
VG_VLTAC  numeric  (17,4);
VG_VLTAXADESAO  numeric  (17,4);
VG_VLTAXADM  numeric  (17,4);
VG_VLTOTAL  numeric  (17,4);
VG_PTAXADESAO  numeric  (7,4); 
VG_PTAXADM  numeric  (7,4); 
VG_PTAXAFDORES  numeric  (7,4); 
VG_PTAXAIR  numeric  (7,4); 
VG_PTAXAISS  numeric  (7,4); 
VG_PTAXASEG  numeric  (7,4); 
VG_NUMCOTACONS  numeric  (3,0); 
VG_NUMGRUPOCONS  numeric  (7,0); 
VG_DIGAGE  char     (1);   
VG_DIGCTA  varchar  (2);   
VG_DTPROCREC  DATE;     
VG_DTCANCEL  DATE;     
VG_IDENTPROC  varchar  (250); 
VG_NUMRENEGOCIACAO  numeric  (7,0); 
VG_NUMRENEGOCIADO numeric  (7,0); 
VG_VLINSS  numeric  (17,4);
VG_NRDIASATRASO  numeric  (3,0); 
VG_DTVENCTOORIG  DATE;     
VG_DTVENCTODIGIT  DATE;     
VG_DTALTSALDO  DATE;     
VG_NUMORCDESP  numeric  (6,0); 
VG_CODFILCXA  numeric  (5,0); 
VG_TXJUROSFIN  numeric  (8,6); 
VG_DTNEGOCIACAO  DATE;     
VG_TPNEGOCIACAO  char     (1);   
VG_CODFUNC  numeric  (11,0);
VG_NUMPREV  numeric  (6,0); 
VG_BCOCONVENIO  numeric  (3,0); 
VG_CONVENIOBCO  varchar  (20);  
VG_NUMTITINT  varchar  (15);  
VG_SEQTOLBARRA  numeric  (12,0);
VG_NUMDOCCONV  varchar  (15);  
VG_FLUTILTITULO  char     (1);   
VG_TPVERBA  char     (1);   
VG_FLCAPTITULO  char     (1);

---------------------------------------------------
-- DECLARACAO DE VARIAVEIS PARA CONTROLE DE ERROS --
----------------------------------------------------
VG_ERRO     varchar (1)    := ´N´;
VG_ERRO_INT varchar (2000) := ´´ ;
-------------------------------------------
-- DECLARACAO DE PARAMETROS DA PROCEDURE --
-------------------------------------------
VG_FLCODCLI     varchar2(1);
VG_PROCESSO     VARCHAR2(50) := ´SP_INT_CPG_TITULO´;
VG_ID_LOG       VARCHAR2(6)  := ´CPGTITULO´;
VG_NOME_ARQ_LOG VARCHAR2(50) := ´CPGTITULO´ || TO_CHAR(SYSDATE, ´_DDMMYY_HH24MI´) || ´.LOG´;


-----------------------------------------------------
-- DECLARACAO DE VARIAVEIS PARA CONTROLE DE STATUS --
-----------------------------------------------------
VG_STATUS_OK      numeric (1) := 2;
VG_STATUS_ERRO    numeric (1) := 1;
VG_STATUS_INT     numeric (1) := NULL;

----------------------------------------
-- DECLARACAO DE VARIAVEIS AUXILIARES --
----------------------------------------

VG_CODFIL_AUX                     numeric  (3,0); 
VG_CODEMITENTE_AUX                numeric  (15,0); 
VG_CODORIGCPG_AUX                 numeric  (6,0); 
VG_CODPORT_AUX                    numeric  (6,0); 
VG_NUMBCO_AUX                     numeric  (3,0); 
VG_NUMTIT_AUX                     numeric  (6,0);
    
    ----------------------------
    -- DECLARACAO DE CURSORES --
    ----------------------------
    
    CURSOR TITULO IS
SELECT  ROWID,      CODFIL,    TPEMITENTE, CODEMITENTE, NUMTIT, DESDTIT,
CODORIGCPG, DTEMISSAO, DTVENCTO,   CODPORT,     VLORIG,
VLORIGIND,  SLDTIT,    SLDTITIND,  CODIND,      NUMBORD,
NUMAUTORIZ, NUMTITGER, DESDTITGER, STATUS,SERIE,
NUMDOCTO,   NUMAGE,    TPCOB,      NUMBCO,      NUMCTA,
                NUMCHQ,     NRFATURA,
DTENTREGA,  VLPAGO,    NUMCONTRATO,CODSITTITCPG,     CODBARRA,
CODFORNE,  FLENVBCO,         OBS,  TPPAGTO,        DTPAGTO,       
CODUSERLIBPAGTO,  FLLIBPAGTO,       OBSLIBPAGTO,      DTDIGIT,          FLREPLICA,     
FLINT,  DESCEMITENTE,     NUMNOTA,          TPNOTA,           CODFILDEV,     
NUMNOTADEV,       SERIEDEV,         TPNOTADEV,        CODCONTA,         DIGAGEDEST,       
DIGCTADEST,       NUMAGEDEST,       NUMBCODEST,       NUMCTADEST,       SERIECHQ,         
TPNEG,            CODBLOQREQ,       CODEMPR,          CODFILCONTRAFIN,  NUMCONTRAFIN,     
SERIECONTRAFIN,   TPCONTRATO,       MESAPURACAOCOMIS, VLABATPREV,       VLBOLETOPREV,     
VLDESCPREV,       VLFDORESPREV,     VLFUNRURALPREV,   VLGARANTIAPREV,   VLIRPREV,         
VLISSPREV,        VLJUROSPREV,      VLMULTAPREV,      VLPRINCPREV,      VLSEGPREV,        
VLTACPREV,        VLTAXADESAOPREV,  VLTAXADMPREV,     VLABAT,           VLBOLETO,         
VLDESC,           VLFDORES,         VLFUNRURAL,       VLGARANTIA,       VLIR,             
VLISS,            VLJUROS,          VLMULTA,          VLPRINC,          VLSEG,            
VLTAC,            VLTAXADESAO,      VLTAXADM,         VLTOTAL,          PTAXADESAO,       
PTAXADM,          PTAXAFDORES,      PTAXAIR,          PTAXAISS,         PTAXASEG,         
NUMCOTACONS,      NUMGRUPOCONS,     DIGAGE,           DIGCTA,           DTPROCREC,        
DTCANCEL,         IDENTPROC,        NUMRENEGOCIACAO,  NUMRENEGOCIADO,   VLINSS,           
NRDIASATRASO,     DTVENCTOORIG,     DTVENCTODIGIT,    DTALTSALDO,       NUMORCDESP,       
CODFILCXA,        TXJUROSFIN,       DTNEGOCIACAO,     TPNEGOCIACAO,     CODFUNC,          
NUMPREV,          BCOCONVENIO,      CONVENIOBCO,      NUMTITINT,        SEQTOLBARRA,      
NUMDOCCONV,       FLUTILTITULO,     TPVERBA,          FLCAPTITULO      

FROM    INT_CPG_TITULO
WHERE   COALESCE(STATUS_INT, 0) = 0;

BEGIN


------------------------
-- ABERTURA DO CURSOR --
------------------------

OPEN TITULO;

    FETCH TITULO INTO    
VG_ROWID,           VG_CODFIL,           VG_TPEMITENTE,       VG_CODEMITENTE,      VG_NUMTIT, VG_DESDTIT,
VG_CODORIGCPG,      VG_DTEMISSAO,        VG_DTVENCTO,         VG_CODPORT,          VG_VLORIG,
VG_VLORIGIND,       VG_SLDTIT,           VG_SLDTITIND,        VG_CODIND,           VG_NUMBORD,
VG_NUMAUTORIZ,      VG_NUMTITGER,        VG_DESDTITGER,       VG_STATUS,           VG_SERIE,
VG_NUMDOCTO,        VG_NUMAGE,           VG_TPCOB,            VG_NUMBCO,           VG_NUMCTA, 
                VG_NUMCHQ,          VG_NRFATURA,
VG_DTENTREGA,    VG_VLPAGO,           VG_NUMCONTRATO,      VG_CODSITTITCPG,     VG_CODBARRA,
VG_CODFORNE,    VG_FLENVBCO,         VG_OBS,      VG_TPPAGTO,   VG_DTPAGTO,       
VG_CODUSERLIBPAGTO, VG_FLLIBPAGTO,       VG_OBSLIBPAGTO,      VG_DTDIGIT,          VG_FLREPLICA,     
VG_FLINT,    VG_DESCEMITENTE,     VG_NUMNOTA,          VG_TPNOTA,           VG_CODFILDEV,     
VG_NUMNOTADEV,      VG_SERIEDEV,         VG_TPNOTADEV,        VG_CODCONTA,         VG_DIGAGEDEST,       
VG_DIGCTADEST,      VG_NUMAGEDEST,       VG_NUMBCODEST,       VG_NUMCTADEST,       VG_SERIECHQ,         
VG_TPNEG,           VG_CODBLOQREQ,       VG_CODEMPR,          VG_CODFILCONTRAFIN,  VG_NUMCONTRAFIN,     
VG_SERIECONTRAFIN,  VG_TPCONTRATO,       VG_MESAPURACAOCOMIS, VG_VLABATPREV,       VG_VLBOLETOPREV,     
VG_VLDESCPREV,      VG_VLFDORESPREV,     VG_VLFUNRURALPREV,   VG_VLGARANTIAPREV,   VG_VLIRPREV,         
VG_VLISSPREV,       VG_VLJUROSPREV,      VG_VLMULTAPREV,      VG_VLPRINCPREV,      VG_VLSEGPREV,        
VG_VLTACPREV,       VG_VLTAXADESAOPREV,  VG_VLTAXADMPREV,     VG_VLABAT,           VG_VLBOLETO,         
VG_VLDESC,          VG_VLFDORES,         VG_VLFUNRURAL,       VG_VLGARANTIA,       VG_VLIR,             
VG_VLISS,           VG_VLJUROS,          VG_VLMULTA,          VG_VLPRINC,          VG_VLSEG,            
VG_VLTAC,           VG_VLTAXADESAO,      VG_VLTAXADM,         VG_VLTOTAL,          VG_PTAXADESAO,       
VG_PTAXADM,         VG_PTAXAFDORES,      VG_PTAXAIR,          VG_PTAXAISS,         VG_PTAXASEG,         
VG_NUMCOTACONS,     VG_NUMGRUPOCONS,     VG_DIGAGE,           VG_DIGCTA,           VG_DTPROCREC,        
VG_DTCANCEL,        VG_IDENTPROC,        VG_NUMRENEGOCIACAO,  VG_NUMRENEGOCIADO,   VG_VLINSS,           
VG_NRDIASATRASO,    VG_DTVENCTOORIG,     VG_DTVENCTODIGIT,    VG_DTALTSALDO,       VG_NUMORCDESP,       
VG_CODFILCXA,       VG_TXJUROSFIN,       VG_DTNEGOCIACAO,     VG_TPNEGOCIACAO,     VG_CODFUNC,          
VG_NUMPREV,         VG_BCOCONVENIO,      VG_CONVENIOBCO,      VG_NUMTITINT,        VG_SEQTOLBARRA,      
VG_NUMDOCCONV,      VG_FLUTILTITULO,     VG_TPVERBA,          VG_FLCAPTITULO;
        
BEGIN
    

    --------------------------------------------------------
    -- PROCURA POR RESPECTIVO CODIGO NA RESPECTIVA TABELA --
    --------------------------------------------------------
                    
                      
    IF VG_TPEMITENTE = ´2´ THEN
BEGIN
    SELECT CODFORNE INTO VG_CODEMITENTE_AUX
                            FROM CAD_FORNE
                            WHERE CODFORNE = VG_CODEMITENTE;
 
                     IF VG_CODEMITENTE = NULL THEN
      BEGIN
         VG_ERRO     := ´S´;
         VG_ERRO_INT := ´ERRO NO CODIGO DO FORNECEDOR ( CODCLICPG = ´ + CONVERT(VARCHAR(6),VG_CODEMITENTE) + ´ )´;
         GOTO GRAVA_STATUS;
     END;

             IF VG_TPEMITENTE = ´3´ THEN 
       BEGIN
           SELECT CODTRANSP INTO VG_CODEMITENTE_AUX
                                   FROM CAD_TRANSPORTADORA
                                   WHERE CODTRANSP = VG_CODEMITENTE;

                                   IF VG_CODEMITENTE_AUX = NULL THEN
   BEGIN
       VG_ERRO     := ´S´;
       VG_ERRO_INT := ´ERRO NO CODIGO DA TRANSPORTADORA ( CODCLICPG = ´ + CONVERT(VARCHAR(6),VG_CODEMITENTE) + ´ )´;
    
       GOTO GRAVA_STATUS;
   END;

             IF VG_TPEMITENTE = ´4´ THEN 
         BEGIN
               SELECT CODCLI INTO VG_CODEMITENTE_AUX    
                FROM CAD_CLIENTE
            WHERE CODCLI = VG_CODEMITENTE;

             IF VG_CODEMITENTE_AUX = NULL THEN
         BEGIN
             VG_ERRO     := ´S´;
            VG_ERRO_INT := ´ERRO NO CODIGO DO CLIENTE ( CODCLICPG = ´ + CONVERT(VARCHAR(7),VG_CODEMITENTE) + ´ )´;
    
            GOTO GRAVA_STATUS;
END;

    IF VG_TPEMITENTE = ´5´ THEN
BEGIN
            SELECT CODCON INTO VG_CODEMITENTE_AUX    
    FROM CXA_CADCON
    WHERE CODCON = VG_CODEMITENTE;

    IF VG_CODEMITENTE_AUX = NULL THEN
BEGIN
    VG_ERRO     := ´S´;
                   VG_ERRO_INT := ´ERRO NO CODIGO DO CONVENIADO ( CODCLICPG = ´ + CONVERT(VARCHAR(3),VG_CODEMITENTE) + ´ )´;
    
    GOTO GRAVA_STATUS;
END;


    IF VG_TPEMITENTE = ´6´ THEN
BEGIN
    SELECT CODPOR INTO VG_CODEMITENTE_AUX    
    FROM CAD_PORTADOR
    WHERE CODPOR = VG_CODEMITENTE;

    IF VG_CODEMITENTE_AUX = NULL THEN
BEGIN
    VG_ERRO     := ´S´;
    VG_ERRO_INT := ´ERRO NO CODIGO DO CONVENIADO ( CODCLICPG = ´ + CONVERT(VARCHAR(3),VG_CODEMITENTE) + ´ )´;
    
    GOTO GRAVA_STATUS;
END;
    ------------------------------------------------------
    -- PESQUISA NA CPG_ORIGEM SE ORIGEM ESTA CADASTRADO --
    ------------------------------------------------------
    SELECT CODORIGCPG INTO VG_CODORIGCPG_AUX 
    FROM CPG_ORIGEM
    WHERE CODORIGCPG = VG_CODORIGCPG;

    IF VG_CODORIGCPG_AUX IS NULL THEN
BEGIN
    VG_ERRO     := ´S´;
    VG_ERRO_INT := ´ERRO NO CODIGO DE ORIGEM ( CODORIGCPG = ´ + CONVERT(VARCHAR(3),VG_CODORIGCPG) + ´ )´;

    GOTO GRAVA_STATUS;
END;
    -----------------------------------------------
    -- PESQUISA NA CRC_PORTADOR SE PORTADOR ESTA --
    -- CADASTRADO CASO O MESMO SEJA INFORMADO    --
    -----------------------------------------------
    IF VG_CODPORT IS NOT NULL THEN
BEGIN
    SELECT CODPORT INTO VG_CODPORT_AUX
    FROM CRC_PORTADOR
    WHERE CODPORT = VG_CODPORT;

    IF VG_CODPORT_AUX IS NULL THEN
BEGIN
    VG_ERRO     := ´S´;
    VG_ERRO_INT := ´ERRO NO CODIGO DO PORTADOR ( CODPORT = ´ + CONVERT(VARCHAR(6),VG_CODPORT) + ´ )´;

    GOTO GRAVA_STATUS;
END;
    ----------------------------------------------------
    -- PESQUISA NA CAD_BANCO SE BANCO ESTA CADASTRADO --
    ----------------------------------------------------
    IF VG_NUMBCO IS NOT NULL THEN
BEGIN
    SELECT NUMBCO INTO VG_NUMBCO_AUX
    FROM CAD_BANCO
    WHERE NUMBCO = VG_NUMBCO;

    IF VG_NUMBCO_AUX IS NULL THEN
BEGIN
    VG_ERRO     := ´S´;
    VG_ERRO_INT := ´ERRO NO CODIGO DO BANCO ( NUMBCO = ´ + CONVERT(VARCHAR(3),VG_NUMBCO) + ´ )´;

    GOTO GRAVA_STATUS;
END;
    ------------------------------------------------------
    -- PESQUISA NA CAD_FILIAL SE FILIAL ESTA CADASTRADA --
    ------------------------------------------------------
    SELECT CODFIL INTO VG_CODFIL_AUX 
    FROM CAD_FILIAL
    WHERE CODFIL = VG_CODFIL;

    IF VG_CODFIL_AUX IS NULL THEN
BEGIN
   VG_ERRO     := ´S´;
   VG_ERRO_INT := ´ERRO NO CODIGO DA FILIAL ( CODFIL = ´ + CONVERT(VARCHAR(3),VG_CODFIL) + ´ )´;

    GOTO GRAVA_STATUS;
END;
    --------------------------------------------------
    -- PESQUISA NA CPG_TITULO SE REGISTRO JA EXISTE --
    --------------------------------------------------
    
                    SELECT NUMTIT INTO VG_NUMTIT_AUX
    FROM   CPG_TITULO    
    WHERECODFIL = VG_CODFIL AND
NUMTIT = VG_NUMTIT AND
DESDTIT = VG_DESDTIT AND
TPEMITENTE = VG_TPEMITENTE AND
CODEMITENTE = VG_CODEMITENTE AND
CODORIGCPG = VG_CODORIGCPG;

    IF VG_NUMTIT_AUX IS NOT NULL THEN
BEGIN
    VG_ERRO := ´S´;
    VG_ERRO_INT := ´ERRO AO TENTAR INCLUIR REGISTRO COM CHAVE DUPLICADA´;

    GOTO GRAVA_STATUS;
END;
    ---------------------------------
    -- INCLUI TITULO NA CPG_TITULO --
    ---------------------------------
 
    INSERT INTO CPG_TITULO
( CODFIL,        TPEMITENTE,        CODEMITENTE,      NUMTIT,          DESDTIT,
CODORIGCPG,      DTEMISSAO,         DTVENCTO,         CODPORT,         VLORIG,
VLORIGIND,       SLDTIT,            SLDTITIND,        CODIND,          NUMBORD,
NUMAUTORIZ,      NUMTITGER,         DESDTITGER,       STATUS,          SERIE,
NUMDOCTO,        NUMAGE,            TPCOB,            NUMBCO,          NUMCTA, 
            NUMCHQ,          NRFATURA,

DTENTREGA,  VLPAGO,           NUMCONTRATO,      CODSITTITCPG,     CODBARRA,
CODFORNE,  FLENVBCO,         OBS,  TPPAGTO,        DTPAGTO,       
CODUSERLIBPAGTO,  FLLIBPAGTO,       OBSLIBPAGTO,      DTDIGIT,          FLREPLICA,     
FLINT,  DESCEMITENTE,     NUMNOTA,          TPNOTA,           CODFILDEV,     
NUMNOTADEV,       SERIEDEV,         TPNOTADEV,        CODCONTA,         DIGAGEDEST,       
DIGCTADEST,       NUMAGEDEST,       NUMBCODEST,       NUMCTADEST,       SERIECHQ,         
TPNEG,            CODBLOQREQ,       CODEMPR,          CODFILCONTRAFIN,  NUMCONTRAFIN,     
SERIECONTRAFIN,   TPCONTRATO,       MESAPURACAOCOMIS, VLABATPREV,       VLBOLETOPREV,     
VLDESCPREV,       VLFDORESPREV,     VLFUNRURALPREV,   VLGARANTIAPREV,   VLIRPREV,         
VLISSPREV,        VLJUROSPREV,      VLMULTAPREV,      VLPRINCPREV,      VLSEGPREV,        
VLTACPREV,        VLTAXADESAOPREV,  VLTAXADMPREV,     VLABAT,           VLBOLETO,         
VLDESC,           VLFDORES,         VLFUNRURAL,       VLGARANTIA,       VLIR,             
VLISS,            VLJUROS,          VLMULTA,          VLPRINC,          VLSEG,            
VLTAC,            VLTAXADESAO,      VLTAXADM,         VLTOTAL,          PTAXADESAO,       
PTAXADM,          PTAXAFDORES,      PTAXAIR,          PTAXAISS,         PTAXASEG,         
NUMCOTACONS,      NUMGRUPOCONS,     DIGAGE,           DIGCTA,           DTPROCREC,        
DTCANCEL,         IDENTPROC,        NUMRENEGOCIACAO,  NUMRENEGOCIADO,   VLINSS,           
NRDIASATRASO,     DTVENCTOORIG,     DTVENCTODIGIT,    DTALTSALDO,       NUMORCDESP,       
CODFILCXA,        TXJUROSFIN,       DTNEGOCIACAO,     TPNEGOCIACAO,     CODFUNC,          
NUMPREV,          BCOCONVENIO,      CONVENIOBCO,      NUMTITINT,        SEQTOLBARRA,      
NUMDOCCONV,       FLUTILTITULO,     TPVERBA,          FLCAPTITULO)
    VALUES
( VG_CODFIL,  VG_TPEMITENTE,       VG_CODEMITENTE,      VG_NUMTIT,           VG_DESDTIT,
VG_CODORIGCPG,      VG_DTEMISSAO,        VG_DTVENCTO,         VG_CODPORT,          VG_VLORIG,
VG_VLORIGIND,       VG_SLDTIT,           VG_SLDTITIND,        VG_CODIND,           VG_NUMBORD,
VG_NUMAUTORIZ,      VG_NUMTITGER,        VG_DESDTITGER,       VG_STATUS,           VG_SERIE,
VG_NUMDOCTO,        VG_NUMAGE,           VG_TPCOB,            VG_NUMBCO,           VG_NUMCTA, 
            VG_NUMCHQ,          VG_NRFATURA,

VG_DTENTREGA,  VG_VLPAGO,           VG_NUMCONTRATO,      VG_CODSITTITCPG,     VG_CODBARRA,
VG_CODFORNE,  VG_FLENVBCO,         VG_OBS,    VG_TPPAGTO,       VG_DTPAGTO,       
VG_CODUSERLIBPAGTO, VG_FLLIBPAGTO,       VG_OBSLIBPAGTO,      VG_DTDIGIT,          VG_FLREPLICA,     
VG_FLINT,  VG_DESCEMITENTE,     VG_NUMNOTA,          VG_TPNOTA,           VG_CODFILDEV,     
VG_NUMNOTADEV,      VG_SERIEDEV,         VG_TPNOTADEV,        VG_CODCONTA,         VG_DIGAGEDEST,       
VG_DIGCTADEST,      VG_NUMAGEDEST,       VG_NUMBCODEST,       VG_NUMCTADEST,       VG_SERIECHQ,         
VG_TPNEG,           VG_CODBLOQREQ,       VG_CODEMPR,          VG_CODFILCONTRAFIN,  VG_NUMCONTRAFIN,     
VG_SERIECONTRAFIN,  VG_TPCONTRATO,       VG_MESAPURACAOCOMIS, VG_VLABATPREV,       VG_VLBOLETOPREV,     
VG_VLDESCPREV,      VG_VLFDORESPREV,     VG_VLFUNRURALPREV,   VG_VLGARANTIAPREV,   VG_VLIRPREV,         
VG_VLISSPREV,       VG_VLJUROSPREV,      VG_VLMULTAPREV,      VG_VLPRINCPREV,      VG_VLSEGPREV,        
VG_VLTACPREV,       VG_VLTAXADESAOPREV,  VG_VLTAXADMPREV,     VG_VLABAT,           VG_VLBOLETO,         
VG_VLDESC,          VG_VLFDORES,         VG_VLFUNRURAL,       VG_VLGARANTIA,       VG_VLIR,             
VG_VLISS,           VG_VLJUROS,          VG_VLMULTA,          VG_VLPRINC,          VG_VLSEG,            
VG_VLTAC,           VG_VLTAXADESAO,      VG_VLTAXADM,         VG_VLTOTAL,          VG_PTAXADESAO,       
VG_PTAXADM,         VG_PTAXAFDORES,      VG_PTAXAIR,          VG_PTAXAISS,         VG_PTAXASEG,         
VG_NUMCOTACONS,     VG_NUMGRUPOCONS,     VG_DIGAGE,           VG_DIGCTA,           VG_DTPROCREC,        
VG_DTCANCEL,        VG_IDENTPROC,        VG_NUMRENEGOCIACAO,  VG_NUMRENEGOCIADO,   VG_VLINSS,           
VG_NRDIASATRASO,    VG_DTVENCTOORIG,     VG_DTVENCTODIGIT,    VG_DTALTSALDO,       VG_NUMORCDESP,       
VG_CODFILCXA,       VG_TXJUROSFIN,       VG_DTNEGOCIACAO,     VG_TPNEGOCIACAO,     VG_CODFUNC,          
VG_NUMPREV,         VG_BCOCONVENIO,      VG_CONVENIOBCO,      VG_NUMTITINT,        VG_SEQTOLBARRA,      
VG_NUMDOCCONV,      VG_FLUTILTITULO,     VG_TPVERBA,          VG_FLCAPTITULO);
    IF ERROR <> 0 THEN    
BEGIN
    VG_ERRO     := ´S´;
    VG_ERRO_INT := ´PROBLEMAS COM INSERT NA CPG_TITULO.´;
    GOTO GRAVA_STATUS;
END;
    ELSE
BEGIN
    VG_ERRO     := ´N´;
    VG_ERRO_INT := ´TITULO DE CONTAS A PAGAR OK.´; 
    GOTO GRAVA_STATUS;
END;

<<NEXTRECORD>>
    
FETCH TITULO INTO
VG_ROWID,           VG_CODFIL,           VG_TPEMITENTE,       VG_CODEMITENTE,      VG_NUMTIT, VG_DESDTIT,
VG_CODORIGCPG,      VG_DTEMISSAO,        VG_DTVENCTO,         VG_CODPORT,          VG_VLORIG,
VG_VLORIGIND,       VG_SLDTIT,           VG_SLDTITIND,        VG_CODIND,           VG_NUMBORD,
VG_NUMAUTORIZ,      VG_NUMTITGER,        VG_DESDTITGER,       VG_STATUS,           VG_SERIE,
VG_NUMDOCTO,        VG_NUMAGE,           VG_TPCOB,            VG_NUMBCO,           VG_NUMCTA, 
                        VG_NUMCHQ,          VG_NRFATURA,
VG_DTENTREGA,  VG_VLPAGO,           VG_NUMCONTRATO,      VG_CODSITTITCPG,     VG_CODBARRA,
VG_CODFORNE,  VG_FLENVBCO,         VG_OBS,    VG_TPPAGTO,       VG_DTPAGTO,       
VG_CODUSERLIBPAGTO, VG_FLLIBPAGTO,       VG_OBSLIBPAGTO,      VG_DTDIGIT,          VG_FLREPLICA,     
VG_FLINT,  VG_DESCEMITENTE,     VG_NUMNOTA,          VG_TPNOTA,           VG_CODFILDEV,     
VG_NUMNOTADEV,      VG_SERIEDEV,         VG_TPNOTADEV,        VG_CODCONTA,         VG_DIGAGEDEST,       
VG_DIGCTADEST,      VG_NUMAGEDEST,       VG_NUMBCODEST,       VG_NUMCTADEST,       VG_SERIECHQ,         
VG_TPNEG,           VG_CODBLOQREQ,       VG_CODEMPR,          VG_CODFILCONTRAFIN,  VG_NUMCONTRAFIN,     
VG_SERIECONTRAFIN,  VG_TPCONTRATO,       VG_MESAPURACAOCOMIS, VG_VLABATPREV,       VG_VLBOLETOPREV,     
VG_VLDESCPREV,      VG_VLFDORESPREV,     VG_VLFUNRURALPREV,   VG_VLGARANTIAPREV,   VG_VLIRPREV,         
VG_VLISSPREV,       VG_VLJUROSPREV,      VG_VLMULTAPREV,      VG_VLPRINCPREV,      VG_VLSEGPREV,        
VG_VLTACPREV,       VG_VLTAXADESAOPREV,  VG_VLTAXADMPREV,     VG_VLABAT,           VG_VLBOLETO,         
VG_VLDESC,          VG_VLFDORES,         VG_VLFUNRURAL,       VG_VLGARANTIA,       VG_VLIR,             
VG_VLISS,           VG_VLJUROS,          VG_VLMULTA,          VG_VLPRINC,          VG_VLSEG,            
VG_VLTAC,           VG_VLTAXADESAO,      VG_VLTAXADM,         VG_VLTOTAL,          VG_PTAXADESAO,       
VG_PTAXADM,         VG_PTAXAFDORES,      VG_PTAXAIR,          VG_PTAXAISS,         VG_PTAXASEG,         
VG_NUMCOTACONS,     VG_NUMGRUPOCONS,     VG_DIGAGE,           VG_DIGCTA,           VG_DTPROCREC,        
VG_DTCANCEL,        VG_IDENTPROC,        VG_NUMRENEGOCIACAO,  VG_NUMRENEGOCIADO,   VG_VLINSS,           
VG_NRDIASATRASO,    VG_DTVENCTOORIG,     VG_DTVENCTODIGIT,    VG_DTALTSALDO,       VG_NUMORCDESP,       
VG_CODFILCXA,       VG_TXJUROSFIN,       VG_DTNEGOCIACAO,     VG_TPNEGOCIACAO,     VG_CODFUNC,          
VG_NUMPREV,         VG_BCOCONVENIO,      VG_CONVENIOBCO,      VG_NUMTITINT,        VG_SEQTOLBARRA,      
VG_NUMDOCCONV,      VG_FLUTILTITULO,     VG_TPVERBA,          VG_FLCAPTITULO; 

    
<<GRAVA_STATUS>>

    BEGIN

IF VG_ERRO = ´S´ THEN
    VG_STATUS_INT := VG_STATUS_ERRO;
ELSE
    VG_STATUS_INT := VG_STATUS_OK;

-------------------------------------
-- GRAVA NA TABELA OS CAMPOS CHAVE --
-- STATUS_INT, DT_INT, ERRO_INT    --
-------------------------------------
UPDATE INT_CPG_TITULO
SETSTATUS_INT = VG_STATUS_INT,
DT_INT = GETDATE(),
ERRO_INT = VG_ERRO_INT
WHERECURRENT OF TITULO;

GOTO NEXTRECORD;

            CLOSE TITULO;
END  

END SP_INT_CPG_TITULO;