                        Begin
                           SELECT MAX(CDCSTDIG1PROD)
                             INTO V_CST1DIGT
                             FROM PRODUTO
                            WHERE (CDARVPROD = C_ITEMPROD.CDARVPROD);
                           IF V_CST1DIGT IS NULL THEN
                              SELECT MAX(CDCSTDIG1CLI)
                                INTO V_CST1DIGT
                                FROM NOTAFISCAL N, CLIENTE C
                               WHERE CDFILIAL     = P_FILIAL    AND
                                     NRLANCTONF   = P_LANCTONF  AND
                                     N.CDCLIENTE  = C.CDCLIENTE;
                           END IF;
                        Exception
                           When No_Data_Found Then
                              V_CST1DIGT := Null;
                        End;
                     ELSE
                        Begin
                           SELECT MAX(CDCSTDIG1PROD)
                             INTO V_CST1DIGT
                             FROM PRODUTO
                            WHERE (CDARVPROD = C_ITEMPROD.CDARVPROD);
                           IF V_CST1DIGT IS NULL THEN
                              SELECT MAX(CDCSTDIG1ENT)
                                INTO   V_CST1DIGT
                                FROM NOTAFISCAL N, FORNECEDOR F
                               WHERE CDFILIAL     = P_FILIAL   AND
                                    NRLANCTONF    = P_LANCTONF AND
                                    N.CDFORNECED  = F.CDFORNECED;
                           END IF;
                        Exception
                           When No_Data_Found Then
                              V_CST1DIGT := Null;
                        End;
                     END IF;
                     IF (V_IDUTORIGPROD = 'S') AND (C_ITEMPROD.IDORIGEMPROD = 'E') AND (NVL(V_IDNFGERADAVIAXML, 'N') <> 'S') THEN
                        V_CST1DIGT := '2';
                     END IF;
                     IF (V_CDSITTRIBTMP IS NOT NULL) THEN
                        UPDATE ITEMPRODUTO
                           SET CDSITUTRIBPR  = V_CST1DIGT||V_CDSITTRIBTMP
                         WHERE CDFILIAL      = P_FILIAL AND
                               NRLANCTONF    = P_LANCTONF AND
                               NRSEQITPROD   = C_ITEMPROD.NRSEQITPROD;
                        V_SITUTRIBPR := V_CST1DIGT||V_CDSITTRIBTMP;
                     END IF;
                     V_CDGRUPOFISCAUX := NULL;
                     SELECT MAX(G.CDGRUPOFISC)
                       INTO V_CDGRUPOFISCAUX
                       FROM GRUPOFISCIMPFIL G,
                            (SELECT DECODE('E', 'E', CDFILIRECE, CDFILIEMIT) AS CDFILIAL
                               FROM NOTAFISCAL
                              WHERE CDFILIAL = P_FILIAL
                                    AND NRLANCTONF = P_LANCTONF) F
                      WHERE G.CDFILIAL = F.CDFILIAL
                        AND NOT G.CDGRUPOFISC IS NULL
                        AND G.CDIMPOSTO = C_IMPOSORIG.CDIMPOSTO;
                     IF V_IDORIGDESTNF = 'F' THEN
                        SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                          INTO V_CDGRUPOFISCAUX
                          FROM GRFISIMPIEFORN G,
                               (SELECT CDFORNECED
                                  FROM NOTAFISCAL
                                 WHERE CDFILIAL = P_FILIAL
                                   AND NRLANCTONF = P_LANCTONF) N
                         WHERE G.CDFORNECED = N.CDFORNECED
                           AND G.CDEMPRESA = P_EMPRESA
                           AND G.CDINSCESTA = P_INSCESTA
                           AND NOT G.CDGRUPOFISC IS NULL
                           AND G.CDIMPOSTO = C_IMPOSORIG.CDIMPOSTO;
                     ELSE
                        SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                          INTO V_CDGRUPOFISCAUX
                          FROM GRFISIMPIECLIE G,
                               (SELECT CDCLIENTE
                                  FROM NOTAFISCAL
                                 WHERE CDFILIAL = P_FILIAL
                                   AND NRLANCTONF = P_LANCTONF) N
                         WHERE G.CDCLIENTE = N.CDCLIENTE
                           AND G.CDEMPRESA = P_EMPRESA
                           AND G.CDINSCESTA = P_INSCESTA
                           AND NOT G.CDGRUPOFISC IS NULL
                           AND G.CDIMPOSTO = C_IMPOSORIG.CDIMPOSTO;
                     END IF;
                     IF (V_CDGRUPOFISCAUX IS NOT NULL) THEN
                        CONSULTA_CFOP(P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_PAISCFOP,
                                      V_ESTACFOP, V_PAISDEST, V_ESTADEST, P_FILIAL, P_LANCTONF, V_CDGRUPOFISCAUX, P_INIVALID, C_ITEMPROD.IDORIGEMPROD);
                     ELSE
                        CONSULTA_CFOP(P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_PAISCFOP,
                                      V_ESTACFOP, V_PAISDEST, V_ESTADEST, P_FILIAL, P_LANCTONF, V_CDGRUPOFISC, P_INIVALID, C_ITEMPROD.IDORIGEMPROD);
                     END IF;
                     -- ALTERA NATUREZA DE OPERAÇÃO DA NOTA FISCAL CASO NÃO EXISTA
                     IF (V_DSCDFISOPEITREGRA IS NOT NULL) THEN
                        UPDATE NOTAFISCAL
                           SET DSCDFISOPENF = V_DSCDFISOPEITREGRA
                         WHERE CDFILIAL   = P_FILIAL   AND
                               NRLANCTONF = P_LANCTONF;
                     ELSE
                        UPDATE NOTAFISCAL
                           SET DSCDFISOPENF = (SELECT MAX(DSCFOPTMP)
                                                 FROM CFOPTEMP
                                                WHERE NRCFOPTEMP = V_CFOPTEMP)
                         WHERE CDFILIAL   = P_FILIAL
                           AND NRLANCTONF = P_LANCTONF
                           AND DSCDFISOPENF IS NULL;
                     END IF;
                     SELECT MAX(CDFISOPETMP), MAX(CDSUFCFOPTMP), MAX(IDDIFALIQTMP),
                            MAX(DSCFOPTMP), NVL(MAX(IDDIFALIQCUSPRC),W_N)
                      INTO V_FISOPEITEM, V_SUFXCFOPPR, V_DIFALIQITEM,
                           V_DSCDFISOPEIT, V_IDDIFALIQCUSPRC
                      FROM CFOPTEMP
                      WHERE NRCFOPTEMP = V_CFOPTEMP;
                      V_FISOPEITEM      := NVL(V_CDFISCOPERREGRA, V_FISOPEITEM);
                      V_DSCDFISOPEIT    := NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT);
                      V_DIFALIQITEM     := NVL(V_IDDIFEALIQREGRA, V_DIFALIQITEM);
                      V_IDDIFALIQCUSPRC := NVL(V_IDDIFALIQCUSPRREGRA, V_IDDIFALIQCUSPRC);
                      -- ALTERA O CFOP DO ITEM E
                      UPDATE ITEMPRODUTO
                      SET CDFISOPEITEM = NVL(V_CDFISCOPERREGRA, V_FISOPEITEM),
                          CDSUFXCFOPPR = V_SUFXCFOPPR,
                          DSCDFISOPEIT = V_DSCDFISOPEIT
                      WHERE CDFILIAL    = P_FILIAL   AND
                            NRLANCTONF  = P_LANCTONF AND
                            NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                     DELETE CFOPTEMP
                      WHERE NRCFOPTEMP = V_CFOPTEMP;
                  END IF;
                  INSERT INTO TRABITPROIMPOS(
                     CDFILIMPOIT, NRLANCIMPOIT, NRSEQIMPOIT, CDIMPOSTOIT, NRSEQITPRO, CDFISCIMPOIT,
                     CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT,
                     VRCONTIMPOIT, VRBCALCIMPOIT, VRIMPOSIT, IDERRIMPOIT, IDAVISIMPOIT, IDVALORINFO,
                     CDSTRIBITNFE, IDMODBCITEMNFE, IDMODBCSTITENFE, CDTPCREDPICOITE, CDNATUBCALPCIT, IDMOTDESOTRABIT, CDREGRATRABIT,
                     VRPERDIFEREIT, VRIMPOSTOOPERAIT, VRIMPOSTODIFERIT, 
                     CDBENEFFISCAL, CDCEST)
                  VALUES(
                     P_FILIAL, P_LANCTONF, C_ITEMPROD.NRSEQITPROD, C_IMPOSORIG.CDIMPOSTO, C_IMPOSORIG.NRITPROIMPOS, C_IMPOSORIG.CDFISCALIT,
                     V_SITUTRIBPR, NVL(V_FISOPEITEM, C_IMPOSORIG.CDFISCOPERIT), NVL(V_SUFXCFOPPR, C_IMPOSORIG.CDSUFXCFOPIT), C_IMPOSORIG.VRALIQITEM, C_IMPOSORIG.VRPERREDBCIT, (C_IMPOSORIG.VRPARDEDIT * V_VRFATOCONV),
                     ROUND((C_IMPOSORIG.VRCONTITIMP * V_VRFATOCONV),5), ROUND((C_IMPOSORIG.VRBASECALCIT * V_VRFATOCONV), 2), (C_IMPOSORIG.VRIMPOSTOIT * V_VRFATOCONV), W_00000, W_00000, C_IMPOSORIG.IDVALORINFIT,
                     V_CDSITTRIBTMP, NVL(V_IDMODBCNFE, C_IMPOSORIG.IDMODBCITNFE), NVL(V_IDMODBCSTNFE, C_IMPOSORIG.IDMODBCSTITNFE),
                     V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, NVL(V_IDMOTIDESSTNFE, C_IMPOSORIG.IDMOTDESONERAIT), V_CDREGRAITALIQ,
                     C_IMPOSORIG.VRPERDIFEREIT, ROUND((C_IMPOSORIG.VRIMPOSTOOPERAIT * V_VRFATOCONV),2), ROUND((C_IMPOSORIG.VRIMPOSTODIFERIT * V_VRFATOCONV),2), 
                     C_IMPOSORIG.CDBENEFFISCAL, C_IMPOSORIG.CDCEST);
                  INSERT INTO ITEMPROIMPOS(
                     CDFILIAL, NRLANCTONF, NRSEQITPROD, CDIMPOSTO, NRITPROIMPOS, CDFISCALIT,
                     CDSITUTRIBIT, CDFISCOPERIT, CDSUFXCFOPIT, VRALIQITEM, VRPERREDBCIT, VRPARDEDIT,
                     VRCONTITIMP, VRBASECALCIT, VRIMPOSTOIT, IDERROSIMPIT, IDAVISIMPIT, CDSITUTRIBITNFE,
                     IDMODBCITNFE, IDMODBCSTITNFE, CDTPCREDPICOITE, CDNATUBCALPCIT, IDMOTDESONERAIT, CDREGRAIT,
                     VRPERDIFEREIT, VRIMPOSTOOPERAIT, VRIMPOSTODIFERIT, 
                     CDBENEFFISCAL, CDCEST)
                  VALUES(
                     P_FILIAL, P_LANCTONF, C_ITEMPROD.NRSEQITPROD, C_IMPOSORIG.CDIMPOSTO, C_IMPOSORIG.NRITPROIMPOS, C_IMPOSORIG.CDFISCALIT,
                     V_SITUTRIBPR, NVL(V_FISOPEITEM, C_IMPOSORIG.CDFISCOPERIT), NVL(V_SUFXCFOPPR, C_IMPOSORIG.CDSUFXCFOPIT), C_IMPOSORIG.VRALIQITEM, C_IMPOSORIG.VRPERREDBCIT, (C_IMPOSORIG.VRPARDEDIT * V_VRFATOCONV),
                     ROUND((C_IMPOSORIG.VRCONTITIMP * V_VRFATOCONV),5), ROUND((C_IMPOSORIG.VRBASECALCIT * V_VRFATOCONV), 2), (C_IMPOSORIG.VRIMPOSTOIT * V_VRFATOCONV), W_00000, W_00000, V_CDSITTRIBTMP,
                     NVL(V_IDMODBCNFE, C_IMPOSORIG.IDMODBCITNFE), NVL(V_IDMODBCSTNFE, C_IMPOSORIG.IDMODBCSTITNFE), V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, NVL(V_IDMOTIDESSTNFE, C_IMPOSORIG.IDMOTDESONERAIT), V_CDREGRAITALIQ,
                     C_IMPOSORIG.VRPERDIFEREIT, ROUND((C_IMPOSORIG.VRIMPOSTOOPERAIT * V_VRFATOCONV),2), ROUND((C_IMPOSORIG.VRIMPOSTODIFERIT * V_VRFATOCONV),2),
                     C_IMPOSORIG.CDBENEFFISCAL, C_IMPOSORIG.CDCEST);
               END LOOP;
            END IF;
            IF (V_IDOPERDEVONF = W_S) THEN
               CONSULTA_INCIDENCIA(P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, P_FILIAL, P_LANCTONF, V_CDGRUPOFISC,
                                   NULL, V_IDINTEREST, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, C_ITEMPROD.IDORIGEMPROD);
               FOR C_INCIDITEM IN (SELECT IT.CDIMPOTEMP, MAX(IT.CDFISCTEMP) AS CDFISCTEMP,
                                        MAX(IT.IDTRATIMPTMP) AS IDTRATIMPTMP, MAX(IP.IDCONSISTENT) AS IDCONSISTENT, MAX(NVL(IP.IDUTMUNIORIG, W_N)) AS IDUTMUNIORIG,
                                        MAX(IP.IDIMPORECUP)  AS IDIMPORECUP, MAX(NVL(IP.IDPREIMPENTR, W_N)) AS IDPREIMPENTR,
                                        MAX(IP.IDORGARRECAD) AS IDORGARRECAD, MAX(IDUTVLRQTDEIMPO) AS IDUTVLRQTDEIMPO,
                                        MAX(IP.IDUTVRPAUTA) AS IDUTVRPAUTA,   MAX(CDENQLEGALIPI)   AS CDENQLEGALIPI,
                                        MAX(IT.CDCEST) AS CDCEST
                                 FROM INCITEMP IT, IMPOSTO IP
                                 WHERE (IT.NRINCITEMP = V_INCITEMP)    AND
                                       (IP.CDIMPOSTO  = IT.CDIMPOTEMP)
                                 GROUP BY IT.CDIMPOTEMP
                                 ORDER BY IT.CDIMPOTEMP) LOOP
                  /*VERIFICA CST POR IMPOSTO*/
                  V_IMPOICMS := NULL;
                  V_CDGRUPOFISCAUX := NULL;
                  IF (C_INCIDITEM.CDCEST IS NOT NULL) THEN
                     V_CDCEST := C_INCIDITEM.CDCEST;
                  END IF;
                  SELECT MAX(G.CDGRUPOFISC)
                    INTO V_CDGRUPOFISCAUX
                    FROM GRUPOFISCIMPFIL G,
                         (SELECT DECODE('E', 'E', CDFILIRECE, CDFILIEMIT) AS CDFILIAL
                            FROM NOTAFISCAL
                           WHERE CDFILIAL = P_FILIAL
                                 AND NRLANCTONF = P_LANCTONF) F
                   WHERE G.CDFILIAL = F.CDFILIAL
                     AND NOT G.CDGRUPOFISC IS NULL
                     AND G.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  IF V_IDORIGDESTNF = 'F' THEN
                     SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                       INTO V_CDGRUPOFISCAUX
                       FROM GRFISIMPIEFORN G,
                            (SELECT CDFORNECED
                               FROM NOTAFISCAL
                              WHERE CDFILIAL = P_FILIAL
                                AND NRLANCTONF = P_LANCTONF) N
                      WHERE G.CDFORNECED = N.CDFORNECED
                        AND G.CDEMPRESA = P_EMPRESA
                        AND G.CDINSCESTA = P_INSCESTA
                        AND NOT G.CDGRUPOFISC IS NULL
                        AND G.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  ELSE
                     SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                       INTO V_CDGRUPOFISCAUX
                       FROM GRFISIMPIECLIE G,
                            (SELECT CDCLIENTE
                               FROM NOTAFISCAL
                              WHERE CDFILIAL = P_FILIAL
                                AND NRLANCTONF = P_LANCTONF) N
                      WHERE G.CDCLIENTE = N.CDCLIENTE
                        AND G.CDEMPRESA = P_EMPRESA
                        AND G.CDINSCESTA = P_INSCESTA
                        AND NOT G.CDGRUPOFISC IS NULL
                        AND G.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  END IF;
                  DELETE ALIQTEMP
                  WHERE NRALIQTEMP = V_ALIQTEMP;
                  IF C_INCIDITEM.IDUTMUNIORIG = W_D THEN
                     /* CONSIDERA O MUNICIPIO DE DESTINO */
                     IF V_UTGRUPFISCS = 'S' THEN
                        V_CDGRPFISCSV := NULL;
                        SELECT MAX(CDGRUPOFISC)
                        INTO V_CDGRPFISCSV
                        FROM SERVCLIE SC, SERVICO S
                        WHERE SC.CDFILIAL   = V_CDFILIEMIT AND
                              SC.CDCLIENTE  = P_FORNECED    AND
                              SC.CDFILIAL   = S.CDFILIAL   AND
                              SC.CDSERVFILI = S.CDSERVFILI AND
                              S.CDPRODUTO   = V_CDPRODORIG;
                        IF V_CDGRPFISCSV IS NULL THEN
                           SELECT MAX(CDGRUPOFISC)
                           INTO V_CDGRPFISCSV
                           FROM CLIENFILIAL
                          WHERE CDFILIAL   = V_CDFILIEMIT AND
                                CDCLIENTE  = P_FORNECED;
                        END IF;
                        CONSULTA_ALIQUOTA(C_INCIDITEM.CDIMPOTEMP, P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, V_PAISORIG,
                                          V_ESTAORIG, V_PAISDEST, V_ESTADEST, V_MUNIDEST, V_LIQUIITEM, P_INIVALID, P_FILIAL, P_LANCTONF, V_CDGRPFISCSV,P_TIPOOPER,
                                          NULL, NULL, NULL, NULL, P_FORNECED, NULL, C_ITEMPROD.IDORIGEMPROD);
                     ELSE
                        CONSULTA_ALIQUOTA(C_INCIDITEM.CDIMPOTEMP, P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, V_PAISORIG,
                                          V_ESTAORIG, V_PAISDEST, V_ESTADEST, V_MUNIDEST, V_LIQUIITEM, P_INIVALID, P_FILIAL, P_LANCTONF, V_CDGRUPOFISC, P_TIPOOPER,
                                          NULL, NULL, NULL, NULL, P_FORNECED, NULL, C_ITEMPROD.IDORIGEMPROD);
                     END IF;
                  ELSE
                    /* CONSIDERA O MUNICIPIO DE ORIGEM */
                     SELECT MAX(IDGRUPFISSRV)
                     INTO V_UTGRUPFISCS
                     FROM IMPOSTO
                     WHERE CDIMPOSTO   = C_INCIDITEM.CDIMPOTEMP;
                     IF V_UTGRUPFISCS = 'S' THEN
                        V_CDGRPFISCSV := NULL;
                        SELECT MAX(CDGRUPOFISC)
                        INTO V_CDGRPFISCSV
                        FROM SERVCLIE SC, SERVICO S
                        WHERE SC.CDFILIAL   = V_CDFILIEMIT AND
                              SC.CDCLIENTE  = P_FORNECED    AND
                              SC.CDFILIAL   = S.CDFILIAL   AND
                              SC.CDSERVFILI = S.CDSERVFILI AND
                              S.CDPRODUTO   = V_CDPRODORIG;
                        IF V_CDGRPFISCSV IS NULL THEN
                           SELECT MAX(CDGRUPOFISC)
                           INTO V_CDGRPFISCSV
                           FROM CLIENFILIAL
                          WHERE CDFILIAL   = V_CDFILIEMIT AND
                                CDCLIENTE  = P_FORNECED;
                        END IF;
                        CONSULTA_ALIQUOTA(C_INCIDITEM.CDIMPOTEMP, P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, V_PAISORIG,
                                          V_ESTAORIG, V_PAISDEST, V_ESTADEST, V_MUNIORIG, V_LIQUIITEM, P_INIVALID, P_FILIAL, P_LANCTONF, V_CDGRPFISCSV, P_TIPOOPER,
                                          NULL, NULL, NULL, NULL, P_FORNECED, NULL, C_ITEMPROD.IDORIGEMPROD);
                     ELSE
                        CONSULTA_ALIQUOTA(C_INCIDITEM.CDIMPOTEMP, P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, V_PAISORIG,
                                          V_ESTAORIG, V_PAISDEST, V_ESTADEST, V_MUNIORIG, V_LIQUIITEM, P_INIVALID, P_FILIAL, P_LANCTONF, V_CDGRUPOFISC, P_TIPOOPER,
                                          NULL, NULL, NULL, NULL, P_FORNECED, NULL, C_ITEMPROD.IDORIGEMPROD);
                     END IF;
                  END IF;
                  SELECT NVL(MAX(VRPARDEDTMP),0), NVL(MAX(VRPREDBCTMP),0), NVL(MAX(VRALIQUTMP),0),
                         NVL(MAX(VRPBCSTTMP),0),  NVL(MAX(IDTRIMPSTTMP), '0'), NVL(MAX(VR1PREDBCTMP), '0'),
                         MAX(CDREGRATMP), MAX(CDFISCOPER), MAX(IDDIFEALIQ),
                         MAX(IDDIFALIQCUSPR), MAX(CDBENEFFISCAL)
                    INTO V_PARDEDTMP, V_PREDBCTMP, V_ALIQUTMP,
                         V_PBCSUBTRIB, V_IDTRIMPSTII, V_PREDBCTMP1,
                         V_CDREGRAITALIQ, V_CDFISCOPERREGRA, V_IDDIFEALIQREGRA,
                         V_IDDIFALIQCUSPRREGRA, V_CDBENEFFISCAL
                    FROM ALIQTEMP
                   WHERE (NRALIQTEMP = V_ALIQTEMP);
                  /* Verifica primeiro digito do CFOP */
                  V_CFOP1DIGT := '';
                  IF V_PAISCFOP = V_PAISDEST THEN
                     IF V_ESTACFOP = V_ESTADEST THEN
                        V_CFOP1DIGT := '1';
                     ELSE
                        V_CFOP1DIGT := '2';
                     END IF;
                  ELSE
                     V_CFOP1DIGT := '3';
                  END IF;
                  SELECT MAX(CDIMPOSTO)
                    INTO V_IMPOICMS
                    FROM IMPOSTONFE N, IMPOSTO I
                   WHERE N.CDIMPOSTONFE = I.CDIMPOSTONFE
                     AND N.CDIMPOSTONFE = '00'
                     AND I.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  IF (V_IMPOICMS IS NOT NULL) THEN
                     IF (V_CDFISCOPERREGRA IS NOT NULL) THEN
                        IF (LENGTH(V_CDFISCOPERREGRA) < 4) THEN
                           V_CDFISCOPERREGRA := V_CFOP1DIGT||V_CDFISCOPERREGRA;
                        END IF;
                        V_FISOPEITEM := V_CDFISCOPERREGRA;
                        UPDATE ITEMPRODUTO
                           SET CDFISOPEITEM = V_CDFISCOPERREGRA
                         WHERE CDFILIAL     = P_FILIAL
                           AND NRLANCTONF  = P_LANCTONF
                           AND NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                     END IF;
                  END IF;
                  IF V_CDGRUPOFISCAUX IS NULL THEN
                     CONSULTA_CST_NFE(W_E, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_CDGRUPOFISC,C_INCIDITEM.CDIMPOTEMP, V_IDINTEREST, V_IDINTERNAC, P_FILIAL, P_LANCTONF, '', V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE, C_ITEMPROD.IDORIGEMPROD);
                  ELSE
                     CONSULTA_CST_NFE(W_E, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_CDGRUPOFISCAUX,C_INCIDITEM.CDIMPOTEMP, V_IDINTEREST, V_IDINTERNAC, P_FILIAL, P_LANCTONF, '', V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE, C_ITEMPROD.IDORIGEMPROD);
                  END IF;
                  V_IMPOICMS := NULL;
                  V_CST1DIGT := NULL;
                  SELECT MAX(CDIMPOSTO)
                    INTO V_IMPOICMS
                    FROM IMPOSTONFE N, IMPOSTO I
                   WHERE N.CDIMPOSTONFE = I.CDIMPOSTONFE
                     AND N.CDIMPOSTONFE = '00'
                     AND I.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  IF (V_IMPOICMS IS NOT NULL) THEN
                     IF V_IDORIGDESTNF = 'L' THEN
                        Begin
                           SELECT MAX(CDCSTDIG1PROD)
                             INTO V_CST1DIGT
                             FROM PRODUTO
                            WHERE (CDARVPROD = C_ITEMPROD.CDARVPROD);
                           IF V_CST1DIGT IS NULL THEN
                              SELECT MAX(CDCSTDIG1SAI)
                              INTO   V_CST1DIGT
                              FROM INSCRESTAD
                              WHERE CDEMPRESA  = P_EMPRESA AND
                                    CDINSCESTA = P_INSCESTA;
                           END IF;
                        Exception
                           When No_Data_Found Then
                              V_CST1DIGT := Null;
                        End;
                     ELSIF V_IDORIGDESTNF = 'C' THEN
                        Begin
                           SELECT MAX(CDCSTDIG1PROD)
                             INTO V_CST1DIGT
                             FROM PRODUTO
                            WHERE (CDARVPROD = C_ITEMPROD.CDARVPROD);
                           IF V_CST1DIGT IS NULL THEN
                              SELECT MAX(CDCSTDIG1CLI)
                                INTO V_CST1DIGT
                                FROM NOTAFISCAL N, CLIENTE C
                               WHERE CDFILIAL     = P_FILIAL    AND
                                     NRLANCTONF   = P_LANCTONF  AND
                                     N.CDCLIENTE  = C.CDCLIENTE;
                           END IF;
                        Exception
                           When No_Data_Found Then
                              V_CST1DIGT := Null;
                        End;
                     ELSE
                        Begin
                           SELECT MAX(CDCSTDIG1PROD)
                             INTO V_CST1DIGT
                             FROM PRODUTO
                            WHERE (CDARVPROD = C_ITEMPROD.CDARVPROD);
                           IF V_CST1DIGT IS NULL THEN
                              SELECT MAX(CDCSTDIG1ENT)
                                INTO   V_CST1DIGT
                                FROM NOTAFISCAL N, FORNECEDOR F
                               WHERE CDFILIAL     = P_FILIAL   AND
                                    NRLANCTONF    = P_LANCTONF AND
                                    N.CDFORNECED  = F.CDFORNECED;
                           END IF;
                        Exception
                           When No_Data_Found Then
                              V_CST1DIGT := Null;
                        End;
                     END IF;
                     IF (V_IDUTORIGPROD = 'S') AND (C_ITEMPROD.IDORIGEMPROD = 'E') AND (NVL(V_IDNFGERADAVIAXML, 'N') <> 'S') THEN
                        V_CST1DIGT := '2';
                     END IF;
                     IF (V_IMPOICMS IS NOT NULL) THEN
                        IF (V_CDSITTRIBTMP IS NOT NULL) THEN
                           UPDATE ITEMPRODUTO
                              SET CDSITUTRIBPR  = V_CST1DIGT||V_CDSITTRIBTMP
                            WHERE CDFILIAL      = P_FILIAL AND
                                  NRLANCTONF    = P_LANCTONF AND
                                  NRSEQITPROD   = C_ITEMPROD.NRSEQITPROD;
                           V_SITUTRIBPR := V_CST1DIGT||V_CDSITTRIBTMP;
                        END IF;
                     END IF;
                  END IF;
                  SELECT MAX(CDIMPOSTO)
                    INTO V_IMPOICMS
                    FROM IMPOSTONFE N, IMPOSTO I
                   WHERE N.CDIMPOSTONFE = I.CDIMPOSTONFE
                     AND N.CDIMPOSTONFE = '00'
                     AND I.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  UPDATE ITEMPROIMPOS
                  SET CDFISCALIT = C_INCIDITEM.CDFISCTEMP,
                      CDSITUTRIBITNFE = V_CDSITTRIBTMP,
                      IDMODBCITNFE    = V_IDMODBCNFE,
                      IDMODBCSTITNFE  = V_IDMODBCSTNFE,
                      CDTPCREDPICOITE = V_CDTPCRPICOSTNFE,
                      CDNATUBCALPCIT  = V_CDNATUBCPCSTNFE,
                      IDMOTDESONERAIT = V_IDMOTIDESSTNFE,
                      CDREGRAIT       = V_CDREGRAITALIQ,
                      CDENQLEGALIPI   = C_INCIDITEM.CDENQLEGALIPI,
                      CDBENEFFISCAL   = V_CDBENEFFISCAL,
                      CDCEST          = NVL(V_CDCEST, CDCEST)
                  WHERE CDFILIAL      = P_FILIAL                AND
                        NRLANCTONF    = P_LANCTONF              AND
                        NRSEQITPROD   = C_ITEMPROD.NRSEQITPROD  AND
                        CDIMPOSTO     = C_INCIDITEM.CDIMPOTEMP;
                  UPDATE TRABITPROIMPOS
                  SET CDFISCIMPOIT    = C_INCIDITEM.CDFISCTEMP,
                      CDSTRIBITNFE    = V_CDSITTRIBTMP,
                      IDMODBCITEMNFE  = V_IDMODBCNFE,
                      IDMODBCSTITENFE = V_IDMODBCSTNFE,
                      CDTPCREDPICOITE = V_CDTPCRPICOSTNFE,
                      CDNATUBCALPCIT  = V_CDNATUBCPCSTNFE,
                      IDMOTDESOTRABIT = V_IDMOTIDESSTNFE,
                      CDREGRATRABIT   = V_CDREGRAITALIQ,
                      CDENQLEGALIPI   = C_INCIDITEM.CDENQLEGALIPI,
                      CDBENEFFISCAL   = V_CDBENEFFISCAL,
                      CDCEST          = NVL(V_CDCEST, CDCEST)
                  WHERE CDFILIMPOIT   = P_FILIAL               AND
                        NRLANCIMPOIT  = P_LANCTONF             AND
                        NRSEQIMPOIT   = C_ITEMPROD.NRSEQITPROD AND
                        CDIMPOSTOIT   = C_INCIDITEM.CDIMPOTEMP;
                  UPDATE ITEMPROIMPOS
                  SET CDFISCALIT = '2'
                  WHERE CDFILIAL    = P_FILIAL    AND
                        NRLANCTONF  = P_LANCTONF  AND
                        VRPERREDBCIT > 0.00       AND
                        NRITPROIMPOS = '2';
                  UPDATE TRABITPROIMPOS
                  SET CDFISCIMPOIT = '2'
                  WHERE CDFILIMPOIT  = P_FILIAL   AND
                        NRLANCIMPOIT = P_LANCTONF AND
                        VRREDBCIMPOIT > 0.00      AND
                        NRSEQITPRO = '2';
                  DELETE INCITEMP
                  WHERE NRINCITEMP = V_INCITEMP;
                  V_FISOPEITEM      := NVL(V_CDFISCOPERREGRA, V_FISOPEITEM);
                  V_DSCDFISOPEIT    := NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT);
                  V_DIFALIQITEM     := NVL(V_IDDIFEALIQREGRA, V_DIFALIQITEM);
                  V_IDDIFALIQCUSPRC := NVL(V_IDDIFALIQCUSPRREGRA, V_IDDIFALIQCUSPRC);
                  IF (V_IMPOICMS IS NOT NULL) THEN
                     IF NOT V_FISOPEITEM IS NULL THEN
                        UPDATE NOTAFISCAL
                        SET CDFISOPENTF = NVL(V_CDFISCOPERREGRA, V_FISOPEITEM),
                            DSCDFISOPENF = NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT)
                        WHERE CDFILIAL   = P_FILIAL   AND
                              NRLANCTONF = P_LANCTONF;
                     END IF;
                  END IF;
                  V_CDGRUPOFISCAUX := NULL;
                  SELECT MAX(G.CDGRUPOFISC)
                    INTO V_CDGRUPOFISCAUX
                    FROM GRUPOFISCIMPFIL G,
                         (SELECT DECODE('E', 'E', CDFILIRECE, CDFILIEMIT) AS CDFILIAL
                            FROM NOTAFISCAL
                           WHERE CDFILIAL = P_FILIAL
                                 AND NRLANCTONF = P_LANCTONF) F
                   WHERE G.CDFILIAL = F.CDFILIAL
                     AND NOT G.CDGRUPOFISC IS NULL
                     AND G.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  IF V_IDORIGDESTNF = 'F' THEN
                     SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                       INTO V_CDGRUPOFISCAUX
                       FROM GRFISIMPIEFORN G,
                            (SELECT CDFORNECED
                               FROM NOTAFISCAL
                              WHERE CDFILIAL = P_FILIAL
                                AND NRLANCTONF = P_LANCTONF) N
                      WHERE G.CDFORNECED = N.CDFORNECED
                        AND G.CDEMPRESA = P_EMPRESA
                        AND G.CDINSCESTA = P_INSCESTA
                        AND NOT G.CDGRUPOFISC IS NULL
                        AND G.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  ELSE
                     SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                       INTO V_CDGRUPOFISCAUX
                       FROM GRFISIMPIECLIE G,
                            (SELECT CDCLIENTE
                               FROM NOTAFISCAL
                              WHERE CDFILIAL = P_FILIAL
                                AND NRLANCTONF = P_LANCTONF) N
                      WHERE G.CDCLIENTE = N.CDCLIENTE
                        AND G.CDEMPRESA = P_EMPRESA
                        AND G.CDINSCESTA = P_INSCESTA
                        AND NOT G.CDGRUPOFISC IS NULL
                        AND G.CDIMPOSTO = C_INCIDITEM.CDIMPOTEMP;
                  END IF;
                  IF (V_CDGRUPOFISCAUX IS NOT NULL) THEN
                     CONSULTA_CFOP(P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_PAISCFOP,
                                   V_ESTACFOP, V_PAISDEST, V_ESTADEST, P_FILIAL, P_LANCTONF, V_CDGRUPOFISCAUX, P_INIVALID, C_ITEMPROD.IDORIGEMPROD);
                  ELSE
                     CONSULTA_CFOP(P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_PAISCFOP,
                                   V_ESTACFOP, V_PAISDEST, V_ESTADEST, P_FILIAL, P_LANCTONF, V_CDGRUPOFISC, P_INIVALID, C_ITEMPROD.IDORIGEMPROD);
                  END IF;
                  -- ALTERA NATUREZA DE OPERAÇÃO DA NOTA FISCAL CASO NÃO EXISTA
                  IF (V_DSCDFISOPEITREGRA IS NOT NULL) THEN
                     UPDATE NOTAFISCAL
                        SET DSCDFISOPENF = V_DSCDFISOPEITREGRA
                      WHERE CDFILIAL   = P_FILIAL   AND
                            NRLANCTONF = P_LANCTONF;
                  ELSE
                     UPDATE NOTAFISCAL
                        SET DSCDFISOPENF = (SELECT MAX(DSCFOPTMP)
                                              FROM CFOPTEMP
                                             WHERE NRCFOPTEMP = V_CFOPTEMP)
                      WHERE CDFILIAL   = P_FILIAL
                        AND NRLANCTONF = P_LANCTONF
                        AND DSCDFISOPENF IS NULL;
                  END IF;
                  SELECT MAX(CDFISOPETMP), MAX(CDSUFCFOPTMP), MAX(IDDIFALIQTMP),
                         MAX(DSCFOPTMP), NVL(MAX(IDDIFALIQCUSPRC),W_N)
                   INTO V_FISOPEITEM, V_SUFXCFOPPR, V_DIFALIQITEM,
                        V_DSCDFISOPEIT, V_IDDIFALIQCUSPRC
                   FROM CFOPTEMP
                   WHERE NRCFOPTEMP = V_CFOPTEMP;
                   V_FISOPEITEM      := NVL(V_CDFISCOPERREGRA, V_FISOPEITEM);
                   V_DSCDFISOPEIT    := NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT);
                   V_DIFALIQITEM     := NVL(V_IDDIFEALIQREGRA, V_DIFALIQITEM);
                   V_IDDIFALIQCUSPRC := NVL(V_IDDIFALIQCUSPRREGRA, V_IDDIFALIQCUSPRC);
                   -- ALTERA O CFOP DO ITEM E
                   UPDATE ITEMPRODUTO
                   SET CDFISOPEITEM = NVL(V_CDFISCOPERREGRA, V_FISOPEITEM),
                       CDSUFXCFOPPR = V_SUFXCFOPPR,
                       DSCDFISOPEIT = V_DSCDFISOPEIT
                   WHERE CDFILIAL    = P_FILIAL   AND
                         NRLANCTONF  = P_LANCTONF AND
                         NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                  DELETE CFOPTEMP
                   WHERE NRCFOPTEMP = V_CFOPTEMP;
                  SELECT MAX(IDORDPRIMDFENT)
                    INTO V_IDORDPRIMDFENT
                    FROM PARAMGERAL;
                  CONSULTA_CSOSN(P_ENTRSAID, P_EMPRESA, C_ITEMPROD.CDARVPROD, P_INSCESTA, P_TIPOOPER, P_FILIAL, P_LANCTONF, V_CDGRUPOFISC, V_IDINTEREST, V_CDFISCOPERSN);
                  IF (NOT V_CDFISCOPERSN IS NULL) AND (LENGTH(V_CDFISCOPERSN) = 4) THEN
                     UPDATE ITEMPRODUTO
                        SET CDFISCOPERSN = V_CDFISCOPERSN
                      WHERE CDFILIAL    = P_FILIAL
                        AND NRLANCTONF  = P_LANCTONF
                        AND NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                  ELSE
                     UPDATE ITEMPRODUTO
                        SET CDFISCOPERSN = (SELECT MAX(I.CDFISCOPERSN)
                                              FROM ITEMPRODUTO I
                                             WHERE I.CDFILIAL   = V_FILIORIG
                                               AND I.NRLANCTONF = V_DEVOLORIG
                                               AND I.CDPRODUTO  = V_CDPRODORIG)
                      WHERE CDFILIAL    = P_FILIAL
                        AND NRLANCTONF  = P_LANCTONF
                        AND NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                  END IF;
                  IF (V_CDFISCOPERREGRA IS NOT NULL) THEN
                     V_DSCDFISOPEITREGRA := SUBSTR(DESCRICAO_CFOP(V_CDFISCOPERREGRA),1,45);
                  END IF;
                  IF (V_IMPOICMS IS NOT NULL) THEN
                     IF NOT V_FISOPEITEM IS NULL THEN
                        UPDATE ITEMPRODUTO
                        SET CDFISOPEITEM = NVL(V_CDFISCOPERREGRA, V_FISOPEITEM),
                            CDSUFXCFOPPR = V_SUFXCFOPPR,
                            DSCDFISOPEIT =  NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT)
                        WHERE CDFILIAL    = P_FILIAL                 AND
                              NRLANCTONF  = P_LANCTONF               AND
                              NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                        IF (V_IDOPERDEVONF = w_S) THEN
                           UPDATE TRABITPROIMPOS
                           SET CDSTRIBIMPOIT = V_SITUTRIBPR,
                               CDFOPERIMPOIT = NVL(V_CDFISCOPERREGRA, V_FISOPEITEM),
                               CDSCFOPIMPOIT = V_SUFXCFOPPR
                           WHERE CDFILIMPOIT = P_FILIAL                AND
                                 NRLANCIMPOIT = P_LANCTONF             AND
                                 NRSEQIMPOIT = C_ITEMPROD.NRSEQITPROD;
                        END IF;
                     ELSE
                        UPDATE ITEMPRODUTO
                           SET CDFISOPEITEM = NVL(V_CDFISCOPERREGRA, V_CFOP1DIGT || SUBSTR(CDFISOPEITEM,2,10))
                         WHERE CDFILIAL    = P_FILIAL                 AND
                               NRLANCTONF  = P_LANCTONF               AND
                               NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                        IF (V_IDOPERDEVONF = w_S) THEN
                           UPDATE TRABITPROIMPOS
                           SET CDFOPERIMPOIT = V_CFOP1DIGT || SUBSTR(CDFOPERIMPOIT,2,10)
                           WHERE CDFILIMPOIT = P_FILIAL                AND
                                 NRLANCIMPOIT = P_LANCTONF             AND
                                 NRSEQIMPOIT = C_ITEMPROD.NRSEQITPROD;
                        END IF;
                     END IF;
                  END IF;
                  DELETE CFOPTEMP
                  WHERE NRCFOPTEMP = V_CFOPTEMP;
                  SELECT MAX(CDSITTRIBTMP) INTO V_SITUTRIBPR
                  FROM CSTTEMP
                  WHERE NRCSTTEMP = V_CSTTEMP;
                  IF V_CDSITTRIBTMP IS NOT NULL THEN
                     V_SITUTRIBPR := V_CST1DIGT||V_CDSITTRIBTMP;
                  END IF;
                  IF P_ENTRSAID = W_E THEN
                     IF (SUBSTR(C_ITEMPROD.CDSITUTRIBPR,1,1) = SUBSTR(V_SITUTRIBPR,1,1)) OR
                        (C_ITEMPROD.CDSITUTRIBPR IS NULL) THEN
                        IF (V_IMPOICMS IS NOT NULL) THEN
                           UPDATE ITEMPRODUTO
                           SET CDSITUTRIBPR  = V_SITUTRIBPR
                           WHERE CDFILIAL    = P_FILIAL   AND
                                 NRLANCTONF  = P_LANCTONF AND
                                 NRSEQITPROD = C_ITEMPROD.NRSEQITPROD;
                        END IF;
                     END IF;
                  ELSIF P_ENTRSAID = W_S THEN
                     IF (SUBSTR(C_ITEMPROD.CDSITUTRIBPR,1,1) = SUBSTR(V_SITUTRIBPR,1,1)) OR
                        (C_ITEMPROD.CDSITUTRIBPR IS NULL) THEN
                        UPDATE ITEMPRODUTO
                        SET CDSITUTRIBPR  = V_SITUTRIBPR
                        WHERE CDFILIAL    = P_FILIAL               AND
                              NRLANCTONF  = P_LANCTONF             AND
                              NRSEQITPROD = C_ITEMPROD.NRSEQITPROD AND
                              CDSITUTRIBPR IS NULL;
                     END IF;
                  END IF;
                  DELETE CSTTEMP
                  WHERE NRCSTTEMP = V_CSTTEMP;
               END LOOP;
            END IF;
         END LOOP;
         IF (V_IDOPERDEVONF <> 'S') OR ( V_IDNFRETIND = 'S') OR (V_IDCOMPRABONI = 'S')THEN
            IF (V_IDNFRETIND = 'S') OR (V_IDCOMPRABONI = 'S') THEN
               FOR C_ITEMENCARGO IN (SELECT IE.CDENCARGO AS CDENCARGO, (VRITEMENCA-NVL(I.VRICMSSTITORIG,0)) VRITEMENCA, IDENCARGO,
                                            EN.CDCTBLENTREN, EN.CDCTBLSAIDEN
                                       FROM ENCARGO EN, ITEMENCARGO IE, (SELECT SUM(VRICMSSTITORIG) VRICMSSTITORIG
                                                                           FROM ITEMPRODUTO
                                                                          WHERE CDFILIAL   = P_FILIAL
                                                                            AND NRLANCTONF = P_LANCTONF) I
                                      WHERE (IE.CDFILIAL   = P_FILIAL)
                                        AND (IE.NRLANCTONF = P_LANCTONF)
                                        AND (IE.VRITEMENCA-NVL(I.VRICMSSTITORIG,0) > 0)
                                        AND (EN.CDENCARGO  = IE.CDENCARGO)) LOOP
                  SELECT SUM(VRTOTAITEM - VRDESCITEM) INTO V_TOTAPRODENCA
                  FROM ITEMPRODUTO IP
                  WHERE (IP.CDFILIAL   = P_FILIAL)   AND
                        (IP.NRLANCTONF = P_LANCTONF);
                  IF V_TOTAPRODENCA <> 0 THEN
                     FOR C_ATUAVRCONT IN(SELECT IP.NRSEQITPROD, (IP.VRTOTAITEM - IP.VRDESCITEM) AS VRLIQUIDO,
                                                IP.CDFISOPEITEM, IP.CDPRODUTO
                                           FROM ITEMPRODUTO IP, TPOPERCFOP T, NOTAFISCAL N
                                          WHERE IP.CDFILIAL     = P_FILIAL
                                            AND IP.NRLANCTONF   = P_LANCTONF
                                            AND IP.CDFILIAL     = N.CDFILIAL
                                            AND IP.NRLANCTONF   = N.NRLANCTONF
                                            AND IP.CDFISOPEITEM = T.CDFISCOPER
                                            AND N.CDTIPOOPER    = T.CDTIPOOPER
                                            AND T.IDCOMPOEVENC  = w_S)LOOP
                        IF (C_ITEMENCARGO.IDENCARGO = W_A) THEN
                           V_VRBRUTO := (C_ITEMENCARGO.VRITEMENCA/V_TOTAPRODENCA);
                        ELSIF (C_ITEMENCARGO.IDENCARGO = W_D) THEN
                           V_VRBRUTO := - (C_ITEMENCARGO.VRITEMENCA/V_TOTAPRODENCA);
                        ELSE
                           V_VRBRUTO := 0;
                        END IF;
                        IF (C_ITEMENCARGO.CDCTBLENTREN IS NULL) THEN
                           V_VRCONTAB := V_VRBRUTO;
                        ELSE
                           V_VRCONTAB := 0;
                        END IF;
                        UPDATE ITEMPRODUTO
                        SET VRBRUTITEM = VRBRUTITEM + (V_VRBRUTO  * (VRTOTAITEM - VRDESCITEM)),
                            VRCONTITEM = VRCONTITEM + (V_VRCONTAB * (VRTOTAITEM - VRDESCITEM))
                        WHERE CDFILIAL    = P_FILIAL   AND
                              NRLANCTONF  = P_LANCTONF AND
                              NRSEQITPROD = C_ATUAVRCONT.NRSEQITPROD;
                     END LOOP;
                  END IF;
               END LOOP;
            ELSE
               FOR C_ITEMENCARGO IN (SELECT IE.CDENCARGO AS CDENCARGO, (VRITEMENCA-NVL(I.VRICMSSTITORIG,0)) VRITEMENCA, IDENCARGO,
                                            EN.CDCTBLENTREN, EN.CDCTBLSAIDEN
                                       FROM ENCARGO EN, ITEMENCARGO IE, (SELECT SUM(VRICMSSTITORIG) VRICMSSTITORIG
                                                                           FROM ITEMPRODUTO
                                                                          WHERE CDFILIAL   = P_FILIAL
                                                                            AND NRLANCTONF = P_LANCTONF) I
                                      WHERE (IE.CDFILIAL   = P_FILIAL)
                                        AND (IE.NRLANCTONF = P_LANCTONF)
                                        AND (IE.VRITEMENCA-NVL(I.VRICMSSTITORIG,0) > 0)
                                        AND (EN.CDENCARGO  = IE.CDENCARGO)) LOOP
                  SELECT SUM(VRTOTAITEM - VRDESCITEM) INTO V_TOTAPRODENCA
                  FROM ITEMPRODUTO IP
                  WHERE (IP.CDFILIAL   = P_FILIAL)   AND
                        (IP.NRLANCTONF = P_LANCTONF);
                  IF V_TOTAPRODENCA <> 0 THEN
                     FOR C_ATUAVRCONT IN (SELECT IP.NRSEQITPROD, (VRTOTAITEM - VRDESCITEM) AS VRLIQUIDO
                                           FROM ITEMPRODUTO IP
                                           WHERE (IP.CDFILIAL    = P_FILIAL) AND
                                                 (IP.NRLANCTONF  = P_LANCTONF)) LOOP
                        IF (C_ITEMENCARGO.IDENCARGO = W_A) THEN
                           V_VRBRUTO := (C_ITEMENCARGO.VRITEMENCA/V_TOTAPRODENCA);
                        ELSIF (C_ITEMENCARGO.IDENCARGO = W_D) THEN
                           V_VRBRUTO := - (C_ITEMENCARGO.VRITEMENCA/V_TOTAPRODENCA);
                        ELSE
                           V_VRBRUTO := 0;
                        END IF;
                        IF (C_ITEMENCARGO.CDCTBLENTREN IS NULL) THEN
                           V_VRCONTAB := V_VRBRUTO;
                        ELSE
                           V_VRCONTAB := 0;
                        END IF;
                        UPDATE ITEMPRODUTO
                        SET VRBRUTITEM = VRBRUTITEM + (V_VRBRUTO  * (VRTOTAITEM - VRDESCITEM)),
                            VRCONTITEM = VRCONTITEM + (V_VRCONTAB * (VRTOTAITEM - VRDESCITEM))
                        WHERE CDFILIAL    = P_FILIAL   AND
                              NRLANCTONF  = P_LANCTONF AND
                              NRSEQITPROD = C_ATUAVRCONT.NRSEQITPROD;
                     END LOOP;
                  END IF;
               END LOOP;
            END IF;
         END IF;
         FOR C_QTITEM IN (SELECT NRSEQITPROD
                          FROM ITEMPRODUTO
                          WHERE (CDFILIAL   = P_FILIAL)   AND
                                (NRLANCTONF = P_LANCTONF) AND
                                (QTITEMPROD = 0)) LOOP
            DELETE TRABITPROIMPOS
            WHERE (CDFILIMPOIT  = P_FILIAL) AND
                  (NRLANCIMPOIT = P_LANCTONF) AND
                  (NRSEQIMPOIT = C_QTITEM.NRSEQITPROD);
         END LOOP;
         SELECT MAX(CDFILIMPOIT||NRLANCIMPOIT) AS IMPOSITEM
         INTO V_IMPOSITEM
         FROM TRABITPROIMPOS
         WHERE (CDFILIMPOIT  = P_FILIAL) AND
               (NRLANCIMPOIT = P_LANCTONF);
         IF V_IMPOSITEM IS NULL THEN
            DELETE TRABIMPOSNFTOT
            WHERE (CDFILIMPTOT  = P_FILIAL) AND
                  (NRLANCIMPTOT = P_LANCTONF);
         END IF;
         DELETE ITEMPRODUTO
         WHERE (CDFILIAL   = P_FILIAL)   AND
               (NRLANCTONF = P_LANCTONF) AND
               (QTITEMPROD = 0);
         FOR C_IMPOSPROD IN (SELECT IT.CDIMPOSTOIT,
                                    NVL(SUM(IT.VRIMPOSIT),0)  AS VRIMPOSTOIT,
                                    NVL(SUM(IT.VRBCALCIMPOIT),0) AS VRBASECALCIT
                             FROM TRABITPROIMPOS IT
                             WHERE (IT.CDFILIMPOIT  = P_FILIAL) AND
                                   (IT.NRLANCIMPOIT = P_LANCTONF)
                             GROUP BY IT.CDIMPOSTOIT) LOOP
            UPDATE TRABIMPOSNFTOT
            SET VRIMPOSTOT   = C_IMPOSPROD.VRIMPOSTOIT,
                VRBCALIMPTOT = C_IMPOSPROD.VRBASECALCIT
            WHERE (CDFILIMPTOT  = P_FILIAL)   AND
                  (NRLANCIMPTOT = P_LANCTONF) AND
                  (CDIMPOSTOT   = C_IMPOSPROD.CDIMPOSTOIT);
         END LOOP;
         IF V_IDOPERDEVONF <> 'S' THEN
            FOR C_PREDBCALC IN (SELECT NRSEQIMPOIT, CDIMPOSTOIT, CDSTRIBIMPOIT, CDFOPERIMPOIT,
                                       CDSCFOPIMPOIT, VRCONTIMPOIT, VRREDBCIMPOIT, VRBCALCIMPOIT,
                                       IDVALORINFO, P.CDARVPROD, I.IDORIGEMPROD, T.CDCEST
                                FROM TRABITPROIMPOS T, ITEMPRODUTO I, PRODUTO P
                                WHERE (CDFILIMPOIT   = P_FILIAL)   AND
                                      (NRLANCIMPOIT  = P_LANCTONF) AND
                                      (T.CDFILIMPOIT = I.CDFILIAL) AND
                                      (T.NRLANCIMPOIT = I.NRLANCTONF) AND
                                      (T.NRSEQIMPOIT = I.NRSEQITPROD) AND
                                      (I.CDPRODUTO = P.CDPRODUTO) AND
                                      (VRREDBCIMPOIT > 0)) LOOP
               DELETE ITEMPROIMPOS
               WHERE CDFILIAL     = P_FILIAL                AND
                     NRLANCTONF   = P_LANCTONF              AND
                     NRSEQITPROD  = C_PREDBCALC.NRSEQIMPOIT AND
                     CDIMPOSTO    = C_PREDBCALC.CDIMPOSTOIT AND
                     NRITPROIMPOS = W_2;
               /*VERIFICA CST POR IMPOSTO*/
               V_IMPOICMS := NULL;
               V_CDGRUPOFISCAUX := NULL;
               SELECT MAX(G.CDGRUPOFISC)
                 INTO V_CDGRUPOFISCAUX
                 FROM GRUPOFISCIMPFIL G,
                      (SELECT DECODE('E', 'E', CDFILIRECE, CDFILIEMIT) AS CDFILIAL
                         FROM NOTAFISCAL
                        WHERE CDFILIAL = P_FILIAL
                              AND NRLANCTONF = P_LANCTONF) F
                WHERE G.CDFILIAL = F.CDFILIAL
                  AND NOT G.CDGRUPOFISC IS NULL
                  AND G.CDIMPOSTO = C_PREDBCALC.CDIMPOSTOIT;
               IF V_IDORIGDESTNF = 'F' THEN
                  SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                    INTO V_CDGRUPOFISCAUX
                    FROM GRFISIMPIEFORN G,
                         (SELECT CDFORNECED
                            FROM NOTAFISCAL
                           WHERE CDFILIAL = P_FILIAL
                             AND NRLANCTONF = P_LANCTONF) N
                   WHERE G.CDFORNECED = N.CDFORNECED
                     AND G.CDEMPRESA = P_EMPRESA
                     AND G.CDINSCESTA = P_INSCESTA
                     AND NOT G.CDGRUPOFISC IS NULL
                     AND G.CDIMPOSTO = C_PREDBCALC.CDIMPOSTOIT;
               ELSE
                  SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
                    INTO V_CDGRUPOFISCAUX
                    FROM GRFISIMPIECLIE G,
                         (SELECT CDCLIENTE
                            FROM NOTAFISCAL
                           WHERE CDFILIAL = P_FILIAL
                             AND NRLANCTONF = P_LANCTONF) N
                   WHERE G.CDCLIENTE = N.CDCLIENTE
                     AND G.CDEMPRESA = P_EMPRESA
                     AND G.CDINSCESTA = P_INSCESTA
                     AND NOT G.CDGRUPOFISC IS NULL
                     AND G.CDIMPOSTO = C_PREDBCALC.CDIMPOSTOIT;
               END IF;
               IF V_CDGRUPOFISCAUX IS NULL THEN
                  CONSULTA_CST_NFE(W_E, P_EMPRESA, C_PREDBCALC.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_CDGRUPOFISC,C_PREDBCALC.CDIMPOSTOIT, V_IDINTEREST, V_IDINTERNAC, P_FILIAL, P_LANCTONF, '', V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE, C_PREDBCALC.IDORIGEMPROD);
               ELSE
                  CONSULTA_CST_NFE(W_E, P_EMPRESA, C_PREDBCALC.CDARVPROD, P_INSCESTA, P_TIPOOPER, V_CDGRUPOFISCAUX,C_PREDBCALC.CDIMPOSTOIT, V_IDINTEREST, V_IDINTERNAC, P_FILIAL, P_LANCTONF, '',V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE, C_PREDBCALC.IDORIGEMPROD);
               END IF;
               SELECT MAX(CDIMPOSTO)
                 INTO V_IMPOICMS
                 FROM IMPOSTONFE N, IMPOSTO I
                WHERE N.CDIMPOSTONFE = I.CDIMPOSTONFE
                  AND N.CDIMPOSTONFE = '00'
                  AND I.CDIMPOSTO = C_PREDBCALC.CDIMPOSTOIT;
               INSERT INTO ITEMPROIMPOS(
                  CDFILIAL, NRLANCTONF, NRSEQITPROD, CDIMPOSTO, NRITPROIMPOS, CDFISCALIT, CDSITUTRIBIT,
                  CDFISCOPERIT, CDSUFXCFOPIT, VRALIQITEM, VRPERREDBCIT, VRPARDEDIT, VRCONTITIMP,
                  VRBASECALCIT, VRIMPOSTOIT, IDERROSIMPIT, IDAVISIMPIT, CDSITUTRIBITNFE, IDMODBCITNFE, IDMODBCSTITNFE,
                  CDTPCREDPICOITE, CDNATUBCALPCIT, IDMOTDESONERAIT, CDREGRAIT, CDCEST)
               VALUES(
                  P_FILIAL, P_LANCTONF, C_PREDBCALC.NRSEQIMPOIT, C_PREDBCALC.CDIMPOSTOIT, W_2, W_2,
                  C_PREDBCALC.CDSTRIBIMPOIT, C_PREDBCALC.CDFOPERIMPOIT, C_PREDBCALC.CDSCFOPIMPOIT, 0,
                  0, 0, ROUND(C_PREDBCALC.VRCONTIMPOIT - C_PREDBCALC.VRBCALCIMPOIT,5), 0, 0, W_00000, W_00000,
                  V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE, V_CDREGRAITALIQ, C_PREDBCALC.CDCEST);
               DELETE TRABITPROIMPOS
               WHERE CDFILIMPOIT  = P_FILIAL   AND
                     NRLANCIMPOIT = P_LANCTONF AND
                     NRSEQIMPOIT  = C_PREDBCALC.NRSEQIMPOIT AND
                     CDIMPOSTOIT  = C_PREDBCALC.CDIMPOSTOIT AND
                     NRSEQITPRO   = W_2;
               INSERT INTO TRABITPROIMPOS(
                  CDFILIMPOIT, NRLANCIMPOIT, NRSEQIMPOIT, CDIMPOSTOIT, NRSEQITPRO, CDFISCIMPOIT,
                  CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT,
                  VRCONTIMPOIT, VRBCALCIMPOIT, VRIMPOSIT, IDERRIMPOIT, IDAVISIMPOIT, IDVALORINFO,
                  CDSTRIBITNFE, IDMODBCITEMNFE, IDMODBCSTITENFE, CDTPCREDPICOITE, CDNATUBCALPCIT, IDMOTDESOTRABIT, CDREGRATRABIT, CDCEST)
               VALUES(
                  P_FILIAL, P_LANCTONF, C_PREDBCALC.NRSEQIMPOIT, C_PREDBCALC.CDIMPOSTOIT, W_2, W_2,
                  C_PREDBCALC.CDSTRIBIMPOIT, C_PREDBCALC.CDFOPERIMPOIT, C_PREDBCALC.CDSCFOPIMPOIT, 0,
                  0, 0, ROUND(C_PREDBCALC.VRCONTIMPOIT - C_PREDBCALC.VRBCALCIMPOIT,5), 0, 0, W_00000, W_00000,
                  C_PREDBCALC.IDVALORINFO, V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE,
                  V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE, V_CDREGRAITALIQ, C_PREDBCALC.CDCEST);
            END LOOP;
         END IF;
         DELETE IMPOSTONF
         WHERE (CDFILIAL   = P_FILIAL)   AND
               (NRLANCTONF = P_LANCTONF);
         FOR C_IMPOSUBTRIB IN (SELECT NRSEQITPROD, CDIMPOSTO, IDTRIMPSTII
                               FROM ITEMPROIMPOS I
                               WHERE CDFILIAL     = V_FILIORIG  AND
                                     NRLANCTONF   = V_DEVOLORIG AND
                                     NRITPROIMPOS = W_1         AND
                                     EXISTS (SELECT CDIMPOSTO
                                             FROM IMPOSTO
                                             WHERE CDIMPOSTRIB = I.CDIMPOSTO)) LOOP
            UPDATE TRABITPROIMPOS
            SET IDTRIMPSTTI = C_IMPOSUBTRIB.IDTRIMPSTII
            WHERE CDFILIMPOIT  = P_FILIAL                  AND
                  NRLANCIMPOIT = P_LANCTONF                AND
                  NRSEQIMPOIT  = C_IMPOSUBTRIB.NRSEQITPROD AND
                  CDIMPOSTOIT  = C_IMPOSUBTRIB.CDIMPOSTO   AND
                  NRSEQITPRO   = W_1;
         END LOOP;
      ELSE
         SELECT NVL(SUM(VRTOTAITEM - VRDESCITEM),0) INTO V_TOTAPROD
         FROM ITEMPRODUTO
         WHERE CDFILIAL   = P_FILIAL   AND
               NRLANCTONF = P_LANCTONF;
      END IF;
   ELSE
      SELECT NVL(SUM(VRTOTAITEM - VRDESCITEM),0) INTO V_TOTAPROD
      FROM ITEMPRODUTO
      WHERE CDFILIAL   = P_FILIAL   AND
            NRLANCTONF = P_LANCTONF;
   END IF;
   IF P_TIPOOPER = '11' AND V_IDNFOUTRASNF = W_S THEN
      SELECT COUNT(*)
      INTO V_QTDEREGTRAB
      FROM TRABITPROIMPOS
      WHERE CDFILIMPOIT  = P_FILIAL   AND
            NRLANCIMPOIT = P_LANCTONF;
      IF V_QTDEREGTRAB = 0 THEN
         INSERT INTO TRABITPROIMPOS(
            CDFILIMPOIT, NRLANCIMPOIT, NRSEQIMPOIT, CDIMPOSTOIT, NRSEQITPRO, CDFISCIMPOIT, CDSTRIBIMPOIT,
            CDFOPERIMPOIT, CDSCFOPIMPOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT, VRCONTIMPOIT,
            VRBCALCIMPOIT, VRIMPOSIT, IDERRIMPOIT, IDAVISIMPOIT, IDVALORINFO,
            CDSTRIBITNFE, IDMODBCITEMNFE, IDMODBCSTITENFE,
            CDTPCREDPICOITE, CDNATUBCALPCIT, IDMOTDESOTRABIT, CDREGRATRABIT,
            VRPERDIFEREIT, VRIMPOSTOOPERAIT, VRIMPOSTODIFERIT, CDCEST)
            (SELECT CDFILIAL, NRLANCTONF, NRSEQITPROD, CDIMPOSTO, NRITPROIMPOS, CDFISCALIT, CDSITUTRIBIT,
                    CDFISCOPERIT, CDSUFXCFOPIT, VRALIQITEM, VRPERREDBCIT, VRPARDEDIT, ROUND(VRCONTITIMP,5) AS VRCONTITIMP,
                    ROUND(VRBASECALCIT, 2), VRIMPOSTOIT, IDERROSIMPIT, IDAVISIMPIT, NVL(IDVALORINFIT, W_N),
                    CDSITUTRIBITNFE, IDMODBCITNFE, IDMODBCSTITNFE,
                    CDTPCREDPICOITE, CDNATUBCALPCIT, IDMOTDESONERAIT, CDREGRAIT,
                    VRPERDIFEREIT, VRIMPOSTOOPERAIT, VRIMPOSTODIFERIT, CDCEST
             FROM ITEMPROIMPOS
             WHERE CDFILIAL   = P_FILIAL   AND
                   NRLANCTONF = P_LANCTONF);
         FOR C_IMPOSNFTOT IN (
            SELECT /*+ index (IP,PK_ITEMPROIMPOS)*/
                   IP.CDIMPOSTO, CDIMPOSTOIT, ROUND(SUM(NVL(VRIMPOSIT,0)),V_NRDECITOTANF) AS VRIMPOSTOIT, NVL(SUM(VRBASECALCIT),0) AS VRBASECALCIT,
                   NVL(SUM(VRBCALCIMPOIT),0) AS VRBCALCIMPOIT, MAX(NVL(IDPREIMPENTR, W_N)) AS IDPREIMPENTR
            FROM ITEMPROIMPOS IP, TRABITPROIMPOS TI, IMPOSTO I
            WHERE (IP.CDFILIAL     = P_FILIAL)        AND
                  (IP.NRLANCTONF   = P_LANCTONF)      AND
                  (TI.CDFILIMPOIT  = IP.CDFILIAL)     AND
                  (TI.NRLANCIMPOIT = IP.NRLANCTONF)   AND
                  (TI.NRSEQIMPOIT  = IP.NRSEQITPROD)  AND
                  (TI.NRSEQITPRO   = IP.NRITPROIMPOS) AND
                  (TI.CDIMPOSTOIT  = IP.CDIMPOSTO)    AND
                  (I.CDIMPOSTO     = TI.CDIMPOSTOIT)  AND
                  (IP.NRITPROIMPOS = 1)
            GROUP BY IP.CDIMPOSTO, TI.CDIMPOSTOIT) LOOP
            INSERT INTO IMPOSNFTOT(CDFILIAL, NRLANCTONF, CDIMPOSTO, VRTOTIMPONF, VRTOTBCALCNF)
                           VALUES (P_FILIAL, P_LANCTONF, C_IMPOSNFTOT.CDIMPOSTO, NVL(C_IMPOSNFTOT.VRIMPOSTOIT,0), NVL(C_IMPOSNFTOT.VRBASECALCIT,0));
         END LOOP;
         DELETE TRABIMPOSNFTOT WHERE CDFILIMPTOT = P_FILIAL AND NRLANCIMPTOT = P_LANCTONF;
         INSERT INTO TRABIMPOSNFTOT(
            CDFILIMPTOT, NRLANCIMPTOT, CDIMPOSTOT, VRIMPOSTOT, VRBCALIMPTOT,
                    IDERROSTOT, IDAVISOSTOT)
            (SELECT CDFILIAL, NRLANCTONF, CDIMPOSTO, VRTOTIMPONF, VRTOTBCALCNF,
                    IDERROSIMPTT, IDAVISIMPTT
                     FROM IMPOSNFTOT
                     WHERE CDFILIAL   = P_FILIAL AND
                           NRLANCTONF = P_LANCTONF);
      END IF;
   END IF;
   /* Altera CFOP e CST para as tabelas NOTAFISCAL e ITEMPRODUTO para nfs de devolução e complemento */
   IF (V_IDOPERDEVONF = w_S) OR (P_TIPOOPER = '03') THEN
      FOR C_ITPROD IN (SELECT NRSEQITPROD
                         FROM ITEMPRODUTO
                        WHERE CDFILIAL = P_FILIAL
                          AND NRLANCTONF = P_LANCTONF)
      LOOP
         V_CDSITUTRIBIT := '';
         V_CDFISCOPERIT := '';
         V_CDSUFXCFOPIT := '';
         SELECT MAX(CDSTRIBIMPOIT), MAX(CDFOPERIMPOIT), MAX(CDSCFOPIMPOIT)
           INTO V_CDSITUTRIBIT, V_CDFISCOPERIT, V_CDSUFXCFOPIT
           FROM TRABITPROIMPOS
          WHERE CDFILIMPOIT = P_FILIAL
            AND NRLANCIMPOIT = P_LANCTONF
            AND NRSEQIMPOIT = C_ITPROD.NRSEQITPROD;
      UPDATE ITEMPRODUTO
         SET CDSITUTRIBPR = V_CDSITUTRIBIT,
             CDFISOPEITEM = V_CDFISCOPERIT,
             CDSUFXCFOPPR = V_CDSUFXCFOPIT
       WHERE CDFILIAL = P_FILIAL
         AND NRLANCTONF = P_LANCTONF
         AND NRSEQITPROD = C_ITPROD.NRSEQITPROD;
      END LOOP;
   END IF;
   V_DIFERENCA := 0;
   /* RATEIO DOS ENCARGOS PARA OS PRODUTOS DA NOTA. ESTE RATEIO É NECESSÁRIO PARA A NOTA FISCAL ELETRÔNICA */
   FOR C_ITEMENCARGO IN (SELECT ENCARGO.CDENCARGONFE, SUM(ITEMENCARGO.VRITEMENCA) AS VRITEMENCA
                           FROM ITEMENCARGO, ENCARGO
                          WHERE ITEMENCARGO.CDENCARGO = ENCARGO.CDENCARGO
                            AND ENCARGO.CDENCARGONFE IN ('01', '02', '03', '04', '05')
                            AND NVL(ITEMENCARGO.VRITEMENCA, 0) >= 0
                            AND CDFILIAL = P_FILIAL
                            AND NRLANCTONF = P_LANCTONF
                          GROUP BY ENCARGO.CDENCARGONFE) LOOP
      /* ENCARGO FRETE */
      IF (C_ITEMENCARGO.CDENCARGONFE = '01') THEN
         IF (C_ITEMENCARGO.VRITEMENCA > 0) THEN
            FOR C_ITEMPRODUTO IN (SELECT NRSEQITPROD, VRTOTAITEM
                                    FROM ITEMPRODUTO
                                   WHERE CDFILIAL = P_FILIAL
                                     AND NRLANCTONF = P_LANCTONF) LOOP
               SELECT ITEMPRODUTO.VRTOTAITEM,
                      TOTAL.SOMATOTAITEM,
                      DECODE(TOTAL.SOMATOTAITEM, 0, 0, ((100 * ITEMPRODUTO.VRTOTAITEM) / TOTAL.SOMATOTAITEM)) AS PERCENTITEM
                 INTO V_VRTOTAITEM, V_SOMATOTAITEM, V_PERCENTITEM
                 FROM ITEMPRODUTO, (SELECT CDFILIAL, NRLANCTONF, SUM(VRTOTAITEM) SOMATOTAITEM
                                      FROM ITEMPRODUTO
                                     WHERE CDFILIAL = P_FILIAL
                                       AND NRLANCTONF = P_LANCTONF
                                     GROUP BY CDFILIAL, NRLANCTONF) TOTAL
                WHERE ITEMPRODUTO.CDFILIAL = TOTAL.CDFILIAL
                  AND ITEMPRODUTO.NRLANCTONF = TOTAL.NRLANCTONF
                  AND ITEMPRODUTO.NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               IF (V_IDSISTEMA = 'VND') OR (V_IDSISTEMA = 'PDV') THEN
                  UPDATE ITEMPRODUTO
                     SET VRFRETEITEM = TRUNC(C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               ELSE
                  UPDATE ITEMPRODUTO
                     SET VRFRETEITEM = ROUND(C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               END IF;
            END LOOP;
            /*AJUSTE DE VALORES*/
            SELECT SUM(VRFRETEITEM)
              INTO V_VRFRETEITEM
              FROM ITEMPRODUTO
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            V_DIFERENCA := C_ITEMENCARGO.VRITEMENCA - V_VRFRETEITEM;
            IF V_DIFERENCA <> 0 THEN
               UPDATE ITEMPRODUTO
                  SET VRFRETEITEM = VRFRETEITEM + V_DIFERENCA
                WHERE CDFILIAL = P_FILIAL
                  AND NRLANCTONF = P_LANCTONF
                  AND NRSEQITPROD = (SELECT MAX(NRSEQITPROD)
                                      FROM ITEMPRODUTO
                                      WHERE CDFILIAL = P_FILIAL
                                        AND NRLANCTONF = P_LANCTONF
                                        AND VRTOTAITEM = (SELECT MAX(VRTOTAITEM)
                                                           FROM ITEMPRODUTO
                                                          WHERE CDFILIAL = P_FILIAL
                                                            AND NRLANCTONF = P_LANCTONF));
            END IF;
         ELSE
            UPDATE ITEMPRODUTO
               SET VRFRETEITEM = 0
             WHERE CDFILIAL  = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
         END IF;
      END IF;
      /* ENCARGO SEGURO */
      IF (C_ITEMENCARGO.CDENCARGONFE = '02') THEN
         IF (C_ITEMENCARGO.VRITEMENCA > 0) THEN
            FOR C_ITEMPRODUTO IN (SELECT NRSEQITPROD, VRTOTAITEM
                                    FROM ITEMPRODUTO
                                   WHERE CDFILIAL = P_FILIAL
                                     AND NRLANCTONF = P_LANCTONF) LOOP
               SELECT ITEMPRODUTO.VRTOTAITEM,
                      TOTAL.SOMATOTAITEM,
                      DECODE(TOTAL.SOMATOTAITEM, 0, 0, ((100 * ITEMPRODUTO.VRTOTAITEM) / TOTAL.SOMATOTAITEM)) AS PERCENTITEM
                 INTO V_VRTOTAITEM, V_SOMATOTAITEM, V_PERCENTITEM
                 FROM ITEMPRODUTO, (SELECT CDFILIAL, NRLANCTONF, SUM(VRTOTAITEM) SOMATOTAITEM
                                      FROM ITEMPRODUTO
                                     WHERE CDFILIAL = P_FILIAL
                                       AND NRLANCTONF = P_LANCTONF
                                     GROUP BY CDFILIAL, NRLANCTONF) TOTAL
                WHERE ITEMPRODUTO.CDFILIAL = TOTAL.CDFILIAL
                  AND ITEMPRODUTO.NRLANCTONF = TOTAL.NRLANCTONF
                  AND ITEMPRODUTO.NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               IF (V_IDSISTEMA = 'VND') OR (V_IDSISTEMA = 'PDV') THEN
                  UPDATE ITEMPRODUTO
                     SET VRSEGURITEM = TRUNC(C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               ELSE
                  UPDATE ITEMPRODUTO
                     SET VRSEGURITEM = ROUND(C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               END IF;
            END LOOP;
            /*AJUSTE DE VALORES*/
            SELECT SUM(VRSEGURITEM)
              INTO V_VRSEGURITEM
              FROM ITEMPRODUTO
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            V_DIFERENCA := C_ITEMENCARGO.VRITEMENCA - V_VRSEGURITEM;
            IF V_DIFERENCA <> 0 THEN
               UPDATE ITEMPRODUTO
                  SET VRSEGURITEM = VRSEGURITEM + V_DIFERENCA
                WHERE CDFILIAL = P_FILIAL
                  AND NRLANCTONF = P_LANCTONF
                  AND NRSEQITPROD = (SELECT MAX(NRSEQITPROD)
                                      FROM ITEMPRODUTO
                                      WHERE CDFILIAL = P_FILIAL
                                        AND NRLANCTONF = P_LANCTONF
                                        AND VRTOTAITEM = (SELECT MAX(VRTOTAITEM)
                                                           FROM ITEMPRODUTO
                                                          WHERE CDFILIAL = P_FILIAL
                                                            AND NRLANCTONF = P_LANCTONF));
            END IF;
         ELSE
            UPDATE ITEMPRODUTO
               SET VRSEGURITEM = 0
             WHERE CDFILIAL  = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
         END IF;
      END IF;
      /* ENCARGO DESCONTO */
      IF (C_ITEMENCARGO.CDENCARGONFE = '03') THEN
         IF (C_ITEMENCARGO.VRITEMENCA > 0) THEN
            FOR C_ITEMPRODUTO IN (SELECT NRSEQITPROD, VRTOTAITEM
                                    FROM ITEMPRODUTO
                                   WHERE CDFILIAL = P_FILIAL
                                     AND NRLANCTONF = P_LANCTONF) LOOP
               SELECT ITEMPRODUTO.VRTOTAITEM,
                      TOTAL.SOMATOTAITEM,
                      DECODE(TOTAL.SOMATOTAITEM, 0, 0, ((100 * ITEMPRODUTO.VRTOTAITEM) / TOTAL.SOMATOTAITEM)) AS PERCENTITEM
                 INTO V_VRTOTAITEM, V_SOMATOTAITEM, V_PERCENTITEM
                 FROM ITEMPRODUTO, (SELECT CDFILIAL, NRLANCTONF, SUM(VRTOTAITEM) SOMATOTAITEM
                                      FROM ITEMPRODUTO
                                     WHERE CDFILIAL = P_FILIAL
                                       AND NRLANCTONF = P_LANCTONF
                                     GROUP BY CDFILIAL, NRLANCTONF) TOTAL
                WHERE ITEMPRODUTO.CDFILIAL = TOTAL.CDFILIAL
                  AND ITEMPRODUTO.NRLANCTONF = TOTAL.NRLANCTONF
                  AND ITEMPRODUTO.NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               IF (V_IDSISTEMA = 'VND') OR (V_IDSISTEMA = 'PDV') THEN
                  UPDATE ITEMPRODUTO
                     SET VRENCARGODESC = TRUNC(VRDESCITEM + (C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100)), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               ELSE
                  UPDATE ITEMPRODUTO
                     SET VRENCARGODESC = ROUND(VRDESCITEM + (C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100)), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               END IF;
            END LOOP;
            /*AJUSTE DE VALORES*/
            SELECT SUM(VRENCARGODESC)
              INTO V_VRENCARGODESC
              FROM ITEMPRODUTO
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            SELECT SUM(VRDESCITEM)
              INTO V_SUMVRDESCITEM
              FROM ITEMPRODUTO
             WHERE CDFILIAL  = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            V_DIFERENCA := (C_ITEMENCARGO.VRITEMENCA+V_SUMVRDESCITEM) - V_VRENCARGODESC;
            IF V_DIFERENCA <> 0 THEN
               UPDATE ITEMPRODUTO
                  SET VRENCARGODESC = VRENCARGODESC + V_DIFERENCA
                WHERE CDFILIAL = P_FILIAL
                  AND NRLANCTONF = P_LANCTONF
                  AND NRSEQITPROD = (SELECT MAX(NRSEQITPROD)
                                      FROM ITEMPRODUTO
                                      WHERE CDFILIAL = P_FILIAL
                                        AND NRLANCTONF = P_LANCTONF
                                        AND VRTOTAITEM = (SELECT MAX(VRTOTAITEM)
                                                           FROM ITEMPRODUTO
                                                          WHERE CDFILIAL = P_FILIAL
                                                            AND NRLANCTONF = P_LANCTONF));
            END IF;
         ELSE
            UPDATE ITEMPRODUTO
               SET VRENCARGODESC = VRDESCITEM + 0
             WHERE CDFILIAL  = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
         END IF;
      END IF;
      /*ENCARGO OUTRAS DESPESAS*/
      IF (C_ITEMENCARGO.CDENCARGONFE = '04') THEN
         IF (C_ITEMENCARGO.VRITEMENCA > 0) THEN
            FOR C_ITEMPRODUTO IN (SELECT NRSEQITPROD, VRTOTAITEM
                                    FROM ITEMPRODUTO
                                   WHERE CDFILIAL = P_FILIAL
                                     AND NRLANCTONF = P_LANCTONF) LOOP
               SELECT ITEMPRODUTO.VRTOTAITEM,
                      TOTAL.SOMATOTAITEM,
                      DECODE(TOTAL.SOMATOTAITEM, 0, 0, ((100 * ITEMPRODUTO.VRTOTAITEM) / TOTAL.SOMATOTAITEM)) AS PERCENTITEM
                 INTO V_VRTOTAITEM, V_SOMATOTAITEM, V_PERCENTITEM
                 FROM ITEMPRODUTO, (SELECT CDFILIAL, NRLANCTONF, SUM(VRTOTAITEM) SOMATOTAITEM
                                      FROM ITEMPRODUTO
                                     WHERE CDFILIAL = P_FILIAL
                                       AND NRLANCTONF = P_LANCTONF
                                     GROUP BY CDFILIAL, NRLANCTONF) TOTAL
                WHERE ITEMPRODUTO.CDFILIAL = TOTAL.CDFILIAL
                  AND ITEMPRODUTO.NRLANCTONF = TOTAL.NRLANCTONF
                  AND ITEMPRODUTO.NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               IF (V_IDSISTEMA = 'VND') OR (V_IDSISTEMA = 'PDV') THEN
                  UPDATE ITEMPRODUTO
                     SET VROUTRASDESPITEM = TRUNC((C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100)), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               ELSE
                  UPDATE ITEMPRODUTO
                     SET VROUTRASDESPITEM = ROUND((C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100)), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               END IF;
            END LOOP;
            /*AJUSTE DE VALORES*/
            SELECT SUM(VROUTRASDESPITEM)
              INTO V_VROUTRASDESPITEM
              FROM ITEMPRODUTO
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            V_DIFERENCA := C_ITEMENCARGO.VRITEMENCA - V_VROUTRASDESPITEM;
            IF V_DIFERENCA <> 0 THEN
               UPDATE ITEMPRODUTO
                  SET VROUTRASDESPITEM = VROUTRASDESPITEM + V_DIFERENCA
                WHERE CDFILIAL = P_FILIAL
                  AND NRLANCTONF = P_LANCTONF
                  AND NRSEQITPROD = (SELECT MAX(NRSEQITPROD)
                                      FROM ITEMPRODUTO
                                      WHERE CDFILIAL = P_FILIAL
                                        AND NRLANCTONF = P_LANCTONF
                                        AND VRTOTAITEM = (SELECT MAX(VRTOTAITEM)
                                                           FROM ITEMPRODUTO
                                                          WHERE CDFILIAL = P_FILIAL
                                                            AND NRLANCTONF = P_LANCTONF));
            END IF;
         ELSE
            UPDATE ITEMPRODUTO
               SET VROUTRASDESPITEM = 0
             WHERE CDFILIAL  = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
         END IF;
      END IF;
      /*ENCARGO DESPESAS ADUANEIRAS*/
      IF (C_ITEMENCARGO.CDENCARGONFE = '05') THEN
        /*REFAZ O RATEIO DO ENCARGO VERIFICANDO A INCIDENCIA DO IMPOSTO DE IMPORTACAO*/
         UPDATE ITEMPRODUTO
            SET VRDESPADUANEIRA = 0
          WHERE CDFILIAL  = P_FILIAL
            AND NRLANCTONF = P_LANCTONF;
         IF (C_ITEMENCARGO.VRITEMENCA > 0) THEN
            FOR C_ITEMPRODUTO IN (SELECT DISTINCT(I.NRSEQITPROD)
                                    FROM ITEMPROIMPOS I, IMPOSTO II
                                   WHERE I.NRLANCTONF    = P_LANCTONF
                                     AND I.CDFILIAL      = P_FILIAL
                                     AND I.CDIMPOSTO     = II.CDIMPOSTO
                                     AND II.CDIMPOSTONFE = '20') LOOP
               SELECT ITEMPRODUTO.VRTOTAITEM,
                      TOTAL.SOMATOTAITEM,
                      DECODE(TOTAL.SOMATOTAITEM, 0, 0, ((100 * ITEMPRODUTO.VRTOTAITEM) / TOTAL.SOMATOTAITEM)) AS PERCENTITEM
                 INTO V_VRTOTAITEM, V_SOMATOTAITEM, V_PERCENTITEM
                 FROM ITEMPRODUTO, (SELECT CDFILIAL, NRLANCTONF, SUM(VRTOTAITEM) SOMATOTAITEM
                                      FROM ITEMPRODUTO
                                     WHERE CDFILIAL = P_FILIAL
                                       AND NRLANCTONF = P_LANCTONF
                                     GROUP BY CDFILIAL, NRLANCTONF) TOTAL
                WHERE ITEMPRODUTO.CDFILIAL = TOTAL.CDFILIAL
                  AND ITEMPRODUTO.NRLANCTONF = TOTAL.NRLANCTONF
                  AND ITEMPRODUTO.NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               IF (V_IDSISTEMA = 'VND') OR (V_IDSISTEMA = 'PDV') THEN
                  UPDATE ITEMPRODUTO
                     SET VRDESPADUANEIRA = TRUNC((C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100)), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               ELSE
                  UPDATE ITEMPRODUTO
                     SET VRDESPADUANEIRA = ROUND((C_ITEMENCARGO.VRITEMENCA * (V_PERCENTITEM / 100)), 2)
                   WHERE CDFILIAL  = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND NRSEQITPROD = C_ITEMPRODUTO.NRSEQITPROD;
               END IF;
            END LOOP;
            /*AJUSTE DE VALORES*/
            SELECT SUM(VRDESPADUANEIRA)
              INTO V_VRDESPADUANEIRA
              FROM ITEMPRODUTO
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            V_DIFERENCA := C_ITEMENCARGO.VRITEMENCA - V_VRDESPADUANEIRA;
            IF V_DIFERENCA <> 0 THEN
               UPDATE ITEMPRODUTO
                  SET VRDESPADUANEIRA = VRDESPADUANEIRA + V_DIFERENCA
                WHERE CDFILIAL = P_FILIAL
                  AND NRLANCTONF = P_LANCTONF
                  AND NRSEQITPROD = (SELECT MAX(II.NRSEQITPROD)
                                       FROM ITEMPRODUTO I, ITEMPROIMPOS II, IMPOSTO S
                                      WHERE I.CDFILIAL     = P_FILIAL
                                        AND I.NRLANCTONF   = P_LANCTONF
                                        AND I.CDFILIAL     = II.CDFILIAL
                                        AND I.NRLANCTONF   = II.NRLANCTONF
                                        AND I.NRSEQITPROD  = II.NRSEQITPROD
                                        AND II.CDIMPOSTO   = S.CDIMPOSTO
                                        AND S.CDIMPOSTONFE = '20'
                                        AND VRTOTAITEM = (SELECT MAX(VRTOTAITEM)
                                                            FROM ITEMPRODUTO I, ITEMPROIMPOS II, IMPOSTO S
                                                           WHERE I.CDFILIAL     = P_FILIAL
                                                             AND I.NRLANCTONF   = P_LANCTONF
                                                             AND I.CDFILIAL     = II.CDFILIAL
                                                             AND I.NRLANCTONF   = II.NRLANCTONF
                                                             AND I.NRSEQITPROD  = II.NRSEQITPROD
                                                             AND II.CDIMPOSTO   = S.CDIMPOSTO
                                                             AND S.CDIMPOSTONFE = '20'));
            END IF;
         ELSE
            UPDATE ITEMPRODUTO
               SET VRDESPADUANEIRA = 0
             WHERE CDFILIAL  = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
         END IF;
      END IF;
   END LOOP;
   --CÁLCULO DO VALOR TOTAL DA NOTA FISCAL
   SELECT SUM(VRITEMENCA) INTO V_SOMAENCA
   FROM ITEMENCARGO IE, ENCARGO EN
   WHERE IE.CDFILIAL   = P_FILIAL     AND
         IE.NRLANCTONF = P_LANCTONF   AND
         EN.CDENCARGO  = IE.CDENCARGO AND
         EN.IDENCARGO  = W_A;
   SELECT SUM(VRITEMENCA) INTO V_MENOENCA
   FROM ITEMENCARGO IE, ENCARGO EN
   WHERE IE.CDFILIAL   = P_FILIAL     AND
         IE.NRLANCTONF = P_LANCTONF   AND
         EN.CDENCARGO  = IE.CDENCARGO AND
         EN.IDENCARGO  = W_D;
   SELECT SUM(VRIMPOSTOT) INTO V_SOMAIMPO
   FROM TRABIMPOSNFTOT T, IMPOSTO I
   WHERE CDFILIMPTOT  = P_FILIAL     AND
         NRLANCIMPTOT = P_LANCTONF   AND
         I.CDIMPOSTO  = T.CDIMPOSTOT AND
         IDTRATIMPO   = W_A          AND
         NVL(IDACRPRODENTRNF, 'N') = 'N' AND
         NOT EXISTS(SELECT CDIMPOSTO
                    FROM IMPOSTO
                    WHERE IMPOSTO.CDIMPOSTRIB = T.CDIMPOSTOT);
   SELECT NVL(SUM(VRADICFECP), 0)
     INTO V_SOMAVRADICFECP
     FROM TRABITPROIMPOS T, IMPOSTO I
    WHERE T.CDFILIMPOIT  = P_FILIAL     AND
          T.NRLANCIMPOIT = P_LANCTONF   AND
          I.CDIMPOSTO  = T.CDIMPOSTOIT  AND
          IDTRATIMPO   = 'A'            AND
          NRSEQITPRO   = '1';
   V_SOMAIMPO := NVL(V_SOMAIMPO, 0) + V_SOMAVRADICFECP;
   SELECT SUM(VRIMPOSTOT) INTO V_MENOIMPO
   FROM TRABIMPOSNFTOT T, IMPOSTO I
   WHERE CDFILIMPTOT  = P_FILIAL     AND
         NRLANCIMPTOT = P_LANCTONF   AND
         I.CDIMPOSTO  = T.CDIMPOSTOT AND
         IDTRATIMPO   = W_D;
   IF NOT (V_LIQUIDO IS NULL) THEN
      V_TOTALNOTA := V_LIQUIDO;
   END IF;
   IF NOT (V_SOMAIMPO IS NULL) THEN
      V_TOTALNOTA := V_TOTALNOTA + ROUND(V_SOMAIMPO, 2);
   END IF;
   IF NOT (V_MENOIMPO IS NULL) THEN
      V_TOTALNOTA := V_TOTALNOTA - ROUND(V_MENOIMPO, 2);
   END IF;
   IF NOT (V_SOMAENCA IS NULL) THEN
      V_TOTALNOTA := V_TOTALNOTA + V_SOMAENCA;
   END IF;
   IF NOT (V_MENOENCA IS NULL) THEN
      V_TOTALNOTA := V_TOTALNOTA - V_MENOENCA;
   END IF;
   --VALOR SUBSTITUIÇÃO TRIBUTÁRIA COM IDENTIFICAÇÃO PARA ACRESCER AO TOTAL DA NF
   SELECT COUNT(*), NVL(SUM(ROUND(T.VRIMPOSIT, V_NRDECITOTANF)),0)
   INTO V_COUNT, V_SOMAIMPO
   FROM TRABITPROIMPOS T, IMPOSTO I
   WHERE T.CDFILIMPOIT  = P_FILIAL   AND
         T.NRLANCIMPOIT = P_LANCTONF AND
         NVL(T.IDTRIMPSTTI, '0')  = '0'        AND
         T.CDIMPOSTOIT    = I.CDIMPOSTO AND
         NVL(I.IDACRPRODENTRNF, 'N') = 'N' AND
         EXISTS(SELECT CDIMPOSTO
                FROM IMPOSTO
                WHERE CDIMPOSTRIB = T.CDIMPOSTOIT);
   IF NOT (V_SOMAIMPO IS NULL) THEN
      V_TOTALNOTA := V_TOTALNOTA + ROUND(V_SOMAIMPO, 2);
   END IF;
   -- Subtrai o valor dos importos a reter no valor da nota fiscal
   BEGIN
      SELECT SUM(VRIMPOSTOT)
        INTO V_VRIMPORETNF
        FROM TRABIMPOSNFTOT T, IMPOSTO I
       WHERE CDFILIMPTOT  = P_FILIAL
         AND NRLANCIMPTOT = P_LANCTONF
         AND I.CDIMPOSTO  = T.CDIMPOSTOT
         AND IDTRATIMPO   = 'R'
         AND IDDESCRFONTE = 'N';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_VRIMPORETNF := 0;
   END;
   IF NOT (V_VRIMPORETNF IS NULL) THEN
      V_TOTALNOTA := V_TOTALNOTA - ROUND(V_VRIMPORETNF, 2);
   END IF;
   IF (V_INTEGRACAO IS NULL) OR (P_ENTRSAID = W_E) THEN
      IF ((V_TOTALNOTA <> 0) AND (NVL(V_LIQUIDO,0) = 0)) THEN
         SELECT NVL(MAX(VRPRODUTOS),0)
         INTO V_VRPRODUTOS
         FROM NOTAFISCAL
         WHERE CDFILIAL   = P_FILIAL    AND
               NRLANCTONF = P_LANCTONF;
      ELSE
         V_VRPRODUTOS := NVL(V_LIQUIDO, 0);
         UPDATE NOTAFISCAL
         SET VRPRODUTOS = NVL(V_LIQUIDO, 0)
         WHERE CDFILIAL   = P_FILIAL    AND
               NRLANCTONF = P_LANCTONF;
      END IF;
   ELSE
      UPDATE NOTAFISCAL
      SET VRPRODUTOS = NVL(V_TOTAPROD, 0)
      WHERE CDFILIAL   = P_FILIAL    AND
            NRLANCTONF = P_LANCTONF;
   END IF;
   /* Cálculo do valor total da nf de importação*/
   IF (V_IDNFIMPORTACAO = 'S') THEN
      UPDATE NOTAFISCAL
         SET VRNOTAFISC = ROUND(V_TOTALNOTA, 2)
       WHERE CDFILIAL   = P_FILIAL    AND
             NRLANCTONF = P_LANCTONF;
      /*Chamar a procedure para gerar financeiro. */
      V_POSSUIFINANC := 0;
      V_IDUTILVENC   := 'N';
      SELECT NVL(IDUTILVENC, 'N')
        INTO V_IDUTILVENC
        FROM TIPOOPERAC
       WHERE CDTIPOOPER    = P_TIPOOPER
         AND IDENTRSAIDOP = 'E';
      IF (V_IDUTILVENC = 'S') THEN
         SELECT COUNT(*)
           INTO V_POSSUIFINANC
           FROM CONTAPAGAR
          WHERE CDFILIAL   = P_FILIAL
            AND NRLANCTONF = P_LANCTONF;
         IF NOT(V_POSSUIFINANC > 0) THEN
            GERA_DADOS_FINANCEIRO(P_FILIAL, P_LANCTONF, P_FILIAL, 'L', P_RESULTADO);
         END IF;
      END IF;
   END IF;
   CONSULTA_DESONERACAO(P_FILIAL, 
                        P_LANCTONF,
                        V_PAISDEST,
                        V_ESTADEST,
                        V_IMPOSDESONERA);
   IF V_IDIMPDESONERA = 'N' THEN
      P_VRNOTAFISC := ROUND(V_TOTALNOTA, 2);
      V_TOTALNOTA  := ROUND(V_TOTALNOTA, 2);
   ELSE
      P_VRNOTAFISC := ROUND(V_TOTALNOTA - V_IMPOSDESONERA, 2);
      V_TOTALNOTA  := ROUND(V_TOTALNOTA - V_IMPOSDESONERA, 2);
   END IF;
   V_TOTALNOTA := ROUND(V_TOTALNOTA, 2);
   P_VRNOTAFISC := V_TOTALNOTA;
   IF P_TIPOOPER = '08' THEN
      UPDATE NOTAFISCAL
      SET VRNOTAFISC = NVL(V_TOTALNOTA,0),
          VRPRODUTOS = NVL(V_LIQUIDO,0),
          IDERROS    = W_000
      WHERE CDFILIAL   = P_FILIAL    AND
            NRLANCTONF = P_LANCTONF;
   END IF;         
   IF (V_IDOPERDEVONF <> 'S') OR ((V_IDOPERDEVONF = W_S) AND (V_DEVOLORIG IS NULL)) THEN
      FOR C_VRIMPOSTO IN (SELECT II.CDIMPOSTOIT, SUM(II.VRIMPOSIT) AS VRIMPOSIT
                          FROM IMPOSTO I, TRABITPROIMPOS II
                          WHERE II.CDFILIMPOIT  = P_FILIAL        AND
                                II.NRLANCIMPOIT = P_LANCTONF      AND
                                II.NRSEQITPRO   = W_1             AND
                                I.CDIMPOSTO     = II.CDIMPOSTOIT  AND
                                ((I.IDTRATIMPO = W_A) OR (I.IDTRATIMPO = W_D))
                          GROUP BY II.CDIMPOSTOIT) LOOP
         BEGIN
            SELECT VRIMPOSTOT
            INTO V_VRTOTIMPONF
            FROM TRABIMPOSNFTOT
            WHERE CDIMPOSTOT   = C_VRIMPOSTO.CDIMPOSTOIT  AND
                  CDFILIMPTOT  = P_FILIAL                 AND
                  NRLANCIMPTOT = P_LANCTONF;
         EXCEPTION
            WHEN NO_DATA_FOUND THEN
               V_VRTOTIMPONF := 0;
         END;
         V_VRDIFERENCA := V_VRTOTIMPONF - C_VRIMPOSTO.VRIMPOSIT;
         SELECT SUM(I.VRBRUTITEM)
         INTO V_VRBRUTO
         FROM ITEMPRODUTO I, TRABITPROIMPOS II
         WHERE I.CDFILIAL      = P_FILIAL      AND
               I.NRLANCTONF    = P_LANCTONF    AND
               II.CDFILIMPOIT  = I.CDFILIAL    AND
               II.NRLANCIMPOIT = I.NRLANCTONF  AND
               II.NRSEQIMPOIT  = I.NRSEQITPROD AND
               II.NRSEQITPRO   = W_1           AND
               II.CDIMPOSTOIT  = C_VRIMPOSTO.CDIMPOSTOIT;
         FOR C_ATUALIZA IN (SELECT NRSEQIMPOIT
                            FROM TRABITPROIMPOS
                            WHERE CDFILIMPOIT  = P_FILIAL                 AND
                                  NRLANCIMPOIT = P_LANCTONF               AND
                                  CDIMPOSTOIT  = C_VRIMPOSTO.CDIMPOSTOIT  AND
                                  NRSEQITPRO   = W_1
                            ORDER BY NRSEQIMPOIT) LOOP
            IF V_VRBRUTO > 0 THEN
               UPDATE ITEMPRODUTO
               SET VRBRUTITEM = VRBRUTITEM + ((VRBRUTITEM/V_VRBRUTO) * NVL(V_VRDIFERENCA,0))
               WHERE CDFILIAL    = P_FILIAL                AND
                     NRLANCTONF  = P_LANCTONF              AND
                     NRSEQITPROD = C_ATUALIZA.NRSEQIMPOIT;
            END IF;
         END LOOP;
      END LOOP;
      SELECT SUM(VRBRUTITEM)
      INTO V_VRBRUTO
      FROM ITEMPRODUTO
      WHERE CDFILIAL   = P_FILIAL AND
            NRLANCTONF = P_LANCTONF;
      BEGIN
         SELECT VRNOTAFISC
         INTO V_VRNOTAFISC
         FROM NOTAFISCAL
         WHERE CDFILIAL   = P_FILIAL AND
               NRLANCTONF = P_LANCTONF;
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            V_VRNOTAFISC := 0;
      END;
      V_VRDIFERENCA := V_VRNOTAFISC - V_VRBRUTO;
      IF (V_VRDIFERENCA <> 0) AND (ABS(V_VRDIFERENCA) <= 0.05) THEN
         SELECT MAX(NRSEQITPROD)
         INTO V_NRSEQITPROD
         FROM ITEMPRODUTO
         WHERE CDFILIAL   = P_FILIAL   AND
               NRLANCTONF = P_LANCTONF AND
               VRBRUTITEM = (SELECT MAX(VRBRUTITEM)
                             FROM ITEMPRODUTO
                             WHERE CDFILIAL = P_FILIAL AND
                                   NRLANCTONF = P_LANCTONF);
         UPDATE ITEMPRODUTO
         SET VRBRUTITEM    = ROUND((VRBRUTITEM + V_VRDIFERENCA), 5)
         WHERE CDFILIAL    = P_FILIAL   AND
               NRLANCTONF  = P_LANCTONF AND
               NRSEQITPROD = V_NRSEQITPROD;
      END IF;
   -- RECALCULO DO VALOR CONTABIL DO ITEM
      IF (P_TIPOOPER <> '03') THEN
         UPDATE ITEMPRODUTO
            SET VRBRUTITEM = ROUND(VRBRUTITEM, 5)
          WHERE CDFILIAL   = P_FILIAL
            AND NRLANCTONF = P_LANCTONF;
         V_VRTOTBRUT := 0;
         V_VRTOTANF  := 0;
         V_DIFBRUTNF := 0;
         SELECT SUM(VRBRUTITEM)
           INTO V_VRTOTBRUT
           FROM ITEMPRODUTO
          WHERE CDFILIAL   = P_FILIAL
            AND NRLANCTONF = P_LANCTONF;
         IF V_VRTOTBRUT IS NULL THEN
            V_VRTOTBRUT := 0;
         END IF;
         IF V_VRNOTAFISC = 0 THEN
            IF (V_VRTOTBRUT <> ROUND(V_TOTALNOTA, 5)) THEN
               V_DIFBRUTNF :=  ROUND(V_TOTALNOTA, 5) - V_VRTOTBRUT;
               IF (ABS(V_DIFBRUTNF) <= 0.3) THEN
                  UPDATE ITEMPRODUTO
                     SET VRBRUTITEM = (VRBRUTITEM + (V_DIFBRUTNF))
                   WHERE CDFILIAL   = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND ROWNUM     = '1'
                     AND VRBRUTITEM = (SELECT MAX(VRBRUTITEM)
                                         FROM ITEMPRODUTO
                                        WHERE CDFILIAL   = P_FILIAL
                                          AND NRLANCTONF = P_LANCTONF);
               END IF;
            END IF;
         ELSE
            UPDATE NOTAFISCAL
               SET VRNOTAFISC = ROUND(VRNOTAFISC, 5)
             WHERE CDFILIAL   = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            SELECT ROUND(VRNOTAFISC, 5)
              INTO V_VRTOTANF
              FROM NOTAFISCAL
             WHERE CDFILIAL   = P_FILIAL
               AND NRLANCTONF = P_LANCTONF;
            IF (V_VRTOTBRUT <> V_VRTOTANF) THEN
               V_DIFBRUTNF :=  V_VRTOTANF - V_VRTOTBRUT;
               IF (ABS(V_DIFBRUTNF) <= 0.3) THEN
                  UPDATE ITEMPRODUTO
                     SET VRBRUTITEM = (VRBRUTITEM + (V_DIFBRUTNF))
                   WHERE CDFILIAL   = P_FILIAL
                     AND NRLANCTONF = P_LANCTONF
                     AND ROWNUM     = '1'
                     AND VRBRUTITEM = (SELECT MAX(VRBRUTITEM)
                                         FROM ITEMPRODUTO
                                        WHERE CDFILIAL   = P_FILIAL
                                          AND NRLANCTONF = P_LANCTONF);
               END IF;
            END IF;
         END IF;
      END IF;
      FOR C_ITEMPRODUTO IN (SELECT ROUND(VRBRUTITEM,5) AS VRBRUTITEM, NRSEQITPROD
                            FROM ITEMPRODUTO I
                            WHERE CDFILIAL   = P_FILIAL   AND
                                  NRLANCTONF = P_LANCTONF) LOOP
         FOR C_ITEMPROIMPOS IN (
            SELECT CDIMPOSTOIT
            FROM TRABITPROIMPOS
            WHERE (CDFILIMPOIT  = P_FILIAL)                   AND
                  (NRLANCIMPOIT = P_LANCTONF)                 AND
                  (NRSEQIMPOIT  = C_ITEMPRODUTO.NRSEQITPROD)) LOOP
            UPDATE TRABITPROIMPOS
            SET VRCONTIMPOIT = ROUND(VRCONTIMPOIT,5)
            WHERE (CDFILIMPOIT  = P_FILIAL)                   AND
                  (NRLANCIMPOIT = P_LANCTONF)                 AND
                  (NRSEQIMPOIT  = C_ITEMPRODUTO.NRSEQITPROD)  AND
                  (CDIMPOSTOIT  = C_ITEMPROIMPOS.CDIMPOSTOIT) AND
                  (NRSEQITPRO   = W_2);
            SELECT MAX(NVL(VRCONTIMPOIT,0))
            INTO V_VRREDUCAO
            FROM TRABITPROIMPOS
            WHERE (CDFILIMPOIT  = P_FILIAL)                   AND
                  (NRLANCIMPOIT = P_LANCTONF)                 AND
                  (NRSEQIMPOIT  = C_ITEMPRODUTO.NRSEQITPROD)  AND
                  (CDIMPOSTOIT  = C_ITEMPROIMPOS.CDIMPOSTOIT) AND
                  (NRSEQITPRO   = W_2);
            IF V_VRREDUCAO IS NULL THEN
               V_VRREDUCAO := 0;
            END IF;
            UPDATE TRABITPROIMPOS
            SET VRCONTIMPOIT  = ROUND((C_ITEMPRODUTO.VRBRUTITEM - V_VRREDUCAO),5)
            WHERE CDFILIMPOIT  = P_FILIAL                   AND
                  NRLANCIMPOIT = P_LANCTONF                 AND
                  NRSEQIMPOIT  = C_ITEMPRODUTO.NRSEQITPROD  AND
                  CDIMPOSTOIT  = C_ITEMPROIMPOS.CDIMPOSTOIT AND
                  NRSEQITPRO   = W_1;
            UPDATE ITEMPROIMPOS
            SET VRCONTITIMP = ROUND((C_ITEMPRODUTO.VRBRUTITEM - V_VRREDUCAO),5)
            WHERE (NRLANCTONF   = P_LANCTONF)                 AND
                  (CDFILIAL     = P_FILIAL)                   AND
                  (NRSEQITPROD  = C_ITEMPRODUTO.NRSEQITPROD)  AND
                  (CDIMPOSTO    = C_ITEMPROIMPOS.CDIMPOSTOIT) AND
                  (NRITPROIMPOS = W_1);
            /*ESTE UPDATE ESTA SENDO REALIZADO PARA EVITAR QUE EXISTAM LANCAMENTOS COM BASE DE CÁLCULO E SEM IMPOSTO E SEM ALIQUOTA*/
            UPDATE TRABITPROIMPOS
            SET VRBCALCIMPOIT = 0
            WHERE CDFILIMPOIT  = P_FILIAL                   AND
                  NRLANCIMPOIT = P_LANCTONF                 AND
                  NRSEQIMPOIT  = C_ITEMPRODUTO.NRSEQITPROD  AND
                  CDIMPOSTOIT  = C_ITEMPROIMPOS.CDIMPOSTOIT AND
                  NRSEQITPRO   = W_1                        AND
                  CDFISCIMPOIT = W_1                        AND
                  VRALIQIMPOIT = 0.00                       AND
                  VRIMPOSIT = 0.00;
         END LOOP;
      END LOOP;
   END IF;
   ARREDONDA_BASECALC(W_E, P_FILIAL, P_LANCTONF);
   IF V_SEQUIMPOSTNF IS NULL THEN
      V_SEQUIMPOSTNF := '01';
   END IF;
   IF V_SEQUIMPOSTNF = '01' THEN
      DELETE IMPOSTONF
      WHERE (CDFILIAL = P_FILIAL) AND
            (NRLANCTONF = P_LANCTONF);
   END IF;
   FOR C_TRABITPROIMPOS IN (SELECT NRSEQITPROD, CDIMPOSTO, VRALIQITEM
                              FROM ITEMPROIMPOS
                             WHERE CDFILIAL = P_FILIAL
                               AND NRLANCTONF = P_LANCTONF
                               AND NRITPROIMPOS = '3') LOOP
      V_CDFILIREDU := NULL;
      SELECT MAX(CDFILIAL)
        INTO V_CDFILIREDU
        FROM ITEMPROIMPOS
       WHERE CDFILIAL = P_FILIAL
         AND NRLANCTONF = P_LANCTONF
         AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
         AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
         AND NRITPROIMPOS = '2';
      IF ((V_CDFILIREDU IS NULL) AND (NVL(V_IDORIGDESTNF, 'F') <> 'L')) THEN
         V_VRCONTITIMP := 0;
         SELECT MAX(VRCONTITIMP), MAX(VRIMPOSTOIT), MAX(VRALIQITEM)
           INTO V_VRCONTITIMP, V_IMPOSTOIT, V_ALIQINFO
           FROM ITEMPROIMPOS
          WHERE CDFILIAL = P_FILIAL
            AND NRLANCTONF = P_LANCTONF
            AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
            AND NRITPROIMPOS = '1';
         IF (V_IDCALCDIFENTFISC = 'N') THEN
            UPDATE TRABITPROIMPOS
               SET VRCONTIMPOIT  = V_VRCONTITIMP,
                   VRBCALCIMPOIT = ROUND(V_VRCONTITIMP, 2),
                   VRIMPOSIT     =  ROUND((V_VRCONTITIMP * (VRALIQIMPOIT / 100)), V_NRDECITOTANF)
             WHERE CDFILIMPOIT   = P_FILIAL
               AND NRLANCIMPOIT  = P_LANCTONF
               AND NRSEQIMPOIT   = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTOIT   = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRSEQITPRO    = '3';
            UPDATE ITEMPROIMPOS
               SET VRCONTITIMP  = V_VRCONTITIMP,
                   VRBASECALCIT = ROUND(V_VRCONTITIMP, 2) ,
                   VRIMPOSTOIT  = ROUND((V_VRCONTITIMP * (VRALIQITEM / 100)), V_NRDECITOTANF)
             WHERE CDFILIAL     = P_FILIAL
               AND NRLANCTONF   = P_LANCTONF
               AND NRSEQITPROD  = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTO    = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRITPROIMPOS = '3';
         ELSE
            V_ALIQDEST     := 0;
            V_ALIQDEST     := V_ALIQINFO + C_TRABITPROIMPOS.VRALIQITEM;
            V_BCALCDIFCOMP := ROUND(((V_VRCONTITIMP - V_IMPOSTOIT) / ((100 - V_ALIQDEST)/100)) , V_NRDECITOTANF);
            V_IMPOSTODIFE  := ROUND(((V_BCALCDIFCOMP * (V_ALIQDEST/100)) - V_IMPOSTOIT), V_NRDECITOTANF);
            UPDATE TRABITPROIMPOS
               SET VRCONTIMPOIT  = V_VRCONTITIMP,
                   VRBCALCIMPOIT = V_BCALCDIFCOMP,
                   VRIMPOSIT     = V_IMPOSTODIFE
             WHERE CDFILIMPOIT = P_FILIAL
               AND NRLANCIMPOIT = P_LANCTONF
               AND NRSEQIMPOIT = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTOIT = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRSEQITPRO   = '3';
            UPDATE ITEMPROIMPOS
               SET VRCONTITIMP  = V_VRCONTITIMP,
                   VRBASECALCIT = V_BCALCDIFCOMP,
                   VRIMPOSTOIT  = V_IMPOSTODIFE
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF
               AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRITPROIMPOS = '3';
         END IF;
      END IF;
      IF ((V_CDFILIREDU IS NULL) AND (NVL(V_IDORIGDESTNF, 'F') = 'L')) THEN
         V_VRCONTITIMP := 0;
         SELECT MAX(VRCONTITIMP)
           INTO V_VRCONTITIMP
           FROM ITEMPROIMPOS
          WHERE CDFILIAL = P_FILIAL
            AND NRLANCTONF = P_LANCTONF
            AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
            AND NRITPROIMPOS = '1';
         UPDATE TRABITPROIMPOS
            SET VRCONTIMPOIT = V_VRCONTITIMP
          WHERE CDFILIMPOIT = P_FILIAL
            AND NRLANCIMPOIT = P_LANCTONF
            AND NRSEQIMPOIT = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTOIT = C_TRABITPROIMPOS.CDIMPOSTO
            AND NRSEQITPRO   = '3';
         UPDATE ITEMPROIMPOS
            SET VRCONTITIMP = V_VRCONTITIMP
          WHERE CDFILIAL = P_FILIAL
            AND NRLANCTONF = P_LANCTONF
            AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
            AND NRITPROIMPOS = '3';
      END IF;
   END LOOP;
   FOR C_TRABITPROIMPOS IN (SELECT CDIMPOSTO, VRALIQITEM, VRPERREDBCIT, VRPARDEDIT,
                                   CDFISCALIT, CDSITUTRIBIT, CDFISCOPERIT, CDSUFXCFOPIT,
                                   IDDIFALIQCUSPRI,
                                   SUM(VRCONTITIMP) AS VRCONTITIMP,
                                   SUM(VRBASECALCIT) AS VRBASECALCIT,
                                   SUM(VRIMPOSTOIT) AS VRIMPOSTOIT
                              FROM ITEMPROIMPOS
                             WHERE CDFILIAL = P_FILIAL
                               AND NRLANCTONF = P_LANCTONF
                               AND NRITPROIMPOS = '3'
                             GROUP BY CDIMPOSTO, VRALIQITEM, VRPERREDBCIT, VRPARDEDIT,
                                      CDFISCALIT, CDSITUTRIBIT, CDFISCOPERIT, CDSUFXCFOPIT,
                                      IDDIFALIQCUSPRI) LOOP
      UPDATE IMPOSTONF
         SET VRCONTABILNF = C_TRABITPROIMPOS.VRCONTITIMP,
             VRBASECALCNF = C_TRABITPROIMPOS.VRBASECALCIT,
             VRIMPOSTONF  = C_TRABITPROIMPOS.VRIMPOSTOIT
       WHERE CDFILIAL = P_FILIAL
         AND NRLANCTONF = P_LANCTONF
         AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
         AND IDIMPOSTONF = '3'
         AND VRALIQNF = C_TRABITPROIMPOS.VRALIQITEM
         AND VRPERREDBCNF = C_TRABITPROIMPOS.VRPERREDBCIT
         AND VRPARDEDNF = C_TRABITPROIMPOS.VRPARDEDIT
         AND CDFISCALNF = C_TRABITPROIMPOS.CDFISCALIT
         AND CDSITUTRIBNF = C_TRABITPROIMPOS.CDSITUTRIBIT
         AND CDFISCOPERNF = C_TRABITPROIMPOS.CDFISCOPERIT
         AND NVL(IDDIFALIQCUSPRN, 'N') = NVL(C_TRABITPROIMPOS.IDDIFALIQCUSPRI, 'N')
         AND NVL(CDSUFXCFOPNF, 'N') = NVL(C_TRABITPROIMPOS.CDSUFXCFOPIT, 'N');
   END LOOP;
   FOR C_IMPOSTONF IN (
      SELECT IT.CDIMPOSTOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT, CDFISCIMPOIT,
             CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, SUM(VRCONTIMPOIT) AS VRCONTIMPOIT,
             SUM(VRBCALCIMPOIT) AS VRBCALCIMPOIT, SUM(VRIMPOSIT) AS VRIMPOSIT, I.IDTRATIMPO,
             SUM(VRIMPOSIT) AS VRIMPOSCONT, NVL(IDDIFALIQCUSPTI, 'N') IDDIFALIQCUSPTI,
             IDMOTDESOTRABIT
      FROM TRABITPROIMPOS IT, IMPOSTO I, NOTAFISCAL N
      WHERE (IT.CDFILIMPOIT  = P_FILIAL)    AND
            (IT.NRLANCIMPOIT = P_LANCTONF)  AND
            (IT.CDFILIMPOIT  = N.CDFILIAL)    AND
            (IT.NRLANCIMPOIT = N.NRLANCTONF)  AND
            (N.CDTIPOOPER    <> '03')         AND
            (I.CDIMPOSTO  = CDIMPOSTOIT) AND
            ((((CDFISCIMPOIT = W_1)) AND (IDIMPORECUP = W_S)) OR
             ((IDIMPORECUP <> W_S) AND (VRIMPOSIT <> 0)) OR (NRSEQITPRO = W_3)) AND
            IT.VRCONTIMPOIT > 0
      GROUP BY IT.CDIMPOSTOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT, CDFISCIMPOIT,
               CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, I.IDTRATIMPO,
               NVL(IDDIFALIQCUSPTI, 'N'), IDMOTDESOTRABIT
      UNION
      SELECT IT.CDIMPOSTOIT, 0 AS VRALIQIMPOIT, 0 AS VRREDBCIMPOIT, 0 AS VRPDEDIMPOIT, CDFISCIMPOIT,
             CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, SUM(VRCONTIMPOIT) AS VRCONTIMPOIT,
             0 AS VRBCALCIMPOIT, 0 AS VRIMPOSIT, I.IDTRATIMPO,
             SUM(VRIMPOSIT) AS VRIMPOSCONT, NVL(IDDIFALIQCUSPTI, 'N') IDDIFALIQCUSPTI,
             IDMOTDESOTRABIT
      FROM TRABITPROIMPOS IT, IMPOSTO I, NOTAFISCAL N
      WHERE (CDFILIMPOIT  = P_FILIAL)    AND
            (NRLANCIMPOIT = P_LANCTONF)  AND
            (IT.CDFILIMPOIT  = N.CDFILIAL)    AND
            (IT.NRLANCIMPOIT = N.NRLANCTONF)  AND
            (N.CDTIPOOPER    <> '03')         AND
            (I.CDIMPOSTO  = CDIMPOSTOIT) AND
            (NRSEQITPRO   <> W_3)        AND
            ((((CDFISCIMPOIT <> W_1)) AND (IDIMPORECUP = W_S)) OR
             ((IDIMPORECUP  <> W_S) AND (VRIMPOSIT = 0))) AND
            IT.VRCONTIMPOIT > 0
      GROUP BY IT.CDIMPOSTOIT, CDFISCIMPOIT, CDSTRIBIMPOIT,
               CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, I.IDTRATIMPO,
               NVL(IDDIFALIQCUSPTI, 'N'), IDMOTDESOTRABIT
      UNION
      SELECT IT.CDIMPOSTOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT, CDFISCIMPOIT,
             CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, SUM(VRCONTIMPOIT) AS VRCONTIMPOIT,
             SUM(VRBCALCIMPOIT) AS VRBCALCIMPOIT, SUM(VRIMPOSIT) AS VRIMPOSIT, I.IDTRATIMPO,
             SUM(VRIMPOSIT) AS VRIMPOSCONT, NVL(IDDIFALIQCUSPTI, 'N') IDDIFALIQCUSPTI,
             IDMOTDESOTRABIT
      FROM TRABITPROIMPOS IT, IMPOSTO I, NOTAFISCAL N
      WHERE (IT.CDFILIMPOIT  = P_FILIAL)    AND
            (IT.NRLANCIMPOIT = P_LANCTONF)  AND
            (IT.CDFILIMPOIT  = N.CDFILIAL)    AND
            (IT.NRLANCIMPOIT = N.NRLANCTONF)  AND
            (N.CDTIPOOPER    = '03')         AND
            (I.CDIMPOSTO  = CDIMPOSTOIT) AND
            ((((CDFISCIMPOIT = W_1)) AND (IDIMPORECUP = W_S)) OR
             ((IDIMPORECUP <> W_S) AND (VRIMPOSIT <> 0)) OR (NRSEQITPRO = W_3))
      GROUP BY IT.CDIMPOSTOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT, CDFISCIMPOIT,
               CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, I.IDTRATIMPO,
               NVL(IDDIFALIQCUSPTI, 'N'), IDMOTDESOTRABIT
      UNION
      SELECT IT.CDIMPOSTOIT, 0 AS VRALIQIMPOIT, 0 AS VRREDBCIMPOIT, 0 AS VRPDEDIMPOIT, CDFISCIMPOIT,
             CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, SUM(VRCONTIMPOIT) AS VRCONTIMPOIT,
             0 AS VRBCALCIMPOIT, 0 AS VRIMPOSIT, I.IDTRATIMPO,
             SUM(VRIMPOSIT) AS VRIMPOSCONT, NVL(IDDIFALIQCUSPTI, 'N') IDDIFALIQCUSPTI,
             IDMOTDESOTRABIT
      FROM TRABITPROIMPOS IT, IMPOSTO I, NOTAFISCAL N
      WHERE (IT.CDFILIMPOIT  = P_FILIAL)    AND
            (IT.NRLANCIMPOIT = P_LANCTONF)  AND
            (IT.CDFILIMPOIT  = N.CDFILIAL)    AND
            (IT.NRLANCIMPOIT = N.NRLANCTONF)  AND
            (N.CDTIPOOPER    = '03')         AND
            (I.CDIMPOSTO  = CDIMPOSTOIT) AND
            (NRSEQITPRO   <> W_3)        AND
            ((((CDFISCIMPOIT <> W_1)) AND (IDIMPORECUP = W_S)) OR
             ((IDIMPORECUP  <> W_S) AND (VRIMPOSIT = 0)))
      GROUP BY IT.CDIMPOSTOIT, CDFISCIMPOIT, CDSTRIBIMPOIT,
               CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, I.IDTRATIMPO,
               NVL(IDDIFALIQCUSPTI, 'N'), IDMOTDESOTRABIT
      UNION
      SELECT IT.CDIMPOSTOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT, CDFISCIMPOIT,
             CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, SUM(VRCONTIMPOIT) AS VRCONTIMPOIT,
             SUM(VRBCALCIMPOIT) AS VRBCALCIMPOIT, SUM(VRIMPOSIT) AS VRIMPOSIT, I.IDTRATIMPO,
             SUM(VRIMPOSIT) AS VRIMPOSCONT, NVL(IDDIFALIQCUSPTI, 'N') IDDIFALIQCUSPTI,
             IDMOTDESOTRABIT
      FROM TRABITPROIMPOS IT, IMPOSTO I, NOTAFISCAL N, TIPOOPERAC T
      WHERE (IT.CDFILIMPOIT  = P_FILIAL)    AND
            (IT.NRLANCIMPOIT = P_LANCTONF)  AND
            (IT.CDFILIMPOIT  = N.CDFILIAL)    AND
            (IT.NRLANCIMPOIT = N.NRLANCTONF)  AND
            (N.CDTIPOOPER    = T.CDTIPOOPER)  AND
            (N.IDENTRSAIDOP  = T.IDENTRSAIDOP) AND
            (T.IDNFAJUSTE    = 'S')           AND
            (I.CDIMPOSTO  = CDIMPOSTOIT) AND
            ((((CDFISCIMPOIT = W_1)) AND (IDIMPORECUP = W_S)) OR
             ((IDIMPORECUP <> W_S) AND (VRIMPOSIT <> 0)) OR (NRSEQITPRO = W_3))
      GROUP BY IT.CDIMPOSTOIT, VRALIQIMPOIT, VRREDBCIMPOIT, VRPDEDIMPOIT, CDFISCIMPOIT,
               CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, I.IDTRATIMPO,
               NVL(IDDIFALIQCUSPTI, 'N'), IDMOTDESOTRABIT
      UNION
      SELECT IT.CDIMPOSTOIT, 0 AS VRALIQIMPOIT, 0 AS VRREDBCIMPOIT, 0 AS VRPDEDIMPOIT, CDFISCIMPOIT,
             CDSTRIBIMPOIT, CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, SUM(VRCONTIMPOIT) AS VRCONTIMPOIT,
             0 AS VRBCALCIMPOIT, 0 AS VRIMPOSIT, I.IDTRATIMPO,
             SUM(VRIMPOSIT) AS VRIMPOSCONT, NVL(IDDIFALIQCUSPTI, 'N') IDDIFALIQCUSPTI,
             IDMOTDESOTRABIT
      FROM TRABITPROIMPOS IT, IMPOSTO I, NOTAFISCAL N, TIPOOPERAC T
      WHERE (IT.CDFILIMPOIT  = P_FILIAL)    AND
            (IT.NRLANCIMPOIT = P_LANCTONF)  AND
            (IT.CDFILIMPOIT  = N.CDFILIAL)    AND
            (IT.NRLANCIMPOIT = N.NRLANCTONF)  AND
            (N.CDTIPOOPER    = T.CDTIPOOPER)  AND
            (N.IDENTRSAIDOP  = T.IDENTRSAIDOP) AND
            (T.IDNFAJUSTE    = 'S')           AND
            (I.CDIMPOSTO  = CDIMPOSTOIT) AND
            (NRSEQITPRO   <> W_3)        AND
            ((((CDFISCIMPOIT <> W_1)) AND (IDIMPORECUP = W_S)) OR
             ((IDIMPORECUP  <> W_S) AND (VRIMPOSIT = 0)))
      GROUP BY IT.CDIMPOSTOIT, CDFISCIMPOIT, CDSTRIBIMPOIT,
               CDFOPERIMPOIT, CDSCFOPIMPOIT, NRSEQITPRO, I.IDTRATIMPO,
               NVL(IDDIFALIQCUSPTI, 'N'), IDMOTDESOTRABIT) LOOP
      BEGIN
         SELECT IDFORMAPUR
         INTO V_IDFORMAPUR
         FROM IMPOSTO
         WHERE CDIMPOSTO = C_IMPOSTONF.CDIMPOSTOIT;
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            V_IDFORMAPUR := NULL;
      END;
      V_VRIMPOSCONT := 0;
      IF C_IMPOSTONF.IDTRATIMPO = W_A THEN
         V_VRIMPOSCONT := C_IMPOSTONF.VRIMPOSCONT;
      ELSIF C_IMPOSTONF.IDTRATIMPO = W_D THEN
         V_VRIMPOSCONT := - C_IMPOSTONF.VRIMPOSCONT;
      END IF;
      IF V_IDFORMAPUR = W_P THEN
         INSERT INTO IMPOSTONF(
            CDFILIAL, NRLANCTONF, CDIMPOSTO, NRIMPOSNF, VRCONTABILNF, VRPERREDBCNF, VRBASECALCNF,
            VRALIQNF, VRPARDEDNF, VRIMPOSTONF, CDFISCALNF, CDSITUTRIBNF, CDFISCOPERNF, CDSUFXCFOPNF,
            IDIMPOSTONF, IDDIFALIQCUSPRN, CDTPCREDPICONF, CDNATUBCALPCNF, IDMOTDESONERANF)
         VALUES(
            P_FILIAL, P_LANCTONF, C_IMPOSTONF.CDIMPOSTOIT, V_SEQUIMPOSTNF, ROUND(C_IMPOSTONF.VRCONTIMPOIT,5),
            C_IMPOSTONF.VRREDBCIMPOIT, C_IMPOSTONF.VRBCALCIMPOIT, C_IMPOSTONF.VRALIQIMPOIT,
            C_IMPOSTONF.VRPDEDIMPOIT, C_IMPOSTONF.VRIMPOSIT, C_IMPOSTONF.CDFISCIMPOIT,
            C_IMPOSTONF.CDSTRIBIMPOIT, C_IMPOSTONF.CDFOPERIMPOIT, C_IMPOSTONF.CDSCFOPIMPOIT,
            C_IMPOSTONF.NRSEQITPRO, C_IMPOSTONF.IDDIFALIQCUSPTI, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, C_IMPOSTONF.IDMOTDESOTRABIT);
         V_SEQUIMPOSTNF := LPAD(RTRIM(TO_CHAR(TO_NUMBER(V_SEQUIMPOSTNF) + 1)),2,0);
      ELSE
         V_CDGRUPOFISCAUX := NULL;
         SELECT MAX(G.CDGRUPOFISC)
           INTO V_CDGRUPOFISCAUX
           FROM GRUPOFISCIMPFIL G,
                (SELECT DECODE('E', 'E', CDFILIRECE, CDFILIEMIT) AS CDFILIAL
                   FROM NOTAFISCAL
                  WHERE CDFILIAL = P_FILIAL
                        AND NRLANCTONF = P_LANCTONF) F
          WHERE G.CDFILIAL = F.CDFILIAL
            AND NOT G.CDGRUPOFISC IS NULL
            AND G.CDIMPOSTO = C_IMPOSTONF.CDIMPOSTOIT;
         IF V_IDORIGDESTNF = 'F' THEN
            SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
              INTO V_CDGRUPOFISCAUX
              FROM GRFISIMPIEFORN G,
                   (SELECT CDFORNECED
                      FROM NOTAFISCAL
                     WHERE CDFILIAL = P_FILIAL
                       AND NRLANCTONF = P_LANCTONF) N
             WHERE G.CDFORNECED = N.CDFORNECED
               AND G.CDEMPRESA = P_EMPRESA
               AND G.CDINSCESTA = P_INSCESTA
               AND NOT G.CDGRUPOFISC IS NULL
               AND G.CDIMPOSTO = C_IMPOSTONF.CDIMPOSTOIT;
         ELSE
            SELECT NVL(MAX(G.CDGRUPOFISC), V_CDGRUPOFISCAUX)
              INTO V_CDGRUPOFISCAUX
              FROM GRFISIMPIECLIE G,
                   (SELECT CDCLIENTE
                      FROM NOTAFISCAL
                     WHERE CDFILIAL = P_FILIAL
                       AND NRLANCTONF = P_LANCTONF) N
             WHERE G.CDCLIENTE = N.CDCLIENTE
               AND G.CDEMPRESA = P_EMPRESA
               AND G.CDINSCESTA = P_INSCESTA
               AND NOT G.CDGRUPOFISC IS NULL
               AND G.CDIMPOSTO = C_IMPOSTONF.CDIMPOSTOIT;
         END IF;
         IF V_CDGRUPOFISCAUX IS NULL THEN
            CONSULTA_CST_NFE(W_E, P_EMPRESA, '', P_INSCESTA, P_TIPOOPER, V_CDGRUPOFISC,C_IMPOSTONF.CDIMPOSTOIT, V_IDINTEREST, V_IDINTERNAC, P_FILIAL, P_LANCTONF, '', V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE);
         ELSE
            CONSULTA_CST_NFE(W_E, P_EMPRESA, '', P_INSCESTA, P_TIPOOPER, V_CDGRUPOFISCAUX,C_IMPOSTONF.CDIMPOSTOIT, V_IDINTEREST, V_IDINTERNAC, P_FILIAL, P_LANCTONF, '', V_CDSITTRIBTMP, V_IDMODBCNFE, V_IDMODBCSTNFE, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, V_IDMOTIDESSTNFE);
         END IF;
         INSERT INTO IMPOSTONF(
            CDFILIAL, NRLANCTONF, CDIMPOSTO, NRIMPOSNF, VRCONTABILNF, VRPERREDBCNF, VRBASECALCNF,
            VRALIQNF, VRPARDEDNF, VRIMPOSTONF, CDFISCALNF, CDSITUTRIBNF, CDFISCOPERNF, CDSUFXCFOPNF,
            IDIMPOSTONF, IDDIFALIQCUSPRN, CDTPCREDPICONF, CDNATUBCALPCNF, IDMOTDESONERANF)
         VALUES(
            P_FILIAL, P_LANCTONF, C_IMPOSTONF.CDIMPOSTOIT, V_SEQUIMPOSTNF, ROUND(C_IMPOSTONF.VRCONTIMPOIT,5),
            C_IMPOSTONF.VRREDBCIMPOIT, C_IMPOSTONF.VRBCALCIMPOIT, C_IMPOSTONF.VRALIQIMPOIT,
            C_IMPOSTONF.VRPDEDIMPOIT, C_IMPOSTONF.VRIMPOSIT, C_IMPOSTONF.CDFISCIMPOIT,
            C_IMPOSTONF.CDSTRIBIMPOIT, C_IMPOSTONF.CDFOPERIMPOIT, C_IMPOSTONF.CDSCFOPIMPOIT,
            C_IMPOSTONF.NRSEQITPRO, C_IMPOSTONF.IDDIFALIQCUSPTI, V_CDTPCRPICOSTNFE, V_CDNATUBCPCSTNFE, C_IMPOSTONF.IDMOTDESOTRABIT);
         V_SEQUIMPOSTNF := LPAD(RTRIM(TO_CHAR(TO_NUMBER(V_SEQUIMPOSTNF) + 1)),2,0);
      END IF;
   END LOOP;
   FOR C_IMPOSTORETI IN (SELECT P_EMPRESA AS CDEMPRESA, I.CDIMPOSTO, V_IDTPIJURNF AS IDTPIJURNF,
                                V_NRINSJURNF AS NRINSJURNF, V_DTENTRSAID AS DTENTRSAID
                         FROM IMPOSTO I, IMPOSTONF IP
                         WHERE I.IDTRATIMPO   = W_R          AND
                               I.IDUTVRMENSBC = W_S          AND
                               IP.CDFILIAL    = P_FILIAL     AND
                               IP.NRLANCTONF  = P_LANCTONF   AND
                               I.CDIMPOSTO    = IP.CDIMPOSTO
                         GROUP BY
                            P_EMPRESA, I.CDIMPOSTO, V_IDTPIJURNF, V_NRINSJURNF, V_DTENTRSAID) LOOP
      BASECALC_RETIDO('S', P_FILIAL, P_LANCTONF, C_IMPOSTORETI.IDTPIJURNF, C_IMPOSTORETI.NRINSJURNF,
                      C_IMPOSTORETI.DTENTRSAID,  C_IMPOSTORETI.CDIMPOSTO, W_E, C_IMPOSTORETI.CDEMPRESA,
                      P_INSCESTA, V_PAISORIG, V_ESTAORIG, V_PAISDEST, V_ESTADEST, V_CDGRUPOFISC, V_CDGRPFISCSV, P_TIPOOPER);
   END LOOP;
   /* SE O IPI COMPOR A BASE DE CALCULO DO ICMS E O ICMS TIVER O CODIGO FISCAL IGUAL A 1 SERA ATUALIZADO COM O IDENTIFICADOR 4 */
   FOR C_IMPFISC IN (SELECT CDFILIAL, NRLANCTONF, CDIMPOSTO, CDSITUTRIBNF, CDFISCOPERNF, CDFISCALNF
                       FROM IMPOSTONF IP
                      WHERE IP.CDFILIAL = P_FILIAL
                        AND IP.NRLANCTONF = P_LANCTONF
                        AND IP.IDIMPOSTONF = W_1
                        AND IP.CDFISCALNF = W_1) LOOP
      SELECT MAX(BC.CDIMPOBCALC) AS CDIMPOBCALC
        INTO V_CDIMPOBCALC
        FROM BASECALCTPOPER BC
       WHERE BC.IDENTRSAIDOP = P_ENTRSAID
         AND BC.CDTIPOOPER = P_TIPOOPER
         AND BC.CDIMPOSTO = C_IMPFISC.CDIMPOSTO
         AND BC.CDIMPOBCALC IS NOT NULL
         AND ((SUBSTR(C_IMPFISC.CDSITUTRIBNF,2,2)  = BC.CDCSTIMPOTPOP)  OR (BC.CDCSTIMPOTPOP IS NULL))
         AND ((SUBSTR(C_IMPFISC.CDFISCOPERNF,2,10) = BC.CDCFOPIMPOTPOP) OR (BC.CDCFOPIMPOTPOP IS NULL))
         AND (C_IMPFISC.CDFISCALNF = BC.CDFISCIMPOTPOP) OR (BC.CDFISCIMPOTPOP IS NULL);
      IF V_CDIMPOBCALC IS NULL THEN
         SELECT MAX(BC.CDIMPOBCALC) AS CDIMPOBCALC
           INTO V_CDIMPOBCALC
           FROM BASECALC BC
          WHERE BC.CDIMPOSTO = C_IMPFISC.CDIMPOSTO
            AND BC.CDIMPOBCALC IS NOT NULL
            AND ((SUBSTR(C_IMPFISC.CDSITUTRIBNF,2,2)  = BC.CDCSTIMPO)  OR (BC.CDCSTIMPO  IS NULL))
            AND ((SUBSTR(C_IMPFISC.CDFISCOPERNF,2,10) = BC.CDCFOPIMPO) OR (BC.CDCFOPIMPO IS NULL))
            AND (C_IMPFISC.CDFISCALNF = BC.CDFISCIMPO) OR (BC.CDFISCIMPO IS NULL)
            AND BC.IDTIPOBCALC = 'I';
         IF NOT V_CDIMPOBCALC IS NULL THEN
            UPDATE IMPOSTONF
               SET IDIMPOSTONF = '4'
             WHERE CDFILIAL = C_IMPFISC.CDFILIAL
               AND NRLANCTONF = C_IMPFISC.NRLANCTONF
               AND CDIMPOSTO = V_CDIMPOBCALC
               AND IDIMPOSTONF = '1';
         END IF;
      ELSE
         UPDATE IMPOSTONF
         SET IDIMPOSTONF = '4'
         WHERE CDFILIAL   = C_IMPFISC.CDFILIAL   AND
               NRLANCTONF = C_IMPFISC.NRLANCTONF AND
               CDIMPOSTO  = V_CDIMPOBCALC        AND
               IDIMPOSTONF = '1';
      END IF;
   END LOOP;
--INCLUSÃO DOS ENCARGOS DA NF EM CASO DE IMPORTAÇÃO
   IF (V_INTEGRACAO IS NOT NULL) THEN
      INSERT INTO ITEMENCARGO
      (CDFILIAL, NRLANCTONF, CDENCARGO, VRITEMENCA)
      (SELECT P_FILIAL, P_LANCTONF, CDENCARGO, 0 AS VRITEMENCA
       FROM ENCARGO
       MINUS
       SELECT CDFILIAL, NRLANCTONF, CDENCARGO, 0 AS VRITEMENCA
       FROM ITEMENCARGO
       WHERE CDFILIAL   = P_FILIAL AND
             NRLANCTONF = P_LANCTONF);
   END IF;
   --ATUALIZAÇÃO DO CÓDIGO FISCAL DA OPERAÇÃO NA TABELA DE NOTA FISCAL
   IF (V_INTEGRACAO IS NULL) OR (P_ENTRSAID = W_E) THEN
      IF NOT(P_TIPOOPER  = '09') THEN
         IF (V_CDCFOPINFUSU IS NULL) OR (V_CDCFOPINFUSU = '***') THEN
            SELECT COUNT(DISTINCT CDFISOPEITEM), MAX(CDFISOPEITEM)
              INTO   V_COUNT                     , V_CDFISOPENTF
              FROM ITEMPRODUTO
             WHERE (CDFILIAL   = P_FILIAL) AND
                   (NRLANCTONF = P_LANCTONF);
            IF (V_COUNT > 1) THEN
               UPDATE NOTAFISCAL
                  SET CDFISOPENTF  = '***'
                WHERE CDFILIAL     = P_FILIAL
                  AND NRLANCTONF   = P_LANCTONF;
               UPDATE NOTAFISCAL
                  SET DSCDFISOPENF = NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT)
                WHERE (CDFILIAL    = P_FILIAL)
                  AND (NRLANCTONF  = P_LANCTONF)
                  AND DSCDFISOPENF IS NULL;
            ELSIF (V_COUNT = 1) THEN
               UPDATE NOTAFISCAL
                  SET CDFISOPENTF  = V_CDFISOPENTF
                WHERE (CDFILIAL    = P_FILIAL)
                  AND (NRLANCTONF  = P_LANCTONF);
               UPDATE NOTAFISCAL
                  SET DSCDFISOPENF = NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT)
                WHERE (CDFILIAL    = P_FILIAL)
                  AND (NRLANCTONF  = P_LANCTONF)
                  AND DSCDFISOPENF IS NULL;
            END IF;
         ELSE
            SELECT COUNT(DISTINCT CDFISOPEITEM), MAX(CDFISOPEITEM)
              INTO   V_COUNT , V_CDFISOPENTF
              FROM ITEMPRODUTO
             WHERE (CDFILIAL   = P_FILIAL) AND
                   (NRLANCTONF = P_LANCTONF);
            IF (V_COUNT > 1) THEN
               UPDATE NOTAFISCAL
                  SET CDFISOPENTF  = '***',
                      CDCFOPINFUSU = '***'
                WHERE CDFILIAL   = P_FILIAL
                  AND NRLANCTONF = P_LANCTONF;
            ELSIF (V_COUNT = 1) THEN
               UPDATE NOTAFISCAL
                  SET CDFISOPENTF  = V_CDFISOPENTF,
                      DSCDFISOPENF = NVL(V_DSCDFISOPEITREGRA, V_DSCDFISOPEIT),
                      CDCFOPINFUSU = V_CDCFOPINFUSU,
                      DSCFOPINFUSU = V_DSCFOPINFUSU
                WHERE (CDFILIAL    = P_FILIAL)
                  AND (NRLANCTONF  = P_LANCTONF);
            END IF;
         END IF;
         IF (V_DSCFOPINFUSU IS NOT NULL) THEN
            UPDATE NOTAFISCAL
               SET DSCDFISOPENF = V_DSCFOPINFUSU
             WHERE (CDFILIAL    = P_FILIAL)
               AND (NRLANCTONF  = P_LANCTONF);
         END IF;
      END IF;
   END IF;
   IF (V_INTEGRACAO IS NOT NULL) THEN
      IF (P_ENTRSAID = W_S) THEN
         SELECT NVL(SUM(VRORIGREC),0)
         INTO V_VRCONTAREC
         FROM CONTARECEBER
         WHERE CDFILIAL   = P_FILIAL AND
               NRLANCTONF = P_LANCTONF;
         SELECT NVL(SUM(IT.VRIMPOSTOT),0)
         INTO V_IMPOSRETI
         FROM TRABIMPOSNFTOT IT, IMPOSTO I
         WHERE IT.CDFILIMPTOT  = P_FILIAL      AND
               IT.NRLANCIMPTOT = P_LANCTONF    AND
               I.CDIMPOSTO     = IT.CDIMPOSTOT AND
               I.IDDESCRFONTE  <> W_A          AND
               I.IDTRATIMPO    = W_R;
         IF (V_VRCONTAREC = V_VRNOTAFISC) AND (V_IMPOSRETI > 0) THEN
            APURAC_VENC(P_FILIAL, P_FORNECED, P_LANCTONF);
         END IF;
      ELSE
         IF (V_IDDOCFINANC <> W_L) AND (V_IDSTATUS NOT IN (W_A, W_E)) AND
            (SUBSTR(V_INTEGRACAO,1,1) IN (W_F, W_M)) THEN
            IF V_IDORIGDESTNF = W_F THEN
               BEGIN
                  SELECT IDTPFORPGTFO
                  INTO V_IDTPFORPGTFO
                  FROM FORNECEDOR
                  WHERE CDFORNECED = P_FORNECED;
               EXCEPTION
                  WHEN NO_DATA_FOUND THEN
                     V_IDTPFORPGTFO := NULL;
               END;
               IF V_IDTPFORPGTFO IS NOT NULL THEN
                  GERA_CONTAPAGAR(P_FILIAL, P_FORNECED, P_LANCTONF, W_F);
               END IF;
            END IF;
         END IF;
      END IF;
      BEGIN
         SELECT CDPRODUTO
         INTO V_CDPRGENEREV
         FROM ITEMPRODUTO
         WHERE CDFILIAL   = P_FILIAL      AND
               NRLANCTONF = P_LANCTONF    AND
               CDPRODUTO  = V_CDPRGENEREV;
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            V_CDPRGENEREV := NULL;
      END;
      IF V_CDPRGENEREV IS NOT NULL THEN
         DELETE IMPOSINFUSU
         WHERE CDFILIAL   = P_FILIAL AND
               NRLANCTONF = P_LANCTONF;
         INSERT INTO IMPOSINFUSU
            (CDFILIAL, NRLANCTONF, NRSEQITPROD, CDIMPOSTO,
             CDFISCINFUSU, VRALIQINFUSU, VRRDBCINFUSU, VRPDEDINFUSU)
         (SELECT CDFILIMPOIT, NRLANCIMPOIT, NRSEQIMPOIT, CDIMPOSTOIT,
                 NVL(CDFISCIMPOIT,' '), NVL(VRALIQIMPOIT,0), VRREDBCIMPOIT,
                 VRPDEDIMPOIT
          FROM TRABITPROIMPOS
          WHERE CDFILIMPOIT  = P_FILIAL   AND
                NRLANCIMPOIT = P_LANCTONF AND
                NRSEQITPRO   = W_1);
      END IF;
   END IF;
   /* ESTA ROTINA ABAIXO SERVE PARA ATUALIZAR O VALOR CONTÁBIL E BRUTO DOS PRODUTOS COM A DIFERENÇA
      DE CENTAVOS ENTRE O VALOR DOS IMPOSTOS POR ÍTEM E A SUA RESPECTIVA TOTALIZAÇÃO. ESTA DIFERENÇA
      É IGNORADA NO FECHAMENTO DA NF CASO O CLIENTE TRABALHE COM UM NÚMERO MENOR DE CASAS DECIMAIS E
      PROVOCA ERROS NA CONTABILIZAÇÃO*/
   IF V_NRDECITOTANF <> 2 THEN
      FOR C_ATUAVRCONT IN (SELECT T.CDIMPOSTOIT, SUM(T.VRIMPOSIT) AS VRIMPOSIT, T.CDFISCIMPOIT,
                                  I.IDIMPORECUP, I.CDCCTBLATIV, I.CDCCTBLPASS, I.IDTRATIMPO
                           FROM TRABITPROIMPOS T, IMPOSTO I
                           WHERE T.CDFILIMPOIT  = P_FILIAL      AND
                                 T.NRLANCIMPOIT = P_LANCTONF    AND
                                 T.NRSEQITPRO   = W_1           AND
                                 I.CDIMPOSTO    = T.CDIMPOSTOIT AND
                                 I.IDTIPCONTAB  = W_D
                           GROUP BY T.CDIMPOSTOIT, T.CDFISCIMPOIT, I.IDIMPORECUP,
                                    I.CDCCTBLATIV, I.CDCCTBLPASS, I.IDTRATIMPO) LOOP
         SELECT SUM(VRIMPOSTOT) - C_ATUAVRCONT.VRIMPOSIT
         INTO V_VRDIFERENCA
         FROM TRABIMPOSNFTOT
         WHERE CDFILIMPTOT  = P_FILIAL   AND
               NRLANCIMPTOT = P_LANCTONF AND
               CDIMPOSTOT   = C_ATUAVRCONT.CDIMPOSTOIT;
         SELECT SUM(VRBRUTITEM), SUM(VRCONTITEM)
         INTO V_VRBRUTO, V_VRCONTAB
         FROM ITEMPRODUTO I, TRABITPROIMPOS T
         WHERE I.CDFILIAL     = P_FILIAL                  AND
               I.NRLANCTONF   = P_LANCTONF                AND
               T.CDFILIMPOIT  = I.CDFILIAL                AND
               T.NRLANCIMPOIT = I.NRLANCTONF              AND
               T.NRSEQIMPOIT  = I.NRSEQITPROD             AND
               T.CDIMPOSTOIT  = C_ATUAVRCONT.CDIMPOSTOIT  AND
               T.NRSEQITPRO   = W_1;
         IF V_VRDIFERENCA <> 0 THEN
            V_IMPOCONTAB := 0;
            IF (C_ATUAVRCONT.IDIMPORECUP = W_S) THEN
               IF (C_ATUAVRCONT.CDFISCIMPOIT = W_1) THEN
                  IF (C_ATUAVRCONT.CDCCTBLATIV IS NOT NULL) THEN
                     IF C_ATUAVRCONT.IDTRATIMPO = W_V THEN
                        V_IMPOCONTAB := - V_VRDIFERENCA;
                     END IF;
                  END IF;
               ELSE
                  IF C_ATUAVRCONT.IDTRATIMPO = W_A THEN
                     V_IMPOCONTAB := V_VRDIFERENCA;
                  ELSIF C_ATUAVRCONT.IDTRATIMPO IN (W_D,W_R) THEN
                     V_IMPOCONTAB := - V_VRDIFERENCA;
                  END IF;
               END IF;
            ELSE
               IF NOT(C_ATUAVRCONT.CDCCTBLPASS IS NULL) THEN
                  IF C_ATUAVRCONT.IDTRATIMPO = W_V THEN
                     V_IMPOCONTAB := - V_VRDIFERENCA;
                  END IF;
               ELSE
                  IF C_ATUAVRCONT.IDTRATIMPO = W_A THEN
                     V_IMPOCONTAB := V_VRDIFERENCA;
                  ELSIF C_ATUAVRCONT.IDTRATIMPO IN (W_D,W_R) THEN
                     V_IMPOCONTAB := - V_VRDIFERENCA;
                  END IF;
               END IF;
            END IF;
            IF C_ATUAVRCONT.IDTRATIMPO = W_A THEN
               UPDATE ITEMPRODUTO
               SET VRCONTITEM = VRCONTITEM + ((V_IMPOCONTAB  / V_VRCONTAB) * VRCONTITEM)
               WHERE EXISTS(SELECT CDFILIMPOIT, NRLANCIMPOIT, NRSEQIMPOIT
                            FROM TRABITPROIMPOS T
                            WHERE T.CDFILIMPOIT  = P_FILIAL                 AND
                                  T.NRLANCIMPOIT = P_LANCTONF               AND
                                  T.CDIMPOSTOIT  = C_ATUAVRCONT.CDIMPOSTOIT AND
                                  T.CDFILIMPOIT  = ITEMPRODUTO.CDFILIAL     AND
                                  T.NRLANCIMPOIT = ITEMPRODUTO.NRLANCTONF   AND
                                  T.NRSEQIMPOIT  = ITEMPRODUTO.NRSEQITPROD);
            ELSIF C_ATUAVRCONT.IDTRATIMPO = W_D THEN
               UPDATE ITEMPRODUTO
               SET VRCONTITEM = VRCONTITEM + ((V_IMPOCONTAB  / V_VRCONTAB) * VRCONTITEM)
               WHERE EXISTS(SELECT CDFILIMPOIT, NRLANCIMPOIT, NRSEQIMPOIT
                            FROM TRABITPROIMPOS T
                            WHERE T.CDFILIMPOIT  = P_FILIAL                 AND
                                  T.NRLANCIMPOIT = P_LANCTONF               AND
                                  T.CDIMPOSTOIT  = C_ATUAVRCONT.CDIMPOSTOIT AND
                                  T.CDFILIMPOIT  = ITEMPRODUTO.CDFILIAL     AND
                                  T.NRLANCIMPOIT = ITEMPRODUTO.NRLANCTONF   AND
                                  T.NRSEQIMPOIT  = ITEMPRODUTO.NRSEQITPROD);
            ELSE
               UPDATE ITEMPRODUTO
               SET VRCONTITEM = VRCONTITEM + ((V_IMPOCONTAB  / V_VRCONTAB) * VRCONTITEM)
               WHERE EXISTS(SELECT CDFILIMPOIT, NRLANCIMPOIT, NRSEQIMPOIT
                            FROM TRABITPROIMPOS T
                            WHERE T.CDFILIMPOIT  = P_FILIAL                 AND
                                  T.NRLANCIMPOIT = P_LANCTONF               AND
                                  T.CDIMPOSTOIT  = C_ATUAVRCONT.CDIMPOSTOIT AND
                                  T.CDFILIMPOIT  = ITEMPRODUTO.CDFILIAL     AND
                                  T.NRLANCIMPOIT = ITEMPRODUTO.NRLANCTONF   AND
                                  T.NRSEQIMPOIT  = ITEMPRODUTO.NRSEQITPROD);
            END IF;
         END IF;
      END LOOP;
   END IF;
   IF NOT(P_LANCESTQ IS NULL) AND (V_IDCTRLESTQ <> W_N) THEN
      IF (V_IDOPERDEVONF = W_S) THEN
         IF (V_DEVOLORIG IS NOT NULL) THEN
            V_DTSAIDNFORIG := NULL;
            SELECT MAX(IDSISTEMA), MAX(DTENTRSAID)
            INTO V_IDSISTEMA, V_DTSAIDNFORIG
            FROM NOTAFISCAL N, ITEMNOTAFISC I
            WHERE I.CDFILIAL     = P_FILIAL      AND
                  I.NRLANCTONF   = P_LANCTONF    AND
                  I.CDFILIALIT   = N.CDFILIAL    AND
                  I.NRLANCTONFIT = N.NRLANCTONF;
         ELSE
            V_IDSISTEMA := W_EXP;
            V_DTSAIDNFORIG := V_DTATUAL;
         END IF;
         IF (V_IDSISTEMA = W_EXP) THEN
            SELECT MAX(NVL(IDRETPROEXP,1))
            INTO V_IDRETPROEXP
            FROM PAREXPEDICAO;
         END IF;
      END IF;
      DELETE FROM ITLANCTOEST
      WHERE CDFILIAL   = P_FILIAL    AND
            NRLANCESTQ = P_LANCESTQ;
      IF V_IDSISTEMA <> W_VMN THEN
         DELETE FROM LANCTOESTOQ
         WHERE CDFILIAL   = P_FILIAL    AND
               NRLANCESTQ = P_LANCESTQ;
         DELETE FROM LANCTOESTOQ
         WHERE CDFILIAL   = P_FILIAL    AND
               NRLANCTONF = P_LANCTONF;
      ELSE
         UPDATE LANCTOESTOQ
         SET DTLANCESTQ   = P_INIVALID
         WHERE CDFILIAL   = P_FILIAL    AND
               NRLANCESTQ = P_LANCESTQ;
      END IF;
      IF P_ENTRSAID = W_S THEN
         IF (P_TIPOOPER = '06') THEN
            V_TIPOMOVI := '5';
         ELSE
            V_TIPOMOVI := '4';
         END IF;
      ELSE
         V_TIPOMOVI := W_2;
      END IF;
      SELECT T.NMTIPOOPER, F.NMFILIAL
      INTO V_NMTIPOOPER, V_NMFILIEMIT
      FROM NOTAFISCAL N, TIPOOPERAC T, FILIAL F
      WHERE
         (N.CDFILIAL     = P_FILIAL)       AND
         (N.NRLANCTONF   = P_LANCTONF)     AND
         (T.CDTIPOOPER   = N.CDTIPOOPER)   AND
         (T.IDENTRSAIDOP = N.IDENTRSAIDOP) AND
         (N.CDFILIEMIT   = F.CDFILIAL(+));
      IF V_IDORIGDESTNF = W_L THEN
         V_DESCLANC := SUBSTR('NF: '||P_LANCTONF||' - '||SUBSTR(V_NMTIPOOPER,1,25)||' - '||SUBSTR(V_NMFILIEMIT,1,15),1,60);
      ELSE
         V_DESCLANC := SUBSTR('LANC. ORIGEM: '||V_NRINSJURNF||' Nº'||V_NRNOTAFISC||' SERIE '||V_SERIE,1,60);
      END IF;
      SELECT COUNT(*)
      INTO V_COUNT
      FROM LANCTOESTOQ
      WHERE CDFILIAL   = P_FILIAL    AND
            NRLANCESTQ = P_LANCESTQ;
      IF V_COUNT = 0 THEN
         INSERT INTO LANCTOESTOQ(CDFILIAL,NRLANCESTQ,NRLANCTONF,DSLANCESTQ,IDTPLANCTO,DTLANCESTQ,CDOPERADOR,CDFILIMOVI)
                          VALUES(P_FILIAL, P_LANCESTQ, P_LANCTONF, V_DESCLANC, P_ENTRSAID, P_INIVALID,P_CDOPERADOR, V_CDFILIRECE);
      END IF;
      IF (V_IDSISTEMA = W_PDV) THEN
         SELECT NVL(MAX(IDATUEST),1)
         INTO V_IDATUEST
         FROM PARAVEND
         WHERE CDFILIAL = P_FILIAL;
      END IF;
      IF ((V_IDSISTEMA = W_EXP) AND (V_IDRETPROEXP = W_2)) OR ((V_IDSISTEMA = W_PDV) AND (V_IDATUEST = W_1)) THEN
         FOR C_ITLANCTOEST IN (SELECT NRSEQITPROD,IP.CDPRODUTO,VRUNITITEM,VRTOTAITEM,
                                      QTITEMPROD,CDPRODESTO,VRBRUTITEM,VRDESCITEM,VRCONTITEM,
                                      NVL(IP.CDALMOXARIFE, ' ') CDALMOXARIFE,
                                      NVL(IP.CDLOCALESTOQ, ' ') CDLOCALESTOQ,
                                      NVL(NRLOTEESTQ, ' ') NRLOTEESTQ,
                                      NVL(NRSUBLOTE, ' ') NRSUBLOTE, CDFILIMOVI,
                                      CDFISOPEITEM,
                                      NVL(IDORIGEMPROD, 'N') IDORIGEMPROD
                               FROM ITEMPRODUTO IP, PRODUTO P, PRODFILI PF
                               WHERE IP.CDFILIAL    = P_FILIAL     AND
                                     IP.NRLANCTONF  = P_LANCTONF   AND
                                     P.CDPRODUTO    = IP.CDPRODUTO AND
                                     PF.CDFILIAL    = V_CDFILIRECE AND
                                     PF.CDPRODUTO   = P.CDPRODESTO AND
                                     NVL(IDCNTRESTOQ, W_S) <> W_N) LOOP
            INSERT INTO LOTE
            (CDFILIAL, NRLOTEESTQ, NRSUBLOTE, CDPRODUTO, IDSTATLOTE, DTENTRLOTE)
            (SELECT C_ITLANCTOEST.CDFILIMOVI,  C_ITLANCTOEST.NRLOTEESTQ,
                    C_ITLANCTOEST.NRSUBLOTE,   C_ITLANCTOEST.CDPRODESTO, W_L , SYSDATE
             FROM PARAMGERAL
             MINUS
             SELECT CDFILIAL,      NRLOTEESTQ,  NRSUBLOTE,
                    C_ITLANCTOEST.CDPRODESTO, W_L, SYSDATE
             FROM LOTE
             WHERE  C_ITLANCTOEST.CDFILIMOVI = CDFILIAL     AND
                    C_ITLANCTOEST.NRLOTEESTQ = NRLOTEESTQ   AND
                    C_ITLANCTOEST.NRSUBLOTE  = NRSUBLOTE    AND
                    C_ITLANCTOEST.CDPRODESTO = CDPRODUTO);
            UPDATE ITEMPRODUTO
            SET CDPRODMOVI = C_ITLANCTOEST.CDPRODESTO
            WHERE (CDFILIAL    = P_FILIAL)    AND
                  (NRLANCTONF  = P_LANCTONF)  AND
                  (NRSEQITPROD = C_ITLANCTOEST.NRSEQITPROD);
            SELECT COUNT(*)
            INTO V_EXISTE_ROT
            FROM ROTFABRICA
            WHERE CDPRODUTO = C_ITLANCTOEST.CDPRODUTO;
            IF (V_EXISTE_ROT) > 0 THEN
               INSERE_SUBPRODMAN(P_FILIAL,P_LANCESTQ,P_TIPOOPER,C_ITLANCTOEST.CDPRODUTO,
                                 C_ITLANCTOEST.QTITEMPROD,
                                 C_ITLANCTOEST.VRTOTAITEM, C_ITLANCTOEST.VRDESCITEM,
                                 C_ITLANCTOEST.VRBRUTITEM, C_ITLANCTOEST.VRCONTITEM,
                                 V_VRTOTALANCTO, V_QTDELANCTO, V_TIPOMOVI, P_INIVALID,
                                 C_ITLANCTOEST.CDPRODESTO, '', '', 'F');
            ELSE
               BEGIN
                  SELECT VRFATOCONV INTO V_FATOCONV
                  FROM PRODUTO P, ITEMPRODUTO IP
                  WHERE IP.CDFILIAL    = P_FILIAL                  AND
                        IP.NRLANCTONF  = P_LANCTONF                AND
                        IP.NRSEQITPROD = C_ITLANCTOEST.NRSEQITPROD AND
                        P.CDPRODUTO    = IP.CDPRODUTO;
               EXCEPTION
                  WHEN NO_DATA_FOUND THEN
                     V_FATOCONV := 0;
               END;
               IF (V_FATOCONV IS NULL) OR (V_FATOCONV = 0) THEN
                  V_FATOCONV := 1;
               END IF;
               V_QTDELANCTO   := C_ITLANCTOEST.QTITEMPROD;
               V_VRTOTALANCTO := (C_ITLANCTOEST.VRTOTAITEM - C_ITLANCTOEST.VRDESCITEM);
               IF NOT(V_QTDELANCTO = 0) THEN
                  V_VRUNITLANCTO := V_VRTOTALANCTO/V_QTDELANCTO;
               ELSE
                  V_VRUNITLANCTO := V_VRTOTALANCTO;
               END IF;
               IF (P_TIPOOPER = '06') THEN
                  V_TOTABRUT   := 0;
                  V_TOTACONTAB := 0;
                  V_VRCUSTENTR := 0;
               ELSIF (V_IDCOMPRABONI = 'S') THEN
                  SELECT NVL(MAX(IDCOMPOEVENC),'S')
                    INTO V_COMPCUSTPROD
                    FROM TPOPERCFOP
                   WHERE CDTIPOOPER   = P_TIPOOPER
                     AND IDENTRSAIDOP = P_ENTRSAID
                     AND CDFISCOPER   = C_ITLANCTOEST.CDFISOPEITEM;
                  IF (V_COMPCUSTPROD = 'N') THEN
                     V_TOTABRUT   := 0;
                     V_TOTACONTAB := 0;
                     V_VRCUSTENTR := 0;
                  ELSE
                     IF NOT(V_IDNFRETIND = w_S) THEN
                        IF NOT(V_QTDELANCTO = 0) THEN
                           V_TOTABRUT   := (C_ITLANCTOEST.VRBRUTITEM/V_QTDELANCTO)/V_FATOCONV;
                           V_TOTACONTAB := (C_ITLANCTOEST.VRCONTITEM/V_QTDELANCTO)/V_FATOCONV;
                        ELSE
                           V_TOTABRUT   := C_ITLANCTOEST.VRBRUTITEM;
                           V_TOTACONTAB := C_ITLANCTOEST.VRCONTITEM;
                        END IF;
                        V_VRCUSTENTR := C_ITLANCTOEST.VRCONTITEM;
                     ELSE
                        V_VRCUSTENTR := V_TOTACONTAB;
                     END IF;
                  END IF;
               ELSE
                  IF NOT(V_IDNFRETIND = w_S) THEN
                     IF NOT(V_QTDELANCTO = 0) THEN
                        V_TOTABRUT   := (C_ITLANCTOEST.VRBRUTITEM/V_QTDELANCTO)/V_FATOCONV;
                        V_TOTACONTAB := (C_ITLANCTOEST.VRCONTITEM/V_QTDELANCTO)/V_FATOCONV;
                     ELSE
                        V_TOTABRUT   := C_ITLANCTOEST.VRBRUTITEM;
                        V_TOTACONTAB := C_ITLANCTOEST.VRCONTITEM;
                     END IF;
                     V_VRCUSTENTR := C_ITLANCTOEST.VRCONTITEM;
                  ELSE
                     V_VRCUSTENTR := V_TOTACONTAB;
                  END IF;
               END IF;
               IF (V_IDOPERDEVONF = W_S AND V_IDUTCUSORIGEST = W_S) THEN
                  V_VRCUSTENTR := ROUND(CUSTO_PRODUTO_LCEST(V_CDFILIRECE, C_ITLANCTOEST.CDPRODESTO, V_CDTIPCUSTEST, P_INIVALID,
                                                            V_DTATUAL, C_ITLANCTOEST.CDALMOXARIFE, C_ITLANCTOEST.CDLOCALESTOQ,
                                                            C_ITLANCTOEST.NRLOTEESTQ, C_ITLANCTOEST.NRSUBLOTE), 5);
                  IF V_VRCUSTENTR = 0 THEN
                     V_TOTABRUT   := C_ITLANCTOEST.VRUNITITEM;
                     V_TOTACONTAB := C_ITLANCTOEST.VRUNITITEM;
                  ELSE
                     V_TOTABRUT   := V_VRCUSTENTR;
                     V_TOTACONTAB := V_VRCUSTENTR;
                  END IF;
               END IF;
               SELECT NVL(MAX(NRSEQUITEM),0) + 1
               INTO V_NRSEQITPROD
               FROM ITLANCTOEST
               WHERE CDFILIAL   = P_FILIAL    AND
                     NRLANCESTQ = P_LANCESTQ;
               IF V_IDORIGDESTNF = W_L THEN
                  BEGIN
                     SELECT CDFORNOPELOG
                     INTO V_CDFORNECED
                     FROM FILIAL
                     WHERE CDFILIAL = V_CDFILIEMIT;
                  EXCEPTION
                     WHEN NO_DATA_FOUND THEN
                        V_CDFORNECED := NULL;
                  END;
               ELSE
                  V_CDFORNECED := P_FORNECED;
               END IF;
               SELECT NVL(MAX(X.VRPESOBRUTPR),0),NVL(MAX(VRPECUSTOLOG),0), NVL(MAX(VRVRCUSTOLOG),0),
                      NVL(MAX(VRPESEGURLOG),0)
               INTO V_VRPESOBRUTPR, V_VRPECUSTOLOG,V_VRVRCUSTOLOG,
                    V_VRPESEGURLOG
               FROM PRODUTO P, CUSTOLOGIST C,
                    (SELECT NVL(MAX(A.VRPESOBRUTPR),0) VRPESOBRUTPR,
                           MAX(P.CDARVPROD) CDPRODUTO, MAX(C.DTINIVIGCLOG) DTINIVIGCLOG
                     FROM PRODUTO P, CUSTOLOGIST C, PRODUTO A
                     WHERE
                        (INSTR(A.CDARVPROD,P.CDARVPROD) = 1)         AND
                        A.CDPRODUTO    = C_ITLANCTOEST.CDPRODUTO     AND
                        P.CDPRODUTO    = C.CDPRODUTO                 AND
                        C.CDFILIAL     = C_ITLANCTOEST.CDFILIMOVI    AND
                        C.CDFORNECED   = V_CDFORNECED                AND
                        C.DTINIVIGCLOG = (SELECT MAX(DTINIVIGCLOG)
                                          FROM CUSTOLOGIST A, PRODUTO B, PRODUTO Q
                                          WHERE
                                             A.CDFILIAL     = C.CDFILIAL    AND
                                             A.CDFORNECED   = C.CDFORNECED  AND
                                             (INSTR(B.CDARVPROD,Q.CDARVPROD) = 1)         AND
                                             B.CDPRODUTO    = C_ITLANCTOEST.CDPRODUTO     AND
                                             Q.CDPRODUTO    = A.CDPRODUTO                 AND
                                             A.DTINIVIGCLOG <= P_INIVALID))X
               WHERE C.CDFILIAL     = C_ITLANCTOEST.CDFILIMOVI  AND
                     C.CDPRODUTO    = P.CDPRODUTO               AND
                     C.CDPRODUTO    = X.CDPRODUTO               AND
                     C.CDFORNECED   = V_CDFORNECED              AND
                     C.DTINIVIGCLOG = X.DTINIVIGCLOG;
               V_VRCUSTOLOG := 0;
               V_VRCUSTOSEG := 0;
               IF (V_VRVRCUSTOLOG > 0) AND (V_VRPESOBRUTPR > 0) THEN
                  V_VRCUSTOLOG := (C_ITLANCTOEST.QTITEMPROD*V_VRPESOBRUTPR)*V_VRVRCUSTOLOG;
               END IF;
               IF (V_VRPECUSTOLOG > 0) THEN
                  V_VRCUSTOLOG := (C_ITLANCTOEST.VRTOTAITEM * V_VRPECUSTOLOG)/100;
               END IF;
               IF (V_VRPESEGURLOG > 0) THEN
                  V_VRCUSTOSEG := (C_ITLANCTOEST.VRTOTAITEM * V_VRPESEGURLOG)/100;
               END IF;
               INSERT INTO ITLANCTOEST
                  (CDFILIAL,     NRLANCESTQ, NRSEQUITEM,   CDPRODUTO,    QTTOTLANCTO, VRUNILANCTO,   VRTOTLANCTO,
                   IDTIPOMOVI,   DTLANCMOVI, IDORDEMCLC,   CDPRODMOVI,   QTLANCTOEST, VRLANCTOBRUT,  VRLANCTOEST,
                   VRCUSTENTR,   CDFILIMOVI, CDALMOXARIFE, CDLOCALESTOQ, NRLOTEESTQ,  NRSUBLOTE,     NRLANCORIGRP,
                   VRCUSTLOGLAN, VRSEGULOGLAN, IDORIGEMPROD)
               VALUES
                  (P_FILIAL,       P_LANCESTQ,LPAD(V_NRSEQITPROD,4,'0'),  C_ITLANCTOEST.CDPRODUTO, V_QTDELANCTO,
                   V_VRUNITLANCTO, V_VRTOTALANCTO,  V_TIPOMOVI,   P_INIVALID, W_2, C_ITLANCTOEST.CDPRODESTO,
                   (V_QTDELANCTO * V_FATOCONV), V_TOTABRUT,    V_TOTACONTAB,  V_VRCUSTENTR, V_CDFILIRECE,
                   C_ITLANCTOEST.CDALMOXARIFE,C_ITLANCTOEST.CDLOCALESTOQ,C_ITLANCTOEST.NRLOTEESTQ, C_ITLANCTOEST.NRSUBLOTE,
                   V_IDDOCREPLIC, V_VRCUSTOLOG, V_VRCUSTOSEG, C_ITLANCTOEST.IDORIGEMPROD);
            END IF;
         END LOOP;
      ELSE
         FOR C_ITLANCTOEST IN (SELECT NRSEQITPROD,IP.CDPRODUTO,VRUNITITEM,VRTOTAITEM,
                                      QTITEMPROD,CDPRODESTO,VRBRUTITEM,VRDESCITEM,VRCONTITEM,
                                      NVL(IP.CDALMOXARIFE, ' ') CDALMOXARIFE,
                                      NVL(IP.CDLOCALESTOQ, ' ') CDLOCALESTOQ,
                                      NVL(NRLOTEESTQ, ' ') NRLOTEESTQ,
                                      NVL(NRSUBLOTE, ' ') NRSUBLOTE, CDFILIMOVI,
                                      CDFISOPEITEM, NVL(IDORIGEMPROD, 'N') IDORIGEMPROD
                               FROM ITEMPRODUTO IP, PRODUTO P, PRODFILI PF
                               WHERE IP.CDFILIAL    = P_FILIAL     AND
                                     IP.NRLANCTONF  = P_LANCTONF   AND
                                     P.CDPRODUTO    = IP.CDPRODUTO AND
                                     PF.CDFILIAL    = V_CDFILIRECE AND
                                     PF.CDPRODUTO   = P.CDPRODESTO AND
                                     NVL(IDCNTRESTOQ, W_S) <> W_N) LOOP
            --Alteração para verificar se o CFOP atualiza estoque
            V_ATUPORCFOP := w_S;
            V_CFOPTPOPER := 0;
            V_CFOPATUEST := 0;
            SELECT COUNT(CDFISCOPER)
              INTO V_CFOPTPOPER
              FROM TPOPERCFOP
             WHERE IDENTRSAIDOP = w_E
               AND CDTIPOOPER   = P_TIPOOPER
               AND CDFISCOPER   = C_ITLANCTOEST.CDFISOPEITEM;
            IF(V_CFOPTPOPER > 0) THEN
               SELECT COUNT(CDFISCOPER)
                 INTO V_CFOPATUEST
                 FROM(SELECT CDFISCOPER
                        FROM TPOPERCFOP T
                       WHERE T.IDENTRSAIDOP   = w_E
                         AND T.CDTIPOOPER     = P_TIPOOPER
                         AND T.IDATUESTTPCFOP = w_S
                         AND T.CDFISCOPER     = C_ITLANCTOEST.CDFISOPEITEM
                         AND C_ITLANCTOEST.CDPRODUTO NOT IN (SELECT CDPRODUTO
                                                               FROM TPOPERCFOPEXCP TE
                                                              WHERE TE.IDENTRSAIDOP = w_E
                                                                AND TE.CDTIPOOPER   = P_TIPOOPER
                                                                AND TE.CDFISCOPER   = C_ITLANCTOEST.CDFISOPEITEM
                                                                AND TE.CDPRODUTO    = C_ITLANCTOEST.CDPRODUTO)
                       UNION ALL
                      SELECT CDFISCOPER
                        FROM TPOPERCFOP T
                       WHERE T.IDENTRSAIDOP   = w_E
                         AND T.CDTIPOOPER     = P_TIPOOPER
                         AND T.IDATUESTTPCFOP = w_N
                         AND T.CDFISCOPER     = C_ITLANCTOEST.CDFISOPEITEM
                         AND C_ITLANCTOEST.CDPRODUTO IN (SELECT CDPRODUTO
                                                           FROM TPOPERCFOPEXCP TE
                                                          WHERE TE.IDENTRSAIDOP = w_E
                                                            AND TE.CDTIPOOPER   = P_TIPOOPER
                                                            AND TE.CDFISCOPER   = C_ITLANCTOEST.CDFISOPEITEM
                                                            AND TE.CDPRODUTO    = C_ITLANCTOEST.CDPRODUTO));
               IF NOT (V_CFOPATUEST > 0) THEN
                  V_ATUPORCFOP := w_N;
               END IF;
            END IF;
            --Alteração para verificar se o CFOP atualiza estoque
            IF (V_ATUPORCFOP = w_S) THEN
               IF ((V_CDFILIALSAGA IS NULL) OR ((V_CDFILIALSAGA IS NOT NULL) AND (V_IDATUESTLANCNFE = 'S'))) THEN
                  GERA_EST_DISTRIBUICAO(P_FILIAL, P_LANCTONF, C_ITLANCTOEST.NRSEQITPROD, P_LANCESTQ,
                                        P_TIPOOPER, V_TIPOMOVI, P_INIVALID, C_ITLANCTOEST.CDFILIMOVI,
                                        C_ITLANCTOEST.CDPRODUTO, C_ITLANCTOEST.QTITEMPROD, C_ITLANCTOEST.CDALMOXARIFE, C_ITLANCTOEST.CDLOCALESTOQ,
                                        NULL, NULL, V_RESULT_GERA_EST);
               END IF;
            END IF;
         END LOOP;
      END IF;
   END IF;
   IF P_TIPOOPER = '03' THEN
      V_VRCOMPLEMEN := 0;
      FOR C_ENCARGO IN (SELECT EN.IDENCARGO, SUM(VRITEMENCA) AS VRITEMENCA
                        FROM ITEMENCARGO IE, ENCARGO EN
                        WHERE (IE.CDFILIAL   = P_FILIAL)     AND
                              (IE.NRLANCTONF = P_LANCTONF)   AND
                              (IE.VRITEMENCA > 0)            AND
                              (EN.CDENCARGO  = IE.CDENCARGO) AND
                              (EN.CDCTBLENTREN IS NULL)
                        GROUP BY IDENCARGO) LOOP
         IF C_ENCARGO.IDENCARGO = W_A THEN
            V_VRCOMPLEMEN := V_VRCOMPLEMEN + C_ENCARGO.VRITEMENCA;
         ELSIF C_ENCARGO.IDENCARGO = W_D THEN
            V_VRCOMPLEMEN := V_VRCOMPLEMEN - C_ENCARGO.VRITEMENCA;
         END IF;
      END LOOP;
      IF (V_VRCOMPLEMEN > 0) AND (V_LIQUIDO = 0) THEN
         ATUALIZA_CUSTO_COMPLEMENTO(P_FILIAL, P_LANCTONF, (V_VRCOMPLEMEN - V_VRPRODUTOS));
      END IF;
      IF V_VRNOTAFISC = 0 THEN
         UPDATE NOTAFISCAL
            SET VRNOTAFISC = ROUND(V_TOTALNOTA, 2)
          WHERE CDFILIAL   = P_FILIAL    AND
                NRLANCTONF = P_LANCTONF;
      ELSE
         UPDATE NOTAFISCAL
            SET VRNOTAFISC = ROUND(VRNOTAFISC, 2)
          WHERE CDFILIAL   = P_FILIAL    AND
                NRLANCTONF = P_LANCTONF;
      END IF;
      IF V_VRPRODUTOS = 0 THEN
         UPDATE NOTAFISCAL
         SET VRPRODUTOS = V_VRCOMPLEMEN
         WHERE CDFILIAL   = P_FILIAL    AND
               NRLANCTONF = P_LANCTONF;
      END IF;
   END IF;
   IF V_IDOPERDEVONF = 'S' THEN
      V_TOTALNOTA := ROUND(V_TOTALNOTA, 2);
      UPDATE NOTAFISCAL
         SET VRNOTAFISC = ROUND(VRNOTAFISC, 2)
       WHERE CDFILIAL   = P_FILIAL
         AND NRLANCTONF = P_LANCTONF;
   END IF;
   -- Recalcula diferencial de aliquota considerando valor contabil quando não possuir redução de base de cálculo
   FOR C_TRABITPROIMPOS IN (SELECT NRSEQITPROD, CDIMPOSTO, VRALIQITEM
                              FROM ITEMPROIMPOS
                             WHERE CDFILIAL = P_FILIAL
                               AND NRLANCTONF = P_LANCTONF
                               AND NRITPROIMPOS = '3') LOOP
      V_CDFILIREDU := NULL;
      SELECT MAX(CDFILIAL)
        INTO V_CDFILIREDU
        FROM ITEMPROIMPOS
       WHERE CDFILIAL = P_FILIAL
         AND NRLANCTONF = P_LANCTONF
         AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
         AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
         AND NRITPROIMPOS = '2';
      IF ((V_CDFILIREDU IS NULL) AND (NVL(V_IDORIGDESTNF, 'F') <> 'L')) THEN
         V_VRCONTITIMP := 0;
         SELECT MAX(VRCONTITIMP), MAX(VRIMPOSTOIT), MAX(VRALIQITEM)
           INTO V_VRCONTITIMP, V_IMPOSTOIT, V_ALIQINFO
           FROM ITEMPROIMPOS 
          WHERE CDFILIAL = P_FILIAL 
            AND NRLANCTONF = P_LANCTONF 
            AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO 
            AND NRITPROIMPOS = '1';
         IF (V_IDCALCDIFENTFISC = 'N') THEN
            UPDATE TRABITPROIMPOS
               SET VRCONTIMPOIT  = ROUND(V_VRCONTITIMP, 5),
                   VRBCALCIMPOIT = ROUND(V_VRCONTITIMP, 2),
                   VRIMPOSIT = ROUND((V_VRCONTITIMP * (VRALIQIMPOIT / 100)), V_NRDECITOTANF)
             WHERE CDFILIMPOIT = P_FILIAL
               AND NRLANCIMPOIT = P_LANCTONF
               AND NRSEQIMPOIT = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTOIT = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRSEQITPRO   = '3';
            UPDATE ITEMPROIMPOS
               SET VRCONTITIMP = ROUND(V_VRCONTITIMP, 5),
                   VRBASECALCIT = ROUND(V_VRCONTITIMP, 2),
                   VRIMPOSTOIT = ROUND((V_VRCONTITIMP * (VRALIQITEM / 100)), V_NRDECITOTANF)
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF
               AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRITPROIMPOS = '3';
         ELSE
            V_ALIQDEST     := 0;
            V_ALIQDEST     := V_ALIQINFO + C_TRABITPROIMPOS.VRALIQITEM;
            V_BCALCDIFCOMP := ROUND(((V_VRCONTITIMP - V_IMPOSTOIT) / ((100 - V_ALIQDEST)/100)) , V_NRDECITOTANF);
            V_IMPOSTODIFE  := ROUND(((V_BCALCDIFCOMP * (V_ALIQDEST/100)) - V_IMPOSTOIT), V_NRDECITOTANF);
            UPDATE TRABITPROIMPOS
               SET VRCONTIMPOIT  = ROUND(V_VRCONTITIMP, 5),
                   VRBCALCIMPOIT = ROUND(V_BCALCDIFCOMP, 2),
                   VRIMPOSIT     = V_IMPOSTODIFE
             WHERE CDFILIMPOIT = P_FILIAL
               AND NRLANCIMPOIT = P_LANCTONF
               AND NRSEQIMPOIT = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTOIT = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRSEQITPRO   = '3';
             UPDATE ITEMPROIMPOS
               SET VRCONTITIMP  = ROUND(V_VRCONTITIMP, 5),
                   VRBASECALCIT = ROUND(V_BCALCDIFCOMP, 2),
                   VRIMPOSTOIT  = V_IMPOSTODIFE
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCTONF = P_LANCTONF
               AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
               AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
               AND NRITPROIMPOS = '3';
         END IF;
      END IF;
      IF ((V_CDFILIREDU IS NULL) AND (NVL(V_IDORIGDESTNF, 'F') = 'L')) THEN
         V_VRCONTITIMP := 0;
         SELECT MAX(VRCONTITIMP)
           INTO V_VRCONTITIMP
           FROM ITEMPROIMPOS
          WHERE CDFILIAL = P_FILIAL
            AND NRLANCTONF = P_LANCTONF
            AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
            AND NRITPROIMPOS = '1';
         UPDATE TRABITPROIMPOS
            SET VRCONTIMPOIT = V_VRCONTITIMP
          WHERE CDFILIMPOIT = P_FILIAL
            AND NRLANCIMPOIT = P_LANCTONF
            AND NRSEQIMPOIT = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTOIT = C_TRABITPROIMPOS.CDIMPOSTO
            AND NRSEQITPRO   = '3';
         UPDATE ITEMPROIMPOS
            SET VRCONTITIMP = V_VRCONTITIMP
          WHERE CDFILIAL = P_FILIAL
            AND NRLANCTONF = P_LANCTONF
            AND NRSEQITPROD = C_TRABITPROIMPOS.NRSEQITPROD
            AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
            AND NRITPROIMPOS = '3';
      END IF;
   END LOOP;
   FOR C_TRABITPROIMPOS IN (SELECT CDIMPOSTO, VRALIQITEM, VRPERREDBCIT, VRPARDEDIT,
                                   CDFISCALIT, CDSITUTRIBIT, CDFISCOPERIT, CDSUFXCFOPIT,
                                   IDDIFALIQCUSPRI,
                                   SUM(VRCONTITIMP) AS VRCONTITIMP,
                                   SUM(VRBASECALCIT) AS VRBASECALCIT,
                                   SUM(VRIMPOSTOIT) AS VRIMPOSTOIT
                              FROM ITEMPROIMPOS
                             WHERE CDFILIAL = P_FILIAL
                               AND NRLANCTONF = P_LANCTONF
                               AND NRITPROIMPOS = '3'
                             GROUP BY CDIMPOSTO, VRALIQITEM, VRPERREDBCIT, VRPARDEDIT,
                                      CDFISCALIT, CDSITUTRIBIT, CDFISCOPERIT, CDSUFXCFOPIT,
                                      IDDIFALIQCUSPRI) LOOP
      UPDATE IMPOSTONF
         SET VRCONTABILNF = C_TRABITPROIMPOS.VRCONTITIMP,
             VRBASECALCNF = C_TRABITPROIMPOS.VRBASECALCIT,
             VRIMPOSTONF  = C_TRABITPROIMPOS.VRIMPOSTOIT
       WHERE CDFILIAL = P_FILIAL
         AND NRLANCTONF = P_LANCTONF
         AND CDIMPOSTO = C_TRABITPROIMPOS.CDIMPOSTO
         AND IDIMPOSTONF = '3'
         AND VRALIQNF = C_TRABITPROIMPOS.VRALIQITEM
         AND VRPERREDBCNF = C_TRABITPROIMPOS.VRPERREDBCIT
         AND VRPARDEDNF = C_TRABITPROIMPOS.VRPARDEDIT
         AND CDFISCALNF = C_TRABITPROIMPOS.CDFISCALIT
         AND CDSITUTRIBNF = C_TRABITPROIMPOS.CDSITUTRIBIT
         AND CDFISCOPERNF = C_TRABITPROIMPOS.CDFISCOPERIT
         AND NVL(IDDIFALIQCUSPRN, 'N') = NVL(C_TRABITPROIMPOS.IDDIFALIQCUSPRI, 'N')
         AND NVL(CDSUFXCFOPNF, 'N') = NVL(C_TRABITPROIMPOS.CDSUFXCFOPIT, 'N');
   END LOOP;
   -- Atualiza custo do produto em estoque caso o diferencial compoem o custo do produto
   FOR C_ITLANCTOEST IN (SELECT NRSEQITPROD, VRBRUTITEM, P.VRFATOCONV, QTITEMPROD, VRCONTITEM
                         FROM ITEMPRODUTO IP, PRODUTO P, PRODFILI PF
                         WHERE IP.CDFILIAL    = P_FILIAL     AND
                               IP.NRLANCTONF  = P_LANCTONF   AND
                               P.CDPRODUTO    = IP.CDPRODUTO AND
                               PF.CDFILIAL    = V_CDFILIRECE AND
                               PF.CDPRODUTO   = P.CDPRODESTO) LOOP
      V_VRIMPDIFALIQ := 0;
      SELECT NVL(SUM(VRIMPOSTOIT), 0)
        INTO V_VRIMPDIFALIQ
        FROM ITEMPROIMPOS
       WHERE CDFILIAL = P_FILIAL
         AND NRLANCTONF = P_LANCTONF
         AND NRSEQITPROD = C_ITLANCTOEST.NRSEQITPROD
         AND IDDIFALIQCUSPRI = 'S';
      IF V_VRIMPDIFALIQ > 0 THEN
         UPDATE ITEMPRODUTO
            SET VRCONTITEM   = VRCONTITEM + V_VRIMPDIFALIQ
          WHERE (CDFILIAL    = P_FILIAL)    AND
                (NRLANCTONF  = P_LANCTONF ) AND
                (NRSEQITPROD = C_ITLANCTOEST.NRSEQITPROD);
         IF (P_TIPOOPER = '06') THEN
            UPDATE ITLANCTOEST
               SET VRLANCTOBRUT = (V_VRIMPDIFALIQ / C_ITLANCTOEST.QTITEMPROD) / C_ITLANCTOEST.VRFATOCONV,
                   VRLANCTOEST = (V_VRIMPDIFALIQ / C_ITLANCTOEST.QTITEMPROD) / C_ITLANCTOEST.VRFATOCONV,
                   VRCUSTENTR = VRCUSTENTR + V_VRIMPDIFALIQ
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCESTQ = P_LANCESTQ
               AND NRSEQUITEM = C_ITLANCTOEST.NRSEQITPROD;
         ELSE
            UPDATE ITLANCTOEST
               SET VRLANCTOBRUT = ((C_ITLANCTOEST.VRBRUTITEM + V_VRIMPDIFALIQ) / C_ITLANCTOEST.QTITEMPROD) / C_ITLANCTOEST.VRFATOCONV,
                   VRLANCTOEST = ((C_ITLANCTOEST.VRCONTITEM + V_VRIMPDIFALIQ) / C_ITLANCTOEST.QTITEMPROD) / C_ITLANCTOEST.VRFATOCONV,
                   VRCUSTENTR = VRCUSTENTR + V_VRIMPDIFALIQ
             WHERE CDFILIAL = P_FILIAL
               AND NRLANCESTQ = P_LANCESTQ
               AND NRSEQUITEM = C_ITLANCTOEST.NRSEQITPROD;
         END IF;
      END IF;
   END LOOP;
   DELETE FROM REGRANOTA
    WHERE CDFILIAL = P_FILIAL
      AND NRLANCTONF = P_LANCTONF;
   FOR C_IMPOSNOTA IN (SELECT DISTINCT CDREGRAIT
                         FROM ITEMPROIMPOS
                        WHERE CDFILIAL = P_FILIAL
                          AND NRLANCTONF = P_LANCTONF
                          AND CDREGRAIT IS NOT NULL
                        ORDER BY CDREGRAIT)
   LOOP
      FOR C_REGRAMSG IN (SELECT CDREGRAFISC, DSMENSREGRAFISC
                           FROM TABLE(MSG_REGRAFISCAL(C_IMPOSNOTA.CDREGRAIT, P_EMPRESA, 'E', P_TIPOOPER, P_INSCESTA)) M
                          WHERE NOT EXISTS(SELECT DSDADOADIC
                                             FROM DADOSADIC
                                            WHERE (CDFILIAL   = P_FILIAL)   AND
                                                  (NRLANCTONF = P_LANCTONF) AND
                                                  (DSDADOADIC = M.DSMENSREGRAFISC))) LOOP
          INSERT INTO DADOSADIC(CDFILIAL, NRLANCTONF, NRDADOADIC, DSDADOADIC)
                         VALUES(P_FILIAL, P_LANCTONF, V_DADOADIC, C_REGRAMSG.DSMENSREGRAFISC);
          V_DADOADIC := LPAD(RTRIM(TO_CHAR(TO_NUMBER(V_DADOADIC) + 1)),3,0);
      END LOOP;
      INSERT INTO REGRANOTA(CDFILIAL, NRLANCTONF, CDREGRAFISC)
                         VALUES(P_FILIAL, P_LANCTONF, C_IMPOSNOTA.CDREGRAIT);
   END LOOP;
   IF (V_IDCALCVRTOTANFE = 'S') THEN
      UPDATE NOTAFISCAL
         SET VRNOTAFISC = NVL(V_TOTALNOTA,0)
       WHERE CDFILIAL   = P_FILIAL
         AND NRLANCTONF = P_LANCTONF;
      IF (V_IDUTILVENC = 'S') THEN
         SELECT COUNT(*)
           INTO V_POSSUIFINANC
           FROM CONTAPAGAR
          WHERE CDFILIAL   = P_FILIAL
            AND NRLANCTONF = P_LANCTONF;
         IF NOT(V_POSSUIFINANC > 0) THEN
            GERA_DADOS_FINANCEIRO(P_FILIAL, P_LANCTONF, P_FILIAL, 'L', P_RESULTADO);
         END IF;
      END IF;
   END IF;   
   /*Chamar a procedure para gerar financeiro. */
   IF (V_IDNFRETIND = 'S') OR (V_IDSTATUS = 'I') THEN
      V_POSSUIFINANC := 0;
      IF (V_IDUTILVENC = 'S') THEN
         SELECT COUNT(*)
           INTO V_POSSUIFINANC
           FROM CONTAPAGAR
          WHERE CDFILIAL   = P_FILIAL
            AND NRLANCTONF = P_LANCTONF;
         IF NOT(V_POSSUIFINANC > 0) THEN
            GERA_DADOS_FINANCEIRO(P_FILIAL, P_LANCTONF, P_FILIAL, 'L', P_RESULTADO);
         END IF;
      END IF;
   END IF;
   DELETE
     FROM INFOPAGANFE
    WHERE CDFILIAL = P_FILIAL
      AND NRLANCTONF = P_LANCTONF;
   IF (NVL(P_AUDIT, 'N') <> 'S') THEN
      CONFERE_ERROS_NF(P_FILIAL, P_LANCTONF, V_TOTALNOTA);
   END IF;
   IF P_TIPOOPER = '01' THEN
      CONHECIMENTO_TRANSPORTE(P_FILIAL, P_LANCTONF, P_LANCESTQ);
   END IF;
   UPDATE TRABITPROIMPOS
      SET CDFISCIMPOIT = '2',
          VRBCALCIMPOIT = 0
    WHERE CDFILIMPOIT = P_FILIAL
      AND NRLANCIMPOIT = P_LANCTONF
      AND VRREDBCIMPOIT > 0.00
      AND NRSEQITPRO = '2';
   FOR C_CARGA IN (SELECT DISTINCT CDIMPOSTO
                     FROM IMPOSTONF
                    WHERE CDFILIAL = P_FILIAL
                      AND NRLANCTONF = P_LANCTONF) LOOP
      V_CARGA := VALOR_CARGA_TRIBUTARIA(C_CARGA.CDIMPOSTO, P_FILIAL, P_LANCTONF);
      IF V_CARGA > 0 THEN
         UPDATE IMPOSTONF
            SET VRIMPCARGATRIBI = V_CARGA
           WHERE CDFILIAL = P_FILIAL
             AND NRLANCTONF = P_LANCTONF
             AND CDIMPOSTO = C_CARGA.CDIMPOSTO
             AND NRIMPOSNF = (SELECT MAX(NRIMPOSNF)
                                      FROM IMPOSTONF
                                     WHERE CDFILIAL = P_FILIAL
                                       AND NRLANCTONF = P_LANCTONF
                                       AND CDIMPOSTO = C_CARGA.CDIMPOSTO);
      END IF;
   END LOOP;
   DELETE ALIQTEMP
   WHERE  NRALIQTEMP = P_FILIAL||P_LANCTONF;
   /* Rotina para geração de saída no estoque (filial agente de terceirização) */
   IF (NVL(P_AUDIT, 'N') <> 'S') THEN
      BEGIN
         SELECT MAX(CDFORNAGETERC)
           INTO V_CDFORNAGETERC
           FROM ITEMNOTAFISC I, NOTAFISCAL N, FILIAL F
          WHERE I.CDFILIALIT   = P_FILIAL
            AND I.NRLANCTONFIT = P_LANCTONF
            AND N.CDFILIAL     = I.CDFILIAL
            AND N.NRLANCTONF   = I.NRLANCTONF
            AND F.CDFILIAL     = N.CDFILIEMIT;
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            V_CDFORNAGETERC := NULL;
      END;
      IF (V_CDFORNAGETERC IS NULL) AND (V_IDORIGDESTNF = 'F') THEN
         BEGIN
            SELECT CDFILIAL, CDFILIOLAGETERC
              INTO V_CDFILIAGENT, V_CDFILIOLAGETERC
              FROM FILIAL
             WHERE CDFORNAGETERC = P_FORNECED;
         EXCEPTION
            WHEN NO_DATA_FOUND THEN
               V_CDFILIAGENT := NULL; V_CDFILIOLAGETERC := NULL;
         END;
         IF NOT V_CDFILIAGENT IS NULL THEN
            BEGIN
               SELECT CDEMPRESA, CDINSCESTA, CDINSCMUNI
                 INTO V_CDEMPRESAAG, V_CDINSCESTAAG, V_CDINSCMUNIAG
                 FROM FILIAL
                WHERE CDFILIAL  = V_CDFILIAGENT;
            EXCEPTION
               WHEN NO_DATA_FOUND THEN
                  V_CDEMPRESAAG  := NULL;
                  V_CDINSCESTAAG := NULL;
                  V_CDINSCMUNIAG := NULL;
            END;
            IF (V_IDCTRLESTQ = 'S') THEN
               FOR C_ITLANCTOEST IN (SELECT IP.NRSEQITPROD, IP.VRBRUTITEM, IP.QTITEMPROD, IP.CDPRODUTO,
                                            IP.VRCONTITEM, IP.VRUNITITEM, IP.VRTOTAITEM, P.CDARVPROD,
                                            P.NMPRODUTO, IP.VRDESCITEM, P.CDPRODESTO, NVL(P.VRFATOCONV, 1) AS VRFATOCONV,
                                            NVL(IDORIGEMPROD, 'N') IDORIGEMPROD
                                       FROM ITEMPRODUTO IP, PRODUTO P, PRODFILI PF
                                      WHERE IP.CDFILIAL    = P_FILIAL
                                        AND IP.NRLANCTONF  = P_LANCTONF
                                        AND P.CDPRODUTO    = IP.CDPRODUTO
                                        AND PF.CDFILIAL    = V_CDFILIRECE
                                        AND PF.CDPRODUTO   = P.CDPRODESTO
                                        AND NVL(PF.IDCNTRESTOQ, W_S) <> W_N) LOOP
                  BEGIN
                     SELECT NVL(NVL(P.CDALMOXARIFE, F.CDALMOXARIFE), ' ') AS CDALMOXARIFE, NVL(NVL(P.CDLOCALESTOQ, F.CDLOCALESTOQ), ' ') AS CDLOCALESTOQ,
                            NVL(F.IDUTILLOTE, 'N') AS IDUTILLOTE
                       INTO V_CDALMOXARIFEAG, V_CDLOCALESTOQAG, V_IDUTILLOTEAG
                       FROM PARAMFILIAL F, PRODFILI P
                      WHERE F.CDFILIAL  = V_CDFILIAGENT
                        AND P.CDFILIAL  = V_CDFILIAGENT
                        AND P.CDPRODUTO = C_ITLANCTOEST.CDPRODESTO;
                  EXCEPTION
                     WHEN NO_DATA_FOUND THEN
                        V_CDALMOXARIFEAG := ' ';
                        V_CDLOCALESTOQAG := ' ';
                        V_IDUTILLOTEAG   := 'N';
                  END;
                  IF V_IDUTILLOTEAG = 'S' THEN
                     IF (V_NRLOTEESTQAG IS NULL) OR (V_NRLOTEESTQAG = ' ') THEN
                        PRXLOTEPRODEST(V_CDFILIAGENT, P_INIVALID, C_ITLANCTOEST.CDPRODESTO, V_NRLOTEESTQAG);
                        V_NRSUBLOTEAG := ' ';
                     END IF;
                  ELSE
                     V_NRLOTEESTQAG := ' ';
                     V_NRSUBLOTEAG  := ' ';
                  END IF;
                  IF V_BOLANESTSAIDAG THEN
                     /* Gerando o registro na tabela LANCTOESTOQ para a entrada na filial relacionada ao agente de terceirização */
                     NOVO_CODIGO_NT('LANCNF/FILIAL' || V_CDFILIAGENT, V_NRLANCTONFAG);
                     V_NRLANCTONFAG := SUBSTR(V_NRLANCTONFAG, 11, 10);
                     NOVO_CODIGO_NT('LANCTOEST'||V_CDFILIAGENT, V_NRLANESTENTRAG);
                     V_NRLANESTENTRAG := SUBSTR(V_NRLANESTENTRAG, 11, 10);
                     V_TPOPERREMESSA := NULL;
                     BEGIN
                        SELECT CDTPOOPREMESSA
                          INTO V_TPOPERREMESSA
                          FROM PARAMGERAL
                         WHERE CDPARGERAL = '0001';
                     EXCEPTION
                     WHEN NO_DATA_FOUND THEN
                        V_TPOPERREMESSA := NULL;
                     END;
                     IF (V_TPOPERREMESSA IS NULL) THEN
                        RAISE_APPLICATION_ERROR(-20501, 'Tipo de operação para geração de lançamento de estoque deve ser informado - (Parâmetros para Documentos Fiscais de Saída - Operador Logístico)', TRUE);
                     END IF;
                     INSERT INTO NOTAFISCAL
                        (CDFILIAL, CDEMPRESA, CDINSCESTA, CDINSCMUNI, NRLANCTONF, NRINSJURNF,
                         IDTPIJURNF, DTEMISSAO, NRNOTAFISC, CDSERIE, IDBLOQUEADO, IDDOCFISCAL,
                         IDDOCFINANC, VRPRODUTOS, VRNOTAFISC, IDENTRSAIDOP, CDTIPOOPER, CDCLIENTE,
                         DTENTRSAID, CDFILIEMIT, IDORIGDESTNF, CDFORNECED, CDFILIRECE, NRAPURACFAT)
                     VALUES
                        (V_CDFILIAGENT, V_CDEMPRESAAG, V_CDINSCESTAAG, V_CDINSCMUNIAG, V_NRLANCTONFAG, V_NRINSJURNF,
                         V_IDTPIJURNF, P_INIVALID, NULL, NULL, 'N', 'N',
                         'S', V_VRPRODUTOS, V_VRNOTAFISC, 'S', V_TPOPERREMESSA, P_FORNECED,
                         P_INIVALID, V_CDFILIAGENT, 'C', NULL, NULL, NULL);
                     INSERT INTO ITEMNOTAFISC
                        (CDFILIAL, NRLANCTONF, NRSEQUITNOTA, CDFILIALIT, NRLANCTONFIT)
                     VALUES
                        (V_CDFILIAGENT, V_NRLANCTONFAG, '001', P_FILIAL, P_LANCTONF);
                     INSERT INTO LANCTOESTOQ
                        (CDFILIAL, CDFILIMOVI, NRLANCESTQ, IDTPLANCTO,
                         DTLANCESTQ, DSLANCESTQ,
                         NRLANCTONF, CDOPERADOR, CDALMOXARIFE, CDLOCALESTOQ)
                     VALUES
                        (V_CDFILIAGENT, V_CDFILIAGENT, V_NRLANESTENTRAG, '4',
                         P_INIVALID, 'NF Retorno Armazenagem - lanç. ' || V_CDFILIRECE || ' ' || P_LANCTONF,
                         V_NRLANCTONFAG, P_CDOPERADOR, NULL, NULL);
                     V_BOLANESTSAIDAG := FALSE;
                  END IF;
                  INSERT INTO ITEMPRODUTO
                     (CDFILIAL, NRLANCTONF, NRSEQITPROD, CDPRODUTO,
                      CDPRODEMIS, DSPRODEMIS, IDATUVRESTOQ, QTITEMPROD,
                      VRUNITITEM, VRDESCITEM, VRTOTAITEM, VRCONTITEM,
                      VRBRUTITEM, IDCONFORITEM, CDFILIMOVI,
                      CDALMOXARIFE, CDLOCALESTOQ, NRLOTEESTQ, NRSUBLOTE, CDPRODMOVI)
                  VALUES
                     (V_CDFILIAGENT, V_NRLANCTONFAG, C_ITLANCTOEST.NRSEQITPROD, C_ITLANCTOEST.CDPRODUTO,
                      C_ITLANCTOEST.CDARVPROD, C_ITLANCTOEST.NMPRODUTO, 'S', C_ITLANCTOEST.QTITEMPROD,
                      C_ITLANCTOEST.VRUNITITEM, C_ITLANCTOEST.VRDESCITEM, C_ITLANCTOEST.VRTOTAITEM, C_ITLANCTOEST.VRCONTITEM,
                      C_ITLANCTOEST.VRBRUTITEM, 'S', V_CDFILIAGENT,
                      V_CDALMOXARIFEAG, V_CDLOCALESTOQAG, V_NRLOTEESTQAG, V_NRSUBLOTEAG,
                      C_ITLANCTOEST.CDPRODESTO);
                  INSERT INTO ITLANCTOEST
                     (CDFILIAL, NRLANCESTQ, NRSEQUITEM, CDPRODUTO,
                      CDPRODMOVI, VRUNILANCTO, VRTOTLANCTO, QTTOTLANCTO,
                      QTLANCTOEST, IDTIPOMOVI, DTLANCMOVI, IDORDEMCLC,
                      VRLANCTOBRUT, VRLANCTOEST, CDFILIMOVI, CDALMOXARIFE,
                      CDLOCALESTOQ, NRLOTEESTQ, NRSUBLOTE, IDORIGEMPROD)
                  VALUES
                     (V_CDFILIAGENT, V_NRLANESTENTRAG, C_ITLANCTOEST.NRSEQITPROD, C_ITLANCTOEST.CDPRODUTO,
                       C_ITLANCTOEST.CDPRODESTO, C_ITLANCTOEST.VRUNITITEM, C_ITLANCTOEST.VRTOTAITEM, C_ITLANCTOEST.QTITEMPROD,
                      C_ITLANCTOEST.QTITEMPROD * C_ITLANCTOEST.VRFATOCONV, '4', P_INIVALID, '9',
                      C_ITLANCTOEST.VRBRUTITEM, C_ITLANCTOEST.VRTOTAITEM, V_CDFILIAGENT, V_CDALMOXARIFEAG,
                      V_CDLOCALESTOQAG, V_NRLOTEESTQAG, V_NRSUBLOTEAG, C_ITLANCTOEST.IDORIGEMPROD);
               END LOOP;
            END IF;  
            -- se possuir agente de terceirização e filial OL será efetuada alteração no pedido OL e na reserva do pedido
            IF NOT V_CDFILIOLAGETERC IS NULL THEN
               FOR C_INTG_ITENS IN (SELECT I.NRAUTOFORN, P.CDPRODUTO, SUM(I.QTITEMPROD) AS QTITEMPROD
                                      FROM INTG_NOTAFISCAL N, INTG_ITEMPRODUTO I, PRODFORNXML P
                                     WHERE N.NRACESSONFE = V_NRACESSONFE
                                       AND I.NRACESSONFE = N.NRACESSONFE
                                       AND P.CDFORNECED   = N.CDFORNECED
                                       AND P.CDPRODUTOXML = I.CDPRODUTO
                                     GROUP BY I.NRAUTOFORN, P.CDPRODUTO)
               LOOP
                  FOR C_ITEM_PED IN (SELECT IT.CDFILDEST, IT.CDFILLANC, IT.NRPEDEXOL, IT.CDMARCA, IT.CDPRODUTO, IT.DTPROGENPEOL
                                       FROM PEDIDOEXOL P, ITEMPEDEXOL IT, RELACPRODOL R
                                      WHERE P.USR_NRPEDIDO = C_INTG_ITENS.NRAUTOFORN
                                        AND IT.CDFILDEST = P.CDFILDEST
                                        AND IT.CDFILLANC = P.CDFILLANC
                                        AND IT.NRPEDEXOL = P.NRPEDEXOL
                                        AND IT.IDBAIXENPEOL IS NULL
                                        AND R.CDPRARVORIG = C_INTG_ITENS.CDPRODUTO
                                        AND IT.CDPRODUTO  = R.CDPRARVORIG
                                        AND IT.CDMARCA    = R.CDMARCA
                                      ORDER BY IT.CDPRODUTO, IT.DTPROGENPEOL)
                  LOOP
                     -- altera a qtde atendida do pedido OL com a qtde. da nota fiscal somente para a primeira data de entrega
                     UPDATE ITEMPEDEXOL
                        SET QTATENDPEDOL = C_INTG_ITENS.QTITEMPROD
                      WHERE CDFILDEST    = C_ITEM_PED.CDFILDEST
                        AND CDFILLANC    = C_ITEM_PED.CDFILLANC
                        AND NRPEDEXOL    = C_ITEM_PED.NRPEDEXOL
                        AND CDMARCA      = C_ITEM_PED.CDMARCA
                        AND CDPRODUTO    = C_ITEM_PED.CDPRODUTO
                        AND DTPROGENPEOL = C_ITEM_PED.DTPROGENPEOL;
                     -- altera a qtde reservada do pedido OL e a filial da reserva do pedido para a filial OL
                     UPDATE RESERVAPEDEXOL
                        SET CDFILRESOL    = V_CDFILIOLAGETERC,
                            QTRESERVESTOL = C_INTG_ITENS.QTITEMPROD,
                            CDFILIAL      = P_FILIAL,
                            NRLANCTONF    = P_LANCTONF
                      WHERE CDFILDEST    = C_ITEM_PED.CDFILDEST
                        AND CDFILLANC    = C_ITEM_PED.CDFILLANC
                        AND NRPEDEXOL    = C_ITEM_PED.NRPEDEXOL
                        AND CDMARCA      = C_ITEM_PED.CDMARCA
                        AND CDPRODUTO    = C_ITEM_PED.CDPRODUTO
                        AND DTPROGENPEOL = C_ITEM_PED.DTPROGENPEOL;
                     EXIT;
                  END LOOP;
               END LOOP;
            END IF;
         END IF;
         -- Atualiza valor contábil do produto considerando o custo médio do produto em estoque caso o parâmetro esteja marcado
         IF (V_IDOPERDEVONF = W_S AND V_IDUTCUSORIGEST = W_S) THEN
            FOR C_ITLANCTOEST IN (SELECT CDFILIMOVI, NRSEQITPROD,IP.CDPRODUTO,VRUNITITEM,VRTOTAITEM,
                                         QTITEMPROD,CDPRODESTO,VRBRUTITEM,VRDESCITEM,VRCONTITEM,
                                         NVL(IP.CDALMOXARIFE, ' ') CDALMOXARIFE,
                                         NVL(IP.CDLOCALESTOQ, ' ') CDLOCALESTOQ,
                                         NVL(NRLOTEESTQ, ' ') NRLOTEESTQ,
                                         NVL(NRSUBLOTE, ' ') NRSUBLOTE,
                                         P.VRFATOCONV
                                   FROM ITEMPRODUTO IP, PRODUTO P
                                  WHERE IP.CDFILIAL    = P_FILIAL     AND
                                        IP.NRLANCTONF  = P_LANCTONF   AND
                                        P.CDPRODUTO    = IP.CDPRODUTO) LOOP
               V_VRCUSTENTR := ROUND(CUSTO_PRODUTO_LCEST(C_ITLANCTOEST.CDFILIMOVI, C_ITLANCTOEST.CDPRODESTO, V_CDTIPCUSTEST, P_INIVALID,
                                                         V_DTATUAL, C_ITLANCTOEST.CDALMOXARIFE, C_ITLANCTOEST.CDLOCALESTOQ,
                                                         C_ITLANCTOEST.NRLOTEESTQ, C_ITLANCTOEST.NRSUBLOTE), 5);
               UPDATE ITEMPRODUTO
                  SET VRCONTITEM = ((C_ITLANCTOEST.QTITEMPROD * C_ITLANCTOEST.VRFATOCONV) * V_VRCUSTENTR)
                WHERE CDFILIAL =  P_FILIAL
                  AND NRLANCTONF = P_LANCTONF
                  AND NRSEQITPROD = C_ITLANCTOEST.NRSEQITPROD;
            END LOOP;
         END IF;
      END IF;
   END IF;
---------------------------------------------------------------------------------------------------------
END;
/
DECLARE 
   V_NOVOCODIGO VARCHAR2(20);
   V_EXISTE INTEGER;
BEGIN
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800000';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800000', 'Imunidade ou não icidência; Imunidade ou não incidência do imposto reconhecida judicialmente', '01/08/2018', '02/08/2018'); 
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800000', 'Imunidade ou não incidência; Imunidade ou não incidência do imposto reconhecida judicialmente', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800001';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800001', 'Imunidade ou não icidência; Não incidência de que trata o inciso I do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800001', 'Imunidade ou não incidência; Não incidência de que trata o inciso I do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800002';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800002', 'Imunidade ou não icidência; Não incidência de que trata o inciso II do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800002', 'Imunidade ou não incidência; Não incidência de que trata o inciso II do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800003';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800003', 'Imunidade ou não icidência; Não incidência de que trata o inciso III do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800003', 'Imunidade ou não incidência; Não incidência de que trata o inciso III do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800004';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800004', 'Imunidade ou não icidência; Não incidência de que trata o inciso IV do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800004', 'Imunidade ou não incidência; Não incidência de que trata o inciso IV do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800005';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800005', 'Imunidade ou não icidência; Não incidência de que trata o inciso V do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800005', 'Imunidade ou não incidência; Não incidência de que trata o inciso V do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800006';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800006', 'Imunidade ou não icidência; Não incidência de que trata o inciso VI do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800006', 'Imunidade ou não incidência; Não incidência de que trata o inciso VI do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800007';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800007', 'Imunidade ou não icidência; Não incidência de que trata o inciso VII do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800007', 'Imunidade ou não incidência; Não incidência de que trata o inciso VII do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800008';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800008', 'Imunidade ou não icidência; Não incidência de que trata o inciso VIII do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800008', 'Imunidade ou não incidência; Não incidência de que trata o inciso VIII do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800009';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800009', 'Imunidade ou não icidência; Não incidência de que trata o inciso IX do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800009', 'Imunidade ou não incidência; Não incidência de que trata o inciso IX do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800010';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800010', 'Imunidade ou não icidência; Não incidência de que trata o inciso X do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800010', 'Imunidade ou não incidência; Não incidência de que trata o inciso X do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800011';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800011', 'Imunidade ou não icidência; Não incidência de que trata o inciso XI do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800011', 'Imunidade ou não incidência; Não incidência de que trata o inciso XI do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800012';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800012', 'Imunidade ou não icidência; Não incidência de que trata o inciso XIII do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800012', 'Imunidade ou não incidência; Não incidência de que trata o inciso XIII do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800013';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800013', 'Imunidade ou não icidência; Não incidência de que trata o inciso XVI do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800013', 'Imunidade ou não incidência; Não incidência de que trata o inciso XIV do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800014';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800014', 'Imunidade ou não icidência; Não incidência de que trata o inciso XV do “caput” do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800014', 'Imunidade ou não incidência; Não incidência de que trata o inciso XV do “caput” do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800015';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800015', 'Imunidade ou não icidência; Não incidência de que trata o inciso I do parágrafo único do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800015', 'Imunidade ou não incidência; Não incidência de que trata o inciso I do parágrafo único do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800016';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800016', 'Imunidade ou não icidência; Não incidência de que trata o inciso II do parágrafo único do art. 3º do RICMS/2017', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800016', 'Imunidade ou não incidência; Não incidência de que trata o inciso II do parágrafo único do art. 3º do RICMS/2017', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR809999';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR809999', 'Imunidade ou não icidência; Não Incidência prevista em regime especial e/ou programa de incentivo', '01/08/2018', '02/08/2018');
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR809999', 'Imunidade ou não incidência; Não Incidência prevista em regime especial e/ou programa de incentivo', '03/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR800017';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR800017', 'Imunidade ou não incidência; Não incidência de que trata o inciso XII do “caput” do art. 3º do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810000';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810000', 'Isenção; Isenção do pagamento do imposto reconhecida judicialmente', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810001';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810001', 'Isenção; Isenção prevista no item 1 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810002';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810002', 'Isenção; Isenção prevista no item 2 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810003';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810003', 'Isenção; Isenção prevista no item 3 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810004';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810004', 'Isenção; Isenção prevista no item 4 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810005';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810005', 'Isenção; Isenção prevista no item 5 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810006';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810006', 'Isenção; Isenção prevista no item 6 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810007';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810007', 'Isenção; Isenção prevista no item 7 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810008';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810008', 'Isenção; Isenção prevista no item 8 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810009';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810009', 'Isenção; Isenção prevista no item 9 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810010';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810010', 'Isenção; Isenção prevista no item 10 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810011';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810011', 'Isenção; Isenção prevista no item 11 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810012';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810012', 'Isenção; Isenção prevista no item 12 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810013';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810013', 'Isenção; Isenção prevista no item 13 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810014';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810014', 'Isenção; Isenção prevista no item 14 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810015';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810015', 'Isenção; Isenção prevista no item 15 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810016';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810016', 'Isenção; Isenção prevista no item 16 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810017';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810017', 'Isenção; Isenção prevista no item 17 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810018';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810018', 'Isenção; Isenção prevista no item 18 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810019';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810019', 'Isenção; Isenção prevista no item 19 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810020';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810020', 'Isenção; Isenção prevista no item 20 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810021';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810021', 'Isenção; Isenção prevista no item 21 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810022';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810022', 'Isenção; Isenção prevista no item 22 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810023';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810023', 'Isenção; Isenção prevista no item 23 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810024';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810024', 'Isenção; Isenção prevista no item 24 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810025';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810025', 'Isenção; Isenção prevista no item 25 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810026';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810026', 'Isenção; Isenção prevista no item 26 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810027';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810027', 'Isenção; Isenção prevista no item 27 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810028';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810028', 'Isenção; Isenção prevista no item 28 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810029';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810029', 'Isenção; Isenção prevista no item 29 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810030';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810030', 'Isenção; Isenção prevista no item 30 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810031';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810031', 'Isenção; Isenção prevista no item 31 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810032';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810032', 'Isenção; Isenção prevista no item 32 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810033';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810033', 'Isenção; Isenção prevista no item 33 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810034';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810034', 'Isenção; Isenção prevista no item 34 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810035';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810035', 'Isenção; Isenção prevista no item 35 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810036';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810036', 'Isenção; Isenção prevista no item 36 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810037';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810037', 'Isenção; Isenção prevista no item 37 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810038';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810038', 'Isenção; Isenção prevista no item 38 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810039';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810039', 'Isenção; Isenção prevista no item 39 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810040';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810040', 'Isenção; Isenção prevista no item 40 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810041';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810041', 'Isenção; Isenção prevista no item 41 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810042';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810042', 'Isenção; Isenção prevista no item 42 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810043';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810043', 'Isenção; Isenção prevista no item 43 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810044';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810044', 'Isenção; Isenção prevista no item 44 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810045';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810045', 'Isenção; Isenção prevista no item 45 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810046';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810046', 'Isenção; Isenção prevista no item 46 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810047';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810047', 'Isenção; Isenção prevista no item 47 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810048';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810048', 'Isenção; Isenção prevista no item 48 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810049';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810049', 'Isenção; Isenção prevista no item 49 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810050';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810050', 'Isenção; Isenção prevista no item 50 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810051';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810051', 'Isenção; Isenção prevista no item 51 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810052';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810052', 'Isenção; Isenção prevista no item 52 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810053';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810053', 'Isenção; Isenção prevista no item 53 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810054';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810054', 'Isenção; Isenção prevista no item 54 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810055';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810055', 'Isenção; Isenção prevista no item 55 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810056';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810056', 'Isenção; Isenção prevista no item 56 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810057';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810057', 'Isenção; Isenção prevista no item 57 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810058';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810058', 'Isenção; Isenção prevista no item 58 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810059';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810059', 'Isenção; Isenção prevista no item 59 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810060';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810060', 'Isenção; Isenção prevista no item 60 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810061';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810061', 'Isenção; Isenção prevista no item 61 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810062';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810062', 'Isenção; Isenção prevista no item 62 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810063';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810063', 'Isenção; Isenção prevista no item 63 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810064';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810064', 'Isenção; Isenção prevista no item 64 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810065';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810065', 'Isenção; Isenção prevista no item 65 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810066';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810066', 'Isenção; Isenção prevista no item 66 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810067';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810067', 'Isenção; Isenção prevista no item 67 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810068';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810068', 'Isenção; Isenção prevista no item 68 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810069';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810069', 'Isenção; Isenção prevista no item 69 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810070';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810070', 'Isenção; Isenção prevista no item 70 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810071';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810071', 'Isenção; Isenção prevista no item 71 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810072';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810072', 'Isenção; Isenção prevista no item 72 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810073';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810073', 'Isenção; Isenção prevista no item 73 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810074';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810074', 'Isenção; Isenção prevista no item 74 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810075';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810075', 'Isenção; Isenção prevista no item 75 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810076';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810076', 'Isenção; Isenção prevista no item 76 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810077';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810077', 'Isenção; Isenção prevista no item 77 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810078';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810078', 'Isenção; Isenção prevista no item 78 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810079';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810079', 'Isenção; Isenção prevista no item 79 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810080';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810080', 'Isenção; Isenção prevista no item 80 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810081';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810081', 'Isenção; Isenção prevista no item 81 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810082';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810082', 'Isenção; Isenção prevista no item 82 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810083';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810083', 'Isenção; Isenção prevista no item 83 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810084';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810084', 'Isenção; Isenção prevista no item 84 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810085';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810085', 'Isenção; Isenção prevista no item 85 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810086';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810086', 'Isenção; Isenção prevista no item 86 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810087';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810087', 'Isenção; Isenção prevista no item 87 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810088';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810088', 'Isenção; Isenção prevista no item 88 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810089';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810089', 'Isenção; Isenção prevista no item 89 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810090';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810090', 'Isenção; Isenção prevista no item 90 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810091';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810091', 'Isenção; Isenção prevista no item 91 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810092';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810092', 'Isenção; Isenção prevista no item 92 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810093';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810093', 'Isenção; Isenção prevista no item 93 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810094';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810094', 'Isenção; Isenção prevista no item 94 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810095';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810095', 'Isenção; Isenção prevista no item 95 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810096';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810096', 'Isenção; Isenção prevista no item 96 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810097';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810097', 'Isenção; Isenção prevista no item 97 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810098';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810098', 'Isenção; Isenção prevista no item 98 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810099';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810099', 'Isenção; Isenção prevista no item 99 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810100';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810100', 'Isenção; Isenção prevista no item 100 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810101';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810101', 'Isenção; Isenção prevista no item 101 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810102';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810102', 'Isenção; Isenção prevista no item 102 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810103';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810103', 'Isenção; Isenção prevista no item 103 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810104';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810104', 'Isenção; Isenção prevista no item 104 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810105';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810105', 'Isenção; Isenção prevista no item 105 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810106';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810106', 'Isenção; Isenção prevista no item 106 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810107';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810107', 'Isenção; Isenção prevista no item 107 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810108';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810108', 'Isenção; Isenção prevista no item 108 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810109';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810109', 'Isenção; Isenção prevista no item 109 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810110';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810110', 'Isenção; Isenção prevista no item 110 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810111';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810111', 'Isenção; Isenção prevista no item 111 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810112';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810112', 'Isenção; Isenção prevista no item 112 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810113';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810113', 'Isenção; Isenção prevista no item 113 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810114';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810114', 'Isenção; Isenção prevista no item 114 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810115';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810115', 'Isenção; Isenção prevista no item 115 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810116';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810116', 'Isenção; Isenção prevista no item 116 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810117';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810117', 'Isenção; Isenção prevista no item 117 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810118';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810118', 'Isenção; Isenção prevista no item 118 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810119';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810119', 'Isenção; Isenção prevista no item 119 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810120';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810120', 'Isenção; Isenção prevista no item 120 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810121';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810121', 'Isenção; Isenção prevista no item 121 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810122';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810122', 'Isenção; Isenção prevista no item 122 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810123';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810123', 'Isenção; Isenção prevista no item 123 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810124';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810124', 'Isenção; Isenção prevista no item 124 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810125';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810125', 'Isenção; Isenção prevista no item 125 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810126';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810126', 'Isenção; Isenção prevista no item 126 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810127';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810127', 'Isenção; Isenção prevista no item 127 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810128';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810128', 'Isenção; Isenção prevista no item 128 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810129';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810129', 'Isenção; Isenção prevista no item 129 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810130';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810130', 'Isenção; Isenção prevista no item 130 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810131';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810131', 'Isenção; Isenção prevista no item 131 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810132';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810132', 'Isenção; Isenção prevista no item 132 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810133';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810133', 'Isenção; Isenção prevista no item 133 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810134';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810134', 'Isenção; Isenção prevista no item 134 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810135';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810135', 'Isenção; Isenção prevista no item 135 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810136';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810136', 'Isenção; Isenção prevista no item 136 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810137';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810137', 'Isenção; Isenção prevista no item 137 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810138';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810138', 'Isenção; Isenção prevista no item 138 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810139';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810139', 'Isenção; Isenção prevista no item 139 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810140';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810140', 'Isenção; Isenção prevista no item 140 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810141';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810141', 'Isenção; Isenção prevista no item 141 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810142';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810142', 'Isenção; Isenção prevista no item 142 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810143';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810143', 'Isenção; Isenção prevista no item 143 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810144';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810144', 'Isenção; Isenção prevista no item 144 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810145';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810145', 'Isenção; Isenção prevista no item 145 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810146';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810146', 'Isenção; Isenção prevista no item 146 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810147';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810147', 'Isenção; Isenção prevista no item 147 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810148';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810148', 'Isenção; Isenção prevista no item 148 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810149';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810149', 'Isenção; Isenção prevista no item 149 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810150';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810150', 'Isenção; Isenção prevista no item 150 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810151';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810151', 'Isenção; Isenção prevista no item 151 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810152';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810152', 'Isenção; Isenção prevista no item 152 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810153';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810153', 'Isenção; Isenção prevista no item 153 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810154';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810154', 'Isenção; Isenção prevista no item 154 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810155';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810155', 'Isenção; Isenção prevista no item 155 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810156';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810156', 'Isenção; Isenção prevista no item 156 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810157';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810157', 'Isenção; Isenção prevista no item 157 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810158';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810158', 'Isenção; Isenção prevista no item 158 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810159';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810159', 'Isenção; Isenção prevista no item 159 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810160';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810160', 'Isenção; Isenção prevista no item 160 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810161';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810161', 'Isenção; Isenção prevista no item 161 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810162';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810162', 'Isenção; Isenção prevista no item 162 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810163';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810163', 'Isenção; Isenção prevista no item 163 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810164';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810164', 'Isenção; Isenção prevista no item 164 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810165';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810165', 'Isenção; Isenção prevista no item 165 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810166';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810166', 'Isenção; Isenção prevista no item 166 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810167';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810167', 'Isenção; Isenção prevista no item 167 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810168';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810168', 'Isenção; Isenção prevista no item 168 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810169';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810169', 'Isenção; Isenção prevista no item 169 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810170';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810170', 'Isenção; Isenção prevista no item 170 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810171';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810171', 'Isenção; Isenção prevista no item 171 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810172';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810172', 'Isenção; Isenção prevista no item 172 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810173';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810173', 'Isenção; Isenção prevista no item 173 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810174';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810174', 'Isenção; Isenção prevista no item 174 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR810175';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR810175', 'Isenção; Isenção prevista no item 175 do Anexo V do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR819999';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR819999', 'Isenção; Isenção prevista em regime especial e/ou programa de incentivo', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820000';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820000', 'Redução de base de cálculo; Redução de base de cálculo do imposto reconhecida judicialmente', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820001';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820001', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 1 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820002';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820002', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 2 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820003';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820003', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 3 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820004';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820004', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 4 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820005';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820005', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 5 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820006';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820006', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 6 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820007';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820007', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 7 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820008';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820008', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 8 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820009';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820009', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 9 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820010';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820010', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 10 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820011';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820011', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 11 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820012';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820012', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 12 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820013';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820013', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 13 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820014';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820014', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 14 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820015';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820015', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 15 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820016';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820016', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 16 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820017';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820017', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 17 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820018';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820018', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 18 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820019';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820019', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 19 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820020';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820020', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 20 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820021';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820021', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 21 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820022';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820022', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 22 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820023';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820023', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 23 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820024';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820024', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 24 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820025';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820025', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 25 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820026';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820026', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 26 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820027';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820027', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 27 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820028';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820028', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 28 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820029';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820029', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 29 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820030';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820030', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 30 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820031';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820031', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 31 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820032';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820032', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 32 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820033';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820033', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 33 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820034';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820034', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 34 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820035';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820035', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 35 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820036';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820036', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 36 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820037';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820037', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 37 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820038';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820038', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 38 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820039';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820039', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 39 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820040';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820040', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 40 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820041';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820041', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 41 do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820042';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820042', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 8-A do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820043';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820043', 'Redução de base de cálculo; Redução de base de cálculo prevista no item 36-A do Anexo VI do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820044';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820044', 'Redução de base de cálculo; Redução de base de cálculo do imposto prevista no inciso II, do art. 5º da Lei 13.212/2001', '01/11/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR820045';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR820045', 'Redução de base de cálculo; Redução de base de cálculo do imposto prevista no inciso IV, do art. 5º da Lei 13.212/2001', '01/11/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR829999';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR829999', 'Redução de base de cálculo; Redução de base de cálculo prevista em regime especial e/ou programa de incentivo', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830000';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830000', 'Diferimento; Diferimento do pagamento do imposto reconhecido judicialmente', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830001';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830001', 'Diferimento; Diferimento previsto no inciso I do “caput” do art. 28 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830002';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830002', 'Diferimento; Diferimento previsto no inciso II do “caput” do art. 28 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830003';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830003', 'Diferimento; Diferimento previsto no inciso III do “caput” do art. 28 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830004';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830004', 'Diferimento; Diferimento previsto no inciso IV do “caput” do art. 28 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830005';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830005', 'Diferimento; Diferimento previsto no item 1 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830006';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830006', 'Diferimento; Diferimento previsto no item 2 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830007';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830007', 'Diferimento; Diferimento previsto no item 3 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830008';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830008', 'Diferimento; Diferimento previsto no subitem 4.1 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830009';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830009', 'Diferimento; Diferimento previsto no subitem 4.2 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830010';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830010', 'Diferimento; Diferimento previsto no item 5 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830011';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830011', 'Diferimento; Diferimento previsto no item 6 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830012';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830012', 'Diferimento; Diferimento previsto no item 7 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830013';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830013', 'Diferimento; Diferimento previsto no item 8 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830014';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830014', 'Diferimento; Diferimento previsto no item 9 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830015';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830015', 'Diferimento; Diferimento previsto no item 10 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830016';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830016', 'Diferimento; Diferimento previsto no item 11 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830017';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830017', 'Diferimento; Diferimento previsto no item 12 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830018';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830018', 'Diferimento; Diferimento previsto no item 13 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830019';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830019', 'Diferimento; Diferimento previsto no item 14 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830020';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830020', 'Diferimento; Diferimento previsto no item 15 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830021';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830021', 'Diferimento; Diferimento previsto no item 16 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830022';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830022', 'Diferimento; Diferimento previsto no item 17 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830023';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830023', 'Diferimento; Diferimento previsto no item 18 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830024';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830024', 'Diferimento; Diferimento previsto no item 19 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830025';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830025', 'Diferimento; Diferimento previsto no item 20 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830026';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830026', 'Diferimento; Diferimento previsto no item 21 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830027';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830027', 'Diferimento; Diferimento previsto no item 22 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830028';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830028', 'Diferimento; Diferimento previsto no item 23 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830029';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830029', 'Diferimento; Diferimento previsto no item 24 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830030';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830030', 'Diferimento; Diferimento previsto no item 25 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830031';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830031', 'Diferimento; Diferimento previsto no item 26 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830032';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830032', 'Diferimento; Diferimento previsto no subitem 27.1 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830033';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830033', 'Diferimento; Diferimento previsto no subitem 27.2 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830034';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830034', 'Diferimento; Diferimento previsto no subitem 27.3 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830035';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830035', 'Diferimento; Diferimento previsto no item 28 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830036';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830036', 'Diferimento; Diferimento previsto no item 29 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830037';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830037', 'Diferimento; Diferimento previsto no item 30 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830038';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830038', 'Diferimento; Diferimento previsto no item 31 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830039';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830039', 'Diferimento; Diferimento previsto no item 32 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830040';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830040', 'Diferimento; Diferimento previsto no item 33 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830041';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830041', 'Diferimento; Diferimento previsto no item 34 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830042';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830042', 'Diferimento; Diferimento previsto no item 35 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830043';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830043', 'Diferimento; Diferimento previsto no item 36 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830044';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830044', 'Diferimento; Diferimento previsto no item 37 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830045';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830045', 'Diferimento; Diferimento previsto no item 38 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830046';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830046', 'Diferimento; Diferimento previsto no item 39 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830047';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830047', 'Diferimento; Diferimento previsto no item 40 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830048';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830048', 'Diferimento; Diferimento previsto no item 41 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830049';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830049', 'Diferimento; Diferimento previsto no item 42 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830050';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830050', 'Diferimento; Diferimento previsto no item 43 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830051';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830051', 'Diferimento; Diferimento previsto no item 44 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830052';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830052', 'Diferimento; Diferimento previsto no item 45 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830053';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830053', 'Diferimento; Diferimento previsto no item 46 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830054';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830054', 'Diferimento; Diferimento previsto no item 47 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830055';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830055', 'Diferimento; Diferimento previsto no item 48 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830056';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830056', 'Diferimento; Diferimento previsto no item 49 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830057';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830057', 'Diferimento; Diferimento previsto no item 50 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830058';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830058', 'Diferimento; Diferimento previsto no item 51 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830059';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830059', 'Diferimento; Diferimento previsto no item 52 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830060';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830060', 'Diferimento; Diferimento previsto no item 53 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830061';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830061', 'Diferimento; Diferimento previsto no item 54 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830062';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830062', 'Diferimento; Diferimento previsto no item 55 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830063';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830063', 'Diferimento; Diferimento previsto no item 56 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830064';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830064', 'Diferimento; Diferimento previsto no item 57 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830065';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830065', 'Diferimento; Diferimento previsto no item 58 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830066';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830066', 'Diferimento; Diferimento previsto no item 59 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830067';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830067', 'Diferimento; Diferimento previsto no item 60 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830068';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830068', 'Diferimento; Diferimento previsto no item 61 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830069';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830069', 'Diferimento; Diferimento previsto no item 62 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830070';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830070', 'Diferimento; Diferimento previsto no item 63 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830071';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830071', 'Diferimento; Diferimento previsto no item 64 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830072';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830072', 'Diferimento; Diferimento previsto no item 65 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830073';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830073', 'Diferimento; Diferimento previsto no item 66 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830074';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830074', 'Diferimento; Diferimento previsto no item 67 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830075';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830075', 'Diferimento; Diferimento previsto no item 68 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830076';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830076', 'Diferimento; Diferimento previsto no item 69 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830077';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830077', 'Diferimento; Diferimento previsto no item 70 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830078';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830078', 'Diferimento; Diferimento previsto no item 71 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830079';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830079', 'Diferimento; Diferimento previsto no item 72 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830080';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830080', 'Diferimento; Diferimento previsto no item 73 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830081';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830081', 'Diferimento; Diferimento previsto no item 74 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830082';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830082', 'Diferimento; Diferimento previsto no item 75 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830083';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830083', 'Diferimento; Diferimento previsto no item 76 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830084';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830084', 'Diferimento; Diferimento previsto no item 77 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830085';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830085', 'Diferimento; Diferimento previsto no item 78 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830086';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830086', 'Diferimento; Diferimento previsto no item 79 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830087';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830087', 'Diferimento; Diferimento previsto no item 80 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830088';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830088', 'Diferimento; Diferimento previsto no item 81 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830089';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830089', 'Diferimento; Diferimento previsto no item 82 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830090';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830090', 'Diferimento; Diferimento previsto no item 83 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830091';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830091', 'Diferimento; Diferimento previsto no item 84 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830092';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830092', 'Diferimento; Diferimento previsto no item 85 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830093';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830093', 'Diferimento; Diferimento previsto no item 86 do “caput” do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830094';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830094', 'Diferimento; Diferimento previsto no § 1º do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830095';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830095', 'Diferimento; Diferimento previsto no § 11 do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830096';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830096', 'Diferimento; Diferimento previsto no § 17 do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830097';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830097', 'Diferimento; Diferimento previsto no § 19 do art. 31 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830098';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830098', 'Diferimento; Diferimento previsto no art. 32 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830099';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830099', 'Diferimento; Diferimento previsto no art. 39 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830100';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830100', 'Diferimento; Diferimento previsto no art. 41 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830101';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830101', 'Diferimento; Diferimento previsto no inciso I do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830102';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830102', 'Diferimento; Diferimento previsto no inciso II do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830103';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830103', 'Diferimento; Diferimento previsto no inciso III do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830104';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830104', 'Diferimento; Diferimento previsto no inciso IV do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830105';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830105', 'Diferimento; Diferimento previsto no inciso V do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830106';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830106', 'Diferimento; Diferimento previsto na alínea a do inc. VI do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830107';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830107', 'Diferimento; Diferimento previsto na alínea a do inc. VI do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830108';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830108', 'Diferimento; Diferimento previsto no inciso VII do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830109';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830109', 'Diferimento; Diferimento previsto no inciso VIII do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830110';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830110', 'Diferimento; Diferimento previsto no inciso IX do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830111';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830111', 'Diferimento; Diferimento previsto no inciso X do “caput” do art. 42 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830112';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830112', 'Diferimento; Diferimento previsto no inciso I do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830113';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830113', 'Diferimento; Diferimento previsto no inciso II do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830114';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830114', 'Diferimento; Diferimento previsto no inciso III do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830115';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830115', 'Diferimento; Diferimento previsto no inciso IV do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830116';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830116', 'Diferimento; Diferimento previsto no inciso V do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830117';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830117', 'Diferimento; Diferimento previsto no inciso VI do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830118';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830118', 'Diferimento; Diferimento previsto no inciso VII do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830119';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830119', 'Diferimento; Diferimento previsto no inciso VIII do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830120';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830120', 'Diferimento; Diferimento previsto no inciso IX do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830121';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830121', 'Diferimento; Diferimento previsto no inciso X do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830122';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830122', 'Diferimento; Diferimento previsto no inciso XI do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830123';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830123', 'Diferimento; Diferimento previsto no inciso XII do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830124';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830124', 'Diferimento; Diferimento previsto no inciso XIII do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830125';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830125', 'Diferimento; Diferimento previsto no inciso XIV do “caput” do art. 44 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830126';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830126', 'Diferimento; Diferimento previsto na alínea a do inciso I do “caput” do art. 46 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830127';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830127', 'Diferimento; Diferimento previsto na alínea a do inciso I do “caput” do art. 46 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830128';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830128', 'Diferimento; Diferimento previsto na alínea a do inciso II do “caput” do art. 46 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830129';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830129', 'Diferimento; Diferimento previsto na alínea b do inciso II do “caput” do art. 46 do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR830130';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR830130', 'Diferimento; Diferimento previsto no art. 6º da Lei 13.212/2001', '01/11/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR839999';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR839999', 'Diferimento; Diferimento previsto em regime especial e/ou programa de incentivo', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840000';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840000', 'Suspensão; Suspensão do pagamento do imposto reconhecida judicialmente', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840001';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840001', 'Suspensão; Suspensão prevista no inciso I do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840002';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840002', 'Suspensão; Suspensão prevista no inciso II do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840003';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840003', 'Suspensão; Suspensão prevista no inciso III do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840004';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840004', 'Suspensão; Suspensão prevista no inciso IV do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840005';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840005', 'Suspensão; Suspensão prevista no inciso V do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840006';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840006', 'Suspensão; Suspensão prevista no inciso VI do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840007';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840007', 'Suspensão; Suspensão prevista no inciso VII do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840008';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840008', 'Suspensão; Suspensão prevista no inciso VIII do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840009';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840009', 'Suspensão; Suspensão prevista no inciso IX do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840010';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840010', 'Suspensão; Suspensão prevista no inciso X do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840011';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840011', 'Suspensão; Suspensão prevista no inciso XI do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840012';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840012', 'Suspensão; Suspensão prevista no inciso XII do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840013';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840013', 'Suspensão; Suspensão prevista no inciso XIII do “caput” do art. 1º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840014';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840014', 'Suspensão; Suspensão prevista no “caput” do art. 2º do Anexo VIII do RICMS/2017', '01/08/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR840015';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR840015', 'Suspensão; Suspensão prevista no art. 12-A, da Subseção II, do Anexo VIII do RICMS/2017', '01/11/2018', NULL);
   END IF;
   BEGIN
      SELECT COUNT(*)
        INTO V_EXISTE
        FROM CODAJUSTEEFDICMS
       WHERE SGESTADO = 'PR'
         AND IDTPAJUSTE = 'B'
         AND CDAJUSTE = 'PR849999';
   EXCEPTION
      WHEN NO_DATA_FOUND THEN
         V_EXISTE := 0;
   END;
   IF V_EXISTE = 0 THEN
      NOVO_CODIGO('CODAJUSTEEFDICMS',V_NOVOCODIGO); 
      INSERT INTO CODAJUSTEEFDICMS 
         (NRSEQCODAJUSTE, SGESTADO, IDTPAJUSTE, CDAJUSTE, DSAJUSTE, DTINIVALID, DTFIMVALID) 
      VALUES 
         (V_NOVOCODIGO, 'PR', 'B', 'PR849999', 'Suspensão; Suspensão prevista em regime especial e/ou programa de incentivo', '01/08/2018', NULL);
   END IF;
   COMMIT;
END;