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

ASDL#37376 -- Aanpassen import personen en wie zit waar

Browse Source 
svn path=/Customer/trunk/; revision=30222
This commit is contained in:
Arthur Egberink
2016-08-05 05:52:00 +00:00
parent 491ed583d8
commit f63bcda476
1 changed files with 21 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
ASDL/asdl.sql
View File

@@ -973,11 +973,11 @@ AS
v_voorletters VARCHAR2 (100);
BEGIN
v_seq_of_columns :=
'0;0;0;0;0;0;1;10;12;14;9;11;13;0;0;0;0;7;0;2;5;0;0;0;0;0;15;16;0;8;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46';
'0;0;0;0;0;0;1;10;12;14;9;11;13;0;0;0;0;7;0;2;5;0;0;0;0;0;16;15;0;8;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46';
prs.import_perslid (
p_import_key,
v_seq_of_columns,
'WERKS;PERNR;STELL;SHORT;STEXT;E_MAIL_P;E_MAIL_Z;ENAME;INITS;NACHN;NAME2;VORSW;VORS2;RUFNM;PERNR_OL;GBDAT%');
'WERKS;PERNR;STELL;SHORT;STEXT;E_MAIL_P;E_MAIL_Z;ENAME;INITS;NACHN;NAME2;VORSW;VORS2;RUFNM;GBDAT;PERNR_OL%');
-- Even het personeelsnummer voorzien van de nodig voorloopnullen. Die Excel toch...
-- en ook het nummer van de leidinggevende
@@ -1187,6 +1187,7 @@ AS
-- De importvelden
v_perslid_nr VARCHAR2 (100);
v_locatie_code VARCHAR2 (100);
v_locatie_omschrijving VARCHAR2(100);
v_datum_str VARCHAR2 (100);
v_perslid_key NUMBER;
v_locatie_key NUMBER;
@@ -1223,7 +1224,7 @@ BEGIN
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_nr);
fac.imp_getfield (v_newline, v_fielddelimitor, v_skipfield);
fac.imp_getfield (v_newline, v_fielddelimitor, v_locatie_code);
fac.imp_getfield (v_newline, v_fielddelimitor, v_skipfield);
fac.imp_getfield (v_newline, v_fielddelimitor, v_locatie_omschrijving);
fac.imp_getfield (v_newline, v_fielddelimitor, v_datum_str);
v_aanduiding := 'Persoon: ' || v_perslid_nr || ' - Locatie: ' || v_locatie_code;
@@ -1250,12 +1251,22 @@ BEGIN
WHERE prs_perslid_verwijder IS NULL
AND prs_perslid_nr = v_perslid_nr;
v_errorhint := 'Vind de juiste locatie';
SELECT alg_locatie_key
INTO v_locatie_key
FROM alg_locatie
WHERE alg_locatie_verwijder IS NULL
AND REPLACE(alg_locatie_code, ' ') = SUBSTR(v_locatie_code, 1, 6);
v_errorhint := 'Vind de juiste locatie (op postcode)';
BEGIN
SELECT alg_locatie_key
INTO v_locatie_key
FROM alg_locatie
WHERE alg_locatie_verwijder IS NULL
AND REPLACE(alg_locatie_code, ' ') = SUBSTR(v_locatie_code, 1, 6);
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_errorhint := 'Vind de juiste locatie (op omschrijving)';
SELECT alg_locatie_key
INTO v_locatie_key
FROM alg_locatie
WHERE alg_locatie_verwijder IS NULL
AND UPPER(v_locatie_omschrijving) like '%' || UPPER(alg_locatie_omschrijving);
END;
v_errorhint := 'Vind de juiste ruimte';
SELECT MIN(alg_ruimte_key)
@@ -1804,7 +1815,7 @@ BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('ASDL', 10); END;
BEGIN fac.registercustversion('ASDL', 11); END;
/
COMMIT;