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

#2070

Browse Source 
Aan trigger prj_t_prj_ruimte_b_iu controle op alg_srtruimte_key toegevoegd om bij wijziging van ruimte-contour te voorkomen dat er op aanwezigheid van werkplekken wordt gecontroleerd.

svn path=/Database/trunk/; revision=7121
This commit is contained in:
Erik Groener
1999-09-28 11:06:50 +00:00
parent ad85b29a10
commit 8637bf951c
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
PRJ/PRJ_TRI.SRC
View File

@@ -4,6 +4,7 @@
/* Revisie: /* Revisie:
** **
** 28-09-1999 EGR prj_t_prj_ruimte_b_iu moet gebruik maken van alg_srtruimte_key bij controle van werkplekken.
** 27-08-1999 EGR prj_t_prj_ruimte_b_iu werkend gemaakt voor gecascadeerd verwijderen van ruimte, werkplek, object. ** 27-08-1999 EGR prj_t_prj_ruimte_b_iu werkend gemaakt voor gecascadeerd verwijderen van ruimte, werkplek, object.
** 25-08-1999 RD Trigger <prj_t_prj_verwerk_log_B_IU> toegevoegd. ** 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. . ** 23-07-1999 EGR LOG verwijderd en ins_deel. gewijzigd in prj_deel. .
@@ -45,16 +46,23 @@ BEGIN
,'alg_m245'); ,'alg_m245');
IF :old.alg_ruimte_key IS NOT NULL IF :old.alg_ruimte_key IS NOT NULL
AND :new.alg_ruimte_verwijder IS NULL AND :new.alg_ruimte_verwijder IS NULL
AND :old.alg_srtruimte_key <> :new.alg_srtruimte_key
THEN THEN
DECLARE DECLARE
dummy CHAR; dummy CHAR;
BEGIN BEGIN
SELECT 'x' SELECT 'x'
INTO dummy INTO dummy
FROM prj_werkplek FROM prj_werkplek PRS_W
WHERE prs_alg_ruimte_key = :new.alg_ruimte_key , alg_srtruimte SR_1
, alg_srtruimte SR_2
WHERE SR_1.alg_srtruimte_key = :old.alg_srtruimte_key
AND SR_2.alg_srtruimte_key = :new.alg_srtruimte_key
AND SR_1.prs_bevat_werkplek = 1
AND SR_2.prs_bevat_werkplek IS NULL
AND prs_werkplek_verwijder IS NULL
AND prs_alg_ruimte_key = :new.alg_ruimte_key
AND prj_project_key = :new.prj_project_key AND prj_project_key = :new.prj_project_key
AND prs_werkplek_verwijder IS NULL;
APPLICATION_ERROR(-20000, 'prs_m034'); APPLICATION_ERROR(-20000, 'prs_m034');
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND