Estou com uma dificuldade, tenho uma procedure que grava um arquivo txt, veja abaixo:
create or replace procedure ESCREVE_ARQUIVO is
VTEXTO UTL_FILE.FILE_TYPE;
VCONTA number := 0;
cursor C1 is
select T.CDPRODUTO,
T.SAL_PROD,
T.DESCRICAO,
T.NCM,
T.local,
T.INSCRICAO,
T.QTDE08,
T.CUSTO08
from DIE_SEFAZ T
where T.local = 01;
begin
VTEXTO := UTL_FILE.FOPEN('UTL_FILE_DIR', 'escreve_arquivo.txt', 'W');
for R1 in C1
loop
VCONTA := VCONTA + 1;
UTL_FILE.PUTF(VTEXTO,
VCONTA || R1.CDPRODUTO || R1.DESCRICAO || R1.NCM ||
R1.local || R1.INSCRICAO || R1.QTDE08 || R1.CUSTO08);
UTL_FILE.NEW_LINE(VTEXTO);
end loop;
UTL_FILE.FFLUSH(VTEXTO);
UTL_FILE.FCLOSE(VTEXTO);
end;Que o R1.CDPRODUTO grave na posição/tamanho 08 do arquivo,
QUe o R1.DESCRICAO grave na posição/tamanho 16 do arquivo e assim sucessivamente.
Preciso seguir o que está descrito em um lay out.
Aguardo Retorno!
Desde já Agradeço a todos!
