proc

DECLARE
    CURSOR c_modalidades_nao_processadas IS (
        SELECT rtg.ROWID, rtg.*
          FROM  INTEG_ODI_TMP.T$_rel_taxas_gerencial rtg
         WHERE rtg.tipo_tecnologia = 0
    );

 v_possui_tef NUMBER;
 i NUMBER;
BEGIN

    FOR modalidade IN c_modalidades_nao_processadas
    LOOP
        i := i + 1;
        IF modalidade.tipo_tecnologia = 0 THEN
            --Inclusão da tecnologia POS
                INSERT INTO INTEG_ODI_TMP.T$_rel_taxas_gerencial rtg( ESTAB
                                                          , RAZAO_SOCIAL
                                                          , BANDEIRA
                                                          , PRODUTO
                                                          , PLANO_VENDA
                                                          , TAXA
                                                          , TIPO_TECNOLOGIA
                                                          , DT_CRIACAO
                                                          , SG_MOEDA
                                                          , DT_DESATIVACAO
                                                          , TP_PESSOA )
                    VALUES ( modalidade.estab
                           , modalidade.razao_social
                           , modalidade.bandeira
                           , modalidade.produto
                           , modalidade.plano_venda
                           , modalidade.taxa
                           , 4
                           , modalidade.dt_criacao
                           , modalidade.sg_moeda
                           , modalidade.dt_desativacao
                           , modalidade.tp_pessoa);

                    SELECT COUNT(*) INTO v_possui_tef
                    FROM T$_tecnologias_instaladas t
                    WHERE t.codigo_ec = modalidade.estab
                    AND t.cod_meio_captura = 7;

            --Inclusão da tecnologia TEF, apenas se possuir terminal ativo no gerencial
                IF v_possui_tef > 0 THEN

                    INSERT INTO INTEG_ODI_TMP.T$_rel_taxas_gerencial rtg( ESTAB
                                                          , RAZAO_SOCIAL
                                                          , BANDEIRA
                                                          , PRODUTO
                                                          , PLANO_VENDA
                                                          , TAXA
                                                          , TIPO_TECNOLOGIA
                                                          , DT_CRIACAO
                                                          , SG_MOEDA
                                                          , DT_DESATIVACAO
                                                          , TP_PESSOA )
                        VALUES ( modalidade.estab
                               , modalidade.razao_social
                               , modalidade.bandeira
                               , modalidade.produto
                               , modalidade.plano_venda
                               , modalidade.taxa
                               , 7
                               , modalidade.dt_criacao
                               , modalidade.sg_moeda
                               , modalidade.dt_desativacao
                               , modalidade.tp_pessoa);
                END IF;

            DELETE FROM INTEG_ODI_TMP.T$_rel_taxas_gerencial rtg WHERE ROWID = modalidade.ROWID;

        END IF;

        IF MOD(i, 5000) = 0 THEN
          COMMIT;
        END IF;

    END LOOP;

    COMMIT;
END;