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

NOUR#69833 Knop om overbrugde objecten overzichtelijk weer te geven

Browse Source 
svn path=/Customer/trunk/; revision=54935
This commit is contained in:
Suzan Wiegerinck
2022-02-10 13:57:07 +00:00
parent 4f67d0a642
commit 59eb0c3766
1 changed files with 211 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

299
NOUR/NOUR.SQL
View File

@@ -48,13 +48,6 @@ CREATE OR REPLACE PACKAGE NOUR AS
PROCEDURE Kmd_Update(p_kenmerkdeel_key IN NUMBER,
p_waarde IN VARCHAR2,
p_historymode IN VARCHAR2);
PROCEDURE Ins_Update_Kenmerkdeel_WEB(kenmerkdeel_key IN NUMBER,
deel_key IN NUMBER,
kenmerk_key IN NUMBER,
waarde IN VARCHAR2,
historymode IN VARCHAR2,
mselect IN VARCHAR2);
PRAGMA RESTRICT_REFERENCES (NOUR_f_pct_gemeensch,WNDS, WNPS);
END NOUR;
/
@@ -377,47 +370,6 @@ AS
END IF;
END Kmd_Update_Kenmerkdeel;
PROCEDURE Ins_Update_Kenmerkdeel_WEB (kenmerkdeel_key IN NUMBER,
deel_key IN NUMBER,
kenmerk_key IN NUMBER,
waarde IN VARCHAR2,
historymode IN VARCHAR2,
mselect IN VARCHAR2)
IS
k_key NUMBER (10);
waarde2 VARCHAR2 (255);
BEGIN
k_key := kenmerkdeel_key;
waarde2 := NULL;
IF kenmerkdeel_key IS NULL
THEN
BEGIN
SELECT ins_kenmerkdeel_key, ins_kenmerkdeel_waarde
INTO k_key, waarde2
FROM ins_kenmerkdeel
WHERE INS_KENMERKDEEL_VERWIJDER IS NULL
AND INS_KENMERK_KEY = kenmerk_key
AND INS_DEEL_KEY = deel_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
NULL;
END;
END IF;
IF (waarde IS NOT NULL AND waarde2 IS NOT NULL AND waarde <> waarde2)
OR (waarde IS NOT NULL AND waarde2 IS NULL)
OR (waarde IS NULL AND waarde2 IS NOT NULL)
THEN
NOUR.Ins_Update_Kenmerkdeel (k_key,
deel_key,
kenmerk_key,
waarde,
historymode,
mselect);
END IF;
END Ins_Update_Kenmerkdeel_WEB;
END NOUR;
/
@@ -5986,8 +5938,8 @@ AS
SELECT al.alg_locatie_code||'-'||og.alg_gebouw_code||'-'||og.alg_verdieping_code||'-'||og.alg_ruimte_nr hide_f_sort,
al.alg_locatie_code fclt_f_locatie,
og.alg_gebouw_code fclt_f_gebouw,
og.alg_verdieping_code fclt_f_verdieping,
og.alg_ruimte_nr||' ('||og.alg_ruimte_omschrijving||')' fclt_f_ruimte,
og.alg_verdieping_code fclt_f_verdieping,
og.alg_ruimte_nr||' ('||og.alg_ruimte_omschrijving||')' fclt_f_ruimte,
areadel.prs_perslid_naam_full areagedelegeerde,
areares.prs_perslid_naam_full reserve_areagedelegeerde,
arearesres.prs_perslid_naam_full res_reserve_areagedelegeerde,
@@ -6605,7 +6557,7 @@ SELECT 'CUST03',
|| ' (badgenummer: '
|| badge_nr.badge_nr
|| ')',
p.prs_perslid_key,
p.prs_perslid_key,
NULL
FROM prs_perslid p, -- badgehouder
nour_v_rap_tbadges b,
@@ -6644,9 +6596,9 @@ AS
b.melding_key,
b.html_meldingnr
FROM nour_v_rap_tbadges b
WHERE soort_badge = 'Tijdelijke badge'
WHERE soort_badge = 'Tijdelijke badge'
AND blokkade_datum > TRUNC (SYSDATE - 1);
--- EXPORTS --------------------------------------------------------------------
-- FACILITOR beoordeelt maandelijks welke taken in de komende periode moeten worden uitgevoerd,
@@ -6711,7 +6663,7 @@ BEGIN
|| rec.ins_deel_key
|| ' is niet uitgevoerd',
'Melding: ' || p_mld_melding_key);
COMMIT;
END;
END LOOP;
@@ -6733,7 +6685,7 @@ AS
CURSOR c
IS
SELECT * FROM nour_v_noti_objbeh;
BEGIN
v_errorhint := 'init';
@@ -6828,9 +6780,9 @@ BEGIN
fac.writelog (p_applname, 'I',
'Melding voor '||rec.to_omschr||', namens '||rec.ref_omschr,
rec.aantal||' objecten');
NOUR_INSERT_OBJECTEN (rec.to_key, rec.ref_key, v_melding_key);
END IF;
EXCEPTION
@@ -8160,7 +8112,7 @@ AS
-- Notificatie naar areagedelegeerde AKZA#41201
-- Voor alle nieuwe meldingen waarbij het vinkje werkvergunning aanstaat (km441) en een waarbij een werkvergunning is aangemaakt (km961)
-- En waarbij aangegeven is dat de areagedelegeerde geinformeerd moet worden (km1021), AKZA#57881 direct of op een later moment
-- En waarbij aangegeven is dat de areagedelegeerde geinformeerd moet worden (km1021), AKZA#57881 direct of op een later moment
-- hierbij de areagedelegeerde ophalen die bij de ruimte is vastgelegd (km 1160)
CREATE OR REPLACE VIEW NOUR_V_NOTI_PTW_AREAGD
(
@@ -8595,7 +8547,7 @@ AS
AND last_insp.ins_deelsrtcontrole_key =
insp_result.ins_deelsrtcontrole_key;
CREATE OR REPLACE VIEW NOUR_V_RUIMTES
(
ruimte_key,
@@ -8637,8 +8589,8 @@ AS
deelsrtcontrole_status status_certificering
FROM ins_v_deel_gegevens o, ins_v_udr_deelinspect c
WHERE ins_srtgroep_upper = 'TRAINING EN OPLEIDING'
AND o.ins_deel_key = c.deel_key(+));
AND o.ins_deel_key = c.deel_key(+));
-- Tbv van de aanvraag van (tijdelijke) badges is het nodig om een onderscheid te kunnen maken tussen medewerkers intern (incl. Teijin) en contractors
CREATE OR REPLACE VIEW NOUR_V_CONTRACTORS
(
@@ -8675,7 +8627,7 @@ AS
AND prs_kenmerklink_waarde = fac_usrdata_key
AND ud.fac_usrdata_verwijder is null
AND (fac_usrdata_vervaldatum > sysdate or fac_usrdata_vervaldatum is null);
CREATE OR REPLACE VIEW NOUR_V_AANVR_TBADGE
(
PRS_PERSLID_KEY,
@@ -8687,8 +8639,8 @@ AS
FROM NOUR_V_PERSLID_INTERN
UNION ALL
SELECT "PRS_PERSLID_KEY", "NAAM", "PRS_PERSLID_VERWIJDER"
FROM NOUR_V_CONTRACTORS);
FROM NOUR_V_CONTRACTORS);
CREATE OR REPLACE VIEW NOUR_V_RAP_TBADGES
(
LOCATIE,
@@ -8711,7 +8663,7 @@ CREATE OR REPLACE VIEW NOUR_V_RAP_TBADGES
AANVRAAG_GEREED,
GEVRAAGDE_EINDDAT
)
AS
AS
SELECT DISTINCT
DECODE (SUBSTR (mdw.badge_nr, 1, 2),
'30', 'Amsterdam',
@@ -8728,7 +8680,7 @@ AS
soort_badge,
mdw.blokkade_datum,
badges.aanvrager,
badges.aanvrager_key,
badges.aanvrager_key,
badges.mld_melding_key,
'<a class="details" onclick=''FcltMgr.openDetail("'
|| 'appl/mld/mld_melding.asp?mld_key='
@@ -9108,8 +9060,8 @@ AS
ORDER BY max_aanvraag.melding_voor) badges
WHERE badgehouder_prskey = badges.melding_voor(+)
AND UPPER (soort_badge) = 'TIJDELIJKE BADGE'
ORDER BY mdw.badge_nr, mdw.badgehouder_prskey;
ORDER BY mdw.badge_nr, mdw.badgehouder_prskey;
CREATE OR REPLACE VIEW NOUR_V_NOTI_CTR_LOD
(
CODE,
@@ -9125,7 +9077,7 @@ AS
SELECT fac_srtnotificatie_code
CODE,
7520
SENDER, --- 7520 Facilitor
SENDER, --- 7520 Facilitor
NULL
RECEIVER,
'Informatie cLODs'
@@ -9154,7 +9106,7 @@ AS
'09',
'10',
'11',
'12');
'12');
CREATE OR REPLACE VIEW NOUR_V_PERSLID_BADGE_INT
(
@@ -9171,7 +9123,7 @@ AS
AND prs_kenmerk_key = 1560
AND fac_usrtab_key = 471
AND ud.FAC_USRDATA_KEY in (4381, 1747,4382,4377)
AND prs_kenmerklink_waarde = fac_usrdata_key
AND prs_kenmerklink_waarde = fac_usrdata_key
AND ( fac_usrdata_vervaldatum > SYSDATE
OR fac_usrdata_vervaldatum IS NULL);
@@ -9190,9 +9142,9 @@ AS
AND prs_kenmerk_key = 1560
AND fac_usrtab_key = 471
AND ud.FAC_USRDATA_KEY = 1746
AND prs_kenmerklink_waarde = fac_usrdata_key
AND prs_kenmerklink_waarde = fac_usrdata_key
AND ( fac_usrdata_vervaldatum > SYSDATE
OR fac_usrdata_vervaldatum IS NULL);
OR fac_usrdata_vervaldatum IS NULL);
CREATE OR REPLACE VIEW NOUR_V_RAP_CONTACTPERSONEN
(
@@ -9382,7 +9334,7 @@ IS
ORDER BY 2;
v_count NUMBER;
BEGIN
-- generic update
@@ -9398,8 +9350,8 @@ BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
COMMIT;
COMMIT;
-- mailadressen corrigeren, omzetten naar Nouryon
UPDATE prs_perslid
@@ -9453,7 +9405,7 @@ AS
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
d.ins_srtcontrole_omschrijving,
fac.nextcyclusdatedeel (d.ins_deel_key, d.ins_srtcontrole_key, 1),
fac.nextcyclusdatedeel (d.ins_deel_key, d.ins_srtcontrole_key, 1),
d.prs_perslid_key,
d.prs_perslid_naam_full,
'Nog in te plannen' AS status,
@@ -9474,7 +9426,7 @@ SELECT d.ins_deel_key,
ins_v_aanwezigsrtdeel sd,
ins_v_aanwezigdeel d,
prs_perslid p,
prs_v_perslid_fullnames_all pfa,
prs_v_perslid_fullnames_all pfa,
prs_v_perslid_fullnames_all pfab
WHERE sd.ins_srtdeel_key = d.ins_srtdeel_key
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
@@ -9511,7 +9463,7 @@ UNION ALL
SELECT opl.ins_deel_key,
opl.ins_deel_omschrijving,
ins.srtcontrole_omschrijving,
ins_deelsrtcontrole_plandatum,
ins_deelsrtcontrole_plandatum,
pfa.prs_perslid_key,
pfa.prs_perslid_naam_full,
deelsrtcontrole_status,
@@ -9521,7 +9473,7 @@ SELECT opl.ins_deel_key,
ins_srtdeel sd,
ins_srtgroep sg,
prs_perslid p,
prs_v_perslid_fullnames_all pfa,
prs_v_perslid_fullnames_all pfa,
prs_v_perslid_fullnames_all pfab
WHERE ins_deelsrtcontrole_plandatum IS NOT NULL
AND opl.ins_srtdeel_key = sd.ins_srtdeel_key
@@ -9631,7 +9583,7 @@ AS
AND vk.ins_discipline_key = m.mld_ins_discipline_key
AND vt.ins_srtdiscipline_key = vk.ins_srtdiscipline_key
AND kp.prs_kostenplaats_key = m.prs_kostenplaats_key
AND st.mld_statuses_key = m.mld_melding_status;
AND st.mld_statuses_key = m.mld_melding_status;
CREATE OR REPLACE FORCE VIEW NOUR_V_RAP_OPLEIDINGEN
(
@@ -10074,7 +10026,7 @@ CREATE OR REPLACE VIEW NOUR_V_BT_AFDELINGSMANAGER
AS
SELECT p.prs_perslid_key, p.prs_perslid_naam_friendly, p.prs_perslid_verwijder
FROM fac_groep g, fac_gebruikersgroep gg, prs_v_perslid_fullnames_all p
WHERE g.fac_groep_upper LIKE 'BT AFDELINGSM%'
WHERE g.fac_groep_upper LIKE '%AFDELINGSMAN%'
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_key = gg.prs_perslid_key;
@@ -10083,7 +10035,7 @@ CREATE OR REPLACE VIEW NOUR_V_BT_HSE_MANAGER
AS
SELECT p.prs_perslid_key, p.prs_perslid_naam_friendly, p.prs_perslid_verwijder
FROM fac_groep g, fac_gebruikersgroep gg, prs_v_perslid_fullnames_all p
WHERE g.fac_groep_upper LIKE 'BT HSE M%'
WHERE g.fac_groep_upper LIKE '%HSE MAN%'
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_key = gg.prs_perslid_key;
@@ -10091,17 +10043,25 @@ CREATE OR REPLACE VIEW NOUR_V_BT_PROCESS_ENGINEER
AS
SELECT p.prs_perslid_key, p.prs_perslid_naam_friendly, p.prs_perslid_verwijder
FROM fac_groep g, fac_gebruikersgroep gg, prs_v_perslid_fullnames_all p
WHERE g.fac_groep_upper LIKE 'BT PROCESS E%'
WHERE g.fac_groep_upper LIKE '%PROCESS ENG%'
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_key = gg.prs_perslid_key;
AND p.prs_perslid_key = gg.prs_perslid_key;
CREATE OR REPLACE VIEW NOUR_V_BT_SHIFT_SUPERVISOR
AS
SELECT p.prs_perslid_key, p.prs_perslid_naam_friendly, p.prs_perslid_verwijder
FROM fac_groep g, fac_gebruikersgroep gg, prs_v_perslid_fullnames_all p
WHERE g.fac_groep_upper LIKE 'BT SHIFT SUPERV%'
WHERE g.fac_groep_upper LIKE '%SHIFT SUPERV%'
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_key = gg.prs_perslid_key;
AND p.prs_perslid_key = gg.prs_perslid_key;
CREATE OR REPLACE VIEW NOUR_V_BT_SRE_OFFICER
AS
SELECT p.prs_perslid_key, p.prs_perslid_naam_friendly, p.prs_perslid_verwijder
FROM fac_groep g, fac_gebruikersgroep gg, prs_v_perslid_fullnames_all p
WHERE g.fac_groep_upper LIKE '%SRE OFF%'
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_key = gg.prs_perslid_key;
--- Overzicht met alle overbruggingen
CREATE OR REPLACE VIEW NOUR_V_OVERBRUGGING
@@ -10166,7 +10126,170 @@ AS
AND p.prs_perslid_key = pl.prs_perslid_key
AND pl.prs_afdeling_key = a.prs_afdeling_key
AND t.mld_stdmelding_key = 1861;
CREATE OR REPLACE VIEW NOUR_V_SELECTIE_WVG
(
mld_melding_key,
mld_omschrijving
)
AS
SELECT s.mld_melding_key,
s.mld_melding_key
|| '-'
|| t.mld_stdmelding_omschrijving
|| ' ('
|| s.mld_melding_onderwerp
|| ')'
FROM mld_melding s,
mld_stdmelding t,
prs_v_perslid_fullnames_all p,
prs_perslid pl,
prs_afdeling a,
mld_statuses u,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_srtkenmerk_key = 961) bestand
WHERE p.prs_perslid_key = s.prs_perslid_key_voor
AND s.mld_stdmelding_key = t.mld_stdmelding_key
AND s.mld_melding_key = bestand.mld_melding_key
AND s.mld_melding_status = u.mld_statuses_key
AND p.prs_perslid_key = pl.prs_perslid_key
AND pl.prs_afdeling_key = a.prs_afdeling_key
AND s.mld_melding_status NOT IN (1, 99);
CREATE OR REPLACE VIEW NOUR_V_OVERBRUGGING
(
HIDE_F_MELDING_KEY,
HTML_AANVRAAG_NR,
MELDING_OMSCHRIJVING,
STATUS,
REGISTRATIE_DATUM,
AANVRAGER,
AFDELING,
AFDELING_OMSCHR,
FCLT_3D_LOCATIE_KEY,
AFDELING,
TAGNR,
ACTIE,
REDEN,
RISICO,
MAATREGELEN,
STARTDATUM_OVERBRUGGING,
AANVANGSTIJD,
DATUM_TIJD_VAN,
EINDDATUM_OVERBRUGGING,
EINDTIJD,
DATUM_TIJD_TOT
)
AS
SELECT s.mld_melding_key,
'<a class="details" onclick=''FcltMgr.openDetail("'
|| 'appl/mld/mld_melding.asp?urole=fe&'
|| 'mld_key='
|| s.mld_melding_key
|| '")''>'
|| HTF.escape_sc (s.mld_melding_key)
|| '</a>' melding_key,
t.mld_stdmelding_omschrijving,
u.mld_statuses_omschrijving,
s.mld_melding_datum,
p.prs_perslid_naam_full,
a.prs_afdeling_naam,
a.prs_afdeling_omschrijving,
s.mld_alg_locatie_key,
afdeling.mld_kenmerkmelding_waarde
afdeling,
tagnummer.mld_kenmerkmelding_waarde
tagnummer,
actie.mld_kenmerkmelding_waarde
actie,
reden.mld_kenmerkmelding_waarde
reden,
risico.mld_kenmerkmelding_waarde
risico,
maatregelen.mld_kenmerkmelding_waarde
maatregelen,
startdatum.mld_kenmerkmelding_waarde
startdatum,
aanvangstijd.mld_kenmerkmelding_waarde
aanvangstijd,
TO_CHAR (
startdatum.mld_kenmerkmelding_waarde
|| ' '
|| aanvangstijd.mld_kenmerkmelding_waarde)
datum_tijd_van,
einddatum.mld_kenmerkmelding_waarde
einddatum,
eindtijd.mld_kenmerkmelding_waarde
eindtijd,
einddatum.mld_kenmerkmelding_waarde
|| ' '
|| eindtijd.mld_kenmerkmelding_waarde
datumtijd_tot
FROM mld_melding s,
mld_stdmelding t,
prs_v_perslid_fullnames_all p,
prs_perslid pl,
prs_afdeling a,
mld_statuses u,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2182) afdeling,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2183) tagnummer,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2184) actie,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2185) reden,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2186) risico,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2187) maatregelen,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2202) startdatum,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2203) aanvangstijd,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2204) einddatum,
(SELECT k.mld_melding_key, k.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding k, mld_kenmerk n
WHERE n.mld_kenmerk_key = k.mld_kenmerk_key
AND n.mld_kenmerk_key = 2205) eindtijd
WHERE p.prs_perslid_key = s.prs_perslid_key_voor
AND s.mld_stdmelding_key = t.mld_stdmelding_key
AND s.mld_melding_status = u.mld_statuses_key
AND p.prs_perslid_key = pl.prs_perslid_key
AND pl.prs_afdeling_key = a.prs_afdeling_key
AND t.mld_stdmelding_key = 1881
AND s.mld_melding_key = afdeling.mld_melding_key(+)
AND s.mld_melding_key = tagnummer.mld_melding_key(+)
AND s.mld_melding_key = actie.mld_melding_key(+)
AND s.mld_melding_key = reden.mld_melding_key(+)
AND s.mld_melding_key = risico.mld_melding_key(+)
AND s.mld_melding_key = maatregelen.mld_melding_key(+)
AND s.mld_melding_key = startdatum.mld_melding_key(+)
AND s.mld_melding_key = aanvangstijd.mld_melding_key(+)
AND s.mld_melding_key = einddatum.mld_melding_key(+)
AND s.mld_melding_key = eindtijd.mld_melding_key(+);
------ payload end ------
SET DEFINE OFF