Skip to content

Commit

Permalink
Bilancio di Previsione: stampa al netto dei residui impropri
Browse files Browse the repository at this point in the history
  • Loading branch information
@raffaelepagano
raffaelepagano committed Dec 12, 2018
1 parent 76c1597 commit 77e2b03
Show file tree
Hide file tree
Showing 2 changed files with 55 additions and 16 deletions.
33 changes: 25 additions & 8 deletions sigla-backend/src/main/resources/expsigladb/Procedure/prc_load_table_stampa_bilancio.prc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,14 @@ CREATE OR REPLACE PROCEDURE PRC_LOAD_TABLE_STAMPA_BILANCIO(P_ESERCIZIO IN NUMBER
P_AGG_CASSA_AC IN char,
P_PERC_CASSA IN NUMBER,
P_UTCR IN VARCHAR2) IS
parEnte PARAMETRI_ENTE%Rowtype;
BEGIN
IF P_ESERCIZIO<2016 THEN
RETURN;
END IF;

parEnte := CNRUTL001.getRecParametriEnteAttivo;

IF Nvl(P_AGG_PREVISIONE_AC,'N')='Y' THEN
UPDATE PDG_DATI_STAMPA_BILANCIO_TEMP
SET IM_PREVISIONE_AC = 0,
Expand Down Expand Up @@ -110,7 +113,8 @@ BEGIN

--CARICO I DATI RESIDUI ANNO CORRENTE
For rec in (select CD_CENTRO_RESPONSABILITA, TI_GESTIONE, CD_ELEMENTO_VOCE,
CD_PROGRAMMA, CD_MISSIONE, NVL(SUM(IM_RESIDUO_AC), 0) IM_RESIDUO_AC
CD_PROGRAMMA, CD_MISSIONE, NVL(SUM(IM_RESIDUO_AC), 0) IM_RESIDUO_AC,
NVL(SUM(IM_RESIDUO_AC_SOLO_IMP), 0) IM_RESIDUO_AC_SOLO_IMP
FROM (select A.CD_CENTRO_RESPONSABILITA, A.TI_GESTIONE,
NVL((SELECT CD_ELEMENTO_VOCE_NEW
FROM ASS_EVOLD_EVNEW
Expand All @@ -126,17 +130,30 @@ BEGIN
+ NVL (var_piu_stanz_res_imp, 0) - NVL (var_meno_stanz_res_imp, 0 )
+ NVL (im_obbl_res_pro, 0)
- NVL (im_mandati_reversali_pro, 0) - NVL (im_mandati_reversali_imp, 0)
end, 0) IM_RESIDUO_AC
end, 0) IM_RESIDUO_AC,
nvl(case when a.esercizio = a.esercizio_res
then NVL (im_obbl_acc_comp, 0) - NVL (im_mandati_reversali_pro, 0)
else NVL (im_obbl_res_pro, 0) + NVL (im_obbl_res_imp, 0)
- NVL (im_mandati_reversali_pro, 0) - NVL (im_mandati_reversali_imp, 0)
end, 0) IM_RESIDUO_AC_SOLO_IMP
from voce_f_saldi_cdr_linea a,
v_linea_attivita_valida linea
where a.esercizio = P_ESERCIZIO-1
and a.esercizio = linea.esercizio (+)
and a.cd_centro_responsabilita = linea.cd_centro_responsabilita (+)
and a.cd_linea_attivita = linea.cd_linea_attivita (+))
group by CD_CENTRO_RESPONSABILITA, TI_GESTIONE, CD_ELEMENTO_VOCE, CD_PROGRAMMA, CD_MISSIONE) loop

Declare
im_residuo saldi_stanziamenti.im_stanz_iniziale_a1%type;
Begin
if parEnte.descrizione='CNR' Then
im_residuo := rec.IM_RESIDUO_AC;
else
im_residuo := rec.IM_RESIDUO_AC_SOLO_IMP;
END IF;

Update PDG_DATI_STAMPA_BILANCIO
set IM_RESIDUI_AC = rec.IM_RESIDUO_AC
set IM_RESIDUI_AC = im_residuo
where ESERCIZIO = P_ESERCIZIO
and CD_CENTRO_RESPONSABILITA = rec.CD_CENTRO_RESPONSABILITA
and TI_GESTIONE = rec.TI_GESTIONE
Expand All @@ -150,11 +167,11 @@ BEGIN
IM_RESIDUI_AC, IM_CASSA_AC, UTCR, DACR, UTUV, DUVA, PG_VER_REC)
VALUES
(P_ESERCIZIO, rec.CD_CENTRO_RESPONSABILITA, rec.TI_GESTIONE, rec.CD_ELEMENTO_VOCE,
rec.cd_programma, rec.CD_MISSIONE, rec.IM_RESIDUO_AC, 0, P_UTCR, SYSDATE, P_UTCR, SYSDATE, 1);
rec.cd_programma, rec.CD_MISSIONE, im_residuo, 0, P_UTCR, SYSDATE, P_UTCR, SYSDATE, 1);
End If;

Update PDG_DATI_STAMPA_BILANCIO_TEMP
set IM_RESIDUI_AC = rec.IM_RESIDUO_AC
set IM_RESIDUI_AC = im_residuo
where ESERCIZIO = P_ESERCIZIO
and CD_CENTRO_RESPONSABILITA = rec.CD_CENTRO_RESPONSABILITA
and TI_GESTIONE = rec.TI_GESTIONE
Expand All @@ -168,9 +185,9 @@ BEGIN
IM_RESIDUI_AC, IM_PREVISIONE_AC, IM_CASSA_AC, IM_RESIDUI_AP, UTCR, DACR, UTUV, DUVA, PG_VER_REC)
VALUES
(P_ESERCIZIO, rec.CD_CENTRO_RESPONSABILITA, rec.TI_GESTIONE, rec.CD_ELEMENTO_VOCE,
rec.cd_programma, rec.CD_MISSIONE, rec.IM_RESIDUO_AC, 0, 0, 0, P_UTCR, SYSDATE, P_UTCR, SYSDATE, 1);
rec.cd_programma, rec.CD_MISSIONE, im_residuo, 0, 0, 0, P_UTCR, SYSDATE, P_UTCR, SYSDATE, 1);
End If;

End;
End loop;
End If;

Expand Down
38 changes: 30 additions & 8 deletions sigla-backend/src/main/resources/expsigladb/View/V_STAMPA_BILANCIO_PREVDEC.sql
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,12 +61,16 @@
+ NVL (a.im_spese_gest_accentrata_int, 0)
+ NVL (a.im_spese_gest_accentrata_est, 0)
im_previsione_ac,
0 im_cassa_ac, 0 im_residui_ap,
CASE WHEN e.descrizione='CNR'
then 0
else NVL (a.im_pagamenti, 0)
END im_cassa_ac, 0 im_residui_ap,
0 im_previsione_ap, 0 im_cassa_ap
FROM pdg_modulo_spese_gest a,
elemento_voce b,
linea_attivita d,
v_classificazione_voci_all c
v_classificazione_voci_all c,
parametri_ente e
WHERE a.esercizio = b.esercizio
AND a.ti_appartenenza = b.ti_appartenenza
AND a.ti_gestione = b.ti_gestione
Expand All @@ -75,6 +79,7 @@
AND a.cd_linea_attivita = d.cd_linea_attivita
AND b.id_classificazione = c.id_classificazione
AND a.cd_cdr_assegnatario_clgs IS NULL
AND e.attivo='Y'
UNION ALL
--PARTE SPESE STANZIAMENTO SCIENTIFICO
SELECT 'ASSSCI' fonte, a.esercizio, a.ti_gestione,
Expand Down Expand Up @@ -131,16 +136,22 @@
c.cd_livello7, c.ds_liv1, c.ds_liv2, c.ds_liv3,
c.ds_liv4, c.ds_liv5, c.ds_liv6, c.ds_liv7,
NVL (a.im_residui_ac, 0) im_residui_ac,
0 im_previsione_ac, NVL (a.im_cassa_ac, 0) im_cassa_ac,
0 im_previsione_ac,
CASE WHEN e.descrizione='CNR'
then NVL (a.im_cassa_ac, 0)
else 0
END im_cassa_ac,
0 im_residui_ap, 0 im_previsione_ap, 0 im_cassa_ap
FROM pdg_dati_stampa_bilancio a,
elemento_voce b,
v_classificazione_voci_all c
v_classificazione_voci_all c,
parametri_ente e
WHERE a.ti_gestione = 'S'
AND b.esercizio = a.esercizio
AND b.ti_gestione = a.ti_gestione
AND b.cd_elemento_voce = a.cd_elemento_voce
AND b.id_classificazione = c.id_classificazione
AND e.attivo='Y'
UNION ALL
--PARTE SPESE DATI STORICIZZATI SCIENTIFICI
SELECT 'STOSCI' fonte, a.esercizio, 'S',
Expand Down Expand Up @@ -276,17 +287,22 @@
+ NVL (SUM (a.im_spese_gest_decentrata_est), 0)
+ NVL (SUM (a.im_spese_gest_accentrata_int), 0)
+ NVL (SUM (a.im_spese_gest_accentrata_est), 0) im_previsione_ac,
0 im_cassa_ac, 0 im_residui_ap,
NVL (SUM (CASE WHEN e.descrizione='CNR'
then 0
else NVL(a.im_pagamenti, 0)
END), 0) im_cassa_ac, 0 im_residui_ap,
0 im_previsione_ap, 0 im_cassa_ap
FROM pdg_modulo_spese_gest a,
elemento_voce b,
v_classificazione_voci_all c
v_classificazione_voci_all c,
parametri_ente e
WHERE a.esercizio = b.esercizio
AND a.ti_appartenenza = b.ti_appartenenza
AND a.ti_gestione = b.ti_gestione
AND a.cd_elemento_voce = b.cd_elemento_voce
AND b.id_classificazione = c.id_classificazione
AND a.cd_cdr_assegnatario_clgs IS NULL
AND e.attivo = 'Y'
GROUP BY a.esercizio,
a.ti_gestione,
c.cd_livello1,
Expand Down Expand Up @@ -412,15 +428,21 @@
c.cd_livello6, c.cd_livello7, NULL, NULL, c.ds_liv1, c.ds_liv2,
c.ds_liv3, c.ds_liv4, c.ds_liv5, c.ds_liv6, c.ds_liv7, NULL,
NULL, NVL (SUM (a.im_residui_ac), 0) im_residui_ac,
0 im_previsione_ac, NVL (SUM (a.im_cassa_ac), 0) im_cassa_ac,
0 im_previsione_ac,
NVL (SUM (CASE WHEN e.descrizione='CNR'
then NVL(a.im_cassa_ac, 0)
else 0
END), 0) im_cassa_ac,
0 im_residui_ap, 0 im_previsione_ap, 0 im_cassa_ap
FROM pdg_dati_stampa_bilancio a,
elemento_voce b,
v_classificazione_voci_all c
v_classificazione_voci_all c,
parametri_ente e
WHERE b.esercizio = a.esercizio
AND b.ti_gestione = a.ti_gestione
AND b.cd_elemento_voce = a.cd_elemento_voce
AND b.id_classificazione = c.id_classificazione
AND e.attivo = 'Y'
GROUP BY a.esercizio,
a.ti_gestione,
c.cd_livello1,
Expand Down

0 comments on commit 77e2b03

Please sign in to comment.