Boa tarde!
Preciso gerar no forms um arquivo em txt apartir de uma procedure. alguém pode me dar um help?
Gerar txt
-
- Moderador
- Mensagens: 2016
- Registrado em: Qua, 12 Jan 2005 3:25 pm
- Localização: Araraquara - SP
Abraço,
Trevisolli
OCA Oracle PL/SQL Developer Certified Associate
OCP Oracle Forms Developer Certified Professional
Araraquara-SP
Trevisolli
OCA Oracle PL/SQL Developer Certified Associate
OCP Oracle Forms Developer Certified Professional
Araraquara-SP
Brother,
Seria através do FORMS ou, através de objeto de banco (procedure) ?
Porque são formas distintas de se realizar a geração.
Procure também por "TXT" aqui no fórum que irá achar tópicos interessantes.
qualquer coisa, manda ai.
Seria através do FORMS ou, através de objeto de banco (procedure) ?
Porque são formas distintas de se realizar a geração.
Procure também por "TXT" aqui no fórum que irá achar tópicos interessantes.
qualquer coisa, manda ai.
-
- Moderador
- Mensagens: 2016
- Registrado em: Qua, 12 Jan 2005 3:25 pm
- Localização: Araraquara - SP
Abraço,
Trevisolli
OCA Oracle PL/SQL Developer Certified Associate
OCP Oracle Forms Developer Certified Professional
Araraquara-SP
Trevisolli
OCA Oracle PL/SQL Developer Certified Associate
OCP Oracle Forms Developer Certified Professional
Araraquara-SP
Brother,
Essa proc abaixo, tirei as coisas do negócio aqui e, deixei o básico pra você ter uma noção e montar a tua, beleza?
Essa proc abaixo, tirei as coisas do negócio aqui e, deixei o básico pra você ter uma noção e montar a tua, beleza?
PROCEDURE PRC_GERA_ARQUIVO IS
-- Arquivos
ARQ TEXT_IO.FILE_TYPE;
LINHA VARCHAR2(4000);
-- Mensagens
V_MSG_STATUS VARCHAR2(200):= ' Aguarde... Processando arquivo... ';
V_BOTAO VARCHAR2(01);
V_PONTO VARCHAR2(1000);
V_CONTADOR NUMBER := 0;
BEGIN
-- Início Gravação
ARQ := TEXT_IO.FOPEN (:PARAMETROS.NM_ARQUIVO_LEITURA ,'W');
-- Imprime linhas dinâmicas no arquivo
OPEN CUR_REGISTRO_ZERO(V_NRO_PESSOA);
FETCH CUR_REGISTRO_ZERO INTO LINHA;
CLOSE CUR_REGISTRO_ZERO;
-- faça teu loop aqui...
FOR X IN TEU_CURSOR
LOOP
TEXT_IO.PUT_LINE (ARQ, X.TEU_CAMPO);
END LOOP;
-- Finaliza gravação
TEXT_IO.FCLOSE(ARQ);
SET_APPLICATION_PROPERTY (CURSOR_STYLE,'DEFAULT');
:PARAMETROS.TXT_STATUS := ' Arquivo ('||:PARAMETROS.NM_ARQUIVO_LEITURA||') gerado com sucesso! ';
SET_ITEM_PROPERTY('PARAMETROS.PB_ARQUIVO', ENABLED, PROPERTY_TRUE);
SET_ITEM_PROPERTY('PARAMETROS.PB_CONSULTA', ENABLED, PROPERTY_TRUE);
EXCEPTION
WHEN OTHERS THEN
SET_APPLICATION_PROPERTY (CURSOR_STYLE,'DEFAULT');
SET_ITEM_PROPERTY('PARAMETROS.PB_ARQUIVO', ENABLED, PROPERTY_TRUE);
SET_ITEM_PROPERTY('PARAMETROS.PB_CONSULTA', ENABLED, PROPERTY_TRUE);
:PARAMETROS.TXT_STATUS := ' Erro no processamento. Arquivo não gerado. ';
SYNCHRONIZE;
TEXT_IO.FCLOSE(ARQ);
END;
-
- Moderador
- Mensagens: 2016
- Registrado em: Qua, 12 Jan 2005 3:25 pm
- Localização: Araraquara - SP
Abraço,
Trevisolli
OCA Oracle PL/SQL Developer Certified Associate
OCP Oracle Forms Developer Certified Professional
Araraquara-SP
Trevisolli
OCA Oracle PL/SQL Developer Certified Associate
OCP Oracle Forms Developer Certified Professional
Araraquara-SP
No meu caso, brother...
Eu preencho essa informação na tela, no campo:
Neste trecho:
Eu preencho essa informação na tela, no campo:
:PARAMETROS.NM_ARQUIVO_LEITURA
-- Início Gravação
ARQ := TEXT_IO.FOPEN (:PARAMETROS.NM_ARQUIVO_LEITURA ,'W');
-
- Informação
-
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 10 visitantes