88 lines
2.1 KiB
SQL
88 lines
2.1 KiB
SQL
SET serveroutput on
|
|
|
|
DECLARE
|
|
|
|
|
|
|
|
operatore varchar2(10);
|
|
errore exception;
|
|
rich_mese_pre_prp number(6);
|
|
dir_out varchar2(255);
|
|
|
|
CURSOR cur_operatori is
|
|
SELECT desc_olo, aom_out
|
|
FROM mnp_olo_report
|
|
where flag_attivo = 1
|
|
and desc_olo not in ('TIMT', 'TIMG','BLUI')
|
|
order by desc_olo;
|
|
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
OPEN cur_operatori;
|
|
|
|
LOOP
|
|
FETCH cur_operatori INTO operatore, dir_out;
|
|
EXIT WHEN cur_operatori%NOTFOUND;
|
|
|
|
declare
|
|
|
|
cod varchar2(23);
|
|
msisdn varchar2(15);
|
|
op_don varchar2(4);
|
|
data varchar2(10);
|
|
file1 UTL_FILE.file_type;
|
|
|
|
|
|
CURSOR cur_res is
|
|
select r.id_richiesta,r.msisdn,r.codice_operatore_donating, x.data_invio
|
|
FROM mnp_gestione_richiesta_rec r, mnp_xml_out x, mnp_xml_richiesta_out xo
|
|
WHERE r.id_richiesta = xo.id_richiesta
|
|
AND r.stato = 4
|
|
and r.codice_operatore_donating = operatore
|
|
AND xo.nome_file = x.nome_file
|
|
AND x.tipo_file = 1
|
|
AND trunc(x.data_invio) <= trunc(sysdate-1)
|
|
AND r.id_richiesta not in (
|
|
select rr.id_richiesta
|
|
from mnp_gestione_richiesta_rec rr, mnp_xml_in x, mnp_xml_richiesta_in xi
|
|
where rr.id_richiesta=xi.id_richiesta
|
|
AND r.id_richiesta = rr.id_richiesta
|
|
AND xi.nome_file = x.nome_file
|
|
AND x.tipo_file = 5
|
|
);
|
|
|
|
|
|
begin
|
|
|
|
file1 := UTL_FILE.fopen (dir_out, 'TIMG_to_'|| upper(operatore)||'_MANCATEPRESEINCARICO_'||to_char(sysdate,'yyyyMMdd')||'.csv', 'w');
|
|
UTL_FILE.put_line (file1,'Codice richiesta; Msisdn; Operatore Donating; Data Invio;');
|
|
UTL_FILE.put_line (file1,' ');
|
|
|
|
|
|
OPEN cur_res;
|
|
LOOP
|
|
FETCH cur_res INTO cod,msisdn,op_don,data;
|
|
EXIT WHEN cur_res%NOTFOUND;
|
|
|
|
UTL_FILE.put_line (file1, cod ||';'|| msisdn ||';'|| op_don||';'|| data ||';');
|
|
END LOOP;
|
|
CLOSE cur_res;
|
|
UTL_FILE.fflush (file1);
|
|
UTL_FILE.fclose (file1);
|
|
end;
|
|
END LOOP;
|
|
CLOSE cur_operatori;
|
|
|
|
exception
|
|
-- when errore then
|
|
-- DBMS_OUTPUT.PUT_LINE('La data inserita è null');
|
|
when others then
|
|
DBMS_OUTPUT.PUT_LINE(sqlerrm);
|
|
|
|
END;
|
|
/
|
|
exit;
|