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

AAIT#33402 -- controlejob import persleden werkt niet.

Browse Source 
svn path=/Customer/trunk/; revision=25958
This commit is contained in:
Arthur Egberink
2015-08-13 15:10:11 +00:00
parent b7b86968bb
commit ef6e2f9f46
2 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
AA/aa_prs_pack.sql
View File

@@ -35,7 +35,8 @@ AS
PROCEDURE prs_del_perslid (p_import_key IN NUMBER,
p_perslid_key IN NUMBER,
p_wp_expliciet IN NUMBER);
p_wp_expliciet IN NUMBER,
p_delete IN NUMBER);
PROCEDURE insert_perslid_from_mld (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2);
@@ -921,7 +922,8 @@ AS
PROCEDURE prs_del_perslid (p_import_key IN NUMBER,
p_perslid_key IN NUMBER,
p_wp_expliciet IN NUMBER)
p_wp_expliciet IN NUMBER,
p_delete IN NUMBER) -- verwijderen we de persoon (1) of zette we de verwijdervlag(0)
IS
v_newline VARCHAR2 (1000); -- Input line
v_errormsg VARCHAR2 (1000);
@@ -1004,7 +1006,7 @@ AS
FROM prs_v_verplichting_refcheck vp
WHERE vp.prs_perslid_key = p_perslid_key;
IF v_count = 0
IF v_count = 0 AND p_delete = 1
THEN
-- Persoon heeft geen enkele (actuele of historische) verplichting
v_errorhint :=

16
AA/aaxx.sql
View File

@@ -9032,7 +9032,7 @@ BEGIN
FROM aait.aait_imp_perslid
WHERE prs_perslid_key IS NOT NULL;
IF v_count < 400 THEN
IF v_count < 350 THEN
fac.imp_writelog (p_import_key, 'E', 'Import bestand bevat te weinig (' || v_count || ') records.', '');
RETURN;
END IF;
@@ -9340,15 +9340,23 @@ BEGIN
FOR rec_del IN c_del
LOOP
BEGIN
IF rec_del.prs_perslid_login IS NOT NULL
IF COALESCE(rec_del.prs_perslid_login, SYSDATE -11) > SYSDATE -10
THEN
fac.imp_writelog (p_import_key,
'I',
'Persoon ' || rec_del.prs_perslid_naam || ' (' || rec_del.prs_perslid_voornaam || ') zou verwijderd moeten worden',
'');
UPDATE prs_perslid
SET prs_perslid_oslogin = NULL,
prs_perslid_oslogin2 = NULL
WHERE prs_perslid_key = rec_del.prs_perslid_key;
ELSE
fac.imp_writelog (p_import_key,
'I',
'Persoon ' || rec_del.prs_perslid_naam || ' (' || rec_del.prs_perslid_voornaam || ') zou verwijderd moeten worden',
'');
aaxx.prs_del_perslid (p_import_key, rec_del.prs_perslid_key, 0, 0);
END IF;
-- in de toekomst gaan we deze personen echt verwijderen.
aaxx.prs_del_perslid (p_import_key, rec_del.prs_perslid_key, 0);
END;
END LOOP;
END;