FSN#41286.sql implementatie Teijin Aramid, notificatie objectbeheerders
svn path=/Customer/trunk/; revision=39247
This commit is contained in:
Suzan Wiegerinck
223
TEAR/TEAR.SQL
Normal file
223
TEAR/TEAR.SQL
Normal file
@@ -0,0 +1,223 @@
|
||||
--
|
||||
-- $Id$
|
||||
--
|
||||
-- Script containing customer specific sql statements for the FACILITOR database
|
||||
|
||||
DEFINE thisfile = 'TEAR.SQL'
|
||||
DEFINE dbuser = '^TEAR'
|
||||
DEFINE custid = 'TEAR'
|
||||
|
||||
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 ------
|
||||
|
||||
--- Notificatie naar objectbeheerders voor periodieke taken die de komende maand gedaan moeten worden
|
||||
CREATE OR REPLACE VIEW TEAR_V_NOTI_OBJBEH
|
||||
(
|
||||
METHODE,
|
||||
TO_KEY,
|
||||
TO_OMSCHR,
|
||||
REF_KEY,
|
||||
REF_OMSCHR,
|
||||
KPN_KEY,
|
||||
AANTAL,
|
||||
BETREFT
|
||||
)
|
||||
AS
|
||||
WITH taken
|
||||
AS (SELECT fac.nextcyclusdatedeel (d.ins_deel_key,
|
||||
d.ins_srtcontrole_key,
|
||||
1)
|
||||
volgende_cyclus,
|
||||
p.ins_deelsrtcontrole_plandatum datum_gepland,
|
||||
COALESCE (
|
||||
p.ins_deelsrtcontrole_plandatum,
|
||||
fac.nextcyclusdatedeel (d.ins_deel_key,
|
||||
d.ins_srtcontrole_key,
|
||||
1))
|
||||
volgende_ctr,
|
||||
d.*
|
||||
FROM (SELECT sc.ins_srtcontrole_key,
|
||||
d.ins_deel_key,
|
||||
d.ins_deel_omschrijving,
|
||||
sc.ins_srtcontrole_periode,
|
||||
sd.ins_srtdeel_omschrijving,
|
||||
a.prs_kostenplaats_key,
|
||||
pfa.prs_perslid_key,
|
||||
pfa.prs_perslid_naam_full
|
||||
FROM ins_srtcontrole sc,
|
||||
ins_discipline di,
|
||||
ins_v_aanwezigsrtgroep sg,
|
||||
ins_v_aanwezigsrtdeel sd,
|
||||
ins_v_aanwezigdeel d,
|
||||
prs_perslid p,
|
||||
prs_afdeling a,
|
||||
prs_v_perslid_fullnames_all pfa
|
||||
WHERE sd.ins_srtdeel_key = d.ins_srtdeel_key
|
||||
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
|
||||
AND di.ins_discipline_key = sg.ins_discipline_key
|
||||
AND COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >
|
||||
SYSDATE
|
||||
AND p.prs_perslid_key = d.prs_perslid_key_beh
|
||||
AND a.prs_afdeling_key(+) = p.prs_afdeling_key
|
||||
AND pfa.prs_perslid_key = d.prs_perslid_key_beh
|
||||
AND sc.ins_srtinstallatie_key =
|
||||
DECODE (ins_srtcontrole_niveau,
|
||||
'D', di.ins_discipline_key,
|
||||
'G', sg.ins_srtgroep_key,
|
||||
'S', sd.ins_srtdeel_key)) d,
|
||||
ins_srtcontroledl_xcp xcp,
|
||||
(SELECT *
|
||||
FROM ins_v_udr_deelinspect ins
|
||||
WHERE deelsrtcontrole_status = 'Gepland'
|
||||
AND ins_deelsrtcontrole_plandatum IS NOT NULL) p
|
||||
WHERE xcp.ins_deel_key (+) = d.ins_deel_key
|
||||
AND xcp.ins_srtcontrole_key (+) = d.ins_srtcontrole_key
|
||||
AND p.deel_key(+) = d.ins_deel_key
|
||||
AND p.ins_srtcontrole_key(+) = d.ins_srtcontrole_key
|
||||
AND COALESCE (xcp.ins_srtcontroledl_xcp_periode,
|
||||
d.ins_srtcontrole_periode) > 0
|
||||
-- De eerste 5 dagen van volgende maand ook vast meepakken, dat scheelt verrassingen
|
||||
AND COALESCE (
|
||||
p.ins_deelsrtcontrole_plandatum,
|
||||
fac.nextcyclusdatedeel (d.ins_deel_key,
|
||||
d.ins_srtcontrole_key,
|
||||
1)) <
|
||||
ADD_MONTHS (SYSDATE, 1) + 5)
|
||||
SELECT 'mail' methode,
|
||||
prs_perslid_key to_key,
|
||||
prs_perslid_naam_full to_omschr,
|
||||
NULL ref_key,
|
||||
NULL ref_omschr,
|
||||
NULL kpn_key,
|
||||
COUNT ( * ) aantal,
|
||||
LISTAGG (ins_deel_omschrijving, ', ')
|
||||
WITHIN GROUP (ORDER BY ins_deel_omschrijving)
|
||||
AS betreft
|
||||
FROM taken
|
||||
GROUP BY prs_perslid_key, prs_perslid_naam_full;
|
||||
|
||||
--- deze notificatie moet aan het begin van elke maand aangemaakt / verstuurd worden
|
||||
CREATE OR REPLACE PROCEDURE tear_export_task_monthly (
|
||||
p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
p_filedir IN VARCHAR2,
|
||||
p_filename IN VARCHAR2)
|
||||
AS
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_errorhint VARCHAR2 (100);
|
||||
|
||||
v_aanduiding VARCHAR2 (100);
|
||||
v_melding_key NUMBER (10);
|
||||
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT * FROM tear_v_noti_objbeh;
|
||||
BEGIN
|
||||
v_errorhint := 'init';
|
||||
|
||||
DELETE imp_log
|
||||
WHERE imp_log_applicatie = p_applname;
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
IF (rec.methode = 'mail')
|
||||
THEN
|
||||
v_aanduiding := rec.ref_omschr || ' (' || rec.methode || ') ';
|
||||
ELSE
|
||||
v_aanduiding :=
|
||||
rec.to_omschr
|
||||
|| '/'
|
||||
|| rec.ref_omschr
|
||||
|| ' ('
|
||||
|| rec.methode
|
||||
|| ') ';
|
||||
END IF;
|
||||
|
||||
v_errorhint := 'Add mail';
|
||||
|
||||
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.to_key,
|
||||
prs_perslid_email,
|
||||
rec.aantal || ' uit te voeren taken deze maand',
|
||||
rec.to_key,
|
||||
3,
|
||||
2,
|
||||
'NL'
|
||||
FROM fac_srtnotificatie, prs_perslid
|
||||
WHERE fac_srtnotificatie_code = 'CUST01'
|
||||
AND prs_perslid_key = rec.to_key;
|
||||
|
||||
fac.writelog (p_applname,
|
||||
'I',
|
||||
'Mail naar ' || rec.to_omschr,
|
||||
rec.aantal || ' objecten');
|
||||
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;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
fac.writelog (p_applname,
|
||||
'E',
|
||||
'Error ' || oracle_err_num || '/' || oracle_err_mes,
|
||||
v_errorhint);
|
||||
END tear_export_task_monthly;
|
||||
/
|
||||
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
|
||||
Reference in New Issue
Block a user