FSN#33952
svn path=/Customer/trunk/; revision=27375
This commit is contained in:
Marcel Bourseau
214
VEBE/vebe.sql
Normal file
214
VEBE/vebe.sql
Normal file
@@ -0,0 +1,214 @@
|
||||
-- Script containing customer specific configuration sql statements for vebe: Vebego
|
||||
-- (c) 2015 SG|facilitor
|
||||
-- $Revision$
|
||||
-- $Id$
|
||||
--
|
||||
-- Support: +31 53 4800710
|
||||
|
||||
set echo on
|
||||
|
||||
spool vebe.lst
|
||||
|
||||
--
|
||||
-- Personen import
|
||||
--
|
||||
|
||||
CREATE OR REPLACE PROCEDURE vebe_post_import_perslid (p_import_key IN NUMBER)
|
||||
AS
|
||||
|
||||
-- Kenmerk 1: Indirect of direct
|
||||
-- Kenmerk 2: Adres van medewerker (straatnaam + huisnr)
|
||||
-- Kenmerk 3: Woonplaats van medewerker (postcode + woonplaats)
|
||||
-- Kenmerk 4: Contact via contactpersoon (maw de contactgegevens als mail, mobile etc zijn van contactpersoon van medewerkers en niet van hem/haar zelf)
|
||||
CURSOR c_perslid_kenmerken
|
||||
IS
|
||||
SELECT prs_perslid_key, prs_perslid_naam, prs_perslid_email, prs_kenmerk1, prs_kenmerk2, prs_kenmerk3, prs_kenmerk4
|
||||
FROM fac_imp_perslid
|
||||
WHERE fac_import_key = p_import_key;
|
||||
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_errormsg VARCHAR2 (400);
|
||||
v_errorhint VARCHAR2 (400);
|
||||
BEGIN
|
||||
|
||||
-- Kenmerk 1: Indirect of direct heeft de waarde I of D. Een I wordt vertaald naar 1, een D naar 0. Een andere letter of NULL value wordt naar 0 vertaald.
|
||||
UPDATE fac_imp_perslid
|
||||
SET prs_kenmerk1 = DECODE(UPPER(prs_kenmerk1),'I','1','D','0','0')
|
||||
WHERE fac_import_key = p_import_key;
|
||||
|
||||
-- Kenmerk 4: Contactvia heeft waarde ja of nee of leeg (NULL). Een ja wordt vertaald naar 1, een nee naar 0. Iets anders of NULL value wordt naar 0 vertaald.
|
||||
UPDATE fac_imp_perslid
|
||||
SET prs_kenmerk4 = DECODE(UPPER(prs_kenmerk4),'JA','1','NEE','0','0')
|
||||
WHERE fac_import_key = p_import_key;
|
||||
|
||||
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 vebe_post_import_perslid;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE vebe_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);
|
||||
|
||||
BEGIN
|
||||
|
||||
v_errorhint := 'Generieke update';
|
||||
-- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
|
||||
|
||||
-- 1.Roepnaam 2.Voorletters 3.Tussenvoegsel 4.Achternaam 5.Persnr. 6.Afdnr. 7.Functie 8.Email 9.Mobile 10.Telefoon 11.Loginnaam 12.Direct-Indirect 13.Straat-huisnr 14.Postcode-Woonplaats 15.Contactvia
|
||||
|
||||
prs.import_perslid (p_import_key,
|
||||
'0;0;0;0;0;0;6;4;3;1;' ||
|
||||
'2;0;0;0;0;10;9;8;0;5;' ||
|
||||
'7;11;0;0;0;0;12;13;14;15;'||
|
||||
'0;0;0;0;0;0;0;0;0;0;'||
|
||||
'0;0;0;0;0;0',
|
||||
'Roepnaam;Voorletters;Tussenvoegsel;Achternaam;Persnr.;Afdnr.;Functie;Email;Mobile;Telefoon;Loginnaam%'
|
||||
);
|
||||
|
||||
vebe_post_import_perslid(p_import_key);
|
||||
|
||||
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 vebe_import_perslid;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE vebe_post_update_perslid (p_import_key IN NUMBER)
|
||||
AS
|
||||
|
||||
-- Kenmerk 1: Indirect of direct
|
||||
-- Kenmerk 2: Adres van medewerker (straatnaam + huisnr)
|
||||
-- Kenmerk 3: Woonplaats van medewerker (postcode + woonplaats)
|
||||
-- Kenmerk 4: Contact via contactpersoon (maw de contactgegevens als mail, mobile etc zijn van contactpersoon van medewerkers en niet van hem/haar zelf)
|
||||
CURSOR c_perslid_kenmerken
|
||||
IS
|
||||
SELECT prs_perslid_key, prs_perslid_naam, prs_perslid_email, prs_kenmerk1, prs_kenmerk2, prs_kenmerk3, prs_kenmerk4
|
||||
FROM fac_imp_perslid
|
||||
WHERE fac_import_key = p_import_key;
|
||||
|
||||
|
||||
|
||||
BEGIN
|
||||
FOR rc IN c_perslid_kenmerken
|
||||
LOOP
|
||||
BEGIN
|
||||
-- Indirect of direct heeft vaste kenmerk-key 1000
|
||||
prs.upsertkenmerk(1000, rc.prs_perslid_key, rc.prs_kenmerk1);
|
||||
-- Adres heeft vaste kenmerk-key 1001
|
||||
prs.upsertkenmerk(1001, rc.prs_perslid_key, rc.prs_kenmerk2);
|
||||
-- Postcode + Woonplaats heeft vaste kenmerk-key 1002
|
||||
prs.upsertkenmerk(1002, rc.prs_perslid_key, rc.prs_kenmerk3);
|
||||
-- Contactvia heeft vaste kenmerk-key 1004
|
||||
prs.upsertkenmerk(1004, rc.prs_perslid_key, rc.prs_kenmerk4);
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
'Post update bij persoon' || rc.prs_perslid_key || ' is NIET volledig uitgevoerd )',
|
||||
'Naam:' || rc.prs_perslid_naam || ' Email:' || rc.prs_perslid_email
|
||||
);
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE vebe_update_perslid (
|
||||
p_import_key IN NUMBER
|
||||
) IS
|
||||
-- Alle personen verwijderen die niet meer in import bestand voorkomen.
|
||||
-- Anker bij vebe 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 zijn stagiairs etc die handmatig zijn toegevoegd)
|
||||
-- c) waarvan de persoon in Facilitor niet begint met een _ in de loginnaam (ook van af blijven)
|
||||
-- d)
|
||||
|
||||
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
|
||||
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
|
||||
ORDER BY 2;
|
||||
|
||||
v_count NUMBER;
|
||||
|
||||
BEGIN
|
||||
-- generic update
|
||||
|
||||
SELECT count(*)
|
||||
INTO v_count
|
||||
FROM fac_imp_perslid;
|
||||
|
||||
IF v_count < 100
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
'Het aantal te importeren personen is te klein ('
|
||||
|| TO_CHAR (v_count) || ')',
|
||||
'Zie Specificatie (minimaal 100 personen)'
|
||||
);
|
||||
RETURN;
|
||||
END IF;
|
||||
|
||||
-- '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;
|
||||
|
||||
vebe_post_update_perslid(p_import_key);
|
||||
|
||||
END vebe_update_perslid;
|
||||
/
|
||||
|
||||
|
||||
|
||||
BEGIN fac.registercustversion('vebe', 1); END;
|
||||
/
|
||||
|
||||
BEGIN adm.systrackscriptId('$Id$', 0); END;
|
||||
/
|
||||
|
||||
show errors;
|
||||
|
||||
|
||||
commit;
|
||||
|
||||
|
||||
spool off;
|
||||
|
||||
Reference in New Issue
Block a user