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

FCLT#65180 Veld delimiter in standaard imports

Browse Source 
svn path=/Database/trunk/; revision=57138
This commit is contained in:
Erik Groener
2022-09-06 13:15:17 +00:00
parent 368cdb68c4
commit 0bdca25eed
2 changed files with 1 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
FAC/FAC_PAC.SRC
View File

@@ -80,7 +80,6 @@ CREATE OR REPLACE PACKAGE fac
PROCEDURE view2columns (p_usrrap_key IN NUMBER, p_last_refresh IN DATE DEFAULT NULL);
PROCEDURE tabelize_usrraps;
FUNCTION import_delimiter(p_import_key IN NUMBER) RETURN VARCHAR2;
FUNCTION replace_delimiter(p_header IN VARCHAR2, p_old_delimiter IN VARCHAR2, p_new_delimiter IN VARCHAR2) RETURN VARCHAR2;
PROCEDURE imp_getfield ( p_parseline IN OUT VARCHAR2,
p_fielddelimitor IN VARCHAR2,
p_field OUT VARCHAR2
@@ -1375,26 +1374,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END;
END;
FUNCTION replace_delimiter(p_header IN VARCHAR2, p_old_delimiter IN VARCHAR2, p_new_delimiter IN VARCHAR2) RETURN VARCHAR2
IS
r_header VARCHAR2(4000) := '';
v_header VARCHAR2(4000) := p_header;
v_column VARCHAR2(100);
v_pos INTEGER;
BEGIN
WHILE (INSTR(v_header, p_old_delimiter) > 0)
LOOP
v_pos := INSTR(v_header, p_old_delimiter);
v_column := SUBSTR(v_header, 1, v_pos-1);
v_header := SUBSTR(v_header, v_pos+1);
r_header := r_header || v_column || p_new_delimiter;
END LOOP;
r_header := r_header || v_header;
RETURN r_header;
END;
PROCEDURE imp_getfield (
p_parseline IN OUT VARCHAR2,
p_fielddelimitor IN VARCHAR2,

2
PRS/PRS_PAC.SRC
View File

@@ -1000,7 +1000,7 @@ AS
IF v_header_is_valid = 0
THEN
v_lim_header := fac.replace_delimiter(p_header, ';', v_fielddelimitor);
v_lim_header := REPLACE(p_header, ';', v_fielddelimitor);
IF UPPER(v_newline) LIKE UPPER(v_lim_header)
THEN