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

SVRZ#40860 Storingsloket/PRS-import

Browse Source 
svn path=/Customer/trunk/; revision=35468
This commit is contained in:
Maarten van der Heide
2017-09-27 13:29:47 +00:00
parent eff007b27c
commit 8962a98b45
1 changed files with 66 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
SVRZ/svrz.sql
View File

@@ -187,15 +187,15 @@ EXCEPTION
END svrz_import_perslid;
/
/* Formatted on 18-6-2014 10:28:48 (QP5 v5.136.908.31019) */
/* Formatted on 27-9-2017 15:12:48 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PROCEDURE svrz_update_perslid (p_import_key IN NUMBER)
IS
CURSOR c_flex
IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, i.*
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
WHERE p.prs_perslid_nr = i.prs_perslid_nr
ORDER BY 2;
--CURSOR c_flex
--IS
-- SELECT p.prs_perslid_key, p.prs_perslid_nr, i.*
-- FROM prs_v_aanwezigperslid p, fac_imp_perslid i
-- WHERE p.prs_perslid_nr = i.prs_perslid_nr
-- ORDER BY 2;
-- Let op! Personen die niet meer in dienst zijn -> niet in fac_imp_perslid!
-- Dubbele perslid_nr? Dan wordt iemand mogelijk niet verwijderd/INACTIEF!
@@ -210,12 +210,29 @@ IS
WHERE UPPER (i.prs_perslid_nr) = UPPER (p.prs_perslid_nr))
ORDER BY 2;
v_count NUMBER;
-- 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);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER;
v_count_tot NUMBER;
v_count_new NUMBER;
BEGIN
-- Generieke update.
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
IF (v_count < 1000)
IF v_count < 1000
THEN
fac.imp_writelog (p_import_key, 'E', 'Het aantal te importeren personen is te klein (' || TO_CHAR (v_count) || ')', 'Zie specificatie');
RETURN;
@@ -236,6 +253,41 @@ BEGIN
LOOP
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;
/
@@ -559,7 +611,7 @@ AS
BEGIN
SELECT COUNT ( * ) INTO v_count FROM fac_imp_ext_bedrijf;
IF (v_count < 500)
IF v_count < 500
THEN
fac.imp_writelog (
p_import_key,
@@ -572,7 +624,7 @@ BEGIN
END IF;
add_bedrijf (p_import_key);
--del_bedrijf (p_import_key);
--del_bedrijf (p_import_key);
EXCEPTION
WHEN OTHERS
THEN
@@ -682,7 +734,7 @@ BEGIN
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
-- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
IF (header_is_valid = 0)
IF header_is_valid = 0
THEN
IF UPPER (TRIM (v_receiver)) = 'RECEIVER'
AND UPPER (TRIM (v_receiverName)) = 'RECEIVERNAME'
@@ -869,7 +921,7 @@ BEGIN
v_uom := TRIM (v_uom);
-- Insert geformatteerde import record
IF (v_ongeldig = 0)
IF v_ongeldig = 0
THEN
BEGIN
v_errormsg := 'Fout wegschrijven importregel';
@@ -931,7 +983,7 @@ BEGIN
END;
END LOOP;
IF (header_is_valid = 0)
IF header_is_valid = 0
THEN
fac.imp_writelog (p_import_key,
'E',