851 lines
32 KiB
SQL
851 lines
32 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific sql statements for the FACILITOR database
|
|
|
|
DEFINE thisfile = 'STAM.SQL'
|
|
DEFINE dbuser = '^STAM'
|
|
DEFINE custid = 'STAM'
|
|
|
|
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 VIEW STAM_V_PROJECTKOSTENPLAATSEN
|
|
(
|
|
KOSTENPLAATS_KEY,
|
|
KOSTENPLAATS,
|
|
KOSTENPLAATS_VERWIJDER
|
|
)
|
|
AS
|
|
SELECT prs_kostenplaats_key,
|
|
prs_kostenplaats_upper,
|
|
prs_kostenplaats_verwijder
|
|
FROM prs_kostenplaats k
|
|
WHERE k.prs_kostenplaats_module = 'PRJ';
|
|
|
|
CREATE OR REPLACE VIEW STAM_V_PROJECTMANAGERS
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
PROJECTMANAGER
|
|
)
|
|
AS
|
|
SELECT p.prs_perslid_key, n.prs_perslid_naam_full
|
|
FROM prs_perslid p, prs_v_perslid_fullnames n
|
|
WHERE p.prs_srtperslid_key = 157
|
|
AND n.prs_perslid_key = p.prs_perslid_key;
|
|
|
|
CREATE OR REPLACE VIEW STAM_V_INS_QRC_OBJECT
|
|
(
|
|
HIDE_F_SORT,
|
|
LOCATIE_CODE,
|
|
FCLT_F_LOCATIE,
|
|
FCLT_F_GEBOUW,
|
|
FCLT_F_PLAATS,
|
|
RUIMTENR,
|
|
FCLT_F_DISCIPLINE,
|
|
FCLT_F_OBJECTGROEP,
|
|
FCLT_F_OBJECTSOORT,
|
|
FCLT_F_IDENTIFICATIE,
|
|
FCLT_F_BOOKMARK,
|
|
INS_DEEL_KEY,
|
|
INS_SRTDEEL_KEY,
|
|
FCLT_3D_DISCIPLINE_KEY,
|
|
FCLT_3D_LOCATIE_KEY,
|
|
INS_ALG_RUIMTE_TYPE,
|
|
INS_ALG_RUIMTE_KEY,
|
|
BRAND,
|
|
OBJ_TYPE,
|
|
HIDE_F_BOOKMARK_ID
|
|
)
|
|
AS
|
|
SELECT i.ins_deel_omschrijving
|
|
hide_f_sort,
|
|
l.alg_locatie_code,
|
|
l.alg_locatie_code || ' ' || l.alg_locatie_omschrijving
|
|
fclt_f_locatie,
|
|
o.alg_gebouw_omschrijving
|
|
fclt_f_gebouw,
|
|
SUBSTR (o.alg_plaatsaanduiding, 13)
|
|
fclt_f_plaats,
|
|
o.alg_ruimte_nr,
|
|
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,
|
|
b.fac_bookmark_naam
|
|
fclt_f_bookmark,
|
|
i.ins_deel_key,
|
|
s.ins_srtdeel_key,
|
|
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,
|
|
brand.ins_kenmerkdeel_waarde,
|
|
obj_type.ins_kenmerkdeel_waarde,
|
|
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,
|
|
(SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
|
|
FROM ins_kenmerk k, ins_kenmerkdeel kd
|
|
WHERE k.ins_srtkenmerk_key = 41
|
|
AND kd.ins_kenmerk_key = k.ins_kenmerk_key) brand,
|
|
(SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
|
|
FROM ins_kenmerk k, ins_kenmerkdeel kd
|
|
WHERE k.ins_srtkenmerk_key = 42
|
|
AND kd.ins_kenmerk_key = k.ins_kenmerk_key) obj_type
|
|
WHERE b.fac_bookmark_path = 'appl/pda/ins_deel.asp'
|
|
AND COALESCE (b.fac_bookmark_expire, SYSDATE + 1) > SYSDATE
|
|
AND ins_deel_verwijder IS NULL
|
|
AND COALESCE (i.ins_deel_vervaldatum, SYSDATE + 1) > SYSDATE
|
|
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 l.alg_locatie_key = i.ins_alg_locatie_key
|
|
AND i.ins_deel_key = brand.ins_deel_key(+)
|
|
AND i.ins_deel_key = obj_type.ins_deel_key(+);
|
|
|
|
CREATE OR REPLACE VIEW STAM_V_INS_QRC_RUIMTE
|
|
(
|
|
FCLT_3D_LOCATIE_KEY,
|
|
FCLT_F_LOCATIE,
|
|
FCLT_F_GEBOUW,
|
|
PLAATS,
|
|
SOORTRUIMTE,
|
|
INS_ALG_RUIMTE_TYPE,
|
|
ALG_DISTRICT_KEY,
|
|
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,
|
|
l.alg_district_key,
|
|
x.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;
|
|
|
|
CREATE OR REPLACE VIEW STAM_V_CATERING_RUIMTE
|
|
(
|
|
RUIMTENR,
|
|
RUIMTEOMSCHR
|
|
)
|
|
AS
|
|
SELECT ALG_RUIMTE_KEY RUIMTE,
|
|
ALG_RUIMTE_NR || '/' || ALG_RUIMTE_OMSCHRIJVING
|
|
FROM ALG_RUIMTE R, ALG_ONRGOEDKENMERK K
|
|
WHERE K.ALG_ONRGOED_KEY = R.ALG_RUIMTE_KEY;
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE stam_set_mldkenmerk (
|
|
p_kenmerk_key IN NUMBER,
|
|
p_mld_key IN NUMBER,
|
|
p_kenmerk_waarde IN VARCHAR2)
|
|
AS
|
|
|
|
v_count NUMBER;
|
|
v_niveau VARCHAR2 (1);
|
|
BEGIN
|
|
SELECT mld_kenmerk_niveau
|
|
INTO v_niveau
|
|
FROM mld_kenmerk
|
|
WHERE mld_kenmerk_key = p_kenmerk_key;
|
|
|
|
CASE v_niveau
|
|
WHEN 'O'
|
|
THEN
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM mld_kenmerkopdr
|
|
WHERE mld_opdr_key = p_mld_key
|
|
AND mld_kenmerk_key = p_kenmerk_key
|
|
AND mld_kenmerkopdr_verwijder IS NULL;
|
|
|
|
IF v_count = 1
|
|
THEN
|
|
IF p_kenmerk_waarde IS NULL
|
|
THEN
|
|
DELETE mld_kenmerkopdr
|
|
WHERE mld_opdr_key = p_mld_key
|
|
AND mld_kenmerk_key = p_kenmerk_key
|
|
AND mld_kenmerkopdr_verwijder IS NULL;
|
|
ELSE
|
|
UPDATE mld_kenmerkopdr
|
|
SET mld_kenmerkopdr_waarde = p_kenmerk_waarde
|
|
WHERE mld_opdr_key = p_mld_key
|
|
AND mld_kenmerk_key = p_kenmerk_key
|
|
AND mld_kenmerkopdr_verwijder IS NULL;
|
|
END IF;
|
|
ELSE
|
|
IF p_kenmerk_key IS NOT NULL AND p_kenmerk_waarde IS NOT NULL
|
|
THEN
|
|
INSERT INTO mld_kenmerkopdr (mld_kenmerk_key,
|
|
mld_opdr_key,
|
|
mld_kenmerkopdr_waarde)
|
|
VALUES (p_kenmerk_key, p_mld_key, p_kenmerk_waarde);
|
|
END IF;
|
|
END IF;
|
|
WHEN 'S'
|
|
THEN
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM mld_kenmerkmelding
|
|
WHERE mld_melding_key = p_mld_key
|
|
AND mld_kenmerk_key = p_kenmerk_key
|
|
AND mld_kenmerkmelding_verwijder IS NULL;
|
|
|
|
IF v_count = 1
|
|
THEN
|
|
IF p_kenmerk_waarde IS NULL
|
|
THEN
|
|
DELETE mld_kenmerkmelding
|
|
WHERE mld_melding_key = p_mld_key
|
|
AND mld_kenmerk_key = p_kenmerk_key
|
|
AND mld_kenmerkmelding_verwijder IS NULL;
|
|
ELSE
|
|
UPDATE mld_kenmerkmelding
|
|
SET mld_kenmerkmelding_waarde = p_kenmerk_waarde
|
|
WHERE mld_melding_key = p_mld_key
|
|
AND mld_kenmerk_key = p_kenmerk_key
|
|
AND mld_kenmerkmelding_verwijder IS NULL;
|
|
END IF;
|
|
ELSE
|
|
IF p_kenmerk_key IS NOT NULL AND p_kenmerk_waarde IS NOT NULL
|
|
THEN
|
|
INSERT INTO mld_kenmerkmelding (
|
|
mld_kenmerk_key,
|
|
mld_melding_key,
|
|
mld_kenmerkmelding_waarde)
|
|
VALUES (p_kenmerk_key, p_mld_key, p_kenmerk_waarde);
|
|
END IF;
|
|
END IF;
|
|
END CASE;
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE STAM_STARTWF_EMPLOYEE (p_import_key IN NUMBER)
|
|
AS
|
|
v_count NUMBER;
|
|
melder prs_perslid.prs_perslid_key%TYPE;
|
|
kostenplaats prs_afdeling.prs_kostenplaats_key%TYPE;
|
|
newkey mld_melding.mld_melding_key%TYPE;
|
|
defaultstdmelding fac_setting.fac_setting_default%TYPE;
|
|
errormsg fac_result.fac_result_waarde%TYPE;
|
|
|
|
|
|
CURSOR c_new IS
|
|
SELECT i.*,
|
|
prs_perslid_naam
|
|
|| DECODE (prs_perslid_voorletters,
|
|
NULL, '',
|
|
', ' || prs_perslid_voorletters)
|
|
|| DECODE (prs_perslid_tussenvoegsel,
|
|
NULL, '',
|
|
' ' || prs_perslid_tussenvoegsel)
|
|
|| DECODE (prs_perslid_voornaam,
|
|
NULL, '',
|
|
' (' || prs_perslid_voornaam || ')') AS new_employee
|
|
FROM fac_imp_perslid i
|
|
WHERE NOT EXISTS
|
|
(SELECT *
|
|
FROM prs_perslid p
|
|
WHERE p.prs_perslid_nr = i.prs_perslid_nr);
|
|
BEGIN
|
|
--- De eerste melding van deze workflow is 'New employee' , key = 681
|
|
defaultstdmelding := '681';
|
|
|
|
FOR rc IN c_new
|
|
LOOP
|
|
BEGIN
|
|
--- Stamicarbon kent een dummy gebruiker voor het aanvragen van een nieuwe medewerker
|
|
--- Van deze medewerker halen we ook even de kostenplaats op
|
|
SELECT p.prs_perslid_key, a.prs_kostenplaats_key
|
|
INTO melder, kostenplaats
|
|
FROM prs_perslid p, prs_afdeling a
|
|
WHERE p.prs_perslid_upper = '_NEW EMPLOYEE'
|
|
AND p.prs_afdeling_key = a.prs_afdeling_key;
|
|
|
|
INSERT INTO mld_melding (mld_melding_module,
|
|
mld_meldbron_key,
|
|
mld_melding_datum,
|
|
mld_melding_onderwerp,
|
|
mld_melding_status,
|
|
mld_stdmelding_key,
|
|
prs_perslid_key,
|
|
prs_perslid_key_voor,
|
|
prs_kostenplaats_key,
|
|
mld_melding_spoed)
|
|
VALUES ('MLD',
|
|
2, -- email
|
|
SYSDATE,
|
|
'Nieuwe medewerker aangemeld vanuit AD',
|
|
4,
|
|
defaultstdmelding,
|
|
melder,
|
|
melder,
|
|
kostenplaats,
|
|
3)
|
|
RETURNING mld_melding_key
|
|
INTO newkey;
|
|
|
|
-- Kenmerkvelden vullen
|
|
--- 1601 Name employee
|
|
stam_set_mldkenmerk (1601, newkey, rc.new_employee);
|
|
|
|
-- 1602 Employee group ID (pers_nr)
|
|
stam_set_mldkenmerk (1602, newkey, rc.prs_perslid_nr);
|
|
|
|
-- 1603 Position (functie)
|
|
stam_set_mldkenmerk (1603,
|
|
newkey,
|
|
rc.prs_srtperslid_omschrijving);
|
|
|
|
-- 1604 Costcenter
|
|
stam_set_mldkenmerk (1604, newkey, rc.prs_afdeling_naam);
|
|
|
|
|
|
-- de startmelding krijgt status 5 en de volgende stap kan opgestart worden
|
|
-- mld.setmeldingstatus (newkey, 4 , melder);
|
|
mld.mld_nextworkflowstep (newkey, -1); -- 1=Completed
|
|
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
fac.writelog (
|
|
'PROCES NEW EMPLOYEE',
|
|
'W',
|
|
'Melding new employee kon niet aangemaakt worden: '
|
|
|| '['
|
|
|| errormsg
|
|
|| ']',
|
|
'OTHERS (error '
|
|
|| SQLCODE
|
|
|| '/'
|
|
|| SUBSTR (SQLERRM, 1, 100)
|
|
|| ')');
|
|
END;
|
|
END LOOP;
|
|
END STAM_STARTWF_EMPLOYEE;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE stam_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;12;4;0;3;'
|
|
|| '0;0;0;0;0;7;8;1;0;5;'
|
|
|| '6;2;0;0;0;0;9;12;13;10;'
|
|
|| '0;0;0;0;0;0;0;0;0;0;'
|
|
|| '0;0;0;0;0;0',
|
|
'"mail";"samAccountName";"givenName";"sn";"employeeID";"title";"telephoneNumber";"mobile";"physicalDeliveryOfficeName";"department";"departmentNumber";"extensionAttribute1";"manager"%');
|
|
|
|
COMMIT;
|
|
|
|
|
|
-- Uit kenmerk3 kan de manager gehaald worden
|
|
UPDATE fac_imp_perslid o
|
|
SET o.prs_kenmerk5 =
|
|
(SELECT p.prs_perslid_key
|
|
FROM fac_imp_perslid n, prs_perslid p
|
|
WHERE UPPER (SUBSTR (n.prs_kenmerk3,
|
|
( INSTR (n.PRS_KENMERK3,
|
|
'=',
|
|
1,
|
|
1)
|
|
+ 1),
|
|
( INSTR (n.PRS_KENMERK3,
|
|
',',
|
|
1,
|
|
1)
|
|
- INSTR (n.PRS_KENMERK3,
|
|
'=',
|
|
1,
|
|
1)
|
|
- 1))) =
|
|
UPPER (p.PRS_PERSLID_OSLOGIN)
|
|
AND n.PRS_PERSLID_NR = o.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 stam_import_perslid;
|
|
/
|
|
|
|
--VIEW voor qrcodes per object STAM#56182
|
|
CREATE OR REPLACE VIEW STAM_V_INS_QRC_OBJECT_MELDING
|
|
(
|
|
HIDE_F_SORT,
|
|
LOCATIE_CODE,
|
|
FCLT_F_LOCATIE,
|
|
FCLT_F_GEBOUW,
|
|
FCLT_F_PLAATS,
|
|
RUIMTENR,
|
|
FCLT_F_DISCIPLINE,
|
|
FCLT_F_OBJECTGROEP,
|
|
FCLT_F_OBJECTSOORT,
|
|
FCLT_F_IDENTIFICATIE,
|
|
FCLT_F_BOOKMARK,
|
|
INS_DEEL_KEY,
|
|
INS_SRTDEEL_KEY,
|
|
FCLT_3D_DISCIPLINE_KEY,
|
|
FCLT_3D_LOCATIE_KEY,
|
|
INS_ALG_RUIMTE_TYPE,
|
|
INS_ALG_RUIMTE_KEY,
|
|
BRAND,
|
|
OBJ_TYPE,
|
|
BOOKMARK_ID,
|
|
SERIENUMMER
|
|
)
|
|
AS
|
|
SELECT i.ins_deel_omschrijving
|
|
hide_f_sort,
|
|
l.alg_locatie_code,
|
|
l.alg_locatie_code || ' ' || l.alg_locatie_omschrijving
|
|
fclt_f_locatie,
|
|
o.alg_gebouw_omschrijving
|
|
fclt_f_gebouw,
|
|
SUBSTR (o.alg_plaatsaanduiding, 13)
|
|
fclt_f_plaats,
|
|
o.alg_ruimte_nr,
|
|
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,
|
|
b.fac_bookmark_naam
|
|
fclt_f_bookmark,
|
|
i.ins_deel_key,
|
|
s.ins_srtdeel_key,
|
|
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,
|
|
brand.ins_kenmerkdeel_waarde,
|
|
obj_type.ins_kenmerkdeel_waarde,
|
|
b.fac_bookmark_id
|
|
hide_f_bookmark_id,
|
|
(SELECT ins_kenmerkdeel_waarde from ins_kenmerkdeel kd,
|
|
ins_kenmerk k WHERE k.ins_kenmerk_key = kd.ins_kenmerk_key
|
|
AND ins_srtkenmerk_key = 25 AND i.ins_deel_key = kd.ins_deel_key ) serienummer
|
|
FROM ins_deel i,
|
|
ins_v_alg_overzicht o,
|
|
ins_srtdeel s,
|
|
ins_srtgroep g,
|
|
ins_discipline d,
|
|
alg_locatie l,
|
|
fac_bookmark b,
|
|
(SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
|
|
FROM ins_kenmerk k, ins_kenmerkdeel kd
|
|
WHERE k.ins_srtkenmerk_key = 41
|
|
AND kd.ins_kenmerk_key = k.ins_kenmerk_key) brand,
|
|
(SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
|
|
FROM ins_kenmerk k, ins_kenmerkdeel kd
|
|
WHERE k.ins_srtkenmerk_key = 42
|
|
AND kd.ins_kenmerk_key = k.ins_kenmerk_key) obj_type
|
|
WHERE upper(b.fac_bookmark_naam) = 'QRC_OBJECT_MELDING'
|
|
AND COALESCE (b.fac_bookmark_expire, SYSDATE + 1) > SYSDATE
|
|
AND ins_deel_verwijder IS NULL
|
|
AND COALESCE (i.ins_deel_vervaldatum, SYSDATE + 1) > SYSDATE
|
|
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 l.alg_locatie_key = i.ins_alg_locatie_key
|
|
AND i.ins_deel_key = brand.ins_deel_key(+)
|
|
AND i.ins_deel_key = obj_type.ins_deel_key(+)
|
|
AND i.ins_deel_key IN (SELECT ins_deel_key from mld_v_mld_stdmelding_srtinst);
|
|
|
|
CREATE OR REPLACE PROCEDURE stam_update_perslid (p_import_key IN NUMBER)
|
|
IS
|
|
-- Alle personen verwijderen die niet meer in import bestand voorkomen.
|
|
-- Match bij STAM 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_mgr IS
|
|
SELECT *
|
|
FROM FAC_IMP_PERSLID p
|
|
WHERE p.PRS_PERSLID_KEY IS NOT NULL AND p.PRS_KENMERK5 IS NOT NULL;
|
|
|
|
CURSOR c_dep IS
|
|
SELECT *
|
|
FROM FAC_IMP_PERSLID p
|
|
WHERE p.PRS_PERSLID_KEY IS NOT NULL AND p.PRS_KENMERK4 IS NOT NULL;
|
|
|
|
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
|
|
|
|
-- Voor alle nieuwe medewerkers moet eerst de workflow in dienst opgestart worden
|
|
stam_startwf_employee (p_import_key);
|
|
|
|
-- generic update
|
|
-- 'NR' betekent dat op basis van Personeelsnummer wordt gematched.
|
|
prs.update_perslid (p_import_key, 'NR', NULL);
|
|
|
|
-- zet de managerkey uit kenmerk 5 in het kenmerk veld manager (1042) bij de persoon
|
|
FOR rec IN c_mgr
|
|
LOOP
|
|
BEGIN
|
|
prs.upsertkenmerk (1061, rec.prs_perslid_key, rec.prs_kenmerk5);
|
|
END;
|
|
END LOOP;
|
|
|
|
-- zet de department uit kenmerk 4 in het kenmerk veld department (1060) bij de persoon
|
|
FOR rec IN c_dep
|
|
LOOP
|
|
BEGIN
|
|
prs.upsertkenmerk (1060, rec.prs_perslid_key, rec.prs_kenmerk4);
|
|
END;
|
|
END LOOP;
|
|
|
|
-- 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 stam_update_perslid;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW STAM_V_RAP_SEARCHRESULT
|
|
(
|
|
FCLT_F_DATUM,
|
|
FCLT_F_PERSOON,
|
|
FCLT_F_ZOEKTERM,
|
|
RESULTAAT,
|
|
FCLT_F_KEUZE_TYPE,
|
|
KEUZE_URL,
|
|
KEUZE_OMSCHRIJVING
|
|
)
|
|
AS
|
|
SELECT fac_gui_counter_date datum,
|
|
prs_perslid_naam_full persoon,
|
|
fgc.fac_gui_counter_info zoekterm,
|
|
COALESCE (result.result, 'Geen') resultaat,
|
|
COALESCE (choice.TYPE, 'Geen') keuze_type,
|
|
choice.url keuze_url,
|
|
choice.oms keuze_omschrijving
|
|
FROM fac_gui_counter fgc,
|
|
prs_v_perslid_fullnames pf,
|
|
(SELECT fac_gui_counter_refkey,
|
|
fac_gui_counter_info url,
|
|
'Reserveerbaar artikel' TYPE,
|
|
res_artikel_omschrijving oms
|
|
FROM fac_gui_counter fgc, res_artikel ra
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchchoice'
|
|
AND fac_gui_counter_info LIKE '%res_artikel%'
|
|
AND ra.res_artikel_key(+) =
|
|
fac.safe_to_number (
|
|
SUBSTR (
|
|
fac_gui_counter_info,
|
|
(INSTR (fac_gui_counter_info, 'key=') + 4)))
|
|
UNION
|
|
SELECT fac_gui_counter_refkey,
|
|
fac_gui_counter_info,
|
|
'Reserveerbaar object',
|
|
res_deel_omschrijving
|
|
FROM fac_gui_counter fgc, res_deel rd
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchchoice'
|
|
AND fac_gui_counter_info LIKE '%res_deel%'
|
|
AND rd.res_deel_key(+) =
|
|
fac.safe_to_number (
|
|
SUBSTR (
|
|
fac_gui_counter_info,
|
|
(INSTR (fac_gui_counter_info, 'key=') + 4)))
|
|
UNION
|
|
SELECT fac_gui_counter_refkey,
|
|
fac_gui_counter_info,
|
|
'Melding',
|
|
std.mld_stdmelding_omschrijving oms
|
|
FROM fac_gui_counter fgc, mld_stdmelding std
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchchoice'
|
|
AND fac_gui_counter_info LIKE '%stdm%'
|
|
AND std.mld_stdmelding_key(+) =
|
|
fac.safe_to_number (
|
|
SUBSTR (fac_gui_counter_info,
|
|
(INSTR (fac_gui_counter_info, '=') + 1)))
|
|
UNION
|
|
SELECT fac_gui_counter_refkey,
|
|
fac_gui_counter_info,
|
|
'Kennisbank',
|
|
fac_faq_question oms
|
|
FROM fac_gui_counter fgc, fac_faq faq
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchchoice'
|
|
AND fac_gui_counter_info LIKE '%faq%'
|
|
AND fac_faq_key(+) =
|
|
fac.safe_to_number (
|
|
SUBSTR (fac_gui_counter_info,
|
|
(INSTR (fac_gui_counter_info, '=') + 1)))
|
|
UNION
|
|
SELECT fac_gui_counter_refkey,
|
|
fac_gui_counter_info,
|
|
'Reserveerbare ruimte',
|
|
res_ruimte_nr oms
|
|
FROM fac_gui_counter fgc, res_ruimte
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchchoice'
|
|
AND fac_gui_counter_info LIKE '%res_ruimte%'
|
|
AND res_ruimte_key(+) =
|
|
fac.safe_to_number (
|
|
SUBSTR (fac_gui_counter_info,
|
|
(INSTR (fac_gui_counter_info, '=') + 1)))
|
|
UNION
|
|
SELECT fac_gui_counter_refkey,
|
|
fac_gui_counter_info,
|
|
'Bestelling',
|
|
ins_discipline_omschrijving
|
|
FROM fac_gui_counter fgc, bes_discipline
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchchoice'
|
|
AND fac_gui_counter_info LIKE '%bes%'
|
|
AND ins_discipline_key(+) =
|
|
fac.safe_to_number (
|
|
SUBSTR (
|
|
fac_gui_counter_info,
|
|
(INSTR (fac_gui_counter_info, 'dis_key=') + 8)))
|
|
UNION
|
|
SELECT fac_gui_counter_refkey,
|
|
fac_gui_counter_info,
|
|
'Telefoonboek',
|
|
prs_perslid_naam_full
|
|
FROM fac_gui_counter fgc, prs_v_perslid_fullnames pf
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchchoice'
|
|
AND fac_gui_counter_info LIKE '%phone%'
|
|
AND pf.prs_perslid_key(+) =
|
|
fac.safe_to_number (
|
|
SUBSTR (fac_gui_counter_info,
|
|
(INSTR (fac_gui_counter_info, '=') + 1))))
|
|
choice,
|
|
(SELECT fac_gui_counter_refkey,
|
|
REPLACE (REPLACE (fac_gui_counter_info, '{', ''), '}', '') result
|
|
FROM fac_gui_counter fgc
|
|
WHERE fac_gui_counter_info IS NOT NULL
|
|
AND fac_gui_counter_group = 'searchresult') result
|
|
WHERE fac_gui_counter_group = 'search'
|
|
AND fgc.fac_gui_counter_info IS NOT NULL
|
|
AND fgc.prs_perslid_key = pf.prs_perslid_key
|
|
AND choice.fac_gui_counter_refkey(+) = fgc.fac_gui_counter_key
|
|
AND result.fac_gui_counter_refkey(+) = fgc.fac_gui_counter_key;
|
|
|
|
CREATE OR REPLACE FORCE VIEW stam_v_noti_mutatie_res
|
|
(
|
|
sender,
|
|
receiver,
|
|
text,
|
|
code,
|
|
fac_srtnotificatie_key,
|
|
key,
|
|
xkey,
|
|
xemail,
|
|
xmobile
|
|
)
|
|
AS
|
|
SELECT DISTINCT
|
|
NULL
|
|
sender,
|
|
NULL
|
|
receiver,
|
|
REPLACE (
|
|
n.fac_srtnotificatie_oms,
|
|
'##RES##',
|
|
r.res_reservering_key || '/' || r.res_rsv_ruimte_volgnr)
|
|
|| ' adjusted',
|
|
fac_srtnotificatie_code,
|
|
n.fac_srtnotificatie_key,
|
|
r.res_reservering_key,
|
|
NULL
|
|
xkey,
|
|
'secretariat@stamicarbon.com'
|
|
xemail,
|
|
NULL
|
|
xmobile
|
|
FROM fac_tracking t, res_rsv_ruimte r, fac_srtnotificatie n
|
|
WHERE t.fac_tracking_refkey = r.res_rsv_ruimte_key
|
|
AND t.fac_srtnotificatie_key = 83 ---reservering is aangepast
|
|
AND r.res_activiteit_key <> 30
|
|
AND n.fac_srtnotificatie_code = 'CUST01'
|
|
AND t.fac_tracking_datum >
|
|
(SELECT fac_notificatie_job_nextrun
|
|
- fac_notificatie_job_interval / 24
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'STAM_V_NOTI_MUTATIE_RES')
|
|
AND t.fac_tracking_datum <
|
|
(SELECT fac_notificatie_job_nextrun
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'STAM_V_NOTI_MUTATIE_RES')
|
|
UNION ALL
|
|
SELECT DISTINCT
|
|
NULL
|
|
sender,
|
|
NULL
|
|
receiver,
|
|
REPLACE (
|
|
n.fac_srtnotificatie_oms,
|
|
'##RES##',
|
|
r.res_reservering_key || '/' || r.res_rsv_ruimte_volgnr)
|
|
|| ' deleted',
|
|
fac_srtnotificatie_code,
|
|
n.fac_srtnotificatie_key,
|
|
r.res_reservering_key,
|
|
NULL
|
|
xkey,
|
|
'secretariat@stamicarbon.com'
|
|
xemail,
|
|
NULL
|
|
xmobile
|
|
FROM fac_tracking t, res_rsv_ruimte r, fac_srtnotificatie n
|
|
WHERE t.fac_tracking_refkey = r.res_rsv_ruimte_key
|
|
AND t.fac_srtnotificatie_key = 87 --- reservering is verwijderd
|
|
AND r.res_activiteit_key <> 30
|
|
AND n.fac_srtnotificatie_code = 'CUST01'
|
|
AND t.fac_tracking_datum >
|
|
(SELECT fac_notificatie_job_nextrun
|
|
- fac_notificatie_job_interval / 24
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'STAM_V_NOTI_MUTATIE_RES')
|
|
AND t.fac_tracking_datum <
|
|
(SELECT fac_notificatie_job_nextrun
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'STAM_V_NOTI_MUTATIE_RES')
|
|
UNION ALL
|
|
SELECT DISTINCT
|
|
NULL sender,
|
|
NULL receiver,
|
|
'Recurrence ' || r.res_reservering_key || ' has been adjusted',
|
|
fac_srtnotificatie_code,
|
|
n.fac_srtnotificatie_key,
|
|
r.res_reservering_key,
|
|
NULL xkey,
|
|
'secretariat@stamicarbon.com' xemail,
|
|
NULL xmobile
|
|
FROM fac_tracking t, res_rsv_ruimte r, fac_srtnotificatie n
|
|
WHERE t.fac_tracking_refkey = r.res_rsv_ruimte_key
|
|
AND t.fac_srtnotificatie_key = 94 --- reeks is gewijzigd
|
|
AND r.res_activiteit_key <> 30
|
|
AND n.fac_srtnotificatie_code = 'CUST01'
|
|
AND t.fac_tracking_datum >
|
|
(SELECT fac_notificatie_job_nextrun
|
|
- fac_notificatie_job_interval / 24
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'STAM_V_NOTI_MUTATIE_RES')
|
|
AND t.fac_tracking_datum <
|
|
(SELECT fac_notificatie_job_nextrun
|
|
FROM fac_notificatie_job
|
|
WHERE UPPER (fac_notificatie_job_view) =
|
|
'STAM_V_NOTI_MUTATIE_RES');
|
|
|
|
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 |