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

FCLT#70361: Management rapportage voor periodieke taken.

Browse Source 
svn path=/Database/trunk/; revision=58895
This commit is contained in:
Maykel Geerdink
2023-01-31 14:16:48 +00:00
parent 864af6e8b8
commit b8d7f645cb
1 changed files with 19 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
FAC/FAC_PACX.SRC
View File

@@ -9073,7 +9073,8 @@ AS
p_where IN VARCHAR2,
p_nodename IN VARCHAR2,
p_rowname IN VARCHAR2,
p_rapkey IN NUMBER)
p_rapkey IN NUMBER,
p_xmlnode IN VARCHAR2)
AS
v_xml_clob_length NUMBER (10);
v_xml_tag_length NUMBER (10);
@@ -9091,20 +9092,10 @@ AS
cols VARCHAR2 (4000);
nrcols NUMBER (3);
ctx DBMS_XMLGEN.ctxhandle;
xmlnode VARCHAR2 (20);
BEGIN
IF p_view IS NOT NULL
THEN
SELECT CASE
WHEN BITAND(fac_usrrap.fac_usrrap_functie, 4) = 4
THEN 'sysrapport'
ELSE 'rapport'
END xmlnode
INTO xmlnode
FROM fac_usrrap
WHERE fac_usrrap.fac_usrrap_key = p_rapkey;
createopentagattributes (xmlnode,
createopentagattributes (p_xmlnode,
'view',
p_view,
'title',
@@ -9198,7 +9189,7 @@ AS
v_xml_tag_length + 1);
END IF;
createclosetag (xmlnode);
createclosetag (p_xmlnode);
END IF;
END;
@@ -9208,6 +9199,7 @@ AS
view_name fac_usrrap.fac_usrrap_view_name%TYPE;
omschrijving fac_usrrap.fac_usrrap_omschrijving%TYPE;
rinfo fac_usrrap.fac_usrrap_info%TYPE;
xmlnode VARCHAR2 (20);
BEGIN
IF p_key IS NOT NULL
THEN
@@ -9217,8 +9209,16 @@ AS
fac_usrrap_omschrijving)
fac_usrrap_omschrijving,
lcl.x ('fac_usrrap_info', fac_usrrap_key, fac_usrrap_info)
fac_usrrap_info
INTO view_name, omschrijving, rinfo
fac_usrrap_info,
CASE
WHEN BITAND(fac_usrrap_functie, 4) = 4
THEN 'sysrapport'
ELSE 'rapport'
END xmlnode
INTO view_name,
omschrijving,
rinfo,
xmlnode
FROM fac_usrrap
WHERE fac_usrrap_key = p_key;
@@ -9228,7 +9228,8 @@ AS
p_where,
NULL,
NULL,
p_key);
p_key,
xmlnode);
END IF;
END;
@@ -10641,7 +10642,8 @@ AS
p_where,
p_nodename,
p_rowname,
NULL);
NULL,
'rapport');
add_footer ('');
RETURN aclob;
EXCEPTION WHEN NO_DATA_FOUND THEN