First Commit - Source Code from Reply
This commit is contained in:
vincenzofariello
@@ -0,0 +1,663 @@
|
||||
CREATE OR REPLACE PACKAGE PKG_MNP_GUI_MANCATE_AZIONI AS
|
||||
/******************************************************************************
|
||||
NAME: PKG_MNP_GUI_MANCATE_AZIONI
|
||||
PURPOSE:
|
||||
|
||||
REVISIONS:
|
||||
Ver Date Author Description
|
||||
--------- ---------- --------------- ------------------------------------
|
||||
1.0 12/04/2010 1. Created this package.
|
||||
******************************************************************************/
|
||||
|
||||
PROCEDURE REPORT_MANCATE_PIC(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATE_VALIDAZIONI(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATE_VALID_PHOC(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATI_ESPLETAMENTI(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATI_ESPLETAMENTI_TP(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATA_RESTIT_CRED(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATO_SBL_CRED_ANOM(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATO_SBL_IMPORTO(cod_errore OUT NUMBER);
|
||||
PROCEDURE REPORT_MANCATE_AZIONI(tiporeport IN NUMBER);
|
||||
|
||||
|
||||
END PKG_MNP_GUI_MANCATE_AZIONI;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE package body PKG_MNP_GUI_MANCATE_AZIONI as
|
||||
|
||||
---REPORT MANCATE PRESE IN CARICO
|
||||
PROCEDURE REPORT_MANCATE_PIC(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
-- returncar VARCHAR (1);
|
||||
-- spaziocar VARCHAR (1) ;
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE || ';' || TO_CHAR (DATA_INVIO_RICHIESTA,'dd/mm/yyyy') || ';' || 'mancante' || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';'|| CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
rich_rec.CODICE_OPERATORE_DONATING as OPERATORE ,
|
||||
xml_out.DATA_INVIO as DATA_INVIO_RICHIESTA, --data di invio è la data invio file XML di attivazione
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec, MNP_XML_OUT xml_out, MNP_XML_RICHIESTA_OUT rich_out
|
||||
where
|
||||
rich_rec.STATO=4 --INVIATA
|
||||
AND xml_out.TIPO_FILE = 1
|
||||
AND xml_out.NOME_FILE = rich_out.NOME_FILE
|
||||
AND rich_out.ID_RICHIESTA = rich_rec.ID_RICHIESTA
|
||||
AND xml_out.DATA_INVIO < trunc(SYSDATE)
|
||||
--rownum <=50
|
||||
);
|
||||
|
||||
|
||||
-- to_date ( '10/04/2010:10:10:10', 'dd/mm/yyyy:hh24:mi:ss') as DATA_INVIO_RICHIESTA , --data di invio è la data invio file XML di attivazione
|
||||
-- rownum <=50
|
||||
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || 'DATA_INVIO_RICHIESTA' || ';'|| 'ESITO'|| ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_MPIC line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_MPIC';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_MPIC',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATE_PIC;
|
||||
|
||||
---REPORT MANCATE VALIDAZIONI
|
||||
PROCEDURE REPORT_MANCATE_VALIDAZIONI(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE || ';' || TO_CHAR( DATA_VALIDAZIONE_MASSIMA,'dd/mm/yyyy') || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' || CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
rich_rec.CODICE_OPERATORE_DONATING as OPERATORE , rich_rec.DATA_VALIDAZIONE_MAX as DATA_VALIDAZIONE_MASSIMA,
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec
|
||||
where
|
||||
rich_rec.STATO=6 --PRESAINCARICO
|
||||
AND rich_rec.richiestaadhocaom =0
|
||||
AND rich_rec.richiestaadhoc =0
|
||||
AND rich_rec.DATA_VALIDAZIONE_MAX < TRUNC(sysdate)
|
||||
);
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || 'DATA_VALIDAZIONE_MASSIMA' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_MV line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_MV';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_MV',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATE_VALIDAZIONI;
|
||||
|
||||
|
||||
---REPORT MANCATE VALIDAZIONI PHOC
|
||||
PROCEDURE REPORT_MANCATE_VALID_PHOC(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE || ';' || TO_CHAR(DATA_VALIDAZIONE_MASSIMA,'dd/mm/yyyy') || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' || CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
rich_rec.CODICE_OPERATORE_DONATING as OPERATORE , rich_rec.DATA_VALIDAZIONE_MAX as DATA_VALIDAZIONE_MASSIMA,
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec
|
||||
where
|
||||
rich_rec.STATO=6 --PRESAINCARICO
|
||||
AND (rich_rec.richiestaadhocaom =1 OR rich_rec.richiestaadhoc =1)
|
||||
AND rich_rec.DATA_VALIDAZIONE_MAX < TRUNC(sysdate)
|
||||
);
|
||||
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || 'DATA_VALIDAZIONE_MASSIMA' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_MVPHOC line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_MVPHOC';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_MVPHOC',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATE_VALID_PHOC;
|
||||
|
||||
---REPORT MANCATI ESPLETAMENTI
|
||||
PROCEDURE REPORT_MANCATI_ESPLETAMENTI(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE || ';' || TO_CHAR(DATA_CUT_OVER,'dd/mm/yyyy') || ';' || 'mancante' || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' || CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
rich_rec.CODICE_OPERATORE_DONATING as OPERATORE , rich_rec.DATA_CUT_OVER_CALC as DATA_CUT_OVER,
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec --, MNP_STORICO_RICHIESTA_REC rich_stor
|
||||
where
|
||||
rich_rec.STATO=11 --ATTESAEVASIONE
|
||||
AND rich_rec.ESPLETAMENTODONATING <>1
|
||||
--AND rich_stor.DATA_I_O <= (SYSDATE-1)
|
||||
--AND rich_stor.ID_RICHIESTA = rich_rec.ID_RICHIESTA
|
||||
--AND rich_stor.STATO_A=11
|
||||
AND rich_rec.DATA_CUT_OVER_AOM < TRUNC(SYSDATE)
|
||||
);
|
||||
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || ' DATA_CUT_OVER' || ';'|| 'ESITO' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_ME line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_ME';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_ME',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATI_ESPLETAMENTI;
|
||||
|
||||
|
||||
---REPORT MANCATI ESPLETAMENTI TERZE PARTI
|
||||
PROCEDURE REPORT_MANCATI_ESPLETAMENTI_TP(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE || ';' || TO_CHAR(DATA_CUT_OVER,'dd/mm/yyyy') || ';' || 'mancante' || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' || CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
xml_out.DESTINATARIO as OPERATORE , rich_rec.DATA_CUT_OVER_CALC as DATA_CUT_OVER,
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec ,
|
||||
--MNP_STORICO_RICHIESTA_REC rich_stor,
|
||||
MNP_XML_OUT xml_out, MNP_XML_RICHIESTA_OUT rich_out --QUI... fatto ..!
|
||||
where
|
||||
rich_rec.STATO=11 --ATTESAEVASIONE
|
||||
AND rich_rec.ESPLETAMENTOTERZEPARTI IS NOT NULL
|
||||
--AND rich_stor.DATA_I_O <= (SYSDATE-1)
|
||||
AND rich_rec.DATA_CUT_OVER_AOM < TRUNC(SYSDATE)
|
||||
--AND rich_stor.ID_RICHIESTA = rich_rec.ID_RICHIESTA
|
||||
--AND rich_stor.STATO_A=11
|
||||
AND rich_out.ID_RICHIESTA = rich_rec.ID_RICHIESTA
|
||||
AND rich_out.NOME_FILE = xml_out.NOME_FILE
|
||||
AND xml_out.TIPO_FILE = 3
|
||||
AND xml_out.DESTINATARIO not in
|
||||
(SELECT xml_in.MITTENTE FROM MNP_XML_IN xml_in, MNP_XML_RICHIESTA_IN rich_in
|
||||
WHERE rich_in.ID_RICHIESTA = rich_rec.ID_RICHIESTA
|
||||
AND rich_in.NOME_FILE = xml_in.NOME_FILE
|
||||
AND xml_in.TIPO_FILE = 6
|
||||
)
|
||||
AND xml_out.DESTINATARIO <> 'NPTS'
|
||||
UNION
|
||||
SELECT rich_rec_virt.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec_virt.MSISDN as MSISDN,
|
||||
xml_out.DESTINATARIO as OPERATORE , rich_rec_virt.DATA_CUT_OVER_CALC as DATA_CUT_OVER,
|
||||
rich_rec_virt.CODICE_OPERATORE_DONATING as DONOR_EFFETTIVO, rich_rec_virt.CODICE_OPERATORE_RECIPIENT as RECIPIENT_EFFETTIVO,
|
||||
rich_rec_virt.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GEST_RICH_REC_VIRT rich_rec_virt ,
|
||||
MNP_XML_OUT xml_out, MNP_XML_RICHIESTA_OUT rich_out
|
||||
where
|
||||
rich_rec_virt.STATO=11 -- IN_ATTIVAZIONE
|
||||
AND rich_rec_virt.ESPLETAMENTOTERZEPARTI IS NOT NULL
|
||||
AND rich_rec_virt.DATA_CUT_OVER < TRUNC(SYSDATE)
|
||||
AND rich_out.ID_RICHIESTA = rich_rec_virt.ID_RICHIESTA
|
||||
AND rich_out.NOME_FILE = xml_out.NOME_FILE
|
||||
AND xml_out.TIPO_FILE = 3
|
||||
AND xml_out.DESTINATARIO not in
|
||||
(SELECT xml_in.MITTENTE FROM MNP_XML_IN xml_in, MNP_XML_RICHIESTA_IN rich_in
|
||||
WHERE rich_in.ID_RICHIESTA = rich_rec_virt.ID_RICHIESTA
|
||||
AND rich_in.NOME_FILE = xml_in.NOME_FILE
|
||||
AND xml_in.TIPO_FILE = 6
|
||||
)
|
||||
AND xml_out.DESTINATARIO <> 'NPTS'
|
||||
|
||||
);
|
||||
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || ' DATA_CUT_OVER' || ';'|| 'ESITO' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_METP line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_METP';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_METP',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATI_ESPLETAMENTI_TP;
|
||||
|
||||
---REPORT MANCATA RESTITUZIONE CREDITO
|
||||
PROCEDURE REPORT_MANCATA_RESTIT_CRED(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE_DONOR || ';' || TO_CHAR(DATA_ATTESA_TCR,'dd/mm/yyyy') || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' || CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
rich_rec.CODICE_OPERATORE_DONATING as OPERATORE_DONOR ,
|
||||
DWH.FUN_GIORNI_PIU(rich_rec.DATA_CUT_OVER_EFF,2) as DATA_ATTESA_TCR ,
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec
|
||||
where
|
||||
rich_rec.FLAG_TC='Y'
|
||||
AND DWH.FUN_GIORNI_PIU(rich_rec.DATA_CUT_OVER_EFF,2)< TRUNC(SYSDATE)
|
||||
and rich_rec.stato IN (11,12)
|
||||
and rich_rec.dataRicezionerichiesta >= SYSDATE - 730
|
||||
AND not exists (SELECT id_richiesta from MNP_GEST_RICH_REC_TC where id_richiesta = rich_rec.id_richiesta)
|
||||
|
||||
);
|
||||
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE_DONOR' || ';' || ' DATA_ATTESA_TCR' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_RC line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_RC';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_RC',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATA_RESTIT_CRED;
|
||||
|
||||
|
||||
---REPORT MANCATO SBLOCCO CREDITO ANOMALO
|
||||
PROCEDURE REPORT_MANCATO_SBL_CRED_ANOM(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE_DONOR || ';' || TO_CHAR(DT_ATTESA_SBLC_CRE_ANOM,'dd/mm/yyyy') || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' || CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
rich_rec.CODICE_OPERATORE_DONATING as OPERATORE_DONOR , ---è IL CAMPO GIUSTO?
|
||||
DWH.FUN_GIORNI_PIU(rich_rec_tc.DATA_NOTIFICA_RECIPIENT,5) as DT_ATTESA_SBLC_CRE_ANOM,
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec, MNP_GEST_RICH_REC_TC rich_rec_tc
|
||||
where
|
||||
rich_rec.ID_RICHIESTA= rich_rec_tc.ID_RICHIESTA
|
||||
AND rich_rec_tc.STATO= 3 -- ATTESA_SBLOCCO_CREDITO_ANOMALO
|
||||
AND DWH.FUN_GIORNI_PIU(rich_rec_tc.DATA_NOTIFICA_RECIPIENT,5) < TRUNC(SYSDATE)
|
||||
);
|
||||
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE_DONOR' || ';' || ' DT_ATTESA_SBLC_CRE_ANOM' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_SCA line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_SCA';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_SCA',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATO_SBL_CRED_ANOM;
|
||||
|
||||
|
||||
--- REPORT MANCATO SBLOCCO IMPORTO
|
||||
PROCEDURE REPORT_MANCATO_SBL_IMPORTO(cod_errore OUT NUMBER) IS
|
||||
|
||||
tipo VARCHAR (10);
|
||||
returncar VARCHAR (1) NOT NULL DEFAULT CHR (13);
|
||||
spaziocar VARCHAR (1) NOT NULL DEFAULT CHR (10);
|
||||
line VARCHAR (1000);
|
||||
csv clob;
|
||||
|
||||
|
||||
CURSOR cur_dati
|
||||
IS
|
||||
SELECT CODICE_RICHIESTA || ';' || MSISDN || ';' || OPERATORE_DONOR || ';' || TO_CHAR( DATA_ATTESA_SBLOCCO_IMPORTO,'dd/mm/yyyy') || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' || CODICE_OPERATORE_RECIPIENT || ';' AS csv
|
||||
FROM (
|
||||
SELECT rich_rec.ID_RICHIESTA as CODICE_RICHIESTA , rich_rec.MSISDN as MSISDN,
|
||||
rich_rec.CODICE_OPERATORE_DONATING as OPERATORE_DONOR ,
|
||||
DWH.FUN_GIORNI_PIU(rich_rec_tc.DATA_NOTIFICA_RECIPIENT ,5) as DATA_ATTESA_SBLOCCO_IMPORTO, --DATA NOTIFICA CREDITO CHE CAMPO E'? (DATA_NOTIFICA_RECIPIENT)
|
||||
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO,
|
||||
rich_rec.CODICE_OPERATORE_RECIPIENT as CODICE_OPERATORE_RECIPIENT
|
||||
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec, MNP_GEST_RICH_REC_TC rich_rec_tc
|
||||
where
|
||||
rich_rec.ID_RICHIESTA= rich_rec_tc.ID_RICHIESTA
|
||||
AND rich_rec_tc.STATO= 2-- ATTESA_SBLOCCO_IMPORTO
|
||||
AND DWH.FUN_GIORNI_PIU(rich_rec_tc.DATA_NOTIFICA_RECIPIENT,5) < TRUNC(SYSDATE)
|
||||
);
|
||||
|
||||
|
||||
|
||||
BEGIN
|
||||
cod_errore:=0;
|
||||
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE_DONOR' || ';' || ' DATA_ATTESA_SBLOCCO_IMPORTO' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 'CODICE_OPERATORE_RECIPIENT' || ';' || returncar || spaziocar;
|
||||
|
||||
OPEN cur_dati;
|
||||
|
||||
LOOP
|
||||
FETCH cur_dati
|
||||
INTO line;
|
||||
|
||||
DBMS_OUTPUT.put_line ('report_Mancate_Azioni_SI line: ' || line);
|
||||
|
||||
EXIT WHEN cur_dati%NOTFOUND;
|
||||
csv := csv || line || returncar || spaziocar;
|
||||
END LOOP;
|
||||
|
||||
CLOSE cur_dati;
|
||||
|
||||
|
||||
delete from MNP_GUI_REPORT_MANCATE_AZIONI where tipo='report_Mancate_Azioni_SI';
|
||||
|
||||
COMMIT;
|
||||
|
||||
INSERT INTO MNP_GUI_REPORT_MANCATE_AZIONI
|
||||
( tipo, DATA_CREAZIONE, csv
|
||||
)
|
||||
VALUES ('report_Mancate_Azioni_SI',sysdate, csv );
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore:=1;
|
||||
DBMS_OUTPUT.put_line ('Errore nell''inserimento nella tabella MNP_GUI_REPORT_MANCATE_AZIONI' || SQLERRM);
|
||||
RETURN;
|
||||
END REPORT_MANCATO_SBL_IMPORTO;
|
||||
|
||||
|
||||
PROCEDURE REPORT_MANCATE_AZIONI (tiporeport IN NUMBER) IS
|
||||
|
||||
cod_errore NUMBER (1);
|
||||
|
||||
BEGIN
|
||||
|
||||
-- tiporeport=1 ; Trasferimento Credito (Mancata restituzione credito)
|
||||
IF tiporeport = 1 THEN
|
||||
REPORT_MANCATA_RESTIT_CRED(cod_errore);
|
||||
END IF;
|
||||
|
||||
-- tiporeport=7 ; Trasferimento Credito (mancato sblocco credito anomalo)
|
||||
IF tiporeport = 7 THEN
|
||||
REPORT_MANCATO_SBL_CRED_ANOM(cod_errore);
|
||||
END IF;
|
||||
|
||||
-- tiporeport=8 ; Trasferimento Credito (mancato sblocco importo)
|
||||
IF tiporeport = 8 THEN
|
||||
REPORT_MANCATO_SBL_IMPORTO(cod_errore);
|
||||
END IF;
|
||||
|
||||
-- tiporeport=2 ; Mancati Espletamenti Terze Parti
|
||||
IF tiporeport = 2 THEN
|
||||
REPORT_MANCATI_ESPLETAMENTI_TP(cod_errore);
|
||||
END IF;
|
||||
-- tiporeport=3 ; Mancati Espletamenti
|
||||
IF tiporeport = 3 THEN
|
||||
REPORT_MANCATI_ESPLETAMENTI(cod_errore);
|
||||
END IF;
|
||||
-- tiporeport=4 ; Mancate prese in carico
|
||||
IF tiporeport = 4 THEN
|
||||
REPORT_MANCATE_PIC(cod_errore);
|
||||
END IF;
|
||||
-- tiporeport=5 ; Mancate validazioni
|
||||
IF tiporeport = 5 THEN
|
||||
REPORT_MANCATE_VALIDAZIONI(cod_errore);
|
||||
END IF;
|
||||
-- tiporeport=6 ; Mancate validazioni PHoc
|
||||
IF tiporeport = 6 THEN
|
||||
REPORT_MANCATE_VALID_PHOC(cod_errore);
|
||||
END IF;
|
||||
|
||||
IF cod_errore = 0 THEN
|
||||
-- tutto a posto
|
||||
DBMS_OUTPUT.put_line ('Caricamento Report Mancate Azioni avvenuto.');
|
||||
END IF;
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
cod_errore := 1;
|
||||
DBMS_OUTPUT.put_line ('Errore nel caricamento del Report Mancate Azioni ' || SQLERRM);
|
||||
RETURN;
|
||||
|
||||
|
||||
END REPORT_MANCATE_AZIONI;
|
||||
|
||||
|
||||
END PKG_MNP_GUI_MANCATE_AZIONI;
|
||||
/
|
||||
1281
dbcmnpsrc/FE/mnpapp/script/pkg/mnp/pkg_storicizzazione.sql
Normal file
1281
dbcmnpsrc/FE/mnpapp/script/pkg/mnp/pkg_storicizzazione.sql
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user