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

MNNL#88808 EUA-import/Dynamisch bepalen delimitor

Browse Source 
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
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
MNNL/mnnl.sql
View File

@@ -3132,12 +3132,12 @@ AS
-- MNNL#40905: EUA-import (EndUser Asset)! -- MNNL#40905: EUA-import (EndUser Asset)!
CREATE OR REPLACE PROCEDURE mnnl_import_eua (p_import_key IN NUMBER) CREATE OR REPLACE PROCEDURE mnnl_import_eua (p_import_key IN NUMBER)
IS IS
c_delim VARCHAR2 (1) := ';'; c_delim VARCHAR2 (1);
v_newline VARCHAR2 (4000); -- Input line v_newline VARCHAR2 (4000); -- Input line
v_errormsg VARCHAR2 (1000); v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER; oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200); oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (500); v_aanduiding VARCHAR2 (500) := '';
header_is_valid NUMBER := 0; header_is_valid NUMBER := 0;
v_count_tot NUMBER (10) := 0; v_count_tot NUMBER (10) := 0;
v_count_import NUMBER (10) := 0; v_count_import NUMBER (10) := 0;
@@ -3168,11 +3168,19 @@ IS
CURSOR c1 CURSOR c1
IS 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 BEGIN
DELETE FROM fac_imp_ins; DELETE FROM fac_imp_ins;
COMMIT; 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 FOR rec1 IN c1
LOOP LOOP
BEGIN BEGIN