From d852dde36b58a2705e130de7739b2505522d61cc Mon Sep 17 00:00:00 2001 From: Maarten van der Heide Date: Thu, 8 May 2025 12:44:37 +0000 Subject: [PATCH] MNNL#88808 EUA-import/Dynamisch bepalen delimitor svn path=/Customer/trunk/; revision=68954 --- MNNL/mnnl.sql | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/MNNL/mnnl.sql b/MNNL/mnnl.sql index 157bf768d..016bad7df 100644 --- a/MNNL/mnnl.sql +++ b/MNNL/mnnl.sql @@ -3132,12 +3132,12 @@ AS -- MNNL#40905: EUA-import (EndUser Asset)! CREATE OR REPLACE PROCEDURE mnnl_import_eua (p_import_key IN NUMBER) IS - c_delim VARCHAR2 (1) := ';'; + c_delim VARCHAR2 (1); v_newline VARCHAR2 (4000); -- Input line v_errormsg VARCHAR2 (1000); oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); - v_aanduiding VARCHAR2 (500); + v_aanduiding VARCHAR2 (500) := ''; header_is_valid NUMBER := 0; v_count_tot NUMBER (10) := 0; v_count_import NUMBER (10) := 0; @@ -3168,11 +3168,19 @@ IS CURSOR c1 IS - SELECT * FROM fac_imp_file WHERE fac_import_key = p_import_key ORDER BY fac_imp_file_index; + SELECT * FROM fac_imp_file WHERE fac_import_key = p_import_key ORDER BY fac_imp_file_index; BEGIN DELETE FROM fac_imp_ins; COMMIT; + -- Bepaal delimiter zoals gedefinieerd voor importfunctie! + v_errormsg := 'Fout bepalen delimitor'; + SELECT COALESCE (fia.fac_import_app_delimiter, ';') + INTO c_delim + FROM fac_import fi, fac_import_app fia + WHERE fi.fac_import_key = p_import_key + AND fi.fac_import_app_key = fia.fac_import_app_key; + FOR rec1 IN c1 LOOP BEGIN