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

HOUT#17907

Browse Source 
svn path=/Database/trunk/; revision=10334
This commit is contained in:
Peter Feij
2010-06-15 13:44:08 +00:00
parent 61991dcbbc
commit 4d1eb6ca2c
1 changed files with 25 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
PRJ/PRJ_PAC.SRC
View File

@@ -1,8 +1,8 @@
#ifdef PRJ
/* PRJ_PAC.SRC
*
* $Revision: 57 $
* $Modtime: 28-11-08 17:18 $
* $Revision: 58 $
* $Modtime: 15-06-10 15:35 $
*/
/*
CODE COMMENTS, CONSIDERATIONS
@@ -424,7 +424,7 @@ AS
(prj_perslidwerkplek_key, prs_perslidwerkplek_key,
prs_perslid_key, prj_werkplek_key,
prj_perslidwerkplek_bezetting)
SELECT NULL, pwx.prs_perslidwerkplek_key,
SELECT NULL, pwx.prs_perslidwerkplek_key,
pwx.prs_perslid_key, pwx.prj_werkplek_key,
pwx.prj_perslidwerkplek_bezetting
FROM prj_perslidwerkplek pwx, prj_werkplek wx, prj_ruimte rx
@@ -508,23 +508,28 @@ AS
---------------------------------------
PROCEDURE prj_move_werkplek (pwerkplekkey IN NUMBER, pruimtekey IN NUMBER)
AS
currentnr prj_werkplek.prj_werkplek_volgnr%TYPE;
werkpleknr prj_werkplek.prj_werkplek_volgnr%TYPE;
werkplekomschrijving prj_werkplek.prj_werkplek_omschrijving%TYPE;
scenariokey prj_ruimte.prj_scenario_key%TYPE;
currentnr prj_werkplek.prj_werkplek_volgnr%TYPE;
currentomschrijving prj_werkplek.prj_werkplek_omschrijving%TYPE;
currentruimtenr prj_ruimte.prj_ruimte_nr%TYPE;
werkpleknr prj_werkplek.prj_werkplek_volgnr%TYPE;
werkplekomschrijving prj_werkplek.prj_werkplek_omschrijving%TYPE;
scenariokey prj_ruimte.prj_scenario_key%TYPE;
BEGIN
SELECT prj_werkplek_volgnr
INTO currentnr
FROM prj_werkplek
WHERE prj_werkplek_key = pwerkplekkey;
werkpleknr :=
TO_NUMBER (forceuniqueness ('PRJ_WERKPLEK',
pruimtekey,
TO_CHAR (currentnr),
NULL
)
);
werkplekomschrijving := defaultwpomschrijving (pruimtekey, werkpleknr);
SELECT w.prj_werkplek_volgnr, w.prj_werkplek_omschrijving, r.prj_ruimte_nr
INTO currentnr, currentomschrijving, currentruimtenr
FROM prj_werkplek w, prj_ruimte r
WHERE w.prj_ruimte_key = r.prj_ruimte_key AND prj_werkplek_key = pwerkplekkey;
werkpleknr := TO_NUMBER (forceuniqueness ('PRJ_WERKPLEK', pruimtekey, TO_CHAR (currentnr), NULL));
-- verzin een nieuwe naam als de oude begon met het nummer van de oorspronkelijke ruimte
IF INSTR (currentomschrijving, currentruimtenr || '-') = 1
THEN
werkplekomschrijving := defaultwpomschrijving (pruimtekey, werkpleknr);
ELSE
werkplekomschrijving := currentomschrijving;
END IF;
UPDATE prj_werkplek
SET prj_ruimte_key = pruimtekey,
prj_werkplek_volgnr = werkpleknr,
@@ -1049,7 +1054,7 @@ AS
AND pr.prj_scenario_key = sk;
CURSOR perslidwerkplek_updates (sk IN NUMBER)
IS
SELECT prs_perslid_key, prj_perslidwerkplek_bezetting,
SELECT prs_perslid_key, prj_perslidwerkplek_bezetting,
prs_perslidwerkplek_key, prs_werkplek_key
FROM prj_perslidwerkplek pwp, prj_werkplek wp, prj_ruimte rx
WHERE pwp.prj_werkplek_key = wp.prj_werkplek_key