FSN#15158
svn path=/Database/trunk/; revision=10088
This commit is contained in:
Peter Feij
269
FAC/FAC_PACX.SRC
269
FAC/FAC_PACX.SRC
@@ -1,6 +1,6 @@
|
||||
#ifdef FAC
|
||||
/* $Revision: 14 $
|
||||
* $Modtime: 20-08-09 13:01 $
|
||||
/* $Revision: 15 $
|
||||
* $Modtime: 5-10-09 13:41 $
|
||||
*/
|
||||
|
||||
/* 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: 14 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
|
||||
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 15 $',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'));
|
||||
@@ -617,6 +617,35 @@ AS
|
||||
-- *
|
||||
-- * FAC
|
||||
-- *
|
||||
PROCEDURE create_fac_tracking_node (pxmlnodename IN VARCHAR2, p_refkey IN NUMBER)
|
||||
AS
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT t.fac_tracking_datum, t.fac_tracking_oms, t.prs_perslid_key, st.fac_srttracking_code
|
||||
FROM fac_tracking t, fac_srttracking st
|
||||
WHERE t.fac_srttracking_key = st.fac_srttracking_key
|
||||
AND st.fac_srttracking_xmlnode = pxmlnodename
|
||||
AND t.fac_tracking_refkey = p_refkey
|
||||
ORDER BY fac_tracking_datum;
|
||||
BEGIN
|
||||
IF p_refkey IS NOT NULL
|
||||
THEN
|
||||
createopentag ('tracking');
|
||||
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
createopentag ('track');
|
||||
mydatetochar ('datum', rec1.fac_tracking_datum);
|
||||
create_prs_perslid_node (rec1.prs_perslid_key, 'aanvrager', TRUE);
|
||||
createxmltagvalue ('code', rec1.fac_srttracking_code);
|
||||
createxmltagvalue ('omschrijving', rec1.fac_tracking_oms);
|
||||
createclosetag ('track');
|
||||
END LOOP;
|
||||
|
||||
createclosetag ('tracking');
|
||||
END IF;
|
||||
END;
|
||||
|
||||
PROCEDURE create_fac_activiteit_node (p_key IN NUMBER)
|
||||
AS
|
||||
v_perslid_key fac_activiteit.prs_perslid_key%TYPE;
|
||||
@@ -2004,29 +2033,32 @@ AS
|
||||
-- *
|
||||
PROCEDURE create_mld_melding_note_node (p_key IN NUMBER)
|
||||
AS
|
||||
v_key mld_melding_note.mld_melding_note_key%TYPE;
|
||||
v_prs_perslid_key mld_melding_note.prs_perslid_key%TYPE;
|
||||
v_aanmaak mld_melding_note.mld_melding_note_aanmaak%TYPE;
|
||||
v_omschrijving mld_melding_note.mld_melding_note_omschrijving%TYPE;
|
||||
BEGIN
|
||||
IF p_key IS NOT NULL
|
||||
THEN
|
||||
createopentag ('note');
|
||||
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT mld_melding_note_key, mld_melding_note_aanmaak, prs_perslid_key, mld_melding_note_omschrijving
|
||||
INTO v_key, v_aanmaak, v_prs_perslid_key, v_omschrijving
|
||||
FROM mld_melding_note
|
||||
WHERE mld_melding_key = p_key
|
||||
ORDER BY mld_melding_note_key;
|
||||
BEGIN
|
||||
IF p_key IS NOT NULL
|
||||
THEN
|
||||
createopentag ('notes');
|
||||
|
||||
createxmltagvalue ('key', v_key);
|
||||
mydatetochar ('aanmaak', v_aanmaak);
|
||||
createxmltagvalue ('omschrijving', v_omschrijving);
|
||||
create_prs_perslid_node (v_prs_perslid_key, 'noteur', TRUE);
|
||||
createclosetag ('note');
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
createopentag ('note');
|
||||
createxmltagvalue ('key', rec1.mld_melding_note_key);
|
||||
mydatetochar ('aanmaak', rec1.mld_melding_note_aanmaak);
|
||||
createxmltagvalue ('omschrijving', rec1.mld_melding_note_omschrijving);
|
||||
create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
|
||||
createclosetag ('note');
|
||||
END LOOP;
|
||||
|
||||
createclosetag ('notes');
|
||||
END IF;
|
||||
END;
|
||||
|
||||
|
||||
PROCEDURE create_mld_kenmerken (p_key IN NUMBER)
|
||||
AS
|
||||
CURSOR c1
|
||||
@@ -2585,97 +2617,108 @@ AS
|
||||
-- select xml.create_MLD_MELDING_node(7300) FROM DUAL
|
||||
PROCEDURE create_mld_melding_node (p_key IN NUMBER)
|
||||
AS
|
||||
--v_sub_node VARCHAR2(30000);
|
||||
v_meldbron_nr mld_melding.mld_meldbron_nr%TYPE;
|
||||
v_datum mld_melding.mld_melding_datum%TYPE;
|
||||
v_omschrijving mld_melding.mld_melding_omschrijving%TYPE;
|
||||
v_opmerking mld_melding.mld_melding_opmerking%TYPE;
|
||||
v_user_key mld_melding.mld_melding_user_key%TYPE;
|
||||
v_ingezien mld_melding.mld_melding_ingezien%TYPE;
|
||||
v_afgewezen mld_melding.mld_melding_afgewezen%TYPE;
|
||||
v_geaccepteerd mld_melding.mld_melding_geaccepteerd%TYPE;
|
||||
v_afgemeld mld_melding.mld_melding_afgemeld%TYPE;
|
||||
v_verwerkt mld_melding.mld_melding_verwerkt%TYPE;
|
||||
v_geprint mld_melding.mld_melding_geprint%TYPE;
|
||||
v_kosten_klant mld_melding.mld_kosten_klant%TYPE;
|
||||
v_prs_kostenplaats_key mld_melding.prs_kostenplaats_key%TYPE;
|
||||
v_melder_telefoon mld_melding.mld_melding_melder_telefoon%TYPE;
|
||||
v_melder_plaats mld_melding.mld_melding_melder_plaats%TYPE;
|
||||
v_status_key mld_melding.mld_melding_status%TYPE;
|
||||
v_status mld_statuses.mld_statuses_omschrijving%TYPE;
|
||||
v_spoed mld_melding.mld_melding_spoed%TYPE;
|
||||
v_ins_discipline_key mld_melding.mld_ins_discipline_key%TYPE;
|
||||
v_meldbron_key mld_melding.mld_meldbron_key%TYPE;
|
||||
v_oorzaak_key mld_melding.mld_oorzaak_key%TYPE;
|
||||
v_alg_onroerendgoed_keys mld_melding.mld_alg_onroerendgoed_keys%TYPE;
|
||||
v_alg_locatie_key mld_melding.mld_alg_locatie_key%TYPE;
|
||||
v_geaccepteerd_user mld_melding.mld_melding_geaccepteerd_user%TYPE;
|
||||
v_mld_stdmelding_key mld_melding.mld_stdmelding_key%TYPE;
|
||||
v_prs_perslid_key mld_melding.prs_perslid_key%TYPE;
|
||||
v_ingezien_user mld_melding.mld_melding_ingezien_user%TYPE;
|
||||
v_adres_key mld_melding.mld_adres_key%TYPE;
|
||||
v_afgemeld_user mld_melding.mld_melding_afgemeld_user%TYPE;
|
||||
v_uitvoertijd mld_melding.mld_melding_uitvoertijd%TYPE;
|
||||
v_uitvoertijd_sla mld_melding.mld_melding_uitvoertijd2%TYPE;
|
||||
v_datum_gepland DATE;
|
||||
v_datum_gepland_sla DATE;
|
||||
v_ordernr mld_melding.mld_melding_ordernr%TYPE;
|
||||
v_activiteit_key mld_melding.fac_activiteit_key%TYPE;
|
||||
v_behandeling mld_melding.mld_melding_behandeling%TYPE;
|
||||
v_meldbron_nr mld_melding.mld_meldbron_nr%TYPE;
|
||||
v_datum mld_melding.mld_melding_datum%TYPE;
|
||||
v_omschrijving mld_melding.mld_melding_omschrijving%TYPE;
|
||||
v_opmerking mld_melding.mld_melding_opmerking%TYPE;
|
||||
v_user_key mld_melding.mld_melding_user_key%TYPE;
|
||||
v_geprint mld_melding.mld_melding_geprint%TYPE;
|
||||
v_kosten_klant mld_melding.mld_kosten_klant%TYPE;
|
||||
v_prs_kostenplaats_key mld_melding.prs_kostenplaats_key%TYPE;
|
||||
v_melder_telefoon mld_melding.mld_melding_melder_telefoon%TYPE;
|
||||
v_melder_plaats mld_melding.mld_melding_melder_plaats%TYPE;
|
||||
v_status_key mld_melding.mld_melding_status%TYPE;
|
||||
v_status mld_statuses.mld_statuses_omschrijving%TYPE;
|
||||
v_spoed mld_melding.mld_melding_spoed%TYPE;
|
||||
v_ins_discipline_key mld_melding.mld_ins_discipline_key%TYPE;
|
||||
v_meldbron_key mld_melding.mld_meldbron_key%TYPE;
|
||||
v_oorzaak_key mld_melding.mld_oorzaak_key%TYPE;
|
||||
v_alg_onroerendgoed_keys mld_melding.mld_alg_onroerendgoed_keys%TYPE;
|
||||
v_alg_locatie_key mld_melding.mld_alg_locatie_key%TYPE;
|
||||
v_mld_stdmelding_key mld_melding.mld_stdmelding_key%TYPE;
|
||||
v_prs_perslid_key mld_melding.prs_perslid_key%TYPE;
|
||||
-- v_ingezien_user mld_melding.mld_melding_ingezien_user%TYPE;
|
||||
v_adres_key mld_melding.mld_adres_key%TYPE;
|
||||
--v_afgemeld_user mld_melding.mld_melding_afgemeld_user%TYPE;
|
||||
v_uitvoertijd mld_melding.mld_melding_uitvoertijd%TYPE;
|
||||
v_uitvoertijd_sla mld_melding.mld_melding_uitvoertijd2%TYPE;
|
||||
v_datum_gepland DATE;
|
||||
v_datum_gepland_sla DATE;
|
||||
v_ordernr mld_melding.mld_melding_ordernr%TYPE;
|
||||
v_activiteit_key mld_melding.fac_activiteit_key%TYPE;
|
||||
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT ins_deel_key
|
||||
FROM mld_melding_object
|
||||
WHERE mld_melding_key = p_key;
|
||||
SELECT ins_deel_key
|
||||
FROM mld_melding_object
|
||||
WHERE mld_melding_key = p_key;
|
||||
|
||||
rec1 c1%ROWTYPE;
|
||||
rec1 c1%ROWTYPE;
|
||||
BEGIN
|
||||
IF p_key IS NOT NULL
|
||||
THEN
|
||||
createopentag ('melding');
|
||||
|
||||
SELECT NVL (mld_meldbron_nr, ''), NVL (mld_melding_datum, ''), NVL (mld_melding_omschrijving, ''),
|
||||
NVL (mld_melding_opmerking, ''), NVL (mld_melding_user_key, ''), NVL (mld_melding_ingezien, ''),
|
||||
NVL (mld_melding_afgewezen, ''), NVL (mld_melding_geaccepteerd, ''), NVL (mld_melding_afgemeld, ''),
|
||||
NVL (mld_melding_verwerkt, ''), NVL (mld_melding_geprint, 0), NVL (mld_kosten_klant, 0),
|
||||
prs_kostenplaats_key, NVL (mld_melding_melder_telefoon, ''), NVL (mld_melding_melder_plaats, ''),
|
||||
NVL (mld_melding_status, ''), NVL (s.mld_statuses_omschrijving, ''), NVL (mld_melding_spoed, 0),
|
||||
mld_ins_discipline_key, mld_meldbron_key, mld_oorzaak_key, mld_alg_onroerendgoed_keys,
|
||||
mld_alg_locatie_key, mld_melding_geaccepteerd_user, mld_stdmelding_key, prs_perslid_key,
|
||||
mld_melding_ingezien_user, mld_adres_key, mld_melding_afgemeld_user, mld_melding_uitvoertijd,
|
||||
mld_melding_uitvoertijd2,
|
||||
mld_p_mld_datumtijd.datumtijdplusuitvoertijd (mld_melding_datum, mld_melding_uitvoertijd, 'DAGEN'),
|
||||
mld_p_mld_datumtijd.datumtijdplusuitvoertijd (mld_melding_datum, mld_melding_uitvoertijd2, 'DAGEN'),
|
||||
NVL (mld_melding_ordernr, ''), mld_melding_behandeling
|
||||
INTO v_meldbron_nr, v_datum, v_omschrijving,
|
||||
v_opmerking, v_user_key, v_ingezien,
|
||||
v_afgewezen, v_geaccepteerd, v_afgemeld,
|
||||
v_verwerkt, v_geprint, v_kosten_klant,
|
||||
v_prs_kostenplaats_key, v_melder_telefoon, v_melder_plaats,
|
||||
v_status_key, v_status, v_spoed,
|
||||
v_ins_discipline_key, v_meldbron_key, v_oorzaak_key, v_alg_onroerendgoed_keys,
|
||||
v_alg_locatie_key, v_geaccepteerd_user, v_mld_stdmelding_key, v_prs_perslid_key,
|
||||
v_ingezien_user, v_adres_key, v_afgemeld_user, v_uitvoertijd,
|
||||
v_uitvoertijd_sla,
|
||||
v_datum_gepland,
|
||||
v_datum_gepland_sla,
|
||||
v_ordernr, v_behandeling
|
||||
FROM mld_melding m, mld_statuses s
|
||||
WHERE m.mld_melding_status = s.mld_statuses_key AND mld_melding_key = p_key;
|
||||
SELECT NVL (mld_meldbron_nr, ''),
|
||||
NVL (mld_melding_datum, ''),
|
||||
NVL (mld_melding_omschrijving, ''),
|
||||
NVL (mld_melding_opmerking, ''),
|
||||
NVL (mld_melding_user_key, ''),
|
||||
NVL (mld_melding_geprint, 0),
|
||||
NVL (mld_kosten_klant, 0),
|
||||
prs_kostenplaats_key,
|
||||
NVL (mld_melding_melder_telefoon, ''),
|
||||
NVL (mld_melding_melder_plaats, ''),
|
||||
NVL (mld_melding_status, ''),
|
||||
NVL (s.mld_statuses_omschrijving, ''),
|
||||
NVL (mld_melding_spoed, 0),
|
||||
mld_ins_discipline_key,
|
||||
mld_meldbron_key,
|
||||
mld_oorzaak_key,
|
||||
mld_alg_onroerendgoed_keys,
|
||||
mld_alg_locatie_key,
|
||||
mld_stdmelding_key,
|
||||
prs_perslid_key,
|
||||
mld_adres_key,
|
||||
mld_melding_uitvoertijd,
|
||||
mld_melding_uitvoertijd2,
|
||||
mld_p_mld_datumtijd.datumtijdplusuitvoertijd (mld_melding_datum, mld_melding_uitvoertijd, 'DAGEN'),
|
||||
mld_p_mld_datumtijd.datumtijdplusuitvoertijd (mld_melding_datum, mld_melding_uitvoertijd2, 'DAGEN'),
|
||||
NVL (mld_melding_ordernr, '')
|
||||
INTO v_meldbron_nr,
|
||||
v_datum,
|
||||
v_omschrijving,
|
||||
v_opmerking,
|
||||
v_user_key,
|
||||
v_geprint,
|
||||
v_kosten_klant,
|
||||
v_prs_kostenplaats_key,
|
||||
v_melder_telefoon,
|
||||
v_melder_plaats,
|
||||
v_status_key,
|
||||
v_status,
|
||||
v_spoed,
|
||||
v_ins_discipline_key,
|
||||
v_meldbron_key,
|
||||
v_oorzaak_key,
|
||||
v_alg_onroerendgoed_keys,
|
||||
v_alg_locatie_key,
|
||||
v_mld_stdmelding_key,
|
||||
v_prs_perslid_key,
|
||||
v_adres_key,
|
||||
v_uitvoertijd,
|
||||
v_uitvoertijd_sla,
|
||||
v_datum_gepland,
|
||||
v_datum_gepland_sla,
|
||||
v_ordernr
|
||||
FROM mld_melding m, mld_statuses s
|
||||
WHERE m.mld_melding_status = s.mld_statuses_key AND mld_melding_key = p_key;
|
||||
|
||||
createxmltagvalue ('key', p_key);
|
||||
createxmltagvalue ('meldbron_nr', v_meldbron_nr);
|
||||
mydatetochar ('gemeld', v_datum);
|
||||
createxmltagvalue ('omschrijving', v_omschrijving);
|
||||
createxmltagvalue ('opmerking', v_opmerking);
|
||||
createxmltagvalue ('behandeling', v_behandeling);
|
||||
mydatetochar ('ingezien', v_ingezien);
|
||||
mydatetochar ('afgewezen', v_afgewezen);
|
||||
mydatetochar ('geaccepteerd', v_geaccepteerd);
|
||||
createxmltagvalue ('geaccepteerd_user', v_geaccepteerd_user);
|
||||
mydatetochar ('afgemeld', v_afgemeld);
|
||||
mydatetochar ('verwerkt', v_verwerkt);
|
||||
createxmltagvalue ('geprint', v_geprint);
|
||||
createxmltagvalue ('kosten_klant', v_kosten_klant);
|
||||
createxmltagvalue ('ordernr', v_ordernr);
|
||||
@@ -2708,10 +2751,9 @@ AS
|
||||
|
||||
create_prs_perslid_node (v_prs_perslid_key, 'melder', FALSE);
|
||||
create_prs_perslid_node (v_user_key, 'ingevoerd_user', TRUE);
|
||||
create_prs_perslid_node (v_ingezien_user, 'ingezien_user', TRUE);
|
||||
create_prs_perslid_node (v_afgemeld_user, 'afgemeld_user', TRUE);
|
||||
create_fac_activiteit_node (v_activiteit_key);
|
||||
create_mld_melding_note_node(p_key);
|
||||
create_mld_melding_note_node (p_key);
|
||||
create_fac_tracking_node('melding', p_key);
|
||||
createclosetag ('melding');
|
||||
END IF;
|
||||
END;
|
||||
@@ -4365,6 +4407,7 @@ AS
|
||||
create_res_rsv_ruimte_node (rec1.res_rsv_ruimte_key, FALSE);
|
||||
END IF;
|
||||
END LOOP;
|
||||
create_fac_tracking_node('reservering', p_key); // TODO: nagaan of reservering het juiste trackniveau is
|
||||
|
||||
createclosetag ('reservering');
|
||||
END IF;
|
||||
@@ -4568,26 +4611,28 @@ AS
|
||||
|
||||
PROCEDURE create_cnt_contract_note_node (p_key IN NUMBER)
|
||||
AS
|
||||
v_key cnt_contract_note.cnt_contract_note_key%TYPE;
|
||||
v_prs_perslid_key cnt_contract_note.prs_perslid_key%TYPE;
|
||||
v_aanmaak cnt_contract_note.cnt_contract_note_aanmaak%TYPE;
|
||||
v_omschrijving cnt_contract_note.cnt_contract_note_omschrijving%TYPE;
|
||||
BEGIN
|
||||
IF p_key IS NOT NULL
|
||||
THEN
|
||||
createopentag ('note');
|
||||
|
||||
CURSOR c1
|
||||
IS
|
||||
SELECT cnt_contract_note_key, cnt_contract_note_aanmaak, prs_perslid_key, cnt_contract_note_omschrijving
|
||||
INTO v_key, v_aanmaak, v_prs_perslid_key, v_omschrijving
|
||||
FROM cnt_contract_note
|
||||
WHERE cnt_contract_key = p_key
|
||||
ORDER BY cnt_contract_note_key;
|
||||
BEGIN
|
||||
IF p_key IS NOT NULL
|
||||
THEN
|
||||
createopentag ('notes');
|
||||
|
||||
createxmltagvalue ('key', v_key);
|
||||
mydatetochar ('aanmaak', v_aanmaak);
|
||||
createxmltagvalue ('omschrijving', v_omschrijving);
|
||||
create_prs_perslid_node (v_prs_perslid_key, 'noteur', TRUE);
|
||||
createclosetag ('note');
|
||||
FOR rec1 IN c1
|
||||
LOOP
|
||||
createopentag ('note');
|
||||
createxmltagvalue ('key', rec1.cnt_contract_note_key);
|
||||
mydatetochar ('aanmaak', rec1.cnt_contract_note_aanmaak);
|
||||
createxmltagvalue ('omschrijving', rec1.cnt_contract_note_omschrijving);
|
||||
create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
|
||||
createclosetag ('note');
|
||||
END LOOP;
|
||||
|
||||
createclosetag ('notes');
|
||||
END IF;
|
||||
END;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user