root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :2.1 crpa personalizzazione

Browse Source 
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 2004-07-19 14:57:46 +00:00
parent 137797e17c
commit e3e8cf0f5d
5 changed files with 0 additions and 757 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
crpa/crpa.dsp
View File

@ -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

29
crpa/crpa.dsw
View File

@ -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
View File

@ -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;
/

4
crpa/ts_pmc.sql
View File

@ -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;

8
crpa/user_pmc.sql
View File

@ -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;