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

SVRZ#40860 Storingsloket/PRS-import (undo Veere-pilot)

Browse Source 
svn path=/Customer/trunk/; revision=37249
This commit is contained in:
Maarten van der Heide
2018-03-01 16:35:22 +00:00
parent bc0c997363
commit 20eea57d8f
1 changed files with 0 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
SVRZ/svrz.sql
View File

@@ -210,16 +210,6 @@ IS
WHERE UPPER (i.prs_perslid_nr) = UPPER (p.prs_perslid_nr))
ORDER BY 2;
-- Nieuwe <20>n bestaande Veere-medewerkers onder de afdeling 420/SVRZ Veere
-- (1283) worden/blijven geplaatst in de 'Storingsloket FE'-groep (741)!
CURSOR c_aut
IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, p.prs_perslid_email
FROM prs_v_afdeling_boom ab, prs_v_aanwezigperslid p
WHERE ab.prs_afdeling_key1 = 1283 -- 420/SVRZ Veere
AND ab.prs_afdeling_key = p.prs_afdeling_key
AND p.prs_perslid_nr IS NOT NULL;
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
@@ -254,40 +244,6 @@ BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END LOOP;
COMMIT;
v_count_tot := 0;
v_count_new := 0;
FOR rec IN c_aut
LOOP
BEGIN
v_count_tot := v_count_tot + 1;
v_aanduiding := '[' || rec.prs_perslid_nr || '|' || rec.prs_perslid_email || '] ';
SELECT COUNT ( * )
INTO v_count
FROM fac_gebruikersgroep
WHERE fac_groep_key = 741 -- Storingsloket FE
AND prs_perslid_key = rec.prs_perslid_key;
IF v_count = 0
THEN
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
VALUES (741, rec.prs_perslid_key);
COMMIT;
v_count_new := v_count_new + 1;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, 'Veere-pilot');
END;
END LOOP;
fac.imp_writelog (p_import_key, 'S', 'Storingloket FEs/#ingelezen: ' || TO_CHAR (v_count_tot), 'Veere-pilot');
fac.imp_writelog (p_import_key, 'S', 'Storingloket FEs/#toegekend: ' || TO_CHAR (v_count_new), 'Veere-pilot');
END svrz_update_perslid;
/