Jump to content
alextdssouza

Otimização de Cursores para exportação de arquivos em texto.

Recommended Posts

Estou com o seguinte problema fiz alguns cursores para exportar algumas informações para texto, porém está demorando mais de 2 horas para exportar 4 mil linhas, o problema aconteceu 

depois de ter incluído os registros de nível 3 e 4 algumas dessas tabelas estão sem informação não sei se seria esse o problema, todas as minhas tabelas estão indexadas. 

Gostaria de saber se alguém pode me ajudar a otimizar esse tempo ou me informar qual seria a melhor maneira de fazer isso, sem o nível 3 e 4 levava 5 min para gerar o mesmo resultado, agora leva mais de 2hs. Abaixo Segue o Cursor. Obrigado!

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 

SET SERVEROUTPUT ON;
DECLARE
  MEU_ARQUIVO UTL_FILE.FILE_TYPE;
  
    CURSOR CR_0000 IS SELECT * FROM TBL_EFD_ICMS_0000;     
    CURSOR CR_C100 IS SELECT * FROM TBL_EFD_ICMS_C100;
    CURSOR CR_C110 IS SELECT * FROM TBL_EFD_ICMS_C110;
    CURSOR CR_C111 IS SELECT * FROM TBL_EFD_ICMS_C111;
    
    REG_0000 CR_0000%ROWTYPE; 
    REG_C100 CR_C100%ROWTYPE; 
    REG_C110 CR_C110%ROWTYPE; 
    REG_C111 CR_C111%ROWTYPE; 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
BEGIN
    MEU_ARQUIVO := UTL_FILE.FOPEN('DIRETORIO', 'SAIDAS_NEW.txt', 'w');
        
    OPEN CR_0000; -- nivel 1
        LOOP
            FETCH CR_0000 INTO REG_0000;
            EXIT WHEN CR_0000%NOTFOUND;
            UTL_FILE.PUT_LINE(MEU_ARQUIVO,'|'||REG_0000.REG 
            ||'|'||REG_0000.COD_VER 
            ||'|'||REG_0000.DT_INI 
            ||'|'||REG_0000.DT_FIN 
            ||'|'||REG_0000.CNPJ 
            ||'|'||REG_0000.IND_ATIV ||'|');
            
            OPEN CR_C100; -- nivel 2
                LOOP
                    FETCH CR_C100 INTO REG_C100;
                    EXIT WHEN CR_C100%NOTFOUND;
                    IF  REG_C100.ID_0000 = REG_0000.ID_0000 THEN
                        UTL_FILE.PUT_LINE(MEU_ARQUIVO,'|'||REG_C100.REG 
                        ||'|'||REG_C100.SER
                        ||'|'||REG_C100.NUM_DOC
                        ||'|'||REG_C100.CHV_NFE
                        ||'|'||REG_C100.DT_DOC
                        ||'|'||REG_C100.DT_E_S
                        ||'|'||REG_C100.VL_DOC
                        ||'|'||REG_C100.VL_COFINS_ST ||'|');
                    END IF;
                    
                    OPEN CR_C110; -- nivel 3
                        LOOP
                            FETCH CR_C110 INTO REG_C110;
                            EXIT WHEN CR_C110%NOTFOUND;
                            IF  REG_C110.ID_0000 = REG_0000.ID_0000 AND
                                REG_C110.ID_C100 = REG_C100.ID_C100 THEN
                                UTL_FILE.PUT_LINE(MEU_ARQUIVO,'|'||REG_C110.REG 
                                ||'|'||REG_C110.COD_INF
                                ||'|'||REG_C110.TXT_COMPL ||'|');
                            END IF; 
                    
                            OPEN CR_C111; -- nivel 4
                                LOOP
                                    FETCH CR_C111 INTO REG_C111;
                                    EXIT WHEN CR_C111%NOTFOUND;
                                    IF  REG_C111.ID_0000 = REG_0000.ID_0000 AND
                                        REG_C111.ID_C100 = REG_C100.ID_C100 AND 
                                        REG_C111.ID_C110 = REG_C110.ID_C110 THEN
                                        UTL_FILE.PUT_LINE(MEU_ARQUIVO,'|'||REG_C111.REG 
                                        ||'|'||REG_C111.COD_INF
                                        ||'|'||REG_C111.TXT_COMPL ||'|');
                                    END IF;
                                END LOOP;
                            CLOSE CR_C111;
                            
                        END LOOP;
                    CLOSE CR_C110;
                    
                END LOOP;
            CLOSE CR_C100;
            
        END LOOP;
    CLOSE CR_0000;

DBMS_OUTPUT.PUT_LINE('Arquivo gerado com sucesso.');

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
Exception
WHEN UTL_FILE.INVALID_OPERATION THEN
Dbms_Output.Put_Line('Operação inválida no arquivo.');
UTL_FILE.FCLOSE(MEU_ARQUIVO);
WHEN UTL_FILE.WRITE_ERROR THEN
Dbms_Output.Put_Line('Erro de gravação no arquivo.');
UTL_FILE.FCLOSE(MEU_ARQUIVO);
WHEN UTL_FILE.INVALID_PATH THEN
Dbms_Output.Put_Line('Diretório inválido.');
UTL_FILE.FCLOSE(MEU_ARQUIVO);
WHEN Others THEN
Dbms_Output.Put_Line('Problemas na gravação do arquivo.');
UTL_FILE.FCLOSE(MEU_ARQUIVO);
END;
/

Share this post


Link to post
Share on other sites

Os cursores tem uma hierarquia ?

Os sqls 100,110 e 111 não deveriam ter uma condição where ?

Share this post


Link to post
Share on other sites
27 minutos atrás, Motta disse:

Os cursores tem uma hierarquia ?

Os sqls 100,110 e 111 não deveriam ter uma condição where ?

Sim os cursores tem uma hierarquia, as condições estão nos IF's estão vinculados pelos índices  "id" dos pais

ex: 

ID_0000 para o nível 1 bisavo, 

ID_0000 , ID_C100 para o nível 2 avo,

ID_0000 , ID_C100 , ID_C110 para o nivel 3 pai

ID_0000 , ID_C100 , ID_C110 para o filho

Share this post


Link to post
Share on other sites

Share this post


Link to post
Share on other sites
7 minutos atrás, Motta disse:

Dei uma olhada más como isso pode me ajudar?

Share this post


Link to post
Share on other sites

Amanhã se tiver tempo melhoro a resposta.

Estou no tablet , ruim de editar códigos.

Share this post


Link to post
Share on other sites
Em 08/09/2019 at 15:59, Motta disse:

Dei uma olhada más como isso pode me ajudar?

Share this post


Link to post
Share on other sites

Eu pessoalmente ando sem tempo , mas foruns tem isto mesmo.

 

Basicamente seus curdores estão lendo tudo e o filtro fica num filtro fora dele , um parametro e jm filtro no WHERE pode resolver.

 

As vezes temos de perguntar pois faltam dados ba pergunta para um reposta.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By rafaelmoreira78
      Boa tarde!
      Estou querendo fazer um select a partir da seleção de um combobox. Nesse combobox o usuário escolhe o tipo de busca que ele quer. Se é por nome, por id, por data etc. E depois, exibe os dados nos campos. Porém, não estou conseguindo e não sei como resolver isso.
      public void consultar(){ String sql ="select * from tbcertificados where ?=?"; try{ pst=conexao.prepareStatement(sql); pst.setString(1,cbConsulta.getSelectedItem().toString()); pst.setString(2,txtBusca.getText()); rs=pst.executeQuery(); if (rs.next()){ lblID.setText(rs.getString(1)); txtNome.setText(rs.getString(2)); comboCursos.setSelectedItem(rs.getString(3)); txtData.setText(rs.getString(4)); txtCH.setText(rs.getString(5)); txtEmpresa.setText(rs.getString(6)); txtObs.setText(rs.getString(7)); }  
    • By asacap1000
      Galera me foi solicitado a criação de um servidor web, para disponibilizar serviços para os clientes. O que vocês recomendam?
      Tenho um servidor da DELL com windows 2016. Todo o desenvolvimento será em PHP, Javascript e companhia Ltda com conexão aos bancos de dados Mysql, SQL e ORACLE.
      Já temos um servidor que será desativado porém está utilizando uma versão muito antiga de PHP 5.4 e como base de instalação foi utilizado o WampServer. 
    • By Motta
      Envio de https via Oracle Versão
      Oracle Database 12c Standard Edition Release 12.2.0.1.0 - 64bit Production PL/SQL Release 12.2.0.1.0 - Production "CORE 12.2.0.1.0 Production" TNS for Linux: Version 12.2.0.1.0 - Production NLSRTL Version 12.2.0.1.0 - Production Obs 1) Wallet Instalado
      Obs 2) O problema não seria reproduzível por questões de segurança Obs 3) Já tentei com o fornecedor
      Tento enviar um POST via PLSQL e recebo o seguinte erro : Erro : ORA-24263: Certificate of the remote server does not match the target address.
      Pergunta Como posso saber o valor de req := utl_http.begin_request(url, 'POST',https_host =>'???????'); ? é obrigatório ?
      create or replace PROCEDURE "SMS_ENVIO2" (PNUMSMS IN VARCHAR2 , PTEXTO IN VARCHAR2 , PRETORNO OUT VARCHAR2) /*alguns dados ocultos*/ AS req utl_http.req; res utl_http.resp; url varchar2(4000) := 'https://messaging.o2c.cloud/api/v2/sms/';--acho que posso citar o site name varchar2(4000); buffer varchar2(4000); content varchar2(4000); VS_USUARIO VARCHAR2(11) := '*****'; VS_SENHA VARCHAR2(20) := '*****'; VS_SERIAL VARCHAR2(8);--VARCHAR2(100); VS_SCHEDULLE VARCHAR2(16) := TO_CHAR(SYSDATE,'DD/MM/YYYY HH24:MI'); VS_AUTHOR_64 VARCHAR2(20) := '*********'; begin UTL_HTTP.SET_WALLET('file:.....', '**********'); -- VS_SERIAL := LPAD(SMSENVIO_SERIAL_SEQ.NEXTVAL,8,'0'); content := ' { ' || ' "sendSmsRequest": {' || ' "to": "' || PNUMSMS ||'",' || ' "message": "' || PTEXTO || '",' || ' "id": "' || VS_SERIAL || ' }' || ' } '; -- dbms_output.put_line(url); dbms_output.put_line(content); -- --req := utl_http.begin_request(url,'POST'); req := utl_http.begin_request(url, 'POST',https_host =>'???????'); utl_http.set_header(req, 'Content-Type', 'application/json'); utl_http.set_header(req, 'Content-Length', length(content)); utl_http.set_header(req, 'Authorization', 'Basic ' || utl_encode.base64_encode(VS_AUTHOR_64)); -- utl_http.write_text(req, content); res := utl_http.get_response(req); begin loop utl_http.read_line(res, buffer); end loop; utl_http.end_response(res); exception when utl_http.end_of_body then utl_http.end_response(res); end; dbms_output.put_line('retorno ' || buffer); exception when others then PRETORNO := 'Erro : ' || UTL_HTTP.GET_DETAILED_SQLERRM; end;  
    • By Thiago Btos
      Boa tarde pessoal.
       
      Estou travado em uma parte do select do qual preciso somar os valores de todos os registros da coluna, e usa-lo como base de calculo para outra coluna
       
      SELECT PRODUTO, HORAS, QTDE, VARIACAO FROM DUAL
       
      Meu select está retornando algo assim:
       
      PRODUTO | HORAS | QTDE | VARIACAO
            A           |    2        |    20    |      5
            B           |    6        |    25    |      3
            C           |    5        |    70    |      9
            D           |    8        |    30    |      2
      --------------------------------------------------------
      Total           |    21     |  145    |      
       
      Preciso criar uma nova coluna com a formula (Total Qtde / Total horas) * variação ficando assim:
      PRODUTO | HORAS | QTDE | VARIACAO | CONTA
            A           |    2        |    20    |      5             |  34.52
            B           |    6        |    25    |      3             |  20.71
            C           |    5        |    70    |      9             |  62.14
            D           |    8        |    30    |      2             |  13.80
       
       
      A forma que estou tentando fazer é via subselect, mas ele não agrupa todas as linhas, e somente o registro da linha atual.
      SELECT PRODUTO, HORAS, QTDE, VARIACAO,
          (SELECT (SUM(QTDE) / SUM(HORAS)) * VARIACAO) AS CONTA
      FROM DUAL
       
      Dessa forma me retorna o seguinte resultado, como se estive calculando somente a linha atual e não toda a coluna.
      PRODUTO | HORAS | QTDE | VARIACAO | CONTA
            A           |    2        |    20    |      5             |  50
            B           |    6        |    25    |      3             |  12.5
            C           |    5        |    70    |      9             |  126
            D           |    8        |    30    |      2             |  7.5
       
       
       
      Espero que eu tenha conseguido explicar minha necessidade de forma que de para entender.
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.