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

FCLT#87817 Probleem met onderscheid tussen gekoppelde en gegroepeerde meldingen

Browse Source 
svn path=/Database/trunk/; revision=70462
This commit is contained in:
Jos Groot Lipman
2025-09-30 10:42:46 +00:00
parent 5dd9ed1a9f
commit 48a3b22259
1 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
FAC/FAC_PACX.SRC
View File

@@ -44,12 +44,12 @@ AS
p_tag IN VARCHAR2,
p_attrname1 IN VARCHAR2,
p_attrvalue1 IN VARCHAR2,
p_attrname2 IN VARCHAR2,
p_attrvalue2 IN VARCHAR2,
p_attrname3 IN VARCHAR2,
p_attrvalue3 IN VARCHAR2,
p_attrname4 IN VARCHAR2,
p_attrvalue4 IN VARCHAR2
p_attrname2 IN VARCHAR2 DEFAULT NULL,
p_attrvalue2 IN VARCHAR2 DEFAULT NULL,
p_attrname3 IN VARCHAR2 DEFAULT NULL,
p_attrvalue3 IN VARCHAR2 DEFAULT NULL,
p_attrname4 IN VARCHAR2 DEFAULT NULL,
p_attrvalue4 IN VARCHAR2 DEFAULT NULL
);
PROCEDURE createclosetag (p_tag IN VARCHAR2);
@@ -430,12 +430,12 @@ AS
PROCEDURE createopentagattributes (p_tag IN VARCHAR2,
p_attrname1 IN VARCHAR2,
p_attrvalue1 IN VARCHAR2,
p_attrname2 IN VARCHAR2,
p_attrvalue2 IN VARCHAR2,
p_attrname3 IN VARCHAR2,
p_attrvalue3 IN VARCHAR2,
p_attrname4 IN VARCHAR2,
p_attrvalue4 IN VARCHAR2)
p_attrname2 IN VARCHAR2 DEFAULT NULL,
p_attrvalue2 IN VARCHAR2 DEFAULT NULL,
p_attrname3 IN VARCHAR2 DEFAULT NULL,
p_attrvalue3 IN VARCHAR2 DEFAULT NULL,
p_attrname4 IN VARCHAR2 DEFAULT NULL,
p_attrvalue4 IN VARCHAR2 DEFAULT NULL)
AS
v_return VARCHAR2 (5000);
BEGIN
@@ -5785,7 +5785,8 @@ AS
p_extra_key IN NUMBER,
p_withchildren IN BOOLEAN,
p_withrelated IN NUMBER DEFAULT 0,
p_concise IN BOOLEAN)
p_concise IN BOOLEAN,
p_meldingtype VARCHAR DEFAULT NULL )
AS
v_meldbron_nr mld_melding.mld_meldbron_nr%TYPE;
v_datum mld_melding.mld_melding_datum%TYPE;
@@ -5892,7 +5893,7 @@ AS
BEGIN
IF p_key IS NOT NULL
THEN
createopentag ('melding');
createopentagattributes ('melding', 'meldingtype', p_meldingtype);
SELECT NVL (mld_meldbron_nr, ''),
NVL (mld_melding_datum, ''),
@@ -6166,7 +6167,7 @@ AS
FROM mld_melding
WHERE mld_melding_mldgroup_key = p_key)
LOOP
create_mld_melding_node (grp.mld_melding_key, p_extra_key, FALSE, p_withrelated + 1, FALSE);
create_mld_melding_node (grp.mld_melding_key, p_extra_key, FALSE, p_withrelated + 1, FALSE, 'groepering');
END LOOP;
-- Voor een workflow kunnen de andere stappen ook interessant zijn
-- Dit doen we niet voor adhoc vervolgmeldingen (daarom v_workflowstep_key is not null)
@@ -6195,7 +6196,7 @@ AS
NULL,
NULL,
NULL);
create_mld_melding_node (rec4.mld_melding_key, p_extra_key, FALSE, p_withrelated + 1, FALSE); -- is die p_extra_key hier nog van belang??
create_mld_melding_node (rec4.mld_melding_key, p_extra_key, FALSE, p_withrelated + 1, FALSE, 'workflowstep'); -- is die p_extra_key hier nog van belang??
createclosetag ('workflowstep');
END LOOP;
createclosetag ('workflowsteps');
@@ -6204,8 +6205,8 @@ AS
IF p_withrelated < 5
THEN
create_mld_melding_node (v_parentkey, p_extra_key, p_withchildren, p_withrelated + 1, FALSE); --Zou zomaar NULL kunnen zijn, geeft niks.
create_mld_melding_node (v_mldgroupkey, p_extra_key, p_withchildren, p_withrelated + 1, FALSE); --Zou zomaar NULL kunnen zijn, geeft niks.
create_mld_melding_node (v_parentkey, p_extra_key, p_withchildren, p_withrelated + 1, FALSE, 'relatedparent'); --Zou zomaar NULL kunnen zijn, geeft niks.
create_mld_melding_node (v_mldgroupkey, p_extra_key, p_withchildren, p_withrelated + 1, FALSE, 'related'); --Zou zomaar NULL kunnen zijn, geeft niks.
END IF;
IF v_rsv_ruimte_key IS NOT NULL
@@ -6236,7 +6237,7 @@ AS
create_cnt_contract_node (v_kto_key, TRUE);
WHEN 'M'
THEN
create_mld_melding_node (v_kto_key, p_extra_key, FALSE, p_withrelated + 1, FALSE);
create_mld_melding_node (v_kto_key, p_extra_key, FALSE, p_withrelated + 1, FALSE, 'referentie');
WHEN 'X'
THEN
create_bes_bestelopdr_node (v_kto_key, TRUE);