aggiunta schedulazione ribaltamento apaterura nuovo anno

consiglionazionaledellericerche · Nov 20, 2023 · 17b1f93 · 17b1f93
1 parent 299cae6
commit 17b1f93
Show file tree

Hide file tree

Showing 4 changed files with 143 additions and 7 deletions.
diff --git a/sigla-backend/src/main/resources/bootstrap/add_prc_ribaltamento_pdg_altro_schedulazione.xml b/sigla-backend/src/main/resources/bootstrap/add_prc_ribaltamento_pdg_altro_schedulazione.xml
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+  ~ Copyright (C) 2022  Consiglio Nazionale delle Ricerche
+  ~
+  ~     This program is free software: you can redistribute it and/or modify
+  ~     it under the terms of the GNU Affero General Public License as
+  ~     published by the Free Software Foundation, either version 3 of the
+  ~     License, or (at your option) any later version.
+  ~
+  ~     This program is distributed in the hope that it will be useful,
+  ~     but WITHOUT ANY WARRANTY; without even the implied warranty of
+  ~     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  ~     GNU Affero General Public License for more details.
+  ~
+  ~     You should have received a copy of the GNU Affero General Public License
+  ~     along with this program.  If not, see <https://www.gnu.org/licenses/>.
+  -->
+
+<databaseChangeLog xmlns="http://www.liquibase.org/xml/ns/dbchangelog"
+                   xmlns:ext="http://www.liquibase.org/xml/ns/dbchangelog-ext"
+                   xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+                   xsi:schemaLocation="http://www.liquibase.org/xml/ns/dbchangelog-ext http://www.liquibase.org/xml/ns/dbchangelog/dbchangelog-ext.xsd
+                                       http://www.liquibase.org/xml/ns/dbchangelog http://www.liquibase.org/xml/ns/dbchangelog/dbchangelog-3.5.xsd">
+
+    <changeSet author="ciro.salvio" id="add_prc_ribaltamento_pdg_altro_schedulazione">
+        <insert tableName="batch_procedura">
+            <column name="cd_procedura" type="STRING" value="RIBALTALTROPDGP"/>
+            <column name="ds_procedura" type="STRING" value="Ribaltamento Altro pdgp."/>
+            <column name="object_name" type="STRING" value="JOB_RIBALTAMENTO_ALTRO_PDGP"/>
+            <column name="package_name" type="STRING" value="CNRMIG100"/>
+            <column name="dacr" type="${date.type}" valueDate="${now}"/>
+            <column name="utcr" type="STRING" value="SYSTEM"/>
+            <column name="duva" type="${date.type}" valueDate="${now}"/>
+            <column name="utuv" type="STRING" value="SYSTEM"/>
+            <column name="pg_ver_rec" type="NUMERIC" value="0"/>
+        </insert>
+
+        <insert tableName="batch_procedura_parametro">
+            <column name="cd_procedura" type="STRING" value="RIBALTALTROPDGP"/>
+            <column name="nome_parametro" type="STRING" value="AES"/>
+            <column name="pg_valore_parametro" type="NUMERIC" value="1"/>
+            <column name="valore_number" type="NUMERIC" value="2024"/>
+            <column name="dacr" type="${date.type}" valueDate="${now}"/>
+            <column name="utcr" type="STRING" value="SYSTEM"/>
+            <column name="duva" type="${date.type}" valueDate="${now}"/>
+            <column name="utuv" type="STRING" value="SYSTEM"/>
+            <column name="pg_ver_rec" type="NUMERIC" value="0"/>
+        </insert>
+    </changeSet>
+
+</databaseChangeLog>
diff --git a/sigla-backend/src/main/resources/bootstrap/db.changelog-5.0.0.xml b/sigla-backend/src/main/resources/bootstrap/db.changelog-5.0.0.xml
@@ -5388,4 +5388,6 @@ IVAS = IVA ACQUISTO SPLIT; GEN = GENERICO; RIC = RICAVO; IVAA = IVA ACQUISTO; CR
     <include file="bootstrap/add_column_tot_vincoli_on_tmp_stampa_situazione_progetto.xml"/>
     <include file="bootstrap/add_column_fl_offerta_presentata_on_ass_contratto_ditte.xml"/>
     <include file="bootstrap/add_column_fl_pagabile_on_obbligazione_scadenzario.xml"/>
+    <!-- Autore : CIRO SALVIO - Aggiunta possibilità di lanciare da applicazione la procedura per il ribaltamento di inizio anno -->
+    <include file="bootstrap/add_prc_ribaltamento_pdg_altro_schedulazione.xml"/>
 </databaseChangeLog>
diff --git a/sigla-backend/src/main/resources/expsigladb/Package/CNRMIG100.sql b/sigla-backend/src/main/resources/expsigladb/Package/CNRMIG100.sql
@@ -188,4 +188,6 @@ procedure endLogRibaltamentoAltro(aEs number, aPgEsec number, aStato in out char
 procedure ins_RIBALTAMENTO_LOG (aDest RIBALTAMENTO_LOG%rowtype);
 --
 procedure JOB_RIBALTAMENTO_PDGP(job number, pg_exec number, next_date date, aEs number);
+--
+procedure JOB_RIBALTAMENTO_ALTRO_PDGP(job number, pg_exec number, next_date date, aEs number);
 end;
diff --git a/sigla-backend/src/main/resources/expsigladb/Package/CNRMIG100_BODY.sql b/sigla-backend/src/main/resources/expsigladb/Package/CNRMIG100_BODY.sql
@@ -1,8 +1,7 @@
 --------------------------------------------------------
 --  DDL for Package Body CNRMIG100
 --------------------------------------------------------
-
-CREATE OR REPLACE PACKAGE BODY "CNRMIG100" is
+create or replace PACKAGE BODY "CNRMIG100" is
 
 lPgExec number;
 
@@ -197,16 +196,13 @@ procedure ins_RIBALTAMENTO_LOG (aDest RIBALTAMENTO_LOG%rowtype) is
     );
 end;
 ----------------------------------------------------------------------------
-procedure init_ribaltamento_altro(aEs number, aMessage in out varchar2) is
+procedure init_ribaltamento_altro(aEs number, aPgEsec number,aMessage in out varchar2) is
 aEsPrec number;
-aPgEsec number;
 stato_fine char(1) := 'I';
 aNum number;
 begin
 
 	begin
-		aPgEsec := IBMUTL200.LOGSTART(TI_LOG_RIBALTAMENTO_ALTRO,dsProcesso_altro,null,cgUtente,null,null);
-
 		startLogRibaltamento(aEs, aPgEsec, dsProcesso_altro , cgUtente);
 
 		if isRibaltamentoAltroEffettuato(aEs, aPgEsec) then
@@ -1024,6 +1020,13 @@ begin
 
 end;
 ----------------------------------------------------------------------------
+procedure init_ribaltamento_altro(aEs number,aMessage in out varchar2) is
+ aPgEsec  number;
+begin
+	aPgEsec := IBMUTL200.LOGSTART(TI_LOG_RIBALTAMENTO_ALTRO,dsProcesso_altro,null,cgUtente,null,null);
+    init_ribaltamento_altro(aEs, aPgEsec, aMessage);
+end;
+----------------------------------------------------------------------------
 procedure init_ribaltamento_pdgp(aEs number, aPgEsec number, aMessage in out varchar2) is
 aEsPrec         number;
 stato_fine      char(1) := 'I';
@@ -3620,6 +3623,62 @@ begin
 
 end;
 
+procedure INSERIMENTO_PROGETTI(aEs number, pg_exec number) as
+aEsPrec         number;
+aMessage varchar2(500);
+aUser varchar2(20);
+BEGIN
+    aEsPrec := aEs - 1;
+     aUser:=IBMUTL200.getUserFromLog(pg_exec);
+
+    INSERT INTO PROGETTO_SIP
+        (ESERCIZIO, PG_PROGETTO, TIPO_FASE, ESERCIZIO_PROGETTO_PADRE, PG_PROGETTO_PADRE, TIPO_FASE_PROGETTO_PADRE, CD_PROGETTO, DS_PROGETTO,
+        CD_TIPO_PROGETTO, CD_UNITA_ORGANIZZATIVA, CD_RESPONSABILE_TERZO, DT_INIZIO, DT_FINE, DT_PROROGA, IMPORTO_PROGETTO, IMPORTO_DIVISA,
+        CD_DIVISA, NOTE, STATO, CONDIVISO, DURATA_PROGETTO, LIVELLO, CD_DIPARTIMENTO, FL_PIANO_TRIENNALE, FL_UTILIZZABILE,
+        CD_PROGRAMMA, CD_MISSIONE, PG_PROGETTO_OTHER_FIELD, DACR, UTCR, DUVA, UTUV, PG_VER_REC)
+        SELECT aEs, PG_PROGETTO, TIPO_FASE, aEs, PG_PROGETTO_PADRE, TIPO_FASE_PROGETTO_PADRE, CD_PROGETTO, DS_PROGETTO,
+        CD_TIPO_PROGETTO, CD_UNITA_ORGANIZZATIVA, CD_RESPONSABILE_TERZO, DT_INIZIO, DT_FINE, DT_PROROGA, IMPORTO_PROGETTO, IMPORTO_DIVISA,
+        CD_DIVISA, NOTE, STATO, CONDIVISO, DURATA_PROGETTO, LIVELLO, CD_DIPARTIMENTO, FL_PIANO_TRIENNALE, FL_UTILIZZABILE,
+        CD_PROGRAMMA, CD_MISSIONE, PG_PROGETTO_OTHER_FIELD, TRUNC(SYSDATE), aUser, TRUNC(SYSDATE), aUser, 1
+        FROM PROGETTO_SIP
+        WHERE ESERCIZIO = aEsPrec
+        AND LIVELLO = 1
+        AND (PG_PROGETTO, TIPO_FASE) NOT IN
+        (SELECT PG_PROGETTO, TIPO_FASE FROM PROGETTO_SIP WHERE ESERCIZIO = aEs);
+
+    INSERT INTO PROGETTO_SIP
+        (ESERCIZIO, PG_PROGETTO, TIPO_FASE, ESERCIZIO_PROGETTO_PADRE, PG_PROGETTO_PADRE, TIPO_FASE_PROGETTO_PADRE, CD_PROGETTO, DS_PROGETTO,
+        CD_TIPO_PROGETTO, CD_UNITA_ORGANIZZATIVA, CD_RESPONSABILE_TERZO, DT_INIZIO, DT_FINE, DT_PROROGA, IMPORTO_PROGETTO, IMPORTO_DIVISA,
+        CD_DIVISA, NOTE, STATO, CONDIVISO, DURATA_PROGETTO, LIVELLO, CD_DIPARTIMENTO, FL_PIANO_TRIENNALE, FL_UTILIZZABILE,
+        CD_PROGRAMMA, CD_MISSIONE, PG_PROGETTO_OTHER_FIELD, DACR, UTCR, DUVA, UTUV, PG_VER_REC)
+        SELECT aEs, PG_PROGETTO, TIPO_FASE, aEs, PG_PROGETTO_PADRE, TIPO_FASE_PROGETTO_PADRE, CD_PROGETTO, DS_PROGETTO,
+        CD_TIPO_PROGETTO, CD_UNITA_ORGANIZZATIVA, CD_RESPONSABILE_TERZO, DT_INIZIO, DT_FINE, DT_PROROGA, IMPORTO_PROGETTO, IMPORTO_DIVISA,
+        CD_DIVISA, NOTE, STATO, CONDIVISO, DURATA_PROGETTO, LIVELLO, CD_DIPARTIMENTO, FL_PIANO_TRIENNALE, FL_UTILIZZABILE,
+        CD_PROGRAMMA, CD_MISSIONE, PG_PROGETTO_OTHER_FIELD, TRUNC(SYSDATE), aUser, TRUNC(SYSDATE), aUser, 1
+        FROM PROGETTO_SIP
+        WHERE ESERCIZIO = aEsPrec
+        AND LIVELLO = 2
+        AND (PG_PROGETTO, TIPO_FASE) NOT IN
+        (SELECT PG_PROGETTO, TIPO_FASE FROM PROGETTO_SIP WHERE ESERCIZIO = aEs);
+
+    INSERT INTO PROGETTO_SIP
+        (ESERCIZIO, PG_PROGETTO, TIPO_FASE, ESERCIZIO_PROGETTO_PADRE, PG_PROGETTO_PADRE, TIPO_FASE_PROGETTO_PADRE, CD_PROGETTO, DS_PROGETTO,
+        CD_TIPO_PROGETTO, CD_UNITA_ORGANIZZATIVA, CD_RESPONSABILE_TERZO, DT_INIZIO, DT_FINE, DT_PROROGA, IMPORTO_PROGETTO, IMPORTO_DIVISA,
+        CD_DIVISA, NOTE, STATO, CONDIVISO, DURATA_PROGETTO, LIVELLO, CD_DIPARTIMENTO, FL_PIANO_TRIENNALE, FL_UTILIZZABILE,
+        CD_PROGRAMMA, CD_MISSIONE, PG_PROGETTO_OTHER_FIELD, DACR, UTCR, DUVA, UTUV, PG_VER_REC)
+        SELECT aEs, PG_PROGETTO, TIPO_FASE, aEs, PG_PROGETTO_PADRE, TIPO_FASE_PROGETTO_PADRE, CD_PROGETTO, DS_PROGETTO,
+        CD_TIPO_PROGETTO, CD_UNITA_ORGANIZZATIVA, CD_RESPONSABILE_TERZO, DT_INIZIO, DT_FINE, DT_PROROGA, IMPORTO_PROGETTO, IMPORTO_DIVISA,
+        CD_DIVISA, NOTE, STATO, CONDIVISO, DURATA_PROGETTO, LIVELLO, CD_DIPARTIMENTO, FL_PIANO_TRIENNALE, FL_UTILIZZABILE,
+        CD_PROGRAMMA, CD_MISSIONE, PG_PROGETTO_OTHER_FIELD, TRUNC(SYSDATE), aUser, TRUNC(SYSDATE), aUser, 1
+        FROM PROGETTO_SIP
+        WHERE ESERCIZIO = aEsPrec
+        AND LIVELLO = 3
+        AND (PG_PROGETTO, TIPO_FASE) NOT IN
+        (SELECT PG_PROGETTO, TIPO_FASE FROM PROGETTO_SIP WHERE ESERCIZIO = aEs);
+    aMessage := 'Aggiornamento  progetti. Inseriti ';
+    ibmutl200.LOGINF(pg_exec,aMessage,'','');
+end;
+
 procedure AGGIORMENTO_PROGETTI(aEs number, pg_exec number) as
    aTSNow date;
    aUser varchar2(20);
@@ -3755,4 +3814,26 @@ begin
     end if;
  end;
 ----------------------------------------------------------------------------
-end;
+
+procedure JOB_RIBALTAMENTO_ALTRO_PDGP(job number, pg_exec number, next_date date, aEs number) as
+    aTSNow date;
+    aUser varchar2(20);
+    aMessage varchar2(500);
+begin
+    aTSNow:=sysdate;
+    aUser:=IBMUTL200.getUserFromLog(pg_exec);
+    lPgExec := pg_exec;
+
+    -- Aggiorna le info di testata del log
+    IBMUTL210.logStartExecutionUpd(lPgExec, TI_LOG_RIBALTAMENTO_PDGP, job, 'Batch di ribaltamento inizio Anno. Start:'||to_char(aTSNow,'YYYY/MM/DD HH-MI-SS'));
+
+    if aEs = 0 then
+       ibmutl200.logErr(lPgExec,'Esercizio zero non gestito', '', '');
+    else
+       init_ribaltamento_altro( aEs,pg_exec,aMessage);
+       ibmutl200.logInf(pg_exec,aMessage, '', '');
+       ibmutl200.logInf(pg_exec,'Batch  di ribaltamento inizio Anno.', 'End:'||to_char(sysdate,'YYYY/MM/DD HH-MI-SS'), '');
+    end if;
+ end;
+ ----------------------------------------------------------------------------
+ end;