FSN#14261
svn path=/Database/trunk/; revision=9873
This commit is contained in:
Peter Feij
151
FAC/FAC_PACX.SRC
151
FAC/FAC_PACX.SRC
@@ -1,6 +1,6 @@
|
||||
#ifdef FAC
|
||||
/* $Revision: 2 $
|
||||
* $Modtime: 29-08-08 11:14 $
|
||||
/* $Revision: 3 $
|
||||
* $Modtime: 5-09-08 12:07 $
|
||||
*/
|
||||
|
||||
/* 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: 2 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
|
||||
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 3 $',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'));
|
||||
@@ -2838,68 +2838,118 @@ AS
|
||||
END IF;
|
||||
END;
|
||||
|
||||
PROCEDURE create_prj_deel_node (p_ruimte_key IN NUMBER)
|
||||
PROCEDURE create_prj_deel_node (p_deel_key IN NUMBER)
|
||||
AS
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT *
|
||||
FROM prj_deel pd
|
||||
WHERE pd.prj_ruimte_key = p_ruimte_key;
|
||||
v_ins_deel_key prj_deel.ins_deel_key%TYPE;
|
||||
v_srtdeel_key prj_deel.ins_srtdeel_key%TYPE;
|
||||
v_ruimte_key prj_deel.prj_ruimte_key%TYPE;
|
||||
v_werkplek_key prj_deel.prj_werkplek_key%TYPE;
|
||||
v_omschrijving prj_deel.prj_deel_omschrijving%TYPE;
|
||||
v_aanmaak prj_deel.prj_deel_aanmaak%TYPE;
|
||||
v_verwijder prj_deel.prj_deel_verwijder%TYPE;
|
||||
v_dwgx prj_deel.prj_deel_dwgx%TYPE;
|
||||
v_dwgy prj_deel.prj_deel_dwgy%TYPE;
|
||||
v_dwgz prj_deel.prj_deel_dwgz%TYPE;
|
||||
v_dwgrotatie prj_deel.prj_deel_dwgrotatie%TYPE;
|
||||
v_dwgschaal prj_deel.prj_deel_dwgschaal%TYPE;
|
||||
BEGIN
|
||||
IF p_ruimte_key IS NOT NULL
|
||||
IF p_deel_key IS NOT NULL
|
||||
THEN
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
createopentag ('prjdeel');
|
||||
createxmltagvalue ('key', rec1.prj_deel_key);
|
||||
createxmltagvalue ('omschrijving', rec1.prj_deel_omschrijving);
|
||||
create_ins_srtdeel_node (rec1.ins_srtdeel_key, true);
|
||||
mydatetochar ('aanmaak', rec1.prj_deel_aanmaak);
|
||||
mydatetochar ('verwijder', rec1.prj_deel_verwijder);
|
||||
createxmltagvalue ('dwgx', rec1.prj_deel_dwgx);
|
||||
createxmltagvalue ('dwgy', rec1.prj_deel_dwgy);
|
||||
createxmltagvalue ('dwgz', rec1.prj_deel_dwgz);
|
||||
createxmltagvalue ('dwgrotatie', rec1.prj_deel_dwgrotatie);
|
||||
createxmltagvalue ('dwgschaal', rec1.prj_deel_dwgschaal);
|
||||
createclosetag ('prjdeel');
|
||||
END LOOP;
|
||||
SELECT ins_deel_key, ins_srtdeel_key, prj_ruimte_key, prj_werkplek_key, prj_deel_omschrijving,
|
||||
prj_deel_aanmaak, prj_deel_verwijder, prj_deel_dwgx, prj_deel_dwgy, prj_deel_dwgz,
|
||||
prj_deel_dwgrotatie, prj_deel_dwgschaal
|
||||
INTO v_ins_deel_key, v_srtdeel_key, v_ruimte_key, v_werkplek_key, v_omschrijving,
|
||||
v_aanmaak, v_verwijder, v_dwgx, v_dwgy, v_dwgz,
|
||||
v_dwgrotatie, v_dwgschaal
|
||||
FROM prj_deel pd
|
||||
WHERE pd.prj_deel_key = p_deel_key;
|
||||
|
||||
createopentag ('prjdeel');
|
||||
createxmltagvalue ('key', p_deel_key);
|
||||
createxmltagvalue ('omschrijving', v_omschrijving);
|
||||
create_ins_deel_node (v_ins_deel_key);
|
||||
-- stdeel zit in deel, maar als het een projectnieuw deel is niet.
|
||||
create_ins_srtdeel_node (v_srtdeel_key, TRUE);
|
||||
mydatetochar ('aanmaak', v_aanmaak);
|
||||
mydatetochar ('verwijder', v_verwijder);
|
||||
-- Te overwegen is om deze NIET mee te nemen:
|
||||
createxmltagvalue ('dwgx', v_dwgx);
|
||||
createxmltagvalue ('dwgy', v_dwgy);
|
||||
createxmltagvalue ('dwgz', v_dwgz);
|
||||
createxmltagvalue ('dwgrotatie', v_dwgrotatie);
|
||||
createxmltagvalue ('dwgschaal', v_dwgschaal);
|
||||
createclosetag ('prjdeel');
|
||||
END IF;
|
||||
END;
|
||||
|
||||
PROCEDURE create_prj_werkplek_node (p_ruimte_key IN NUMBER)
|
||||
PROCEDURE create_prj_werkplek_node (p_werkplek_key IN NUMBER)
|
||||
AS
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT *
|
||||
FROM prj_werkplek wp
|
||||
WHERE wp.prj_ruimte_key = p_ruimte_key;
|
||||
SELECT prj_deel_key
|
||||
FROM prj_deel pd
|
||||
WHERE pd.prj_werkplek_key = p_werkplek_key;
|
||||
|
||||
v_volgnr prj_werkplek.prj_werkplek_volgnr%TYPE;
|
||||
v_omschrijving prj_werkplek.prj_werkplek_omschrijving%TYPE;
|
||||
v_vastopp prj_werkplek.prj_werkplek_vastopp%TYPE;
|
||||
v_opp prj_werkplek.prj_werkplek_opp%TYPE;
|
||||
v_aanmaak prj_werkplek.prj_werkplek_aanmaak%TYPE;
|
||||
v_verwijder prj_werkplek.prj_werkplek_verwijder%TYPE;
|
||||
v_dwgx prj_werkplek.prj_werkplek_dwgx%TYPE;
|
||||
v_dwgy prj_werkplek.prj_werkplek_dwgy%TYPE;
|
||||
v_dwgz prj_werkplek.prj_werkplek_dwgz%TYPE;
|
||||
v_dwgrotatie prj_werkplek.prj_werkplek_dwgrotatie%TYPE;
|
||||
v_dwgschaal prj_werkplek.prj_werkplek_dwgschaal%TYPE;
|
||||
BEGIN
|
||||
IF p_ruimte_key IS NOT NULL
|
||||
IF p_werkplek_key IS NOT NULL
|
||||
THEN
|
||||
SELECT prj_werkplek_volgnr, prj_werkplek_omschrijving, prj_werkplek_vastopp, prj_werkplek_opp,
|
||||
prj_werkplek_aanmaak, prj_werkplek_verwijder, prj_werkplek_dwgx, prj_werkplek_dwgy, prj_werkplek_dwgz,
|
||||
prj_werkplek_dwgrotatie, prj_werkplek_dwgschaal
|
||||
INTO v_volgnr, v_omschrijving, v_vastopp, v_opp,
|
||||
v_aanmaak, v_verwijder, v_dwgx, v_dwgy, v_dwgz,
|
||||
v_dwgrotatie, v_dwgschaal
|
||||
FROM prj_werkplek wp
|
||||
WHERE wp.prj_werkplek_key = p_werkplek_key;
|
||||
|
||||
createopentag ('prjwerkplek');
|
||||
createxmltagvalue ('key', p_werkplek_key);
|
||||
createxmltagvalue ('volgnr', v_volgnr);
|
||||
createxmltagvalue ('omschrijving', v_omschrijving);
|
||||
createxmltagvalue ('vastopp', v_vastopp);
|
||||
createxmltagvalue ('opp', v_opp);
|
||||
mydatetochar ('aanmaak', v_aanmaak);
|
||||
mydatetochar ('verwijder', v_verwijder);
|
||||
createxmltagvalue ('dwgx', v_dwgx);
|
||||
createxmltagvalue ('dwgy', v_dwgy);
|
||||
createxmltagvalue ('dwgz', v_dwgz);
|
||||
createxmltagvalue ('dwgrotatie', v_dwgrotatie);
|
||||
createxmltagvalue ('dwgschaal', v_dwgschaal);
|
||||
create_prj_perslidwp_node (p_werkplek_key);
|
||||
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
createopentag ('prjwerkplek');
|
||||
createxmltagvalue ('key', rec1.prj_werkplek_key);
|
||||
createxmltagvalue ('volgnr', rec1.prj_werkplek_volgnr);
|
||||
createxmltagvalue ('omschrijving',
|
||||
rec1.prj_werkplek_omschrijving);
|
||||
createxmltagvalue ('vastopp', rec1.prj_werkplek_vastopp);
|
||||
createxmltagvalue ('opp', rec1.prj_werkplek_opp);
|
||||
mydatetochar ('aanmaak', rec1.prj_werkplek_aanmaak);
|
||||
mydatetochar ('verwijder', rec1.prj_werkplek_verwijder);
|
||||
createxmltagvalue ('dwgx', rec1.prj_werkplek_dwgx);
|
||||
createxmltagvalue ('dwgy', rec1.prj_werkplek_dwgy);
|
||||
createxmltagvalue ('dwgz', rec1.prj_werkplek_dwgz);
|
||||
createxmltagvalue ('dwgrotatie', rec1.prj_werkplek_dwgrotatie);
|
||||
createxmltagvalue ('dwgschaal', rec1.prj_werkplek_dwgschaal);
|
||||
create_prj_perslidwp_node (rec1.prj_werkplek_key);
|
||||
createclosetag ('prjwerkplek');
|
||||
create_prj_deel_node (rec1.prj_deel_key);
|
||||
END LOOP;
|
||||
|
||||
createclosetag ('prjwerkplek');
|
||||
END IF;
|
||||
END;
|
||||
|
||||
PROCEDURE create_prj_ruimte_node (p_ruimte_key IN NUMBER)
|
||||
AS
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT prj_werkplek_key
|
||||
FROM prj_werkplek pw
|
||||
WHERE pw.prj_ruimte_key = p_ruimte_key;
|
||||
|
||||
CURSOR c2
|
||||
IS
|
||||
SELECT prj_deel_key
|
||||
FROM prj_deel pd
|
||||
WHERE pd.prj_ruimte_key = p_ruimte_key;
|
||||
v_nr prj_ruimte.prj_ruimte_nr%TYPE;
|
||||
v_omschrijving prj_ruimte.prj_ruimte_omschrijving%TYPE;
|
||||
v_bruto_vloeropp prj_ruimte.prj_ruimte_bruto_vloeropp%TYPE;
|
||||
@@ -2934,7 +2984,14 @@ AS
|
||||
-- * Herkomst gegevens (teveel van het goede?)
|
||||
create_alg_ruimte_node (v_alg_ruimte_key);
|
||||
-- *create_ALG_SRTRUIMTE_node(v_srtruimte_key);
|
||||
create_prj_werkplek_node (p_ruimte_key);
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
create_prj_werkplek_node (rec1.prj_werkplek_key);
|
||||
END LOOP;
|
||||
FOR rec2 IN c2
|
||||
LOOP
|
||||
create_prj_deel_node (rec2.prj_deel_key);
|
||||
END LOOP;
|
||||
createclosetag ('prjruimte');
|
||||
END IF;
|
||||
END;
|
||||
|
||||
Reference in New Issue
Block a user