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

FCLT#65576 Flex-expressies exception aangescherpt naar aanleiding van FCLT#67948

Browse Source 
svn path=/Database/trunk/; revision=52418
This commit is contained in:
Jos Groot Lipman
2021-07-19 12:27:47 +00:00
parent fd1a73f7ce
commit ef498ab578
1 changed files with 27 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
FAC/FAC_PACFLEX.SRC
View File

@@ -745,23 +745,33 @@
l_kenmerkwaarde := NULL;
l_kenmerktype := NULL;
END;
-- Als <20><>n van de flexkenmerken NULL is, dan met die waarde verder rekenen. Waarde kan bewust NULL zijn
CASE l_kenmerktype
WHEN 'D'
THEN
l_kenmerkw_date := TO_DATE(l_kenmerkwaarde, 'DD-MM-YYYY');
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_date);
WHEN 'N'
THEN
l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
WHEN 'V'
THEN
l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
ELSE
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkwaarde);
END CASE;
BEGIN
-- Als <20><>n van de flexkenmerken NULL is, dan met die waarde verder rekenen. Waarde kan bewust NULL zijn
CASE l_kenmerktype
WHEN 'D'
THEN
l_kenmerkw_date := TO_DATE(l_kenmerkwaarde, 'DD-MM-YYYY');
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_date);
WHEN 'N'
THEN
l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
WHEN 'V'
THEN
l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
ELSE
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkwaarde);
END CASE;
EXCEPTION
WHEN OTHERS THEN
raise_application_error (
-20001,
'Error binding flex-expression ' || pmodule|| ' kkey:' || expr.fac_kenmwaarden_kenmerk_key
|| ' type: ' || l_kenmerktype || ' val: ' || l_kenmerkwaarde
|| CHR(10) || SQLERRM
|| CHR(10) || l_sql_exprval);
END;
END LOOP;
BEGIN
l_rowsprocessed := DBMS_SQL.execute_and_fetch (l_cursor_exprval);