admin/gateway-mnp-dbc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

First Commit - Source Code from Reply

Browse Source
This commit is contained in:
vincenzofariello
2024-05-13 12:54:14 +02:00
parent 73e32a5020
commit a15aee1f08
11184 changed files with 1065913 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

637
dbcmnpsrc/FE/mnpapp/script/dbUpDate/Extra-KitMaggio10/PKG_MNP_GUI_MANCATE_AZIONI.sql Normal file
View File

@@ -0,0 +1,637 @@
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 || ';' || DATA_INVIO_RICHIESTA || ';' || 'mancante' || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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
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 <= (SYSDATE-1)
--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' || ';' || 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 || ';' || DATA_VALIDAZIONE_MASSIMA || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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
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 <= sysdate
);
BEGIN
cod_errore:=0;
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || 'DATA_VALIDAZIONE_MASSIMA' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 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 || ';' || DATA_VALIDAZIONE_MASSIMA || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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
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 <= sysdate
);
BEGIN
cod_errore:=0;
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || 'DATA_VALIDAZIONE_MASSIMA' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 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 || ';' || DATA_CUT_OVER || ';' || 'mancante' || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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
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 < SYSDATE
);
BEGIN
cod_errore:=0;
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || ' DATA_CUT_OVER' || ';'|| 'ESITO' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 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 || ';' || DATA_CUT_OVER || ';' || 'mancante' || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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
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 < 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'
);
BEGIN
cod_errore:=0;
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE' || ';' || ' DATA_CUT_OVER' || ';'|| 'ESITO' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 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 || ';' || DATA_ATTESA_TCR || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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,3) as DATA_ATTESA_TCR ,
rich_rec.CODICE_OPERATORE_DON_EFF as DONOR_EFFETTIVO, rich_rec.CODICE_OPERATORE_REC_EFF as RECIPIENT_EFFETTIVO
FROM MNP_GESTIONE_RICHIESTA_REC rich_rec
where
rich_rec.FLAG_TC='Y'
AND DWH.FUN_GIORNI_PIU(rich_rec.DATA_CUT_OVER_EFF,3)<= SYSDATE
AND rich_rec.ID_RICHIESTA NOT IN (SELECT rich_in.ID_RICHIESTA FROM MNP_XML_IN xml_in, MNP_XML_RICHIESTA_IN rich_in
WHERE xml_in.TIPO_FILE = 10
AND xml_in.NOME_FILE=rich_in.NOME_FILE
AND rich_in.ID_RICHIESTA=rich_rec.ID_RICHIESTA
)
);
BEGIN
cod_errore:=0;
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE_DONOR' || ';' || ' DATA_ATTESA_TCR' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 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 || ';' || DT_ATTESA_SBLC_CRE_ANOM || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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
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) <= SYSDATE
);
BEGIN
cod_errore:=0;
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE_DONOR' || ';' || ' DT_ATTESA_SBLC_CRE_ANOM' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 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 || ';' || DATA_ATTESA_SBLOCCO_IMPORTO || ';' || DONOR_EFFETTIVO || ';' || RECIPIENT_EFFETTIVO || ';' 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
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) <= SYSDATE
);
BEGIN
cod_errore:=0;
csv := 'CODICE_RICHIESTA' || ';' || 'MSISDN' || ';' || 'OPERATORE_DONOR' || ';' || ' DATA_ATTESA_SBLOCCO_IMPORTO' || ';' || 'DONOR_EFFETTIVO' || ';' || 'RECIPIENT_EFFETTIVO' || ';' || 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;
/

17
dbcmnpsrc/FE/mnpapp/script/dbUpDate/Extra-KitMaggio10/dbc.sql Normal file
View File

@@ -0,0 +1,17 @@
--execute as DBC
spool /mnpapp/log/script/dbc_Extra_Kit_maggio_10.log;
-----------------------------
--CREATE/MODIFY OBJECT
@@dbcDDL.sql
-----------------------------
--INSERT/UPDATE DATA
@@dbcDML.sql
-----------------------------
spool off;

56
dbcmnpsrc/FE/mnpapp/script/dbUpDate/Extra-KitMaggio10/dbcDDL.sql Normal file
View File

@@ -0,0 +1,56 @@
----GENERA LA TABELLA PER IL REPORT MANCATE AZIONI
CREATE TABLE MNP_GUI_REPORT_MANCATE_AZIONI
(
TIPO VARCHAR2(100 BYTE),
DATA_CREAZIONE DATE DEFAULT SYSDATE NOT NULL,
CSV CLOB
)
TABLESPACE TAB_SMALL
PCTUSED 40
PCTFREE 10
INITRANS 1
MAXTRANS 255
STORAGE (
INITIAL 10M
NEXT 10M
MINEXTENTS 1
MAXEXTENTS UNLIMITED
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
BUFFER_POOL DEFAULT
)
LOGGING
LOB (CSV) STORE AS
( TABLESPACE TAB_SMALL
ENABLE STORAGE IN ROW
CHUNK 8192
RETENTION
NOCACHE
INDEX (
TABLESPACE TAB_SMALL
STORAGE (
INITIAL 10M
NEXT 1
MINEXTENTS 1
MAXEXTENTS UNLIMITED
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
BUFFER_POOL DEFAULT
))
STORAGE (
INITIAL 10M
NEXT 10M
MINEXTENTS 1
MAXEXTENTS UNLIMITED
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
BUFFER_POOL DEFAULT
)
)
NOCACHE
NOPARALLEL
NOMONITORING;

46
dbcmnpsrc/FE/mnpapp/script/dbUpDate/Extra-KitMaggio10/dbcDML.sql Normal file
View File

@@ -0,0 +1,46 @@
---ANAGRAFICA REPORT - REPORT MANCATE AZIONI
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_SI', 'Mancato Sblocco importo', 'Mancato Sblocco importo',
'MANCATE_AZIONI',0);
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_SCA', 'Mancato sblocco credito anomalo', 'Mancato sblocco credito anomalo', 'MANCATE_AZIONI',0);
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_RC', 'Mancata Restituzione Credito', 'Mancata Restituzione Credito',
'MANCATE_AZIONI',0);
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_ME', 'Mancati Espletamenti', 'Mancati Espletamenti',
'MANCATE_AZIONI',0);
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_METP', 'Mancati Espletamenti Terze Parti', 'Mancati Espletamenti Terze Parti',
'MANCATE_AZIONI',0);
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_MVPHOC', 'Mancate Validazioni PHOC', 'Mancate Validazioni PHOC',
'MANCATE_AZIONI',0);
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_MPIC', 'Mancate Prese in carico', 'Mancate Prese in carico',
'MANCATE_AZIONI',0);
insert into mnp_report(REPORTID, NOME, DESCRIZIONE, BREVE_DESCRIZIONE, PROCESSO, IS_RUNNING)
values (SEQ_MNP_REPORT.nextval, 'report_Mancate_Azioni_MV', 'Mancate Validazioni', 'Mancate Validazioni',
'MANCATE_AZIONI',0);
---ANAGRAFICA MENU
update mnp_funzionalita_gui set COMANDO_FUNZ='PresentazioneCA.jsp' where funzionalita='Canale Alternativo' ;
insert into mnp_funzionalita_gui (ID_PROG, FUNZIONALITA, COMANDO_FUNZ, JSP_NAME, CODICE_DOMINIO) values (44, 'Forzatura Prevalidazioni', 'PresentazioneFP.jsp', 'Banner MNP', 'MNP');
insert into mnp_funzionalita_gui (ID_PROG, FUNZIONALITA, COMANDO_FUNZ, JSP_NAME, CODICE_DOMINIO) values (45, 'Mancate azioni', 'SceltaReportMancateAzioni.do', 'Banner MNP', 'MNP');
insert into MNP_PROFILI_FUNZIONALITA(CODICE_PROFILO, ID_PROG) values ('AM',44);
insert into MNP_PROFILI_FUNZIONALITA(CODICE_PROFILO, ID_PROG) values ('AM',45);
COMMIT;