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

AKZA#56786 aanvragen badges, rapportage

Browse Source 
svn path=/Customer/trunk/; revision=42468
This commit is contained in:
Suzan Wiegerinck
2019-05-09 14:15:07 +00:00
parent 215955164c
commit c74aed1905
1 changed files with 482 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

546
AKZA/AKZA.SQL
View File

@@ -8435,74 +8435,13 @@ AS
IS
SELECT * FROM akza_v_noti_objbeh;
CURSOR noti_clod
IS
SELECT prs_perslid_key, prs_perslid_email
FROM prs_perslid p
WHERE prs_perslid_verwijder IS NULL
AND UPPER (p.prs_perslid_email) IN
('ANDRE.MIDDELBOS@AKZONOBEL.COM',
'ASTRID.KRAMER@AKZONOBEL.COM',
'HERMAN.HERBERS@AKZONOBEL.COM',
'BERT.EMMING@AKZONOBEL.COM',
'THEO.VONK@AKZONOBEL.COM');
BEGIN
v_errorhint := 'init';
DELETE imp_log WHERE imp_log_applicatie = p_applname;
FOR rec IN noti_clod
LOOP
BEGIN
v_errorhint := 'Add notification';
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
prs_perslid_key_receiver,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
prs_perslid_key_sender,
fac_notificatie_prioriteit,
fac_notificatie_lang)
SELECT fac_srtnotificatie_key,
2,
rec.prs_perslid_key,
rec.prs_perslid_email,
'Informatie cLODs',
(SELECT fac_usrrap_key
FROM fac_usrrap
WHERE UPPER (fac_usrrap_view_name) =
'AKZA_V_RAP_CTR_LOD')
refkey, ---- refkey: is het rapport
7520, --- dit is Facilitor
2,
'NL'
FROM fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code = 'CUST07';
fac.writelog (
p_applname,
'I',
'Notificatie cLOD naar Andre Middelbos, Astrid Kramer, Herman herbers, Bert Emming, Theo Vonk',
'');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.writelog (
p_applname,
'E',
'Error '
|| v_aanduiding
|| oracle_err_num
|| '/'
|| oracle_err_mes,
v_errorhint);
END;
END LOOP;
FOR rec IN c
LOOP
@@ -10847,7 +10786,407 @@ AS
SELECT "PRS_PERSLID_KEY", "NAAM", "PRS_PERSLID_VERWIJDER"
FROM AKZA_V_CONTRACTORS);
CREATE OR REPLACE VIEW AKZA_V_RAP_TBADGES_AMS
(
BADGEHOUDER_KEY,
BADGEHOUDER,
INT_EXT,
COMPANY,
PROJECT,
WERKZAAM_VOOR,
BADGE_NR,
BLOKKADE_DATUM,
AANVRAGER,
MELDING_key,
HTML_MELDINGNR,
MELDING,
STATUS_MELDING,
AANVRAAGDATUM,
AANVRAAG_GEREED,
GEVRAAGDE_EINDDAT
)
AS
SELECT DISTINCT
mdw.badgehouder_prskey,
mdw.badgehouder,
mdw.int_ext,
mdw.comp,
mdw.project,
mdw.werkzaam_voor,
mdw.badge_nr,
mdw.blokkade_datum,
badges.aanvrager,
badges.mld_melding_key,
'<a class="details" onclick=''FcltMgr.openDetail("'
|| 'appl/mld/mld_melding.asp?mld_key='
|| badges.mld_melding_key
|| '")''>'
|| HTF.escape_sc (badges.mld_melding_key)
|| '</a>',
badges.mld_stdmelding_omschrijving,
badges.mld_statuses_omschrijving,
badges.mld_melding_datum,
badges.mld_melding_einddatum,
badges.nieuwe_einddatum
FROM (SELECT prs.prs_perslid_key
badgehouder_prskey,
prs.prs_perslid_naam_full
badgehouder,
int_ext.int_ext,
COALESCE (company_contr.company, company_intern.company)
comp,
proj.project,
werkz.werkzaam_voor,
badge.soort_badge,
badge_nr.badge_nr,
blokkade_datum.blokkade_datum
FROM prs_v_perslid_fullnames_all prs,
(SELECT prs_link_key, ud.fac_usrdata_omschr int_ext
FROM prs_kenmerklink kl, fac_usrdata ud, fac_usrtab ut
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key
AND ud.fac_usrtab_key = ut.fac_usrtab_key
AND ut.fac_usrtab_key = 471
AND kl.prs_kenmerk_key = 1560) int_ext,
(SELECT prs_link_key, ud.fac_usrdata_omschr soort_badge
FROM prs_kenmerklink kl, fac_usrdata ud, fac_usrtab ut
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key
AND ud.fac_usrtab_key = ut.fac_usrtab_key
AND ut.fac_usrtab_key = 61
AND kl.prs_kenmerk_key = 1001) badge,
(SELECT prs_link_key, prs_kenmerklink_waarde badge_nr
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerk_key = 1000) badge_nr,
(SELECT prs_link_key,
prs_kenmerklink_waarde blokkade_datum
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerk_key = 1360) blokkade_datum,
(SELECT prs_link_key, prs_kenmerklink_waarde company
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerk_key = 1543) company_contr,
(SELECT prs_link_key, ud.fac_usrdata_code company
FROM prs_kenmerklink kl, fac_usrdata ud
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerk_key = 1520
AND ud.fac_usrtab_key = 527
AND ud.fac_usrdata_key = prs_kenmerklink_waarde)
company_intern,
(SELECT prs_link_key, prs_kenmerklink_waarde project
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerk_key = 1562) proj,
(SELECT prs_link_key, ud.fac_usrdata_code werkzaam_voor
FROM prs_kenmerklink kl, fac_usrdata ud
WHERE kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerk_key = 1544
AND ud.fac_usrtab_key = 529
AND ud.fac_usrdata_key = prs_kenmerklink_waarde)
werkz
WHERE prs.prs_perslid_key = company_intern.prs_link_key(+)
AND prs.prs_perslid_key = company_contr.prs_link_key(+)
AND prs.prs_perslid_key = blokkade_datum.prs_link_key(+)
AND prs.prs_perslid_key = badge.prs_link_key(+)
AND prs.prs_perslid_key = werkz.prs_link_key(+)
AND prs.prs_perslid_key = int_ext.prs_link_key(+)
AND prs.prs_perslid_key = badge_nr.prs_link_key(+)
AND prs.prs_perslid_key = proj.prs_link_key(+)
AND prs.PRS_PERSLID_VERWIJDER IS NULL) mdw,
( SELECT DISTINCT melding_voor,
mld_melding_key,
mld_stdmelding_omschrijving,
mld_statuses_omschrijving,
mld_melding_datum,
mld_melding_einddatum,
aanvrager,
nieuwe_einddatum
FROM ( SELECT melding_voor,
MAX (mld_melding_key) max_mld_melding_key
FROM ((SELECT m.mld_melding_key,
COALESCE (
contractor.contractor_perslid_key,
mdw_intern.int_mdw_perslid_key) melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
contractor_melding_key,
mld_kenmerkmelding_waarde
contractor_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1566 -- contractor
AND km.mld_kenmerkmelding_verwijder
IS NULL) contractor,
(SELECT mld_melding_key
int_mdw_melding_key,
mld_kenmerkmelding_waarde
int_mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1564 -- interne medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) mdw_intern
WHERE m.mld_stdmelding_key = 1761 -- badges >> aanvraag badge
AND m.mld_melding_key =
contractor_melding_key(+)
AND m.mld_melding_key =
int_mdw_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
medewerker.mdw_perslid_key melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1581 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker
WHERE m.mld_stdmelding_key = 1765 -- badges >> verlengen badge
AND m.mld_melding_key =
mdw_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
COALESCE (medewerker.mdw_perslid_key,
contractor.contr_perslid_key) melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1521 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker,
(SELECT mld_melding_key
contr_melding_key,
mld_kenmerkmelding_waarde
contr_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1481 -- contractor
AND km.mld_kenmerkmelding_verwijder
IS NULL) contractor
WHERE m.mld_stdmelding_key = 1003 -- indienst met tijdelijke badge
AND m.mld_melding_key =
mdw_melding_key(+)
AND m.mld_melding_key =
contr_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
COALESCE (contractor.contr_perslid_key,
medewerker.mdw_perslid_key) melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 313 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker,
(SELECT mld_melding_key
contr_melding_key,
mld_kenmerkmelding_waarde
contr_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1441 -- contractor
AND km.mld_kenmerkmelding_verwijder
IS NULL) contractor
WHERE m.mld_stdmelding_key = 981 -- tijdelijke badge - aanvraag tijdelijke badge
AND m.mld_melding_key =
mdw_melding_key(+)
AND m.mld_melding_key =
contr_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
COALESCE (contractor.contr_perslid_key,
medewerker.mdw_perslid_key) melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 313 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker,
(SELECT mld_melding_key
contr_melding_key,
mld_kenmerkmelding_waarde
contr_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1441 -- contractor
AND km.mld_kenmerkmelding_verwijder
IS NULL) contractor
WHERE m.mld_stdmelding_key = 981 -- tijdelijke badge - aanvraag tijdelijke badge
AND m.mld_melding_key =
mdw_melding_key(+)
AND m.mld_melding_key =
contr_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
COALESCE (contractor.contr_perslid_key,
medewerker.mdw_perslid_key) melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 313 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker,
(SELECT mld_melding_key
contr_melding_key,
mld_kenmerkmelding_waarde
contr_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1441 -- contractor
AND km.mld_kenmerkmelding_verwijder
IS NULL) contractor
WHERE m.mld_stdmelding_key = 984 -- tijdelijke badge - verlengen tijdelijke badge
AND m.mld_melding_key =
mdw_melding_key(+)
AND m.mld_melding_key =
contr_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
medewerker.mdw_perslid_key melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 341 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker
WHERE m.mld_stdmelding_key = 1006 -- uit dienst met tijdelijke badge
AND m.mld_melding_key =
mdw_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
medewerker.mdw_perslid_key melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1621 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker
WHERE m.mld_stdmelding_key = 1764 -- uit dienst met tijdelijke badge
AND m.mld_melding_key =
mdw_melding_key(+))
UNION ALL
(SELECT m.mld_melding_key,
COALESCE (contractor.contr_perslid_key,
medewerker.mdw_perslid_key) melding_voor
FROM mld_melding m,
(SELECT mld_melding_key
mdw_melding_key,
mld_kenmerkmelding_waarde
mdw_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 313 -- medewerker
AND km.mld_kenmerkmelding_verwijder
IS NULL) medewerker,
(SELECT mld_melding_key
contr_melding_key,
mld_kenmerkmelding_waarde
contr_perslid_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1441 -- contractor
AND km.mld_kenmerkmelding_verwijder
IS NULL) contractor
WHERE m.mld_stdmelding_key = 1021 -- tijdelijke badge - innemen tijdelijke badge
AND m.mld_melding_key =
mdw_melding_key(+)
AND m.mld_melding_key =
contr_melding_key(+)))
laatste_aanvraag
GROUP BY melding_voor
ORDER BY melding_voor) max_aanvraag,
(SELECT sm.MLD_STDMELDING_OMSCHRIJVING,
m.mld_melding_key,
s.mld_statuses_omschrijving,
m.mld_melding_datum,
mld_melding_einddatum,
aanvr.prs_perslid_naam_full aanvrager,
einddatum.nieuwe_einddat nieuwe_einddatum
FROM mld_melding m,
mld_statuses s,
prs_v_perslid_fullnames_all aanvr,
mld_stdmelding sm,
((SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde nieuwe_einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1561 -- nieuwe einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)
UNION ALL
(SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 305 -- einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)
UNION ALL
(SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 304 -- einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)
UNION ALL
(SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 304 -- einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)
UNION ALL
(SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 320 -- einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)
UNION ALL
(SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 361 -- einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)
UNION ALL
(SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 1562 -- einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)
UNION ALL
(SELECT mld_melding_key einddat_melding_key,
mld_kenmerkmelding_waarde einddat
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 364 -- einddatum
AND km.mld_kenmerkmelding_verwijder
IS NULL)) einddatum
WHERE m.mld_melding_status = s.mld_statuses_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.MLD_MELDING_KEY =
einddatum.einddat_melding_key(+)
AND m.prs_perslid_key_voor = aanvr.prs_perslid_key)
details
WHERE max_aanvraag.max_mld_melding_key = details.mld_melding_key
ORDER BY max_aanvraag.melding_voor) badges
WHERE badgehouder_prskey = badges.melding_voor(+)
AND SUBSTR (mdw.badge_nr, 1, 2) = '30' -- Dit zijn de badges voor A'dam
-- AND UPPER (soort_badge) = 'TIJDELIJKE BADGE'
ORDER BY mdw.badge_nr, mdw.badgehouder_prskey;
CREATE OR REPLACE VIEW akza_v_rap_tbadges
(
@@ -11282,7 +11621,86 @@ AS
WHERE badgehouder_prskey = badges.melding_voor(+)
AND UPPER (soort_badge) = 'TIJDELIJKE BADGE'
ORDER BY mdw.badge_nr, mdw.badgehouder_prskey;
CREATE OR REPLACE VIEW AKZA_V_NOTI_CTR_LOD
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY
)
AS
SELECT fac_srtnotificatie_code,
NULL
SENDER, --- dit is Facilitor
(SELECT prs_perslid_key
FROM prs_perslid p
WHERE UPPER (p.PRS_PERSLID_EMAIL) = 'THEO.VONK@AKZONOBEL.COM')
RECEIVER,
'Informatie cLODs'
TEKST,
(SELECT fac_usrrap_key
FROM fac_usrrap
WHERE UPPER (fac_usrrap_view_name) = 'AKZA_V_RAP_CTR_LOD')
key, ---- refkey: is het rapport
NULL
xkey
--- 'ANDRE.MIDDELBOS@AKZONOBEL.COM;ASTRID.KRAMER@AKZONOBEL.COM;HERMAN.HERBERS@AKZONOBEL.COM;BERT.EMMING@AKZONOBEL.COM;THEO.VONK@AKZONOBEL.COM' xemail
FROM fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code = 'CUST07'
AND TO_CHAR (SYSDATE, 'dd') = '01' -- Elke 1e dag van de maand
AND TO_CHAR (SYSDATE, 'mm') IN ('01',
'02',
'03',
'04',
'05',
'06',
'07',
'08',
'09',
'10',
'11',
'12');
CREATE OR REPLACE VIEW AKZA_V_PERSLID_BADGE_INT
(
PRS_PERSLID_KEY,
NAAM,
PRS_PERSLID_VERWIJDER
)
AS
SELECT p.prs_perslid_key,
p.prs_perslid_string || ' / ' || fac_usrdata_code,
p.prs_perslid_verwijder
FROM AKZA_V_PERSLID p, PRS_KENMERKLINK kl, FAC_USRDATA ud
WHERE prs_link_key = prs_perslid_key
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 ( fac_usrdata_vervaldatum > SYSDATE
OR fac_usrdata_vervaldatum IS NULL);
CREATE OR REPLACE VIEW AKZA_V_PERSLID_BADGE_EXT
(
PRS_PERSLID_KEY,
NAAM,
PRS_PERSLID_VERWIJDER
)
AS
SELECT p.prs_perslid_key,
p.prs_perslid_string || ' / ' || fac_usrdata_code,
p.prs_perslid_verwijder
FROM AKZA_V_PERSLID p, PRS_KENMERKLINK kl, FAC_USRDATA ud
WHERE prs_link_key = prs_perslid_key
AND prs_kenmerk_key = 1560
AND fac_usrtab_key = 471
AND ud.FAC_USRDATA_KEY = 1746
AND prs_kenmerklink_waarde = fac_usrdata_key
AND ( fac_usrdata_vervaldatum > SYSDATE
OR fac_usrdata_vervaldatum IS NULL);
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------