PLS-00306: wrong number or types of arguments in call to 'FOPEN' (CM merged 2) [message #676372] |
Wed, 05 June 2019 09:31 |
|
maik2910
Messages: 2 Registered: June 2019
|
Junior Member |
|
|
PLS-00306: wrong number or types of arguments in call to 'FOPEN'
There is an error, someone could help fix this procedure
create or replace procedure movimento as
arquivo_saida utl_file.file_type;
TYPE mov_cur_typ IS REF CURSOR;
mov_cur mov_cur_typ;
MOV_NOTA mov_capa.nota%TYPE;
MOV_DATA mov_capa.DATA%TYPE;
MOV_MOEDA mov_capa.MOEDA%TYPE;
MOV_TOT mov_capa.TOTAL%TYPE;
mov_codigo mov_detalhe.codigo%TYPE;
mov_ean mov_detalhe.ean%TYPE;
mov_descricao mov_detalhe.descricao%TYPE;
mov_qtde mov_detalhe.qtde%TYPE;
mov_valor_unit mov_detalhe.valor_unit%TYPE;
mov_total mov_detalhe.total%TYPE;
CURSOR c1 IS
SELECT D.nota,
rms7to_date(D.DATA),
D.MOEDA,
D.TOTAL,
CURSOR (SELECT e.codigo,
e.ean,
TRIM(e.descricao),
e.qtde,
e.valor_unit,
e.total
FROM mov_detalhe e
WHERE e.nota = d.nota
ORDER BY e.nota) mov_detalhe
FROM mov_capa d
ORDER BY nota;
BEGIN
arquivo_saida:=UTL_File.Fopen('c:\relatorios','arquivo.txt', 'w');
OPEN c1;
LOOP
-- Process each row of query result set
FETCH c1
INTO MOV_NOTA, MOV_DATA, MOV_MOEDA, MOV_TOT, mov_cur;
EXIT WHEN c1%NOTFOUND;
utl_file.PUT_LINE(arquivo_saida,
MOV_NOTA || ',' || MOV_DATA || ',' || MOV_MOEDA || ',' ||
MOV_TOT);
LOOP
-- Process each row of subquery result set
FETCH mov_cur
INTO mov_codigo, mov_ean, mov_descricao, mov_qtde, mov_valor_unit, mov_total;
EXIT WHEN mov_cur%NOTFOUND;
utl_file.PUT_LINE(arquivo_saida,
mov_codigo || ',' || mov_ean || ',' ||
mov_descricao || ',' || mov_qtde || ',' ||
mov_valor_unit || ',' || MOV_TOTAL);
END LOOP;
utl_file.PUT_LINE(arquivo_saida,
'9' || ',' || MOV_MOEDA || ',' || MOV_NOTA || ',' ||
MOV_TOT);
END LOOP;
UTL_File.Fclose(arquivo_saida);
CLOSE c1;
-- END;
end movimento;
|
|
|
|
|
|
|