Estou precisando muito da ajuda de vocês !
Eu tenho um forms no qual tem um botão chamado "Salvar Arquivo", neste botão tem o seguinte código:
PROCEDURE p_prc_salvar_arquivo IS
--
cursor cur_arquivo is
select
t.txt_registro
from
ge_arq_interface_getra T
where
num_arquivo = :ge_vw_interface_getra.num_arquivo
order by
num_linha;
v_data_hora varchar2(200) := Null;
FILENAME varchar2(200) := Null;
MYFILE CLIENT_TEXT_IO.FILE_TYPE;
CUR_REC NUMBER;
--
BEGIN
v_data_hora := to_char(sysdate,'yyyymmddhhmmss');
if (upper(:ge_vw_interface_getra.cod_tipo_interface) = 'FATURA') then
FILENAME := :blk_parametros.DSC_DIRETORIO||'GETRA' || v_data_hora ||'.txt';
else
FILENAME := :blk_parametros.DSC_DIRETORIO||'GETRF' || v_data_hora ||'.txt';
end if;
--
[color=#FF0000]MYFILE := CLIENT_TEXT_IO.FOPEN(FILENAME, 'W');[/color]
--
for arq in cur_arquivo loop
--
CLIENT_TEXT_IO.PUT_LINE(MYFILE, arq.txt_registro);
--
END LOOP;
CLIENT_TEXT_IO.FCLOSE(MYFILE);
--
exception
when others then
--
message('Houve falha na abertura do arquivo. Anote os erros da próxima tela e reporte ao seu analista.');
message(SQLERRM);
raise;
--
end;
Pesquisei no google, mas, não obtive exito.
Muito Obrigado,
Robson.