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

Bij verwijderen van objecten/werkplekken/ruimtes die aan de originele tekeningen zijn toegevoegd moet getekend op null worden gezet.

Browse Source 
svn path=/Database/trunk/; revision=7237
This commit is contained in:
Erik Groener
1999-11-11 12:15:48 +00:00
parent 9439b35df7
commit 179fa1ad50
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
PRJ/PRJ_PAC.SRC
View File

@@ -3812,7 +3812,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LOOP
--prj.verwerk_log('Object verwijderd: <20> '||to_char(v_object.ins_deel_key),p_session,p_projectkey);
UPDATE ins_deel
SET ins_deel_getekend = v_object.ins_deel_getekend
SET ins_deel_getekend = NULL
, ins_deel_verwijder = NVL(v_object.ins_deel_verwijder,sysdate)
WHERE ins_deel_key = v_object.ins_deel_key;
aantal_verwijderd := aantal_verwijderd + 1;
@@ -3838,7 +3838,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LOOP
--prj.verwerk_log('Werkplek verwijderd: <20> '||to_char(v_werkplek.prs_werkplek_key),p_session,p_projectkey);
UPDATE prs_werkplek
SET prs_werkplek_getekend = v_werkplek.prs_werkplek_getekend
SET prs_werkplek_getekend = NULL
, prs_werkplek_verwijder = NVL(v_werkplek.prs_werkplek_verwijder,sysdate)
WHERE prs_werkplek_key = v_werkplek.prs_werkplek_key;
aantal_verwijderd := aantal_verwijderd + 1;
@@ -3854,7 +3854,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LOOP
UPDATE alg_ruimte
SET alg_ruimte_getekend = v_ruimte.alg_ruimte_getekend
, alg_ruimte_verwijder = v_ruimte.alg_ruimte_verwijder
, alg_ruimte_verwijder = NVL(v_ruimte.alg_ruimte_verwijder,sysdate)
WHERE alg_ruimte_key = v_ruimte.alg_ruimte_key;
aantal_verwijderd := aantal_verwijderd + 1;
END LOOP;
@@ -3864,8 +3864,8 @@ CREATE OR REPLACE PACKAGE BODY prj AS
LOOP
--prj.verwerk_log('Ruimte verwijderd: <20> '||to_char(v_ruimte.alg_ruimte_key),p_session,p_projectkey);
UPDATE alg_ruimte
SET alg_ruimte_getekend = v_ruimte.alg_ruimte_getekend
, alg_ruimte_verwijder = v_ruimte.alg_ruimte_verwijder
SET alg_ruimte_getekend = NULL
, alg_ruimte_verwijder = NVL(v_ruimte.alg_ruimte_verwijder,sysdate)
WHERE alg_ruimte_key = v_ruimte.alg_ruimte_key;
END LOOP;
END IF;
@@ -3884,6 +3884,7 @@ CREATE OR REPLACE PACKAGE BODY prj AS
verwerk_project_nieuw (SessionId,ProjectKey);
verwerk_project_gewijzigd (SessionId,ProjectKey);
verwerk_project_verwijderd(SessionId,ProjectKey,MergeTekening);
UPDATE prj_project
SET prj_project_eindreal = sysdate
WHERE prj_project_key = ProjectKey;