445 lines
15 KiB
SQL
445 lines
15 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific sql statements for the ASPN database
|
|
|
|
DEFINE thisfile = 'ASPN.SQL'
|
|
DEFINE dbuser = 'ASPN'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
|
SPOOL &fcltlogfile
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
---------------------------------------
|
|
PROMPT &fcltcusttxt
|
|
---------------------------------------
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
--
|
|
-- Personen import
|
|
--
|
|
|
|
CREATE OR REPLACE PROCEDURE aspn_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_newline FAC_IMP_FILE.FAC_IMP_FILE_LINE%TYPE;
|
|
BEGIN
|
|
|
|
BEGIN
|
|
SELECT fac_imp_file_line
|
|
INTO v_newline
|
|
FROM fac_imp_file
|
|
WHERE fac_import_key = p_import_key
|
|
AND fac_imp_file_index = 1;
|
|
|
|
IF v_newline LIKE
|
|
CHR (TO_NUMBER ('EF', 'xx'))
|
|
|| CHR (TO_NUMBER ('BB', 'xx'))
|
|
|| CHR (TO_NUMBER ('BF', 'xx'))
|
|
|| '%'
|
|
THEN
|
|
-- EF BB BF aangetroffen
|
|
fac.imp_writelog (p_import_key,
|
|
'W',
|
|
'Byte Order Mark aangetroffen',
|
|
'Bestand heeft onbehandeld UTF-8 formaat.'
|
|
);
|
|
v_newline := SUBSTR (v_newline, 4);
|
|
END IF;
|
|
|
|
-- Verwijder de dubbele quotes
|
|
v_newline := REPLACE (v_newline, '"');
|
|
|
|
UPDATE fac_imp_file
|
|
SET fac_imp_file_line = v_newline
|
|
WHERE fac_import_key = p_import_key
|
|
AND fac_imp_file_index = 1;
|
|
|
|
|
|
EXCEPTION WHEN OTHERS
|
|
THEN
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
'Fout bij controle op Byte Order Mark',
|
|
''
|
|
);
|
|
END;
|
|
|
|
|
|
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;3;0;2;' ||
|
|
'0;0;0;0;0;9;11;5;0;7;' ||
|
|
'8;0;0;0;0;0;10;0;0;0;'||
|
|
'0;0;0;0;0;0;0;0;0;0;'||
|
|
'0;0;0;0;0;0',
|
|
'SamAccountName;GivenName;Surname;DisplayName;EmailAddress;Department;EmployeeNumber;Title;HomePhone;Office;MobilePhone%'
|
|
);
|
|
|
|
-- Soms komen er personen binnen zonder email, die mogen niet mee.
|
|
DELETE FROM fac_imp_perslid
|
|
WHERE prs_perslid_email IS NULL;
|
|
|
|
COMMIT;
|
|
|
|
-- Afdelingscode uit de string met afdelingnaam halen.
|
|
UPDATE fac_imp_perslid
|
|
SET prs_afdeling_naam = REGEXP_SUBSTR (prs_afdeling_naam,
|
|
'[[:digit:]]{1,}',
|
|
1,
|
|
1,
|
|
'i');
|
|
|
|
COMMIT;
|
|
|
|
-- Ruimtenummer en gebouwcode vullen met waarden uit kenmerk1 (office)
|
|
UPDATE fac_imp_perslid
|
|
SET alg_ruimte_nr =
|
|
REGEXP_SUBSTR (prs_kenmerk1,
|
|
'[[:digit:].]{1,}',
|
|
1,
|
|
1,
|
|
'i'),
|
|
alg_gebouw_code =
|
|
UPPER (REGEXP_SUBSTR (prs_kenmerk1,
|
|
'[[:alpha:]]{1,}',
|
|
1,
|
|
1,
|
|
'i'));
|
|
|
|
COMMIT;
|
|
|
|
-- Aanvullen met locatiecode en verdiepingvolgnr, dan wordt bij de update-actie automatisch een werkplek toegekend
|
|
UPDATE fac_imp_perslid p
|
|
SET p.alg_locatie_code =
|
|
(SELECT l.alg_locatie_code
|
|
FROM alg_locatie l, alg_gebouw g
|
|
WHERE g.alg_gebouw_code = p.alg_gebouw_code
|
|
AND g.alg_locatie_key = l.alg_locatie_key
|
|
AND g.alg_gebouw_verwijder IS NULL
|
|
AND l.alg_locatie_verwijder IS NULL),
|
|
p.alg_verdieping_volgnr =
|
|
(SELECT v.alg_verdieping_volgnr
|
|
FROM alg_verdieping v, alg_gebouw g, alg_ruimte r
|
|
WHERE g.alg_gebouw_code = p.alg_gebouw_code
|
|
AND r.alg_ruimte_nr = p.alg_ruimte_nr
|
|
AND r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND g.alg_gebouw_verwijder IS NULL
|
|
AND v.alg_verdieping_verwijder IS NULL
|
|
AND r.alg_ruimte_verwijder IS NULL),
|
|
p.prs_kenmerk1 = 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 aspn_import_perslid;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE aspn_update_perslid (
|
|
p_import_key IN NUMBER
|
|
) IS
|
|
-- Alle personen verwijderen die niet meer in import bestand voorkomen.
|
|
CURSOR c_del
|
|
IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_email
|
|
FROM prs_perslid p
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_perslid_oslogin IS NULL
|
|
AND NOT EXISTS
|
|
(SELECT 'x'
|
|
FROM fac_imp_perslid i
|
|
WHERE UPPER(p.prs_perslid_email) = UPPER(i.prs_perslid_email));
|
|
|
|
CURSOR c1
|
|
IS
|
|
SELECT p.prs_perslid_key
|
|
FROM prs_perslid p
|
|
WHERE p.prs_perslid_oslogin IS NULL
|
|
AND NOT EXISTS
|
|
(SELECT 'x'
|
|
FROM fac_gebruikersgroep f
|
|
WHERE p.prs_perslid_key = f.prs_perslid_key
|
|
AND f.fac_groep_key = 1);
|
|
|
|
CURSOR c2
|
|
IS
|
|
SELECT p.prs_perslid_key
|
|
FROM prs_v_aanwezigperslid p, prs_v_aanwezigafdeling a
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND p.prs_perslid_inactief IS NULL
|
|
AND a.prs_bedrijf_key = 6
|
|
AND NOT EXISTS
|
|
(SELECT 'x'
|
|
FROM fac_gebruikersgroep f
|
|
WHERE p.prs_perslid_key = f.prs_perslid_key
|
|
AND f.fac_groep_key = 261);
|
|
|
|
v_count NUMBER;
|
|
|
|
BEGIN
|
|
-- generic update
|
|
|
|
SELECT count(*)
|
|
INTO v_count
|
|
FROM fac_imp_perslid;
|
|
|
|
IF v_count < 150
|
|
THEN
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
'Het aantal te importeren personen is te klein ('
|
|
|| TO_CHAR (v_count) || ')',
|
|
'Zie Specificatie'
|
|
);
|
|
RETURN;
|
|
END IF;
|
|
|
|
-- 'EMAIL' betekent dat op basis van email wordt gematched.
|
|
-- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
|
|
prs.update_perslid (p_import_key, 'EMAIL', 'A', 0);
|
|
|
|
COMMIT;
|
|
|
|
-- 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;
|
|
|
|
COMMIT;
|
|
|
|
-- Toekennen van de default autorisatiegroep en bestellers groep
|
|
FOR rec IN c1
|
|
LOOP
|
|
BEGIN
|
|
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
|
|
VALUES (rec.prs_perslid_key, 1);
|
|
END;
|
|
END LOOP;
|
|
|
|
COMMIT;
|
|
|
|
FOR rec IN c2
|
|
LOOP
|
|
BEGIN
|
|
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
|
|
VALUES (rec.prs_perslid_key, 261);
|
|
END;
|
|
END LOOP;
|
|
|
|
COMMIT;
|
|
|
|
END aspn_update_perslid;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW aspn_v_cad_thema_afdbezetting
|
|
(
|
|
ALG_RUIMTE_KEY,
|
|
WAARDE,
|
|
WAARDE_KEY
|
|
)
|
|
AS
|
|
SELECT x.alg_ruimte_key,
|
|
DECODE (x.aantal, 1, SUBSTR (x.sp, 1, 60), 'Meerdere afdelingen'),
|
|
DECODE (x.aantal, 1, x.sp_key, NULL)
|
|
FROM ( SELECT ra.alg_ruimte_key,
|
|
MIN (d.prs_afdeling_omschrijving) sp,
|
|
MIN (d.prs_afdeling_key) sp_key,
|
|
COUNT (ra.prs_afdeling_key) aantal
|
|
FROM prs_ruimteafdeling ra, prs_v_aanwezigafdeling d
|
|
WHERE ra.prs_ruimteafdeling_verwijder IS NULL
|
|
AND ra.prs_afdeling_key = d.prs_afdeling_key
|
|
GROUP BY ra.alg_ruimte_key) x;
|
|
|
|
CREATE OR REPLACE VIEW aspn_v_ins_qrc_mld
|
|
AS
|
|
SELECT i.ins_deel_omschrijving hide_f_sort,
|
|
l.alg_locatie_code||' '||l.alg_locatie_omschrijving fclt_f_locatie,
|
|
o.alg_gebouw_omschrijving fclt_f_gebouw,
|
|
o.alg_plaatsaanduiding fclt_f_plaats,
|
|
d.ins_discipline_omschrijving fclt_f_discipline,
|
|
g.ins_srtgroep_omschrijving fclt_f_objectgroep,
|
|
s.ins_srtdeel_omschrijving fclt_f_objectsoort,
|
|
i.ins_deel_omschrijving fclt_f_identificatie,
|
|
d.ins_discipline_omschrijving||' / '||sm.mld_stdmelding_omschrijving fclt_f_melding,
|
|
i.ins_deel_key,
|
|
s.ins_srtdeel_key,
|
|
o.alg_gebouw_code,
|
|
o.alg_verdieping_code,
|
|
i.ins_discipline_key fclt_3d_discipline_key,
|
|
l.alg_locatie_key fclt_3d_locatie_key,
|
|
i.ins_alg_ruimte_type,
|
|
i.ins_alg_ruimte_key,
|
|
b.fac_bookmark_id hide_f_bookmark_id
|
|
FROM ins_deel i,
|
|
ins_v_alg_overzicht o,
|
|
ins_srtdeel s,
|
|
ins_srtgroep g,
|
|
ins_discipline d,
|
|
alg_locatie l,
|
|
fac_bookmark b,
|
|
mld_stdmelding sm,
|
|
mld_stdmelding_srtinst si
|
|
WHERE b.fac_bookmark_naam = 'QRC_MELDING'
|
|
AND (b.fac_bookmark_expire IS NULL OR b.fac_bookmark_expire > SYSDATE)
|
|
AND ins_deel_verwijder IS NULL
|
|
AND i.ins_deel_module = 'INS'
|
|
AND i.ins_deel_parent_key IS NULL
|
|
AND s.ins_srtdeel_key = i.ins_srtdeel_key
|
|
AND g.ins_srtgroep_key = s.ins_srtgroep_key
|
|
AND d.ins_discipline_key = g.ins_discipline_key
|
|
AND o.alg_onroerendgoed_keys = i.ins_alg_ruimte_key
|
|
AND o.alg_onroerendgoed_type = i.ins_alg_ruimte_type
|
|
AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
|
|
AND o.alg_locatie_key = i.ins_alg_locatie_key
|
|
AND i.ins_alg_locatie_key = l.alg_locatie_key
|
|
AND sm.mld_stdmelding_key = si.mld_stdmelding_key
|
|
AND si.ins_srtinstallatie_key = DECODE(si.ins_srtinstallatie_niveau,
|
|
'S', i.ins_srtdeel_key,
|
|
'G', s.ins_srtgroep_key,
|
|
'D', g.ins_discipline_key);
|
|
|
|
CREATE OR REPLACE VIEW aspn_v_rap_wp_bezetting
|
|
(
|
|
alg_gebouw_key,
|
|
alg_gebouw_omschrijving,
|
|
prs_afdeling_key,
|
|
prs_afdeling_omschrijving,
|
|
m2,
|
|
aantal_werkplekken,
|
|
aantal_m2_wp
|
|
)
|
|
AS
|
|
SELECT g.alg_gebouw_key,
|
|
g.alg_gebouw_omschrijving,
|
|
pa.prs_afdeling_key,
|
|
pa.prs_afdeling_omschrijving,
|
|
SUM (r.alg_ruimte_bruto_vloeropp) m2,
|
|
COUNT (w.prs_werkplek_key) aantal_wp,
|
|
ROUND (SUM (r.alg_ruimte_bruto_vloeropp) / COUNT (w.prs_werkplek_key),
|
|
2) aantal_m2_wp
|
|
FROM prs_ruimteafdeling pr,
|
|
prs_afdeling pa,
|
|
alg_ruimte r,
|
|
alg_verdieping v,
|
|
alg_gebouw g,
|
|
prs_werkplek w
|
|
WHERE pr.alg_ruimte_key = r.alg_ruimte_key
|
|
AND w.prs_alg_ruimte_key = r.alg_ruimte_key
|
|
AND pr.prs_afdeling_key = pa.prs_afdeling_key
|
|
AND r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND g.alg_gebouw_verwijder IS NULL
|
|
AND pr.prs_ruimteafdeling_verwijder IS NULL
|
|
GROUP BY g.alg_gebouw_key,
|
|
g.alg_gebouw_omschrijving,
|
|
pa.prs_afdeling_key,
|
|
pa.prs_afdeling_omschrijving;
|
|
|
|
CREATE OR REPLACE VIEW aspn_v_rap_ruimten_zonder_afd
|
|
AS
|
|
SELECT g.alg_gebouw_key,
|
|
g.alg_gebouw_omschrijving,
|
|
v.alg_verdieping_omschrijving,
|
|
r.alg_ruimte_nr,
|
|
r.alg_ruimte_key
|
|
FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
|
|
WHERE r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND g.alg_gebouw_verwijder IS NULL
|
|
AND r.alg_ruimte_key NOT IN
|
|
(SELECT pr.alg_ruimte_key
|
|
FROM prs_ruimteafdeling pr
|
|
WHERE pr.prs_ruimteafdeling_verwijder IS NULL);
|
|
|
|
-- View t.b.v. reserveringsoverzicht voor desktop en mobile.
|
|
-- Zo krijgt FE geen mogelijkheid tot herhalen van een reservering
|
|
CREATE OR REPLACE VIEW aspn_v_rap_mijn_wp_reservering
|
|
AS
|
|
SELECT rrr.res_rsv_ruimte_host_key,
|
|
rrr.res_rsv_ruimte_van,
|
|
rrr.res_rsv_ruimte_tot,
|
|
rg.alg_locatie_omschrijving,
|
|
rg.alg_gebouw_omschrijving,
|
|
rg.alg_verdieping_omschrijving,
|
|
rg.alg_ruimte_nr,
|
|
rd.res_deel_omschrijving,
|
|
rg.alg_ruimte_aanduiding,
|
|
rrr.res_rsv_ruimte_key
|
|
FROM res_rsv_ruimte rrr,
|
|
res_rsv_deel rrd,
|
|
res_deel rd,
|
|
alg_v_ruimte_gegevens rg
|
|
WHERE rrr.res_rsv_ruimte_key = rrd.res_rsv_ruimte_key
|
|
AND rrd.res_deel_key = rd.res_deel_key
|
|
AND rrr.alg_ruimte_key = rg.alg_ruimte_key
|
|
AND rrr.res_rsv_ruimte_verwijder IS NULL
|
|
AND rrd.res_rsv_deel_verwijder IS NULL
|
|
AND rrr.res_rsv_ruimte_van > = TRUNC(SYSDATE);
|
|
|
|
-- Rapport om kenmerken bij ruimten in een draaitabel te tonen.
|
|
CREATE OR REPLACE VIEW aspn_v_rap_ruimtekenmerk
|
|
(
|
|
gebouw,
|
|
verdieping,
|
|
ruimtefuntie,
|
|
ruimtenummer,
|
|
ruimte,
|
|
ruimte_key,
|
|
kenmerk,
|
|
kenmerk_waarde
|
|
)
|
|
AS
|
|
SELECT g.alg_gebouw_omschrijving,
|
|
v.alg_verdieping_omschrijving,
|
|
rs.alg_srtruimte_omschrijving,
|
|
r.alg_ruimte_nr,
|
|
r.alg_ruimte_omschrijving,
|
|
r.alg_ruimte_key,
|
|
ak.alg_kenmerk_omschrijving,
|
|
oak.alg_onrgoedkenmerk_waarde
|
|
FROM alg_ruimte r,
|
|
alg_srtruimte rs,
|
|
alg_verdieping v,
|
|
alg_gebouw g,
|
|
alg_kenmerk ak,
|
|
alg_onrgoedkenmerk oak
|
|
WHERE r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_gebouw_key = g.alg_gebouw_key
|
|
AND r.alg_srtruimte_key = rs.alg_srtruimte_key
|
|
AND oak.alg_kenmerk_key = ak.alg_kenmerk_key
|
|
AND oak.alg_onrgoed_key = alg_ruimte_key
|
|
AND oak.alg_onrgoed_niveau = 'R'
|
|
AND r.alg_ruimte_verwijder IS NULL;
|
|
|
|
------ 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 |