From e3e8cf0f5d6f1001c0f5a32b21a3b2509f0ed2ef Mon Sep 17 00:00:00 2001 From: luca Date: Mon, 19 Jul 2004 14:57:46 +0000 Subject: [PATCH] Patch level :2.1 crpa personalizzazione Files correlati : Ricompilazione Demo : [ ] Commento :rimossi files inutili nella dir crpa git-svn-id: svn://10.65.10.50/trunk@12247 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- crpa/crpa.dsp | 103 -------- crpa/crpa.dsw | 29 --- crpa/pmc.sql | 613 ---------------------------------------------- crpa/ts_pmc.sql | 4 - crpa/user_pmc.sql | 8 - 5 files changed, 757 deletions(-) delete mode 100755 crpa/crpa.dsp delete mode 100755 crpa/crpa.dsw delete mode 100755 crpa/pmc.sql delete mode 100755 crpa/ts_pmc.sql delete mode 100755 crpa/user_pmc.sql diff --git a/crpa/crpa.dsp b/crpa/crpa.dsp deleted file mode 100755 index 0e6702092..000000000 --- a/crpa/crpa.dsp +++ /dev/null @@ -1,103 +0,0 @@ -# Microsoft Developer Studio Project File - Name="crpa" - Package Owner=<4> -# Microsoft Developer Studio Generated Build File, Format Version 6.00 -# ** DO NOT EDIT ** - -# TARGTYPE "Win32 (x86) Console Application" 0x0103 - -CFG=crpa - Win32 Debug -!MESSAGE This is not a valid makefile. To build this project using NMAKE, -!MESSAGE use the Export Makefile command and run -!MESSAGE -!MESSAGE NMAKE /f "crpa.mak". -!MESSAGE -!MESSAGE You can specify a configuration when running NMAKE -!MESSAGE by defining the macro CFG on the command line. For example: -!MESSAGE -!MESSAGE NMAKE /f "crpa.mak" CFG="crpa - Win32 Debug" -!MESSAGE -!MESSAGE Possible choices for configuration are: -!MESSAGE -!MESSAGE "crpa - Win32 Release" (based on "Win32 (x86) Console Application") -!MESSAGE "crpa - Win32 Debug" (based on "Win32 (x86) Console Application") -!MESSAGE - -# Begin Project -# PROP AllowPerConfigDependencies 0 -# PROP Scc_ProjName "" -# PROP Scc_LocalPath "" -CPP=cl.exe -RSC=rc.exe - -!IF "$(CFG)" == "crpa - Win32 Release" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 0 -# PROP BASE Output_Dir "Release" -# PROP BASE Intermediate_Dir "Release" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 0 -# PROP Output_Dir "Release" -# PROP Intermediate_Dir "Release" -# PROP Target_Dir "" -# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c -# ADD CPP /nologo /W3 /GX /O2 /I "c:\oracle\ora90\oci\include" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /FD /c -# SUBTRACT CPP /YX /Yc /Yu -# ADD BASE RSC /l 0x410 /d "NDEBUG" -# ADD RSC /l 0x410 /d "NDEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 - -!ELSEIF "$(CFG)" == "crpa - Win32 Debug" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 1 -# PROP BASE Output_Dir "Debug" -# PROP BASE Intermediate_Dir "Debug" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 1 -# PROP Output_Dir "Debug" -# PROP Intermediate_Dir "Debug" -# PROP Ignore_Export_Lib 0 -# PROP Target_Dir "" -# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c -# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /I "c:\oracle\ora90\oci\include" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /FR /FD /GZ /c -# SUBTRACT CPP /X /YX /Yc /Yu -# ADD BASE RSC /l 0x410 /d "_DEBUG" -# ADD RSC /l 0x410 /d "_DEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib c:\oracle\ora90\oci\lib\msvc\oraocci9.lib /nologo /subsystem:console /debug /machine:I386 /out:"d:\u\cris\v17.aga\exe\crpa.exe" /pdbtype:sept - -!ENDIF - -# Begin Target - -# Name "crpa - Win32 Release" -# Name "crpa - Win32 Debug" -# Begin Group "Source Files" - -# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat" -# Begin Source File - -SOURCE=.\Crpa.cpp -# End Source File -# End Group -# Begin Group "Header Files" - -# PROP Default_Filter "h;hpp;hxx;hm;inl" -# End Group -# Begin Group "Resource Files" - -# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" -# End Group -# End Target -# End Project diff --git a/crpa/crpa.dsw b/crpa/crpa.dsw deleted file mode 100755 index aa06d302b..000000000 --- a/crpa/crpa.dsw +++ /dev/null @@ -1,29 +0,0 @@ -Microsoft Developer Studio Workspace File, Format Version 6.00 -# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! - -############################################################################### - -Project: "crpa"=.\crpa.dsp - Package Owner=<4> - -Package=<5> -{{{ -}}} - -Package=<4> -{{{ -}}} - -############################################################################### - -Global: - -Package=<5> -{{{ -}}} - -Package=<3> -{{{ -}}} - -############################################################################### - diff --git a/crpa/pmc.sql b/crpa/pmc.sql deleted file mode 100755 index d77668a3a..000000000 --- a/crpa/pmc.sql +++ /dev/null @@ -1,613 +0,0 @@ -CREATE TABLE PRACTOR_LOG ( - LOG_ID NUMBER (10) NOT NULL, - TIPO VARCHAR2 (25) NOT NULL, - DATA DATE NOT NULL, - UTENTE VARCHAR2 (240) NOT NULL, - TESTO VARCHAR2 (240), - CONSTRAINT PRACTOR_LOGXP - PRIMARY KEY ( LOG_ID ) ) -/ - -CREATE OR REPLACE PROCEDURE prcLog (vMessage PRACTOR_LOG.testo%TYPE) IS vErrMsg VARCHAR2(100); -BEGIN - INSERT INTO PRACTOR_LOG VALUES (note_seq.NEXTVAL, '-', SYSDATE, USER, vMessage); --- dbms_output.put_line(vMessage); - EXCEPTION - WHEN OTHERS THEN - vErrMsg := SQLERRM(SQLCODE); - INSERT INTO PRACTOR_LOG VALUES (note_seq.NEXTVAL, '-', SYSDATE, USER, vErrMsg); -END prcLog; -/ - -CREATE TABLE SMC_PRJDOC_T146 ( - UNICO NUMBER, - ARCH VARCHAR2 (10) NOT NULL, - UNICARCH NUMBER NOT NULL, - DTATRASF DATE, - TIPDOC VARCHAR2 (2), - DESDOC VARCHAR2 (100), - NUMDOC VARCHAR2 (20), - DTADOC DATE, - NUMDOCFIS VARCHAR2 (20), - DTADOCFIS DATE, - DTAPERT DATE, - AZIENDA VARCHAR2 (3), - TIPANA VARCHAR2 (1), - CODCF VARCHAR2 (10), - CODVAL VARCHAR2 (3), - CONSTRAINT T146XP - PRIMARY KEY ( ARCH, UNICARCH ) ) -/ - -ALTER TABLE SMC_PRJDOC_T146 ADD CONSTRAINT R011146 - FOREIGN KEY (CODVAL) - REFERENCES PMC.VL_T011 (C_VL) - / - - CREATE TABLE SMC_PRJDET_T147 ( - UNICO NUMBER, - ARCH VARCHAR2 (10) NOT NULL, - UNICARCH NUMBER NOT NULL, - UNICRIGA NUMBER NOT NULL, - CODART VARCHAR2 (15), - DESART VARCHAR2 (70), - QUANT NUMBER, - UNMIS VARCHAR2 (3), - CONSAL VARCHAR2 (1), - IMPVAL NUMBER, - NUMCOMM VARCHAR2 (15), - CODATTCM VARCHAR2 (10), - ELSPESA VARCHAR2 (10), - CENTCOST VARCHAR2 (6), - DTACONS DATE, - RIFRICH VARCHAR2 (20), - RIFORD VARCHAR2 (20), - RIFBOL VARCHAR2 (20), - CODVAL VARCHAR2 (3), - STATO_IMP VARCHAR2 (1), - SEGNO VARCHAR2 (1), - CONSTRAINT T147XP - PRIMARY KEY ( ARCH, UNICARCH, UNICRIGA ) ) - -/ - - ALTER TABLE SMC_PRJDET_T147 ADD CONSTRAINT C146147 - FOREIGN KEY (ARCH, UNICARCH) - REFERENCES PMC.SMC_PRJDOC_T146 (ARCH, UNICARCH) ON DELETE CASCADE - -/ - -ALTER TABLE SMC_PRJDET_T147 ADD CONSTRAINT R011147 - FOREIGN KEY (CODVAL) - REFERENCES PMC.VL_T011 (C_VL) - - / - -CREATE OR REPLACE TRIGGER SMC_PRJDET_G147_01 BEFORE INSERT ON SMC_PRJDET_T147 FOR EACH ROW -DECLARE -TIPO SMC_PRJDOC_T146.TIPDOC%TYPE; -ATTIVITA SMC_PRJDET_T147.CODATTCM%TYPE; -PROJ PROG_T056.C_PROG%TYPE; -COSTO COSTO_AGRT_T022.P_COSTO%TYPE; -CAMBIORIF VL_T011.I_CB_CONS%TYPE; -CAMBIOPRJ VL_T011.I_CB_CONS%TYPE; -VALPRJ VL_T011.C_VL%TYPE; -ERRMSG PRACTOR_LOG.TESTO%TYPE; -baseERRMSG PRACTOR_LOG.TESTO%TYPE; -TCLASSE COSTO_AGRT_T022.T_CLASSE%TYPE; -numcosti NUMERIC; -CODCURVA CRV_DSBN_T013.C_CRV%TYPE; - -DESSPESA CLASSE_DI_COSTO_T043.S_CLASSE%TYPE; -BASEINI DATE; -BASEFIN DATE; -FORINI DATE; -FORFIN DATE; -PELMNT STRU_T087.P_ELMNT%TYPE; -CBS PROG_T056.C_STRU%TYPE; -STIMA COSTO_AGRT_T022.I_STIMA_CMPL%TYPE; -BDG_REV COSTO_AGRT_T022.I_BDG_REV%TYPE; -COMM COSTO_AGRT_T022.I_COMM%TYPE; -ACEM COSTO_AGRT_T022.I_ACEM%TYPE; -CONS COSTO_AGRT_T022.I_CONS%TYPE; -CNTBZ COSTO_AGRT_T022.I_CNTBZ%TYPE; - -BEGIN -Prclog('-- Nuovo documento -----------------------------------------------------------------------------------'); -Prclog('-- ARCH: '||:NEW.ARCH); -Prclog('-- UNICARCH: '||:NEW.UNICARCH); -Prclog('-- RIGA: '||:NEW.UNICRIGA); --- Tipo documento -SELECT NVL(TIPDOC,'XX') INTO TIPO FROM SMC_PRJDOC_T146 -WHERE - ARCH = :NEW.ARCH -AND UNICARCH = :NEW.UNICARCH; -Prclog('Tipo documento: '||TIPO); - -IF TIPO <> 'XX' THEN - -- Ottengo il codice interno del progetto, il codice della valuta e il codice della - -- CBS di progetto. Il campo NUMCOMM del documento contiene il nome - -- del progetto (campo S_PROG_NOM della tabella PROG_T056). - -- Il nome Š univoco. - SELECT - C_PROG, NVL(C_VL, 'EUR'), C_STRU - INTO - PROJ, VALPRJ, CBS - FROM - PROG_T056 - WHERE - S_PROG_NOM = :NEW.NUMCOMM; - -- log - Prclog('Codice progetto: '||PROJ); - Prclog('Codice valuta: '||VALPRJ); - Prclog('Codice CBS: '||CBS); - - IF PROJ >= 0 THEN - -- CODICE COSTO - -- Controllo l'esistenza di un costo che abbia l'incrocio - -- corretto fra voce di spesa e attivit… - -- ELSPESA <--> S_NOME (voce dispesa ovvero nome del costo) - -- CODATTCM <--> TASK_UID (codice attivit…) - SELECT - NVL(COUNT(*),0) - INTO - NUMCOSTI - FROM - COSTO_AGRT_T022 - WHERE - C_PROG = PROJ - AND S_NOME = :NEW.ELSPESA - AND TASK_UID = :NEW.CODATTCM; - -- 'SELECT NVL(P_COSTO,-1) INTO COSTO FROM COSTO_AGRT_T022 WHERE C_PROG = '||PROJ||' AND S_NOME = '||:NEW.ELSPESA||' AND TASK_UID = '||:NEW.CODATTCM||';'; - - IF NUMCOSTI = 0 THEN - -- Valori del costo - STIMA := 0; - BDG_REV := 0; - COMM := 0; - ACEM := 0; - CONS := 0; - CNTBZ := 0; - Prclog('Manca il costo ('||:NEW.ELSPESA||'), procedo all''inserimento.'); - -- Codice costo - SELECT S022_P_COSTO.NEXTVAL INTO COSTO FROM dual; - Prclog('Nuovo codice costo: '||COSTO); - -- CODICE CURVA LINEARE (di default uso la curva lineare del progetto) - -- Il campo A_CRV_SIS indica il tipo di curva di sistema. - SELECT NVL(C_CRV, -1) INTO CODCURVA FROM CRV_DSBN_T013 - WHERE - C_PROG = PROJ - AND A_CRV_SIS = 4; - Prclog('Codice curva lineare: '||CODCURVA); - -- DESCRIZIONE VOCE DI COSTO - -- Il campo nome contiene il codice della classe di costo, - -- Il campo descrizione contiene la descrizione della classe di costo - SELECT - NVL(S_CLASSE,'') INTO DESSPESA - FROM - CLASSE_DI_COSTO_T043 - WHERE - C_CLASSE = :NEW.elspesa; - Prclog('Descrizione classe di costo: '||DESSPESA); - -- DATE RELATIVI ALL'ATTIVITA DI PROJECT - SELECT - NVL(TASK_BASE_START, SYSDATE()), NVL(TASK_BASE_FINISH, SYSDATE()), NVL(TASK_START_DATE, SYSDATE()), NVL(TASK_FINISH_DATE, SYSDATE()) - INTO - BASEINI, BASEFIN, FORINI, FORFIN - FROM - MSP_TASKS - WHERE - PROJ_ID = PROJ - AND TASK_UID = :NEW.CODATTCM; - Prclog('Inizio: '||BASEINI||' Fine: '||BASEFIN||' Inizio forecast: '||FORINI||' Fine forecast: '||FORFIN); - -- CAMBIO DEL PROGETTO - SELECT NVL(I_CB_CONS, 1) INTO CAMBIOPRJ FROM VL_T011 WHERE C_VL = VALPRJ; - Prclog('Cambio: '||CAMBIOPRJ); - - -- NODO CBS - -- Seleziono il nodo della CBS a cui associare il costo. - -- I nodi della CBS sono stati strutturati in modo che - -- rappresentino le voci di spesa del piano dei costi. - -- I primi due caratteri del nome del costo coincidono - -- con il nome della classe di costo inserita nella CBS. - -- es. voce di spesa (ELSPESA): 211 -- Emolumenti amministratori - -- Nella CBS andr… agganciata al nodo (C_ELMNT) 21 -- Stipendi - -- Si suppone che C_ELMNT sia univoco nella CBS. Non esiste per• - -- un indice nel database. - SELECT NVL(P_ELMNT,-1), NVL(T_CLASSE, 'C') INTO PELMNT, TCLASSE FROM - STRU_T087 - WHERE - C_PROG = PROJ - AND C_STRU = CBS - AND C_ELMNT = SUBSTR(:NEW.ELSPESA,1,2); - --PRCLOG('SELECT NVL(P_ELMNT,-1) INTO PELMNT FROM STRU_T087 WHERE C_PROG = '||PROJ||' AND C_STRU = '''||CBS||''' AND C_ELMNT = SUBSTR('''||:NEW.ELSPESA||''',1,2);'); - Prclog('Nodo ('||SUBSTR(:NEW.ELSPESA,1,2)||'): '||PELMNT); - IF PELMNT = -1 THEN - -- ATTACCO IL COSTO ALLA ROOT - SELECT NVL(P_ELMNT,-1) INTO PELMNT FROM - STRU_T087 - WHERE - C_PROG = PROJ - AND C_STRU = CBS - AND P_ELMNT_PDR IS NULL; - TCLASSE := 'C'; - Prclog('Nodo ('||SUBSTR(:NEW.ELSPESA,1,2)||') non trovato. Root: '||PELMNT); - - END IF; - IF PELMNT >= 0 THEN - -- Inserimento - INSERT INTO COSTO_AGRT_T022 - (C_PROG, P_COSTO, S_DES, C_VL, C_CRV, D_INI_ORIG, D_FIN_ORIG, D_INI_REVIS, D_FIN_REVIS, PROJ_UID, TASK_UID, F_EARNED, S_NOME, T_CLASSE) - VALUES - (PROJ, COSTO, DESSPESA, VALPRJ, CODCURVA, BASEINI, BASEFIN, FORINI, FORFIN, PROJ, :NEW.CODATTCM, 0, :NEW.ELSPESA, TCLASSE); - -- ASSOCIAZIONE ALLA CBS - INSERT INTO ASCN_STRU_T021 - (C_PROG, P_ELMNT, P_COSTO) - VALUES - (PROJ, PELMNT, COSTO); - ELSE - Prclog('Impossibile trovare un nodo nella CBS per il costo ('||SUBSTR(:NEW.ELSPESA,1,2)||').'); - END IF; -- pelmnt >= 0 - - ELSE -- NUMCOSTI = 0 - - -- il costo esiste: ottengo il codice, il tipo e la stima a completamento - SELECT - NVL(P_COSTO, -1), NVL(T_CLASSE,'C'), NVL(I_STIMA_CMPL, 0), NVL(I_BDG_REV, 0), - NVL(I_COMM, 0), NVL(I_ACEM, 0), NVL(I_CONS, 0), NVL(CNTBZ, 0) - INTO - COSTO, TCLASSE, STIMA, BDG_REV, - COMM, ACEM, CONS, CNTBZ - FROM - COSTO_AGRT_T022 - WHERE - C_PROG = PROJ - AND S_NOME = :NEW.ELSPESA - AND TASK_UID = :NEW.CODATTCM; - Prclog('Codice costo: '||COSTO); - END IF; - - IF COSTO >= 0 THEN - Prclog('Aggiornamento valori del costo ('||COSTO||').'); - -- CAMBIO DEL PROGETTO - SELECT NVL(I_CB_CONS, 0) INTO CAMBIOPRJ FROM VL_T011 WHERE C_VL = VALPRJ; - Prclog('Valore cambio: '||CAMBIOPRJ ); - IF CAMBIOPRJ > 0 THEN - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - -- ORDINE DI ACQUISTO - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - IF TIPO = 'OA' THEN - Prclog ('Tipo documento: OA'); - Prclog ('Importo: '||NVL(:NEW.IMPVAL, 0)); - - UPDATE COSTO_AGRT_T022 - SET - I_COMM = NVL(I_COMM,0) + NVL(:NEW.IMPVAL, 0), - I_COMM_VL = NVL(I_COMM_VL,0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_COMM_CURR = NVL(I_COMM_CURR,0) + NVL(:NEW.IMPVAL, 0), - I_COMM_CURR_VL = NVL(I_COMM_CURR_VL,0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - - COMM := COMM + NVL(:NEW.IMPVAL, 0); - Prclog('Impeganto: '||COMM||' Budget: '||BDG_REV||' Stima a completamento: '||STIMA ); - - -- Se l'impegnato supera il budget aumento la stima a finire - IF COMM > STIMA THEN - Prclog('Aggiorno la stima a completamento.'); - UPDATE COSTO_AGRT_T022 - SET - I_STIMA_CMPL = COMM, - I_STIMA_CMPL_VL = COMM * CAMBIOPRJ - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - END IF; - - :NEW.STATO_IMP := 'I'; - END IF; - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - -- BOLLA DI ENTRATA - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - IF TIPO = 'BA' THEN - Prclog ('Tipo documento: BA'); - Prclog ('Importo: '||NVL(:NEW.IMPVAL, 0)); - - UPDATE COSTO_AGRT_T022 - SET - I_ACEM = NVL(I_ACEM, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_VL = NVL(I_ACEM_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_ACEM_CURR = NVL(I_ACEM_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_CURR_VL = NVL(I_ACEM_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - - ACEM := ACEM + NVL(:NEW.IMPVAL, 0); - Prclog('Maturato: '||ACEM||' Budget: '||BDG_REV||' Stima a completamento: '||STIMA ); - - -- Se l'impegnato supera il budget aumento la stima a finire - IF ACEM > STIMA THEN - Prclog('Aggiorno la stima a completamento.'); - UPDATE COSTO_AGRT_T022 - SET - I_STIMA_CMPL = ACEM, - I_STIMA_CMPL_VL = ACEM * CAMBIOPRJ - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - END IF; - - :NEW.STATO_IMP := 'I'; - END IF; - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - -- FATTURA DI ACQUISTO - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - IF TIPO = 'FA' THEN - Prclog ('FA'); - Prclog ('IMPORTO: '||NVL(:NEW.IMPVAL, 0)); - - UPDATE COSTO_AGRT_T022 - SET - I_CONS = NVL(I_CONS, 0) + NVL(:NEW.IMPVAL, 0), - I_CONS_VL = NVL(I_CONS_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CONS_CURR = NVL(I_CONS_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_CONS_CURR_VL = NVL(I_CONS_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - - CONS := CONS + NVL(:NEW.IMPVAL, 0); - Prclog('Fatturato: '||CONS||' Budget: '||BDG_REV||' Stima a completamento: '||STIMA ); - - -- Se l'impegnato supera il budget aumento la stima a finire - IF CONS > STIMA THEN - Prclog('Aggiorno la stima a completamento.'); - UPDATE COSTO_AGRT_T022 - SET - I_STIMA_CMPL = CONS, - I_STIMA_CMPL_VL = CONS * CAMBIOPRJ - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - END IF; - - :NEW.STATO_IMP := 'I'; - END IF; - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - -- Movimento dalla contabilit… analitica - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - IF TIPO = 'AN' THEN - Prclog ('Movimento dalla contabilit… analitica.'); - Prclog ('Importo: '||NVL(:NEW.IMPVAL, 0)); - Prclog ('Segno: '||NVL(:NEW.IMPVAL, 0)); - Prclog ('Classe: '||TCLASSE); - IF TCLASSE = 'C' THEN - -- Costo - IF NVL(:NEW.SEGNO, 'D') = 'D' THEN - -- Dare - Prclog ('Operazione: sommo contabilizzato e maturato.'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_ACEM = NVL(I_ACEM, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_VL = NVL(I_ACEM_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_ACEM_CURR = NVL(I_ACEM_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_CURR_VL = NVL(I_ACEM_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) + NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - ELSE - -- Avere - Prclog ('Operazione: sottraggo contabilizzato e maturato.'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_ACEM = NVL(I_ACEM, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_VL = NVL(I_ACEM_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_ACEM_CURR = NVL(I_ACEM_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_CURR_VL = NVL(I_ACEM_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) + NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - END IF; - ELSE - -- Ricavo - IF NVL(:NEW.SEGNO, 'D') = 'D' THEN - -- Dare - Prclog ('Operazione: sottraggo contabilizzato e maturato.'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_ACEM = NVL(I_ACEM, 0) - NVL(:NEW.IMPVAL, 0), - I_ACEM_VL = NVL(I_ACEM_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_ACEM_CURR = NVL(I_ACEM_CURR, 0) - NVL(:NEW.IMPVAL, 0), - I_ACEM_CURR_VL = NVL(I_ACEM_CURR_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) - NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - ELSE - -- Avere - Prclog ('Operazione: sommo contabilizzato e maturato.'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_ACEM = NVL(I_ACEM, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_VL = NVL(I_ACEM_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_ACEM_CURR = NVL(I_ACEM_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_ACEM_CURR_VL = NVL(I_ACEM_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) + NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - END IF; - END IF; -- T_CLASSE = 'C' - --- CNTBZ := CNTBZ + NVL(:NEW.IMPVAL, 0); --- ACEM := ACEM + NVL(:NEW.IMPVAL, 0); --- Prclog('Contabilizzato: '||CNTBZ||' Maturato: '||ACEM||' Budget: '||BDG_REV||' Stima a completamento: '||STIMA ); --- -- Se il maturato o il contabilizzato superano il budget aumento la stima a finire --- IF CNTBZ < ACEM THEN --- CNTBZ := ACEM; --- END IF; --- IF (CNTBZ > STIMA) THEN --- Prclog('Aggiorno la stima a completamento.'); --- UPDATE COSTO_AGRT_T022 --- SET --- I_STIMA_CMPL = CNTBZ, --- I_STIMA_CMPL_VL = CNTBZ * CAMBIOPRJ --- WHERE --- C_PROG = PROJ --- AND P_COSTO = COSTO; --- END IF; - - :NEW.STATO_IMP := 'I'; - - END IF; - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - -- Movimento dalla contabilit… analitica derivante da un documento. - -- ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** - IF TIPO = 'FM' THEN - Prclog ('Movimento dalla contabilit… analitica derivante da un documento.'); - Prclog ('Importo: '||NVL(:NEW.IMPVAL, 0)); - Prclog ('Segno: '||NVL(:NEW.IMPVAL, 0)); - Prclog ('Classe: '||TCLASSE); - - IF TCLASSE = 'C' THEN - -- Costo - IF NVL(:NEW.SEGNO, 'D') = 'D' THEN - -- Dare - Prclog ('Contabilit… analitica, Costo, Dare (+).'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) + NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - ELSE - -- Avere - Prclog ('Contabilit… analitica, Costo, Avere (-).'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) + NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - END IF; - ELSE - -- Ricavo - IF NVL(:NEW.SEGNO, 'D') = 'D' THEN - -- Dare - Prclog ('Contabilit… analitica, Ricavo, Dare (-).'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) - NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) - NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) - NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - ELSE - -- Avere - Prclog ('Contabilit… analitica, Ricavo, Avere (+).'); - UPDATE COSTO_AGRT_T022 - SET - I_CNTBZ = NVL(I_CNTBZ, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_VL = NVL(I_CNTBZ_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - I_CNTBZ_CURR = NVL(I_CNTBZ_CURR, 0) + NVL(:NEW.IMPVAL, 0), - I_CNTBZ_CURR_VL = NVL(I_CNTBZ_CURR_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ, - - I_STIMA_CMPL = NVL(I_STIMA_CMPL, 0) + NVL(:NEW.IMPVAL, 0), - I_STIMA_CMPL_VL = NVL(I_STIMA_CMPL_VL, 0) + NVL(:NEW.IMPVAL, 0) * CAMBIOPRJ - - WHERE - C_PROG = PROJ - AND P_COSTO = COSTO; - END IF; - END IF; -- T_CLASSE = 'C' - --- CNTBZ := CNTBZ + NVL(:NEW.IMPVAL, 0); --- --- Prclog('Contabilizzato: '||CNTBZ||' Budget: '||BDG_REV||' Stima a completamento: '||STIMA ); --- -- Se il maturato o il contabilizzato superano il budget aumento la stima a finire --- IF (CNTBZ > STIMA) THEN --- Prclog('Aggiorno la stima a completamento.'); --- UPDATE COSTO_AGRT_T022 --- SET --- I_STIMA_CMPL = CNTBZ, --- I_STIMA_CMPL_VL = CNTBZ * CAMBIOPRJ --- WHERE --- C_PROG = PROJ --- AND P_COSTO = COSTO; --- END IF; - - :NEW.STATO_IMP := 'I'; - END IF; -- TIPO = 'FM - ELSE - PrcLog('Cambio non trovato ('||VALPRJ||').'); - END IF; -- CAMBIOPRJ > 0 - END IF; - ELSE - Prclog ('Il nome del progetto ('||:NEW.NUMCOMM||') non Š stato trovato.'); - END IF; -- PROJ > 0 -else -- Tipo documento - Prclog ('Manca il tipo documento.'); -END IF; -- Tipo documento -EXCEPTION - WHEN OTHERS THEN - Prclog ('ERRORE: '|| SQLERRM(SQLCODE)); - -END; -/ diff --git a/crpa/ts_pmc.sql b/crpa/ts_pmc.sql deleted file mode 100755 index 99603e3bf..000000000 --- a/crpa/ts_pmc.sql +++ /dev/null @@ -1,4 +0,0 @@ -create tablespace pmc001td -datafile 'g:\oracle\appdata\crpa\pmc001td.dbf' size 32M; -create tablespace pmc001ti -datafile 'g:\oracle\appdata\crpa\pmc001ti.dbf' size 10M; diff --git a/crpa/user_pmc.sql b/crpa/user_pmc.sql deleted file mode 100755 index 1fddb1ede..000000000 --- a/crpa/user_pmc.sql +++ /dev/null @@ -1,8 +0,0 @@ -create user pmc -identified by pmc -default tablespace pmc001td -quota unlimited on pmc001td -temporary tablespace temp; -alter user pmc -quota unlimited on pmc001ti; -grant connect, resource to pmc;