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

AAFM#34758 Berichtenfunctie vanuit meldingen inrichten

Browse Source 
svn path=/Database/trunk/; revision=28566
This commit is contained in:
Erik Groener
2016-03-22 07:36:58 +00:00
parent 146b71e537
commit 1a08791f52
1 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
FAC/FAC_PACX.SRC
View File

@@ -103,7 +103,7 @@ AS
p_withchildren IN BOOLEAN
);
PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_concise IN BOOLEAN);
PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_extra_key, p_concise IN BOOLEAN);
PROCEDURE create_bes_bestelling_node (p_key IN NUMBER, p_concise IN BOOLEAN);
PROCEDURE create_bes_bestelopdr_node (p_key IN NUMBER, p_concise IN BOOLEAN);
PROCEDURE create_bez_afspraak_node (p_key IN NUMBER,
@@ -4133,6 +4133,7 @@ AS
-- * create_MLD_MELDING_node
PROCEDURE create_mld_melding_node (p_key IN NUMBER,
p_extra_key IN NUMBER,
p_withchildren IN BOOLEAN,
p_withrelated IN NUMBER DEFAULT 0)
AS
@@ -4287,6 +4288,7 @@ AS
AND mld_melding_key = p_key;
createxmltagvalue ('key', p_key);
createxmltagvalue ('extra_key', p_extra_key);
createxmltagvalue ('meldbron_nr', v_meldbron_nr);
mydatetochar ('gemeld', v_datum); -- deprecated, see tracking
mydatetochar ('begindatum', v_datum);
@@ -4382,7 +4384,7 @@ AS
THEN
FOR rec2 IN c2
LOOP
create_mld_opdr_node (rec2.mld_opdr_key, TRUE);
create_mld_opdr_node (rec2.mld_opdr_key, -1, TRUE);
END LOOP;
FOR rec3 IN c3
LOOP
@@ -4390,7 +4392,7 @@ AS
END LOOP;
END IF;
create_mld_melding_node (v_parentkey, p_withchildren); --Zou zomaar NULL kunnen zijn, geeft niks.
create_mld_melding_node (v_parentkey, p_extra_key, p_withchildren); --Zou zomaar NULL kunnen zijn, geeft niks.
-- Voor een workflow kan de (ene) root interessant zijn
-- Dit doen we niet voor adhoc vervolgmeldingen
-- Er is geen aanduiding bij de tag dat dit de root is, mocht dat
@@ -4398,7 +4400,7 @@ AS
IF v_workflowstep_key IS NOT NULL AND v_start_key <> p_key
THEN
createxmltagvalue ('workflowstep', v_workflowstep_key); -- als boolean te gebruiken
create_mld_melding_node (v_start_key, FALSE);
create_mld_melding_node (v_start_key, p_extra_key, FALSE);
END IF;
IF v_rsv_ruimte_key IS NOT NULL
THEN
@@ -4422,13 +4424,13 @@ AS
create_res_rsv_ruimte_node (v_kto_key, TRUE);
WHEN 'O'
THEN
create_mld_opdr_node (v_kto_key, TRUE);
create_mld_opdr_node (v_kto_key, -1, TRUE);
WHEN 'C'
THEN
create_cnt_contract_node (v_kto_key, TRUE);
WHEN 'M'
THEN
create_mld_melding_node (v_kto_key, FALSE, p_withrelated + 1);
create_mld_melding_node (v_kto_key, p_extra_key, FALSE, p_withrelated + 1);
WHEN 'X'
THEN
create_bes_bestelopdr_node (v_kto_key, TRUE);
@@ -4513,7 +4515,7 @@ AS
-- * create_MLD_OPDR_node
-- select xml.create_MLD_OPDR_node(7120) FROM DUAL
PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_concise IN BOOLEAN)
PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_extra_key, p_concise IN BOOLEAN)
AS
v_mld_melding_key mld_opdr.mld_melding_key%TYPE;
v_mld_uitvoerende_keys mld_opdr.mld_uitvoerende_keys%TYPE;
@@ -4644,6 +4646,7 @@ AS
AND mld_opdr_key = p_key;
createxmltagvalue ('key', p_key);
createxmltagvalue ('extra_key', p_extra_key);
createxmltagvalue ('melding_key', v_mld_melding_key);
createxmltagvalue ('uitvoerende_keys', v_mld_uitvoerende_keys);
createxmltagvalue ('statusopdr_key', v_statusopdr_key);
@@ -4693,7 +4696,7 @@ AS
IF NOT p_concise
THEN
create_mld_melding_node (v_mld_melding_key, FALSE);
create_mld_melding_node (v_mld_melding_key, p_extra_key, FALSE);
END IF;
create_fac_activiteit_node (v_activiteit_key);
@@ -5101,7 +5104,7 @@ AS
createxmltagvalue ('status', v_status);
createxmltagvalue ('datum', v_datum);
createxmltagvalue ('raming', v_raming);
create_mld_melding_node (v_mld_melding_key, FALSE);
create_mld_melding_node (v_mld_melding_key, -1, FALSE);
create_prs_perslid_node (v_prs_perslid_key, 'behandelaar', TRUE);
FOR rec1 IN c1
@@ -7026,7 +7029,7 @@ AS
FOR rec4 IN c4
LOOP
create_mld_melding_node (rec4.mld_melding_key, TRUE); -- de opdrachtinfo is ook gewenst
create_mld_melding_node (rec4.mld_melding_key, -1, TRUE); -- de opdrachtinfo is ook gewenst
END LOOP;
END IF;
@@ -7921,7 +7924,7 @@ AS
createxmltagvalue (
'opp',
mynumbertochar (rec3.cnt_contract_onrgoed_opp));
create_mld_melding_node (rec3.cnt_mld_melding_key, FALSE);
create_mld_melding_node (rec3.cnt_mld_melding_key, -1, FALSE);
createxmltagvalue (
'status_key',
mynumbertochar (rec3.cnt_mutatie_status_key));
@@ -8211,7 +8214,7 @@ AS
create_fin_factuurregel_node (rec1.fin_factuurregel_key);
END LOOP;
create_mld_opdr_node (v_opdr_key, FALSE);
create_mld_opdr_node (v_opdr_key, -1, FALSE);
create_cnt_contract_node (v_contract_key, FALSE);
create_bes_bestelopdr_node (v_bestelopdr_key, FALSE);
create_prs_perslid_node (v_perslid_key_user, 'invoerder', TRUE);
@@ -8337,7 +8340,7 @@ AS
CASE rec1.fin_verkoopfactuur_xmlnode
WHEN 'opdracht'
THEN
create_mld_opdr_node (rec1.fin_verkoopfactuur_refkey, FALSE);
create_mld_opdr_node (rec1.fin_verkoopfactuur_refkey, -1, FALSE);
WHEN 'contract'
THEN
create_cnt_contract_node (rec1.fin_verkoopfactuur_refkey, FALSE);
@@ -8387,10 +8390,10 @@ AS
create_prs_bedrijf_node (p_key, 'bedrijf');
WHEN 'melding'
THEN
create_mld_melding_node (p_key, TRUE);
create_mld_melding_node (p_key, p_extra, TRUE);
WHEN 'opdracht'
THEN
create_mld_opdr_node (p_key, p_concise);
create_mld_opdr_node (p_key, p_extra, p_concise);
WHEN 'reservering'
THEN -- Deelreservering
create_res_reservering_node (p_key, p_extra);