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

LOGI#56094: Personen import afgelopen nacht verkeerd gelopen

Browse Source 
svn path=/Customer/; revision=43021
This commit is contained in:
Suzan Wiegerinck
2019-06-20 07:47:33 +00:00
parent 3932d65ee2
commit 43cebe6d25
1 changed files with 93 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
onces/LOGI/LOGI#56094.sql
View File

@@ -19,6 +19,99 @@ WHENEVER SQLERROR CONTINUE;
SET DEFINE OFF SET DEFINE OFF
------ payload begin ------ ------ payload begin ------
CREATE OR REPLACE PROCEDURE logi_import_persoon (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
v_aantal_in_FCLT NUMBER;
BEGIN
v_errorhint := 'Generieke update';
-- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
prs.import_perslid (
p_import_key,
'0;0;0;0;0;0;8;2;4;3;'
|| '0;0;0;0;0;0;0;6;0;1;'
|| '1;5;0;0;0;0;9;0;0;0;'
|| '0;0;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0',
'employeeID;sn;givenName;infix;uid;mail;orglevel7;orgleve7id;a1physicalDeliveryOfficeName%');
UPDATE fac_imp_perslid
SET prs_srtperslid_omschrijving = 'Onbekend';
UPDATE fac_imp_perslid
SET prs_afdeling_naam = 'CGI';
UPDATE fac_imp_perslid p
SET p.alg_locatie_code =
(SELECT lo.alg_locatie_code
FROM fac_usrdata ud, alg_locatie lo
WHERE ud.fac_usrtab_key = 1
AND ud.fac_usrdata_code = lo.alg_locatie_code
AND ud.fac_usrdata_omschr = p.prs_kenmerk1
AND lo.alg_locatie_verwijder IS NULL);
UPDATE fac_imp_perslid p
SET p.alg_gebouw_code =
(SELECT g.alg_gebouw_code
FROM alg_locatie l, alg_gebouw g
WHERE p.alg_locatie_code = l.alg_locatie_code
AND l.alg_locatie_key = g.alg_locatie_key
AND g.alg_gebouw_verwijder IS NULL
AND g.alg_srtgebouw_key <> 61 -- parkeer garages doen niet mee
AND l.alg_locatie_verwijder IS NULL);
UPDATE fac_imp_perslid p
SET p.alg_verdieping_volgnr =
(SELECT v.alg_verdieping_volgnr
FROM alg_locatie l, alg_gebouw g, alg_verdieping v
WHERE p.alg_locatie_code = l.alg_locatie_code
AND p.alg_gebouw_code = g.alg_gebouw_code
AND l.alg_locatie_key = g.alg_locatie_key
AND g.alg_gebouw_verwijder IS NULL
AND g.alg_srtgebouw_key <> 61 -- parkeer garages doen niet mee
AND l.alg_locatie_verwijder IS NULL
AND v.alg_gebouw_key = g.alg_gebouw_key
AND v.alg_verdieping_code = '0'
AND v.alg_verdieping_verwijder IS NULL);
UPDATE fac_imp_perslid p
SET p.alg_ruimte_nr =
(SELECT r.alg_ruimte_nr
FROM alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r
WHERE p.alg_locatie_code = l.alg_locatie_code
AND l.alg_locatie_key = g.alg_locatie_key
AND p.alg_gebouw_code = g.alg_gebouw_code
AND p.alg_verdieping_volgnr = v.alg_verdieping_volgnr
AND g.alg_gebouw_verwijder IS NULL
AND g.alg_srtgebouw_key <> 61 -- parkeer garages doen niet mee
AND l.alg_locatie_verwijder IS NULL
AND v.alg_gebouw_key = g.alg_gebouw_key
AND v.alg_verdieping_code = '0'
AND v.alg_verdieping_verwijder IS NULL
AND r.alg_verdieping_key = v.alg_verdieping_key
AND r.alg_ruimte_nr = '000'
AND r.alg_ruimte_verwijder IS NULL);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END logi_import_persoon;
/
CREATE OR REPLACE PROCEDURE logi_update_persoon (p_import_key IN NUMBER) CREATE OR REPLACE PROCEDURE logi_update_persoon (p_import_key IN NUMBER)
AS AS