UWVA#50707 vertrouwelijke kenmerken - eigenschap herkenbaar in XML
svn path=/Database/trunk/; revision=36333
This commit is contained in:
Peter Feij
@@ -501,26 +501,28 @@ AS
|
||||
addvarchartoclob (v_return);
|
||||
END;
|
||||
|
||||
-- * createXMLtagValue
|
||||
-- * function to return a complex XML node including up to 5 attributes
|
||||
-- * createxmltagvalueattributes6
|
||||
-- * function to return a complex XML node including up to 6 attributes
|
||||
-- * use the NULL value in the attrnameX argument for empty attributes
|
||||
-- * used for Kenmerk-nodes; if the fac_kenmerkdomein_key from p_kmdkey
|
||||
-- * defines a fac_kenmerkdomein_xmlnode the corresponding subnode
|
||||
-- * is added on the highest level only
|
||||
-- * Per 5.4.3 empty nodes are skipped here too, unless the value is '#donotsuppress#'
|
||||
PROCEDURE createxmltagvalueattributes (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_attrname5 IN VARCHAR2,
|
||||
p_attrvalue5 IN VARCHAR2,
|
||||
p_kmdkey IN VARCHAR2,
|
||||
p_value IN VARCHAR2)
|
||||
PROCEDURE createxmltagvalueattributes6 (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_attrname5 IN VARCHAR2,
|
||||
p_attrvalue5 IN VARCHAR2,
|
||||
p_attrname6 IN VARCHAR2,
|
||||
p_attrvalue6 IN VARCHAR2,
|
||||
p_kmdkey IN VARCHAR2,
|
||||
p_value IN VARCHAR2)
|
||||
AS
|
||||
v_value VARCHAR2 (5000);
|
||||
v_return VARCHAR2 (5000);
|
||||
@@ -593,6 +595,18 @@ AS
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname6 IS NOT NULL AND p_attrvalue6 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname6 || '=';
|
||||
|
||||
IF p_attrvalue6 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue6) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_kmdkey IS NOT NULL
|
||||
THEN
|
||||
-- this domein-reference could be a xmlnode reference
|
||||
@@ -650,6 +664,39 @@ AS
|
||||
addvarchartoclob (v_return);
|
||||
END;
|
||||
|
||||
-- Compatible function for 5 attributes
|
||||
PROCEDURE createxmltagvalueattributes (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_attrname5 IN VARCHAR2,
|
||||
p_attrvalue5 IN VARCHAR2,
|
||||
p_kmdkey IN VARCHAR2,
|
||||
p_value IN VARCHAR2)
|
||||
AS
|
||||
BEGIN
|
||||
createxmltagvalueattributes6 (p_tag,
|
||||
p_attrname1,
|
||||
p_attrvalue1,
|
||||
p_attrname2,
|
||||
p_attrvalue2,
|
||||
p_attrname3,
|
||||
p_attrvalue3,
|
||||
p_attrname4,
|
||||
p_attrvalue4,
|
||||
p_attrname5,
|
||||
p_attrvalue5,
|
||||
NULL,
|
||||
NULL,
|
||||
p_kmdkey,
|
||||
p_value);
|
||||
END;
|
||||
|
||||
-- *
|
||||
-- * Create the header node including the timestamps.
|
||||
-- * Note: the parameter is a dummy now
|
||||
@@ -3657,6 +3704,7 @@ AS
|
||||
k.mld_kenmerk_key,
|
||||
lcl.x ('mld_srtkenmerk_omschrijving', s.mld_srtkenmerk_key, mld_srtkenmerk_omschrijving) mld_srtkenmerk_omschrijving,
|
||||
s.mld_srtkenmerk_kenmerktype,
|
||||
s.mld_srtkenmerk_systeem,
|
||||
s.fac_kenmerkdomein_key,
|
||||
s.mld_srtkenmerk_lengte,
|
||||
s.mld_srtkenmerk_dec,
|
||||
@@ -3714,7 +3762,7 @@ AS
|
||||
rec1.mld_srtkenmerk_nmin,
|
||||
rec1.mld_srtkenmerk_nmax);
|
||||
|
||||
createxmltagvalueattributes ('kenmerk',
|
||||
createxmltagvalueattributes6('kenmerk',
|
||||
'naam',
|
||||
rec1.mld_srtkenmerk_omschrijving,
|
||||
'type',
|
||||
@@ -3725,6 +3773,8 @@ AS
|
||||
rec1.mld_kenmerk_key,
|
||||
'dimensie',
|
||||
rec1.dimensie,
|
||||
'systeem',
|
||||
rec1.mld_srtkenmerk_systeem,
|
||||
rec1.fac_kenmerkdomein_key,
|
||||
v_kenmerk_waarde);
|
||||
END LOOP;
|
||||
@@ -3769,6 +3819,7 @@ AS
|
||||
SELECT k.mld_kenmerk_key,
|
||||
lcl.x ('mld_srtkenmerk_omschrijving', s.mld_srtkenmerk_key, mld_srtkenmerk_omschrijving) mld_srtkenmerk_omschrijving,
|
||||
s.mld_srtkenmerk_kenmerktype,
|
||||
s.mld_srtkenmerk_systeem,
|
||||
s.fac_kenmerkdomein_key,
|
||||
s.mld_srtkenmerk_lengte,
|
||||
s.mld_srtkenmerk_dec,
|
||||
@@ -3813,7 +3864,7 @@ AS
|
||||
rec1.mld_srtkenmerk_nmin,
|
||||
rec1.mld_srtkenmerk_nmax);
|
||||
|
||||
createxmltagvalueattributes ('kenmerk',
|
||||
createxmltagvalueattributes6 ('kenmerk',
|
||||
'naam',
|
||||
rec1.mld_srtkenmerk_omschrijving,
|
||||
'type',
|
||||
@@ -3824,6 +3875,8 @@ AS
|
||||
rec1.mld_kenmerk_key,
|
||||
'dimensie',
|
||||
rec1.dimensie,
|
||||
'systeem',
|
||||
rec1.mld_srtkenmerk_systeem,
|
||||
rec1.fac_kenmerkdomein_key,
|
||||
v_kenmerk_waarde);
|
||||
END LOOP;
|
||||
@@ -6529,6 +6582,7 @@ AS
|
||||
SELECT k.bez_kenmerk_key,
|
||||
lcl.x ('bez_kenmerk_omschrijving', k.bez_kenmerk_key, bez_kenmerk_omschrijving) bez_kenmerk_omschrijving,
|
||||
k.bez_kenmerk_kenmerktype,
|
||||
k.bez_kenmerk_systeem,
|
||||
k.fac_kenmerkdomein_key,
|
||||
k.bez_kenmerk_lengte,
|
||||
k.bez_kenmerk_dec,
|
||||
@@ -6566,7 +6620,7 @@ AS
|
||||
rec1.bez_kenmerk_nmin,
|
||||
rec1.bez_kenmerk_nmax);
|
||||
|
||||
createxmltagvalueattributes ('kenmerk',
|
||||
createxmltagvalueattributes6 ('kenmerk',
|
||||
'naam',
|
||||
rec1.bez_kenmerk_omschrijving,
|
||||
'type',
|
||||
@@ -6577,6 +6631,8 @@ AS
|
||||
rec1.bez_kenmerk_key,
|
||||
'dimensie',
|
||||
rec1.dimensie,
|
||||
'systeem',
|
||||
rec1.bez_kenmerk_systeem,
|
||||
rec1.fac_kenmerkdomein_key,
|
||||
v_kenmerk_waarde);
|
||||
END LOOP;
|
||||
|
||||
Reference in New Issue
Block a user