Ajuda - Gerar arquivo para Excel

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
Avatar do usuário
Dezoti
Rank: Estagiário Sênior
Rank: Estagiário Sênior
Mensagens: 14
Registrado em: Ter, 26 Nov 2013 1:27 pm
Localização: Fortaleza - CE

Pessoal, boa tarde

Preciso gerar uma consulta para excel diretamente de um form, porém o arquivo é gerado somente com o cabeçalho e nenhum dado.
Testei a rotina da procedure no PLSQL passando os parâmetros e consigo os dados.
Será que é algum erro na rotina do form?

Selecionar tudo

PROCEDURE PR_GERA_EXCEL IS

	warquivo                 Client_Text_IO.file_type;
	lNm_Arquivo              varchar2(500);
	wlinha                   varchar2(5000); 
	wfl_tipo_exame           varchar2(30);
	wLaboratorio             varchar2(30);
	P_FL_INTERNACAO          varchar2(03); 
	P_CD_MOTIVO_ATENDIMENTO  varchar2(03); 
	P_FL_CIRURGIA            varchar2(40);
	P_FL_TIPO_EXAME          varchar2(40);
	P_TIPO_EXAME             number(02);
BEGIN
	If :bl_cad.nm_arquivo is null then
		pr_alerta('Informe o nome do arquivo para geração da planilha.');
		raise form_trigger_failure;
	end if;
  If :BL_CAD.P_DT_INICIAL is null or :BL_CAD.P_DT_FINAL is null then
    pr_alerta('Data Invalída !');
    raise form_trigger_failure;
  end if;

  P_FL_INTERNACAO        := :BL_CAD.P_FL_INTERNO||','||:BL_CAD.P_FL_EXTERNO;
  P_CD_MOTIVO_ATENDIMENTO:= :BL_CAD.P_MOTIVO_ELETIVO||','||:BL_CAD.P_MOTIVO_EMERGENCIA;
  P_TIPO_EXAME           := :BL_CAD.P_TIPO_EXAME;

  -- Tipos de Exames (Solicitação: 54283)
  If (:Bl_CAD.P_TIPO_EXAME IS NOT NULL) then 
    if (:BL_CAD.P_TIPO_EXAME = 99) then --Todos
    	P_FL_CIRURGIA  := '2,1,0,3';
    	P_FL_TIPO_EXAME:= '0,1,2,3,4,5,6,7,8';
    else
    	P_FL_CIRURGIA:= :BL_CAD.P_TIPO_EXAME;      
      If (:BL_CAD.P_TIPO_EXAME = 2) then  	
      	P_FL_TIPO_EXAME:= '1,0';        
      else
      	P_FL_TIPO_EXAME:= '2,3,4,5,6,7,8';        
      end if;
    end if;
  end if;
	
  -- Janela para localizacao do arquivo
  Begin
    lNm_Arquivo:= CLIENT_GET_FILE_NAME('','','Todos os Arquivos do Microsoft Office Excel (*.csv)|*.csv',SAVE_FILE,SAVE_FILE);    
  Exception
   when others then 
     null;
  end;
  If lNm_Arquivo IS NOT NULL then
    :BL_CAD.NM_ARQUIVO:= lNm_Arquivo;   
  end if;
	
  begin
    warquivo:= Client_Text_IO.Fopen(:BL_CAD.NM_ARQUIVO, 'w');   
  exception 
    when others then
      pr_alerta('Erro ao criar arquivo');
      raise form_trigger_failure;
  end;
  Client_Text_IO.Put_Line(warquivo, wlinha); 
  wlinha:= 'CD_UNIDADE_ATENDIMENTO;NM_UNIDADE_ATENDIMENTO;CD_SETOR_ORIGEM;NM_SETOR;CD_GRUPO_PRODUTO;NM_GRUPO_PRODUTO;CD_PROCEDIMENTO;NR_PROCEDIMENTO;QT_PROCEDIMENTO;VL_TOTAL';
  Client_Text_IO.Put_Line(warquivo, wlinha); 
  
  begin
    for i in (select s.cd_unidade_atendimento,
       u.nm_unidade_atendimento,
       g.cd_setor_origem,
       s.nm_setor,
--       nvl(gp.cd_grupo_produto, 0) cd_grupo_produto,
       nvl(fn_grupo_excessao(a.cd_unidade_atendimento,p.cd_procedimento),0) cd_grupo_produto,
       nvl(grp.nm_grupo_produto, 'SEM GRUPO') nm_grupo_produto,
       pr.cd_procedimento,
       p.nr_procedimento,
       sum(pr.qt_procedimento) qt_procedimento,
       sum(pr.vl_total) vl_total
  from tb_grupo_produto           grp,
       tb_unidade_atendimento     u,
       tm_setor                   s,
--       tb_item_grupo_procedimento gp,
       tb_procedimento            p,
       tm_atendimento             a,
       tb_pedido_exame            pe,
       tb_guia                    g,
       tb_procedimento_realizado  pr
 where pr.dt_procedimento_realizado between
       to_date(:BL_CAD.P_DT_INICIAL, 'dd/mm/yyyy') and
       to_date(:BL_CAD.P_DT_FINAL, 'dd/mm/yyyy')
   and g.cd_pessoa_realiza like :BL_CAD.P_CD_PESSOA
--   and nvl(gp.cd_grupo_produto, 0) like :BL_CAD.P_CD_GRUPO_PRODUTO
   and nvl(fn_grupo_excessao(a.cd_unidade_atendimento,p.cd_procedimento),0) like :BL_CAD.P_CD_GRUPO_PRODUTO
   and g.cd_setor_origem like :BL_CAD.P_CD_SETOR
   and instr(P_CD_MOTIVO_ATENDIMENTO, to_char(a.cd_motivo_atendimento + 0)) > 0
   and (instr(p_fl_cirurgia, to_char(p.fl_cirurgia+0)) > 0)
   and (instr(p_fl_tipo_exame, to_char(p.fl_tipo_exame+0)) > 0)
   and (instr(p_fl_internacao, a.fl_internacao) > 0) 
   and pr.cd_atendimento = g.cd_atendimento
   and pr.cd_ocorrencia = g.cd_ocorrencia
   and g.cd_atendimento = pe.cd_atendimento
   and g.cd_ocorrencia_pedido = pe.cd_ocorrencia
   and pe.cd_atendimento = a.cd_atendimento
   and pr.cd_procedimento = p.cd_procedimento
   and g.cd_setor_origem = s.cd_setor
   and s.cd_unidade_atendimento = u.cd_unidade_atendimento
--   and p.cd_procedimento = gp.cd_procedimento(+)
   and fn_grupo_excessao(a.cd_unidade_atendimento,p.cd_procedimento) = grp.cd_grupo_produto --gp.cd_grupo_produto = grp.cd_grupo_produto(+)
 group by s.cd_unidade_atendimento,
          u.nm_unidade_atendimento,
          g.cd_setor_origem,
          s.nm_setor,
          a.cd_unidade_atendimento,
          p.cd_procedimento,
          cd_grupo_produto,
          grp.nm_grupo_produto,
          pr.cd_procedimento,
          p.nr_procedimento
 order by u.nm_unidade_atendimento,
          s.nm_setor,
          grp.nm_grupo_produto,
          p.nr_procedimento) loop
          	Client_Text_IO.Put_Line(warquivo,trim(wlinha));
            --   	begin
      wlinha:= i.cd_unidade_atendimento  ||';'||  
               i.nm_unidade_atendimento  ||';'||  
               i.cd_setor_origem         ||';'||  
               i.nm_setor                ||';'||  
               i.cd_grupo_produto        ||';'||  
               i.nm_grupo_produto        ||';'||  
               i.cd_procedimento         ||';'||  
               i.nr_procedimento         ||';'||  
               i.qt_procedimento         ||';'||  
               i.vl_total;
       Client_Text_IO.Put_Line(warquivo,trim(wlinha));
    end loop;
  exception
    when others then             	
      pr_alerta(SQLERRM);
      raise form_trigger_failure;    
  end;
  Client_Text_IO.Fclose(warquivo);
  pr_alerta('Arquivo gerado com sucesso !' || chr(13) || :BL_CAD.NM_ARQUIVO);               
END;
Agradeço desde já a ajuda.
Avatar do usuário
dr_gori
Moderador
Moderador
Mensagens: 5024
Registrado em: Seg, 03 Mai 2004 3:08 pm
Localização: Portland, OR USA
Contato:
Thomas F. G

Você já respondeu a dúvida de alguém hoje?
https://glufke.net/oracle/search.php?search_id=unanswered

Se o cabeçalho ta sendo gerado, significa que a criação do arquivo ta correta.
Provavelmente o cursor com o LOOP não deve estar retornando linhas.

Eu focaria nesse cursor, pra ver se realmente ele está sendo executado corretamente.
Avatar do usuário
Dezoti
Rank: Estagiário Sênior
Rank: Estagiário Sênior
Mensagens: 14
Registrado em: Ter, 26 Nov 2013 1:27 pm
Localização: Fortaleza - CE

Opa,

Exatamente o que eu pensei, porém já debuguei no SQL Developer e passando os parâmetros manualmente, eu tenho os resultados no Output.

To achando que o Forms se atrapalha quando utilizo o LIKE para receber os valores dos blocos, to tentando resolver por este ponto agora.
Avatar do usuário
dr_gori
Moderador
Moderador
Mensagens: 5024
Registrado em: Seg, 03 Mai 2004 3:08 pm
Localização: Portland, OR USA
Contato:
Thomas F. G

Você já respondeu a dúvida de alguém hoje?
https://glufke.net/oracle/search.php?search_id=unanswered

No campo onde tem o LIKE, você está colocando os % ?
Eu por via das dúvidas, colocaria os % no próprio código.

Selecionar tudo

like '%' || :BL_CAD.P_CD_GRUPO_PRODUTO || '%'
mas pode ser outra coisa. Vai comentando as linhas no WHERE que você acha o problema! :-o
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Majestic-12 [Bot] e 3 visitantes