MNNL#88808 EUA-import/Dynamisch bepalen delimitor

svn path=/Customer/trunk/; revision=68954
This commit is contained in:
Maarten van der Heide
2025-05-08 12:44:37 +00:00
parent 0ccccc87ab
commit d852dde36b

View File

@@ -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