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
This commit is contained in:
luca
parent
137797e17c
commit
e3e8cf0f5d
103
crpa/crpa.dsp
103
crpa/crpa.dsp
@ -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
|
|
||||||
@ -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>
|
|
||||||
{{{
|
|
||||||
}}}
|
|
||||||
|
|
||||||
###############################################################################
|
|
||||||
|
|
||||||
613
crpa/pmc.sql
613
crpa/pmc.sql
@ -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,'<Descrizione classe di costo>') 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;
|
|
||||||
/
|
|
||||||
@ -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;
|
|
||||||
@ -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;
|
|
||||||
Loading…
x
Reference in New Issue
Block a user