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

prj_t_prj_ruimte_b_iu werkend gemaakt voor gecascadeerd verwijderen van ruimte, werkplek, object.

Browse Source 
svn path=/Database/trunk/; revision=7031
This commit is contained in:
Erik Groener
1999-08-27 07:31:58 +00:00
parent 8035b8f645
commit 94c657c2bd
2 changed files with 384 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
PRJ/PRJ_TRI.SRC
View File

@@ -4,6 +4,7 @@
/* Revisie:
**
** 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.
** 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,
@@ -42,28 +43,24 @@ BEGIN
CHECK_CADMUTATIE(alg_ruimte_verwijder
,alg_ruimte_getekend
,'alg_m245');
/*
** Als er een INV-deel bestaat in de te verwijderen ruimte
** dan mag de ruimte niet verwijderd worden.
*/
IF :new.alg_ruimte_verwijder IS NOT NULL
IF :old.alg_ruimte_key IS NOT NULL
AND :new.alg_ruimte_verwijder IS NULL
THEN
DECLARE
dummy CHAR;
BEGIN
SELECT 'x'
INTO dummy
FROM prj_deel
WHERE ins_alg_ruimte_key = :new.alg_ruimte_key
FROM prj_werkplek
WHERE prs_alg_ruimte_key = :new.alg_ruimte_key
AND prj_project_key = :new.prj_project_key
AND ins_alg_ruimte_type = 'R'
AND ins_deel_verwijder IS NULL;
APPLICATION_ERROR(-20000, 'prs_m055');
AND prs_werkplek_verwijder IS NULL;
APPLICATION_ERROR(-20000, 'prs_m034');
EXCEPTION
WHEN NO_DATA_FOUND
THEN NULL;
WHEN TOO_MANY_ROWS
THEN APPLICATION_ERROR(-20000, 'prs_m055');
THEN APPLICATION_ERROR(-20000, 'prs_m034');
END;
END IF;
/*
@@ -76,6 +73,7 @@ BEGIN
THEN
UPDATE prj_werkplek
SET prs_werkplek_verwijder = :new.alg_ruimte_verwijder
, prs_werkplek_getekend = :new.alg_ruimte_getekend
WHERE prj_werkplek.prs_alg_ruimte_key = :new.alg_ruimte_key
AND prj_werkplek.prj_project_key = :new.prj_project_key;
END IF;