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

LOGC#56845 -- Aanpassen urenimport vanuit SAP/AX

Browse Source 
svn path=/Customer/trunk/; revision=41394
This commit is contained in:
Arthur Egberink
2019-03-07 16:25:35 +00:00
parent a631b85d2f
commit 6528b2c60d
1 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
LOGC/logc.sql
View File

@@ -320,7 +320,7 @@ IS
v_maxdate DATE;
v_mindate DATE;
-- De importvelden:
v_transactietekst VARCHAR2 (100);
v_transactietekst VARCHAR2 (1000);
v_project VARCHAR2 (100);
v_uren VARCHAR2 (25);
v_datum_txt VARCHAR2 (20);
@@ -341,7 +341,7 @@ IS
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index;
BEGIN
DELETE FROM logc_imp_uren_besteding;
DELETE FROM logc_imp_uren_besteding WHERE datum IS NULL;
COMMIT;
@@ -397,7 +397,7 @@ BEGIN
IF (header_is_valid = 1)
THEN
v_count_tot := v_count_tot + 1;
v_aanduiding := v_transactietekst || ' ' || v_datum_txt || ' ' || v_categorie;
v_aanduiding := SUBSTR(v_transactietekst || ' ' || v_datum_txt || ' ' || v_categorie, 1, 200);
-- Controleer alle veldwaarden
--
@@ -408,7 +408,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog (p_import_key,
'W',
'E',
v_aanduiding || v_errormsg,
'Regel wordt overgeslagen!');
END IF;
@@ -417,13 +417,17 @@ BEGIN
v_transactietekst := TRIM (v_transactietekst);
IF v_transactietekst IS NOT NULL AND (LENGTH (v_transactietekst) > 20 OR INSTR (v_transactietekst, '#') = 0)
IF v_transactietekst IS NOT NULL AND INSTR(v_transactietekst, '#') > 0
THEN
v_ongeldig := 1;
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || v_errormsg,
'Regel wordt overgeslagen!');
v_transactietekst := REGEXP_SUBSTR (v_transactietekst , '[[:alpha:]]{3,}#[[:digit:]]{5,}', 1, 1, 'i');
IF v_transactietekst IS NULL
THEN
--v_ongeldig := 1;
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || v_errormsg,
'');
END IF;
END IF;
--
@@ -434,7 +438,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog (p_import_key,
'W',
'E',
v_aanduiding || v_errormsg,
'Regel wordt overgeslagen!');
END IF;
@@ -447,7 +451,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog (p_import_key,
'W',
'E',
v_aanduiding || v_errormsg,
'Regel wordt overgeslagen!');
END IF;
@@ -460,7 +464,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog (p_import_key,
'W',
'E',
v_aanduiding || v_errormsg,
'Regel wordt overgeslagen!');
END IF;
@@ -474,7 +478,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog (p_import_key,
'W',
'E',
v_aanduiding || v_errormsg,
'Regel wordt overgeslagen!');
END IF;