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

CONN#15549

Browse Source 
svn path=/Database/trunk/; revision=10052
This commit is contained in:
Peter Feij
2009-08-20 11:16:40 +00:00
parent f4c16e1b7a
commit 41b3222d6b
1 changed files with 56 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
FAC/FAC_PACX.SRC
View File

@@ -1,6 +1,6 @@
#ifdef FAC
/* $Revision: 13 $
* $Modtime: 30-06-09 15:11 $
/* $Revision: 14 $
* $Modtime: 20-08-09 13:01 $
*/
/* 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: 13 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 14 $',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'));
@@ -2000,8 +2000,33 @@ AS
END;
-- *
-- * MLD kenmerken
-- * MLD zaken
-- *
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');
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;
createxmltagvalue ('key', v_key);
mydatetochar ('aanmaak', v_aanmaak);
createxmltagvalue ('omschrijving', v_omschrijving);
create_prs_perslid_node (v_prs_perslid_key, 'noteur', TRUE);
createclosetag ('note');
END IF;
END;
PROCEDURE create_mld_kenmerken (p_key IN NUMBER)
AS
CURSOR c1
@@ -2686,6 +2711,7 @@ AS
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);
createclosetag ('melding');
END IF;
END;
@@ -4540,6 +4566,31 @@ AS
END IF;
END;
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');
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;
createxmltagvalue ('key', v_key);
mydatetochar ('aanmaak', v_aanmaak);
createxmltagvalue ('omschrijving', v_omschrijving);
create_prs_perslid_node (v_prs_perslid_key, 'noteur', TRUE);
createclosetag ('note');
END IF;
END;
PROCEDURE create_cnt_kenmerken (p_key IN NUMBER)
AS
CURSOR c1
@@ -4798,7 +4849,7 @@ AS
END;
END LOOP;
END IF;
create_cnt_contract_note_node(p_key);
createclosetag ('contract');
END IF;
END;