admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Trigger <prj_t_prj_verwerk_log_B_IU> toegevoegd.

Browse Source 
svn path=/Database/trunk/; revision=7023
This commit is contained in:
Richard Derks
1999-08-25 10:16:16 +00:00
parent bff95a79d8
commit 7af7bc8496
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
PRJ/PRJ_TRI.SRC
View File

@@ -4,6 +4,7 @@
/* Revisie:
**
** 25-08-1999 RD Trigger <prj_t_prj_verwerk_log_B_IU> toegevoegd.
** 23-07-1999 EGR LOG verwijderd en ins_deel. gewijzigd in prj_deel. .
** 22-07-1999 EGR prj_t_prj_ruimte_B_IU, prj_t_prj_deel_b_iu, prj_t_prj_deel_s_b_iu,
** prj_t_prj_deel_s_a_iu, prj_t_prj_werkplek_b_iu aangemaakt.
@@ -70,7 +71,7 @@ BEGIN
** werkplekken verwijderd worden.
*/
BEGIN
IF :new.alg_ruimte_verwijder IS NOT NULL
IF :new.alg_ruimte_verwijder IS NOT NULL
OR (:new.alg_ruimte_verwijder IS NULL AND :old.alg_ruimte_verwijder IS NOT NULL)
THEN
UPDATE prj_werkplek
@@ -91,7 +92,7 @@ BEGIN
SET ins_deel_verwijder = :new.alg_ruimte_verwijder
, ins_deel_getekend = :new.alg_ruimte_getekend
WHERE prj_deel.ins_alg_ruimte_key = :new.alg_ruimte_key
AND prj_deel.prj_project_key = :new.prj_project_key
AND prj_deel.prj_project_key = :new.prj_project_key
AND ins_alg_ruimte_type <> 'W';
END IF;
END;
@@ -195,7 +196,7 @@ BEGIN
WHERE prs_werkplek_key = :new.ins_alg_ruimte_key
AND prj_project_key = :new.prj_project_key;
EXCEPTION
WHEN NO_DATA_FOUND
WHEN NO_DATA_FOUND
THEN APPLICATION_ERROR(-20000,'ins_m174');
END;
ELSIF :new.ins_alg_ruimte_type = 'R'
@@ -302,19 +303,26 @@ BEGIN
,prs_alg_ruimte_key
,'prs_m161');
BEGIN
IF :new.prs_werkplek_verwijder IS NOT NULL
IF :new.prs_werkplek_verwijder IS NOT NULL
OR (:new.prs_werkplek_verwijder IS NULL AND :old.prs_werkplek_verwijder IS NOT NULL)
THEN
UPDATE prj_deel
SET ins_deel_verwijder = :new.prs_werkplek_verwijder
, ins_deel_getekend = :new.prs_werkplek_getekend
WHERE prj_deel.ins_alg_ruimte_key = :new.prs_werkplek_key
AND prj_deel.prj_project_key = :new.prj_project_key
AND prj_deel.prj_project_key = :new.prj_project_key
AND ins_alg_ruimte_type = 'W';
END IF;
END;
END;
/
CREATE_TRIGGER(prj_t_prj_verwerk_log_B_IU)
BEFORE INSERT OR UPDATE ON prj_verwerk_log
FOR EACH ROW
BEGIN
IF :new.prj_verwerk_log_key IS NULL THEN SELECT prj_s_prj_verwerk_log_key.nextval INTO :new.prj_verwerk_log_key FROM DUAL; END IF;
END;
/
#endif // PRJ