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

LOGC#60115 -- Urenimport aanpassen van AX naar SAP

Browse Source 
svn path=/Customer/trunk/; revision=44927
This commit is contained in:
Arthur Egberink
2019-11-14 18:34:03 +00:00
parent 67cb2c3cdd
commit 8fc7d91308
1 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
LOGC/logc.sql
View File

@@ -302,7 +302,7 @@ EXCEPTION
END logc_update_besteding;
/
-- import nieuwe versie die ook dag en medewerker registreert
-- import nieuwe versie die ook dag en medewerker registreert (SAP versie)
CREATE OR REPLACE PROCEDURE logc_import_uren_besteding (p_import_key IN NUMBER)
IS
c_delim VARCHAR2 (1) := ';';
@@ -322,6 +322,7 @@ IS
-- De importvelden:
v_transactietekst VARCHAR2 (1000);
v_project VARCHAR2 (100);
v_project_oms VARCHAR2 (100);
v_uren VARCHAR2 (25);
v_datum_txt VARCHAR2 (20);
v_categorie VARCHAR2 (100);
@@ -329,6 +330,7 @@ IS
i_transactietekst NUMBER(2);
i_project NUMBER(2);
i_project_oms NUMBER(2);
i_uren NUMBER(2);
i_datum_txt NUMBER(2);
i_categorie NUMBER(2);
@@ -362,12 +364,13 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_field);
v_index := v_index + 1;
CASE UPPER(v_field)
WHEN 'PROJECTDATUM' THEN i_datum_txt := v_index;
WHEN 'PROJECT' THEN i_project := v_index;
WHEN 'CATEGORIE' THEN i_categorie := v_index;
WHEN 'WERKNEMER' THEN i_werknemer := v_index;
WHEN 'UREN' THEN i_uren := v_index;
WHEN 'TRANSACTIETEKST' THEN i_transactietekst := v_index;
WHEN 'DATE' THEN i_datum_txt := v_index;
WHEN 'GENERAL RECEIVER' THEN i_project := v_index;
WHEN 'ACCT ASSGNT TEXT' THEN i_project_oms := v_index;
WHEN 'ACTIVITY TYPE' THEN i_categorie := v_index;
WHEN 'PERSONNEL NUMBER' THEN i_werknemer := v_index;
WHEN 'NUMBER (UNIT)' THEN i_uren := v_index;
WHEN 'SHORT TEXT' THEN i_transactietekst := v_index;
ELSE
NULL;
END CASE;
@@ -375,6 +378,7 @@ BEGIN
END LOOP;
IF i_datum_txt > 0
AND i_project > 0
AND i_project_oms > 0
AND i_categorie > 0
AND i_werknemer > 0
AND i_uren > 0
@@ -389,6 +393,7 @@ BEGIN
-- Lees alle veldwaarden
fac.imp_getfield_nr (v_newline, c_delim, i_transactietekst, v_transactietekst);
fac.imp_getfield_nr (v_newline, c_delim, i_project, v_project);
fac.imp_getfield_nr (v_newline, c_delim, i_project_oms, v_project_oms);
fac.imp_getfield_nr (v_newline, c_delim, i_uren, v_uren);
fac.imp_getfield_nr (v_newline, c_delim, i_datum_txt, v_datum_txt);
fac.imp_getfield_nr (v_newline, c_delim, i_categorie, v_categorie);
@@ -491,8 +496,8 @@ BEGIN
BEGIN
v_errormsg := 'Fout bij wegschrijven importregel';
INSERT INTO logc_imp_uren_besteding (transactietekst, project, uren, datum_txt, categorie, werknemer)
VALUES (v_transactietekst, v_project, fac.safe_to_number (replace(v_uren,',','.')), v_datum_txt, v_categorie, v_werknemer);
INSERT INTO logc_imp_uren_besteding (transactietekst, project, project_oms, uren, datum_txt, categorie, werknemer)
VALUES (v_transactietekst, v_project, v_project_oms, fac.safe_to_number (replace(v_uren,',','.')), v_datum_txt, v_categorie, v_werknemer);
v_count_import := v_count_import + 1;
EXCEPTION
@@ -522,6 +527,7 @@ BEGIN
'Geen header of header niet volgens specificatie!' || '(' ||
i_datum_txt || '-' ||
i_project || '-' ||
i_project_oms || '-' ||
i_categorie || '-' ||
i_werknemer || '-' ||
i_uren || '-' ||