Ir para conteúdo
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;
/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Os cursores tem uma hierarquia ?

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

Compartilhar este post


Link para o post
Compartilhar em outros 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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Compartilhar este post


Link para o post
Compartilhar em outros sites
7 minutos atrás, Motta disse:

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Amanhã se tiver tempo melhoro a resposta.

Estou no tablet , ruim de editar códigos.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 08/09/2019 at 15:59, Motta disse:

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

Compartilhar este post


Link para o post
Compartilhar em outros 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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por ILR master
      Boa tarde, pessoal.
      Espero que todos estejam bem.
       
      Seguinte:
      Tenho a seguinte consulta:
       
      $usuarios= "SELECT * FROM usuarios";
      $query= mysqli_query($conexao, $usuarios) or die ("Usuário não encontrado");
      $usuario = mysqli_fetch_array($query);
       
      Quero pegar apenas o campo 'nome' da tabela 'usuarios' e colocar todos os resultados da seguinte forma:
       
      $nomes = array("Rafael", "João", "Maria", "Pedro", "Patricia", "Camila");
       
      Agradeço desde já.
      Abs
       
       
    • Por FabianoSouza
      Tenho uma function que precisa receber 02 argumentos.
      Ela funciona se eu aplicar num select qualquer. Mas se eu aplicar num select dinâmico, ocorre erro.
      Veja trecho do meu select.
      ... SET @sql = @sql +', dbo.retornaIco_ItemBloq((SELECT COUNT(*) FROM dbo.tab AS TT2 WHERE TT2.codCategTreina = CTT.id),'+@title+') AS ''resp''' ... No caso, o primeiro argumento da function dbo.retornaIco_ItemBloq é um SELECT COUNT.
      O segundo argumento é uma variável (que está devidamente declarada e definida).
       
      O erro ocorre porque ao executar (chamando EXEC(@sql) ), o SQL entende que o segundo argumento é uma coluna da consulta principal, pois existe uma vírgula antes da variável @title (que é o segundo argumento da function).
      Repito. Se eu aplicar essa function num select normal, funciona normalmente. Porém, preciso que funcione num SQL dinâmico porque é esse é o padrão que estou adotando para o sistema todo.
       
      A function dbo.retornaIco_ItemBloq faz o seguinte:
      1) Recebe o valor do COUNT e da variável @title
      2) Se o COUNT for maior que  Zero, cria uma tag HTML (uma SPAN), define sua title com o valor da variável @title e passa para uma variável
      3) Retorna o HTML que será exibido no resultado da consulta principal
      É super simples.
       
      Há outra forma de chamar a function?
    • Por mamotinho
      Olá, estou a um tempo tentando acrescentar um codigo na coluna do SQL na qual seria VARBINARY

      A Coluna atual contém o seguinte codigo binary:
      Código (01)
      0x020009004C0101434D0101465C0101485D0101499801014B8401014E8501014F86010150D00009017A0014247D0014257B0014261600090201000903F9001420FA0014229F000923F8001427DF000128730014297600142A7E00142BFB00142CA3010147E000142DE100142EA40101443900120424001405C40101457400142F770014307F0001317C001232E6000421780001332C010A522F0108533A010354380103553001085637010357A5010166A6010167  
      No codigo acima eu gostaria de acrescentar o seguinte codigo:
      Código (02)
      0xCC010120CD010121CE010122CF010123
      no caso eu quero criar uma procedure que ao executar a função ele adicione o codigo 02 no código 01. no caso o codigo ficaria desta forma:

      0x020009004C0101434D0101465C0101485D0101499801014B8401014E8501014F86010150D00009017A0014247D0014257B0014261600090201000903F9001420FA0014229F000923F8001427DF000128730014297600142A7E00142BFB00142CA3010147E000142DE100142EA40101443900120424001405C40101457400142F770014307F0001317C001232E6000421780001332C010A522F0108533A010354380103553001085637010357A5010166A6010167CC010120CD010121CE010122CF010123



      Ficarei imensamente grato se alguém conseguir me ajudar, o orientar. sou iniciante nessa areá ainda.
    • Por mr22robot
      Ola caros amigos. 
      Estou com uma dúvida aqui que embora nao tenho achado ainda uma resposta, acredito que haja.
      Estou estudando a tão sonhada linguagem de programação asp.net core mvc. Linguagem essa que demorei 5 anos pra iniciar os estudos rsrs.
      Mas estou agarrado em uma situação. 
      Estou usando como base de dados nos meus estudos um banco Oracle. Que já tem algumas informações nele. Utilizei o SCAFFOLD para criar as classes e o contexto baseado no banco e tabelas existentes. 
      Porem agora na fase das consultas, estou perdido em como utilizar o IN que eu utilizo no oracle; no LINQ.
      Ex: 
      SELECT CODPROD,DESCRICAO FROM PRODUTO WHERE CODPROD IN(1,2,3,4,5,6) Como eu utilizo esse filtro com uma restrição de códigos de produtos? no caso o where codprod in(1,2,3,4,5,6) ?.
      Desde já obrigado pela ajuda.
    • Por Sapinn
      Olá a todos existe alguma maneira de trazer todos os dados de uma tabela menos o maior valor?
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.