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=58581
This commit is contained in:
Maykel Geerdink
2023-01-09 14:48:11 +00:00
parent 9d271f3150
commit 0d13d7131a
3 changed files with 40 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
FAC/FAC_PACX.SRC
View File

@@ -9063,10 +9063,20 @@ AS
cols VARCHAR2 (4000);
nrcols NUMBER (3);
ctx DBMS_XMLGEN.ctxhandle;
xmlnode VARCHAR2 (20);
BEGIN
IF p_view IS NOT NULL
THEN
createopentagattributes ('rapport',
SELECT CASE
WHEN BITAND(fac_usrrap.fac_usrrap_functie, 4) = 4
THEN 'srapport'
ELSE 'rapport'
END xmlnode
INTO xmlnode
FROM fac_usrrap
WHERE fac_usrrap.fac_usrrap_key = p_rapkey;
createopentagattributes (xmlnode,
'view',
p_view,
'title',
@@ -9160,7 +9170,7 @@ AS
v_xml_tag_length + 1);
END IF;
createclosetag ('rapport');
createclosetag (xmlnode);
END IF;
END;
@@ -9215,13 +9225,22 @@ AS
l_extra_where VARCHAR2 (4000);
l_sql_str VARCHAR2 (4000);
l_cursor SYS_REFCURSOR;
xmlnode VARCHAR2 (20);
BEGIN
IF p_key IS NOT NULL
THEN
SELECT fac_usrrap_view_name,
fac_usrrap_omschrijving,
fac_usrrap_info
INTO proc_name, omschrijving, rinfo
fac_usrrap_info,
CASE
WHEN BITAND(fac_usrrap.fac_usrrap_functie, 4) = 4
THEN 'srapport'
ELSE 'rapport'
END xmlnode
INTO proc_name,
omschrijving,
rinfo,
xmlnode
FROM fac_usrrap
WHERE fac_usrrap_key = p_key;
@@ -9286,7 +9305,7 @@ AS
EXECUTE IMMEDIATE l_sql_str USING l_cursor;
END IF;
createopentagattributes ('rapport',
createopentagattributes (xmlnode,
'view',
proc_name,
'title',
@@ -9339,7 +9358,7 @@ AS
v_xml_tag_length + 1);
END IF;
createclosetag ('rapport');
createclosetag (xmlnode);
END IF;
END;
@@ -10457,6 +10476,16 @@ AS
v_where := 'WHERE extra_key = ' || p_extra;
END IF;
create_fac_usrrap_node (p_key, v_where);
WHEN 'srapport'
THEN
v_where := p_where;
IF COALESCE (p_extra, 0) <> 0 AND v_where IS NULL
THEN
v_where := 'WHERE extra_key = ' || p_extra;
END IF;
create_fac_usrrap_node (p_key, v_where);
WHEN 'contract'
THEN