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

WZUV#65709 Notificatie bij uitdiensttreding voor inleveren pers. objecten

Browse Source 
svn path=/Customer/trunk/; revision=53585
This commit is contained in:
Suzan Wiegerinck
2021-11-04 08:07:39 +00:00
parent 598fe76608
commit 088dec9769
1 changed files with 165 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

165
WZUV/WZUV.SQL
View File

@@ -297,6 +297,70 @@ EXCEPTION
END wzuv_import_perslid;
/
/*
CREATE OR REPLACE PROCEDURE wzuv_import_perslid (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;5;14;13;10;'
|| '0;12;13;15;18;19;20;3;0;1;'
|| '9;0;0;0;0;0;17;21;22;0;'
|| '4;5;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0',
'"Mdw.";"Volledige_naam";"E-mail_werk";"Werklocatie";"OE";"Organisatorische_eenheid";"Kostenplaats";"Code_Functie";"Omschrijving_functie";"Roepnaam";"Voorvoegsel_partner";"Geb.naam_partner";"Voorv._geb.naam";"Geboortenaam";"Naamgebruik_code";"Datum_in_dienst";"Datum_uit_dienst";"Geslacht";"Telefoonnr._werk";"Mobiel_werk";"Naam";"E-mail_werk_2";"Naam_2"%');
COMMIT;
-- De os_login kan worden afgeleid vanuit het email adres
UPDATE FAC_IMP_PERSLID
SET prs_perslid_oslogin =
(TRIM (
SUBSTR (prs_perslid_email,
1,
INSTR (prs_perslid_email, '@', 1) - 1)));
--- overbodige tekens uit het perslidnummer vewijderen
UPDATE FAC_IMP_PERSLID
SET prs_perslid_nr = TRIM (prs_perslid_nr);
--- de tab uit het perslidnummer verwijderen
UPDATE FAC_IMP_PERSLID
SET prs_perslid_nr = REPLACE (prs_perslid_nr, CHR (9));
--- INACTIEF
--- De afdelingnaam kan worden herleid worden obv de afdelingomschrijving
--UPDATE fac_imp_perslid i
-- SET prs_afdeling_naam =
-- (SELECT a.prs_afdeling_naam
-- FROM prs_afdeling a
-- WHERE a.prs_afdeling_naam = i.prs_kenmerk6
-- AND a.prs_afdeling_verwijder IS NULL
-- AND a.prs_kostenplaats_key IS NOT 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 wzuv_import_perslid;
/
*/
CREATE OR REPLACE PROCEDURE wzuv_update_perslid (p_import_key IN NUMBER)
IS
v_errormsg VARCHAR2 (1000);
@@ -395,6 +459,107 @@ BEGIN
END wzuv_update_perslid;
/
/*
CREATE OR REPLACE PROCEDURE wzuv_update_perslid (p_import_key IN NUMBER)
IS
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_count_error NUMBER (10);
-- Alle medewerkers (bedrijf is WZU, key 41) verwijderen die niet meer in import bestand voorkomen.
-- Match bij WZUV is personeelnummer, hieronder de query om alle personen te verwijderen die:
-- a) niet meer in het importbestand staan, wel in Facilitor, en
-- b) waarvan de persoon in Facilitor een gevulde personeelsnummer heeft (leeg personeelsnummer van af blijven, dit handmatig ingevoerde persleden)
-- c) waarvan de persoon in Facilitor niet begint met een _ in de loginnaam (ook van af blijven)
CURSOR c_del IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
FROM fac_imp_perslid i,
prs_perslid p,
prs_v_perslid_fullnames_all pf,
prs_v_afdeling a
WHERE UPPER (p.prs_perslid_nr) = UPPER (i.prs_perslid_nr(+))
AND p.prs_perslid_verwijder IS NULL
AND SUBSTR (p.prs_perslid_oslogin, 1, 1) <> '_'
AND p.prs_perslid_nr IS NOT NULL
AND pf.prs_perslid_key = p.prs_perslid_key
AND i.prs_perslid_nr IS NULL
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = 41
ORDER BY 2;
CURSOR c_uit IS
SELECT p.prs_perslid_key,
p.prs_perslid_nr,
TRUNC (TO_DATE (TO_CHAR (ip.prs_kenmerk1), 'yyyy-mm-dd'))
datum_uit,
ip.prs_kenmerk3
mail_mgr
FROM fac_imp_perslid ip, prs_perslid p
WHERE ip.prs_perslid_nr = p.prs_perslid_nr
AND ip.prs_kenmerk1 IS NOT NULL;
v_count NUMBER;
BEGIN
-- generic update
-- 'LOGIN' betekent dat op basis van Login wordt gematched.
-- 'NR' betekent dat op basis van Personeelsnummer wordt gematched.
-- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
prs.update_perslid (p_import_key, 'NR', NULL);
-- Verwijder personen die niet meer in de import voorkomen.
FOR rec IN c_del
LOOP
BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
FOR rec IN c_uit
LOOP
BEGIN
v_aanduiding := rec.prs_perslid_nr;
--- Datum uit dienst opnemen bij perslid
flx.setflex ('PRS',
1040,
rec.prs_perslid_key,
'P',
rec.datum_uit);
--- Mailadres manager opnemen bij perslid
flx.setflex ('PRS',
1041,
rec.prs_perslid_key,
'P',
rec.mail_mgr);
EXCEPTION
WHEN OTHERS
THEN
v_count_error := v_count_error + 1;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
' (ORACLE error number = <'
|| oracle_err_num
|| '> ORACLE error message = <'
|| oracle_err_mes
|| '>)';
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint);
END;
END LOOP;
END wzuv_update_perslid;
/
*/
CREATE OR REPLACE PROCEDURE wzuv_import_client (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;