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

BAMG#74904 Betere foutmelding voor ontbrekende perslid referentie waarde kenmerkdomein

Browse Source 
svn path=/Database/trunk/; revision=58121
This commit is contained in:
Jos Groot Lipman
2022-11-24 14:34:12 +00:00
parent 83ffaf5ac3
commit a5ea0e2f5f
1 changed files with 34 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
FAC/FAC_PACX.SRC
View File

@@ -709,23 +709,40 @@ AS
addvarchartoclob (v_return); -- Tussenresultaat; nog geen waarde en sluithaakje
-- Plak nu xmlnode-kenmerk direct in het resultaat (als side effect)
xmlnode_depth := xmlnode_depth + 1; -- Increment depth; even van het pad af!
IF v_xmlnode = 'reservering' THEN
xml_node (v_xmlnode,
NULL, -- res_reservering_key mogen we leeg laten
NULL,
NULL,
fac.safe_to_number (p_value), -- res_rsv_ruimte_key moet in p_extra
NULL,
TRUE);
ELSE
xml_node (v_xmlnode,
fac.safe_to_number (p_value),
NULL,
NULL,
NULL,
NULL,
TRUE);
END IF;
BEGIN
IF v_xmlnode = 'reservering' THEN
xml_node (v_xmlnode,
NULL, -- res_reservering_key mogen we leeg laten
NULL,
NULL,
fac.safe_to_number (p_value), -- res_rsv_ruimte_key moet in p_extra
NULL,
TRUE);
ELSE
xml_node (v_xmlnode,
fac.safe_to_number (p_value),
NULL,
NULL,
NULL,
NULL,
TRUE);
END IF;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
raise_application_error (
-20001,
'Could not find kenmerk_key '
|| p_attrvalue4
|| ' ('
|| p_attrvalue1
|| ') '
|| v_xmlnode
|| ' key: '
|| p_value
|| CHR (13)
|| DBMS_UTILITY.FORMAT_ERROR_STACK);
END;
xmlnode_depth := xmlnode_depth - 1; -- Decrement depth; terug naar de basis!
ELSE
IF p_value IS NULL OR SUBSTR(p_value,1,15) = '#donotsuppress#'