314 lines
11 KiB
SQL
314 lines
11 KiB
SQL
/* Formatted on 7-6-2017 22:13:49 (QP5 v5.136.908.31019) */
|
||
--
|
||
-- $Id$
|
||
--
|
||
-- Script containing customer specific sql statements for the FACILITOR database
|
||
|
||
DEFINE thisfile = 'WZUV.SQL'
|
||
DEFINE dbuser = '^WZUV'
|
||
DEFINE custid = 'WZUV'
|
||
|
||
SET ECHO ON
|
||
SET DEFINE ON
|
||
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
||
WHENEVER SQLERROR EXIT;
|
||
|
||
SELECT adm.scriptspoolfile ('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
|
||
|
||
WHENEVER SQLERROR CONTINUE;
|
||
SPOOL &fcltlogfile
|
||
SET DEFINE OFF
|
||
|
||
------ payload begin -----
|
||
|
||
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;6;12;11;8;'
|
||
|| '0;10;9;13;3;0;0;2;0;1;'
|
||
|| '7;0;0;0;0;0;0;0;0;0;'
|
||
|| '4;5;0;0;0;0;0;0;0;0;'
|
||
|| '0;0;0;0;0;0',
|
||
'"Mdw.";"Email werk";"Geslacht";"Werklocatie";"Org. eenheid";"Kostpl.";"Functie";"Roepnaam";"Voorvoegsel partner";"Geb.naam partner";"Voorv. geb.naam";"Geboortenaam";"Naamgebruik code"%');
|
||
|
||
COMMIT;
|
||
|
||
--- 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));
|
||
|
||
--- De locatiecode kan uit de werklocatie (kenmerk5) gehaald worden
|
||
UPDATE FAC_IMP_PERSLID
|
||
SET alg_locatie_code =
|
||
(TRIM (
|
||
SUBSTR (prs_kenmerk5, 1, INSTR (prs_kenmerk5, '-', 1) - 1)));
|
||
|
||
-- Afwijkend hierin is het bedrijfsbureau en de flexpool, deze hebben een vaste locatie Epe
|
||
UPDATE FAC_IMP_PERSLID
|
||
SET alg_locatie_code = 'Epe'
|
||
WHERE prs_kenmerk5 IN ('Bedrijfsbureau', 'Flexpool');
|
||
|
||
-- Het gebouw kan worden herleid vanuit de werklocatie (kenmerk 5)
|
||
UPDATE FAC_IMP_PERSLID i
|
||
SET i.alg_gebouw_code =
|
||
(SELECT DISTINCT g.alg_gebouw_code
|
||
FROM alg_gebouw g
|
||
WHERE g.alg_gebouw_verwijder IS NULL
|
||
AND g.alg_gebouw_naam =
|
||
(TRIM(SUBSTR (i.prs_kenmerk5,
|
||
INSTR (i.prs_kenmerk5, '-', 1) + 1))));
|
||
|
||
-- Flexpoolers zetten we ook bij het bedrijfsbureau
|
||
UPDATE FAC_IMP_PERSLID i
|
||
SET i.alg_gebouw_code = 'BBE'
|
||
WHERE UPPER (i.prs_kenmerk6) LIKE '%FLEXPOOL%';
|
||
|
||
--- 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_OMSCHRIJVING = I.PRS_KENMERK6
|
||
AND A.PRS_KOSTENPLAATS_KEY IS NOT NULL);
|
||
|
||
-- 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)));
|
||
|
||
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
|
||
-- 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;
|
||
|
||
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, 'LOGIN', NULL);
|
||
|
||
--- op basis van de locatie kunnen we de werklocatie invullen
|
||
UPDATE prs_perslid p
|
||
SET p.alg_onroerendgoed_keys =
|
||
(SELECT DISTINCT g.alg_gebouw_key
|
||
FROM alg_gebouw g, fac_imp_perslid i
|
||
WHERE g.alg_gebouw_code = i.alg_gebouw_code
|
||
AND i.prs_perslid_key = p.prs_perslid_key);
|
||
|
||
--- vervolgens kan het vastgoedtype bepaald worden
|
||
UPDATE prs_perslid p
|
||
SET p.alg_onroerendgoed_type =
|
||
(SELECT g.alg_type
|
||
FROM alg_v_allonrgoed_gegevens g
|
||
WHERE g.alg_onroerendgoed_keys = p.alg_onroerendgoed_keys);
|
||
|
||
|
||
-- 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;
|
||
-- we zetten de werklocatie goed op basis van de locatie in de importtabel
|
||
END wzuv_update_perslid;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE wzuv_import_client (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;1;4;3;0;'
|
||
|| '2;6;5;8;7;0;0;0;0;1;'
|
||
|| '1;0;0;0;0;0;9;10;0;0;'
|
||
|| '0;0;0;0;0;0;0;0;0;0;'
|
||
|| '0;0;0;0;0;0',
|
||
-- 'identificatie;voornaam;initialen;tussenvoegsel;achternaam eigen;tussenvoegsel partner;achternaam partner;geslacht;naamsamenstelling;geboortedatum;straat;huisnummer;huisnummertoevoeging;postcode;plaats;BSN;locatie naam;locatie id%');
|
||
'identificatie;initialen;tussenvoegsel;achternaam eigen;tussenvoegsel partner;achternaam partner;geslacht;naamsamenstelling;locatie naam;locatie id%');
|
||
|
||
--- De afdeling is altijd 'CLIENT'
|
||
UPDATE FAC_IMP_PERSLID I
|
||
SET PRS_AFDELING_NAAM = 'CLIENT';
|
||
|
||
--- De functie is altijd 'Cli<6C>nt'
|
||
UPDATE FAC_IMP_PERSLID I
|
||
SET PRS_SRTPERSLID_OMSCHRIJVING = 'Cli<EFBFBD>nt';
|
||
|
||
--- Om te voorkomen dat cli<6C>ntnummers identiek zijn aan personeelsnummers vullen we deze aan
|
||
UPDATE FAC_IMP_PERSLID I
|
||
SET PRS_PERSLID_NR = 'Nedap-' || prs_perslid_nr;
|
||
|
||
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_client;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE wzuv_update_client (p_import_key IN NUMBER)
|
||
IS
|
||
-- Alle cli<6C>nten (bedrijf is Cli<6C>nt, key 8393) 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 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 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 = 8393
|
||
ORDER BY 2;
|
||
|
||
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;
|
||
END wzuv_update_client;
|
||
/
|
||
|
||
CREATE OR REPLACE FORCE VIEW WZUV_V_INS_QRC_RUIMTE
|
||
(
|
||
FCLT_3D_LOCATIE_KEY,
|
||
FCLT_F_LOCATIE,
|
||
FCLT_F_GEBOUW,
|
||
PLAATS,
|
||
SOORTRUIMTE,
|
||
INS_ALG_RUIMTE_TYPE,
|
||
ALG_RUIMTE_OMSCHRIJVING,
|
||
ALG_DISTRICT_KEY,
|
||
ALG_RUIMTE_NR,
|
||
ALG_RUIMTE_KEY,
|
||
HIDE_F_BOOKMARK_ID
|
||
)
|
||
AS
|
||
SELECT l.alg_locatie_key,
|
||
l.alg_locatie_omschrijving,
|
||
x.alg_gebouw_naam,
|
||
SUBSTR (x.alg_plaatsaanduiding, 7) plaats,
|
||
x.alg_ruimte_omschrijving soortruimte,
|
||
sr.alg_srtruimte_omschrijving,
|
||
r.alg_ruimte_omschrijving,
|
||
l.alg_district_key,
|
||
x.alg_plaatsaanduiding,
|
||
r.alg_ruimte_key,
|
||
b.fac_bookmark_id
|
||
FROM ALG_V_ALLONRGOED_GEGEVENS x,
|
||
alg_locatie l,
|
||
alg_district di,
|
||
fac_bookmark b,
|
||
alg_ruimte r,
|
||
alg_srtruimte sr
|
||
WHERE b.fac_bookmark_naam = 'QRC naar ruimte'
|
||
AND X.ALG_RUIMTE_KEY = R.ALG_RUIMTE_KEY
|
||
AND R.ALG_SRTRUIMTE_KEY = SR.ALG_SRTRUIMTE_KEY
|
||
AND x.alg_locatie_key = L.ALG_LOCATIE_KEY
|
||
AND l.alg_district_key = di.alg_district_key;
|
||
|
||
COMMIT;
|
||
|
||
BEGIN
|
||
DBMS_UTILITY.COMPILE_SCHEMA (USER, FALSE);
|
||
END;
|
||
/
|
||
|
||
|
||
------ payload end ------
|
||
|
||
SET DEFINE OFF
|
||
|
||
BEGIN
|
||
adm.systrackscriptId ('$Id$', 0);
|
||
END;
|
||
/
|
||
|
||
COMMIT;
|
||
SET ECHO OFF
|
||
SPOOL OFF
|
||
SET DEFINE ON
|
||
PROMPT Logfile of this upgrade is: &fcltlogfile |