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

FSN#14942

Browse Source 
svn path=/Database/trunk/; revision=9938
This commit is contained in:
Peter Feij
2008-12-02 15:01:18 +00:00
parent 31c9f39758
commit becac65596
2 changed files with 52 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
FAC/FAC_PACX.SRC
View File

@@ -1,6 +1,6 @@
#ifdef FAC
/* $Revision: 4 $
* $Modtime: 14-11-08 17:18 $
/* $Revision: 5 $
* $Modtime: 21-11-08 13:54 $
*/
/* FAC_PACX, (X means XML) to be included from fac_pac.src, isolated for convenience only
@@ -499,7 +499,7 @@ AS
AS
v_value VARCHAR2 (30);
BEGIN
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 4 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 5 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
createxmltagvalue ('dateTime', DATE_TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss'));
createxmltagvalue ('dateDay', DATE_TO_CHAR (SYSDATE, 'dd'));
createxmltagvalue ('dateMonth', DATE_TO_CHAR (SYSDATE, 'mm'));
@@ -2798,12 +2798,41 @@ AS
-- PRJ module related nodes
-----------------------------------------------------
-----------------------------------------------------
PROCEDURE create_prj_ruimteafd_node (p_ruimte_key IN NUMBER)
AS
CURSOR c1
IS
SELECT prj_ruimteafdeling_key, prj_ruimteafdeling_bezetting,
prs_afdeling_key
FROM prj_ruimteafdeling ra
WHERE ra.prj_ruimteafdeling_verwijder IS NULL
AND ra.prj_ruimteafdeling_key = p_ruimte_key;
BEGIN
IF p_ruimte_key IS NOT NULL
THEN
FOR rec1 IN c1
LOOP
createopentag ('prjruimteafdeling');
createxmltagvalue ('key', rec1.prj_ruimteafdeling_key);
createxmltagvalue ('bezetting',
rec1.prj_ruimteafdeling_bezetting
);
create_prs_afdeling_node (rec1.prs_afdeling_key,
'bezetter_afdeling'
);
createclosetag ('prjruimteafdeling');
END LOOP;
END IF;
END;
PROCEDURE create_prj_perslidwp_node (p_werkplek_key IN NUMBER)
AS
CURSOR c1
IS
SELECT prj_perslidwerkplek_key, prj_perslidwerkplek_bezetting,
prs_afdeling_key, prs_perslid_key, wpopp
prs_perslid_key, wpopp
FROM prj_perslidwerkplek pwp, prj_v_werkplek_oppervlakte pwo
WHERE pwp.prj_perslidwerkplek_verwijder IS NULL
AND pwp.prj_werkplek_key = pwo.prj_werkplek_key
@@ -2823,18 +2852,10 @@ AS
/* Attentie: indien men afdeling als personen suimuleert (bv [NIET VERHUURD]) wordt dit mogelijk
een heel omvangrijke node! Dat moet men dus eigenlijk niet doen.
*/
IF rec1.prs_afdeling_key IS NOT NULL
THEN
create_prs_afdeling_node (rec1.prs_afdeling_key,
'bezetter_afdeling'
);
ELSE
create_prs_perslid_node (rec1.prs_perslid_key,
'bezetter',
FALSE
);
END IF;
create_prs_perslid_node (rec1.prs_perslid_key,
'bezetter',
FALSE
);
createclosetag ('prjperslidwerkplek');
END LOOP;
END IF;
@@ -2986,6 +3007,7 @@ AS
-- * Herkomst gegevens (teveel van het goede?)
create_alg_ruimte_node (v_alg_ruimte_key);
-- *create_ALG_SRTRUIMTE_node(v_srtruimte_key);
create_prj_ruimteafd_node (p_ruimte_key);
FOR rec1 IN c1
LOOP
create_prj_werkplek_node (rec1.prj_werkplek_key);