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

LOG verwijderd en ins_deel. gewijzigd in prj_deel. .

Browse Source 
svn path=/Database/trunk/; revision=6985
This commit is contained in:
Erik Groener
1999-07-23 11:38:02 +00:00
parent b2b8bf8bf1
commit 095c776567
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
PRJ/PRJ_TRI.SRC
View File

@@ -4,6 +4,7 @@
/* Revisie:
**
** 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.
** 20-04-1999 ABO Aangemaakt
@@ -111,7 +112,6 @@ CREATE_TRIGGER(prj_t_prj_deel_B_IU)
BEFORE INSERT OR UPDATE ON prj_deel
FOR EACH ROW
BEGIN
LOG('Begin PRJ_T_PRJ_DEEL_B_IU');
UPDATE_PRIMARY_KEY(ins_deel_key
,ins_s_ins_inst_keys);
CHECK_CADMUTATIE2(ins_deel_verwijder
@@ -239,7 +239,6 @@ BEGIN
Dummy := fac_p_fac_save_restore.SavePrimaryKey('PRJ_DEEL_CASCADE', :new.ins_deel_key);
END;
END IF;
LOG('Eind PRJ_T_PRJ_DEEL_B_IU');
END;
/
CREATE_TRIGGER(prj_t_prj_deel_S_A_IU)
@@ -259,7 +258,7 @@ BEGIN
LOOP
UPDATE prj_deel
SET ins_deel_verwijder = SYSDATE
WHERE ins_deel.ins_deel_parent_key = PrimaryKey
WHERE prj_deel.ins_deel_parent_key = PrimaryKey
AND prj_project_key = ProjectKey
AND ins_deel_verwijder IS NULL;
IndexNr := IndexNr + 1;
@@ -282,7 +281,7 @@ BEGIN
FROM prj_deel
WHERE ins_deel_key = PrimaryKey
AND prj_project_key = ProjectKey)
WHERE ins_deel.ins_deel_parent_key = PrimaryKey
WHERE prj_deel.ins_deel_parent_key = PrimaryKey
AND prj_project_key = ProjectKey;
IndexNr := IndexNr + 1;
PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('PRJ_DEEL_CASCADE', IndexNr);