Customer/TAYL/tayl.sql

--
-- $Id$
--
-- Script containing customer specific sql statements for the FACILITOR database

DEFINE thisfile = 'TAYL.SQL'
DEFINE dbuser   = 'TAYL'

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 ------

-------------------------------
--- DOMEIN-VIEWS --------------
-------------------------------

CREATE OR REPLACE VIEW tayl_v_leverancierslijst
(
    PRS_BEDRIJF_KEY,
    BEDRIJF_NAAM,
    BEDRIJF_PLAATS,
    PRS_BEDRIJF_VERWIJDER
)
AS
    SELECT
       b.prs_bedrijf_key,
       b.prs_bedrijf_naam,
       b.prs_bedrijf_post_plaats,
       b.prs_bedrijf_verwijder
    FROM
    prs_bedrijf    b
    WHERE
    prs_bedrijf_intern IS NULL
    AND prs_bedrijf_verwijder IS NULL
    ORDER BY prs_bedrijf_naam
    ;

------------------------------
--- AUTOCAD-THEMA'S ----------
------------------------------

CREATE OR REPLACE VIEW tayl_v_thema_vloersoort
(
    ALG_RUIMTE_KEY,
    WAARDE,
    WAARDE_KEY
)
AS
    SELECT r.alg_ruimte_key,
           COALESCE (va.fac_usrdata_omschr, 'Onbekend'),
           va.fac_usrdata_key
      FROM alg_ruimte  r,
           (SELECT rr.alg_ruimte_key,
                   ud.fac_usrdata_omschr,
                   ud.fac_usrdata_key
              FROM alg_onrgoedkenmerk    ok,
                   fac_usrdata           ud,
                   fac_kenmerkdomein     rk,
                   alg_kenmerk           k,
                   alg_v_aanwezigruimte  rr
             WHERE     rk.fac_usrtab_key = ud.fac_usrtab_key
                   AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
                   AND TO_CHAR (ud.fac_usrdata_key) =
                       ok.alg_onrgoedkenmerk_waarde
                   AND ok.alg_kenmerk_key = 1040
                   AND k.alg_kenmerk_niveau = 'R'
                   AND k.alg_kenmerk_verwijder IS NULL
                   AND rr.alg_ruimte_key = ok.alg_onrgoed_key) va
     WHERE r.alg_ruimte_key = va.alg_ruimte_key(+);

CREATE OR REPLACE VIEW tayl_v_thema_set_res_wp
AS
    SELECT ins_deel_key, DECODE (rd.res_deel_key, NULL, 0, 1) waarde
      FROM ins_deel  d,
           (SELECT *
              FROM res_deel
             WHERE res_deel_verwijder IS NULL) rd
     WHERE     d.ins_deel_key = rd.res_ins_deel_key(+);

-------------------------------
--- PROCEDURES  ---------------
-------------------------------


-------------------------------
--- NOTI-JOBS   ---------------
-------------------------------

-- TAYLOR: Contractbeheerder(_eig) is Beheerder/Administrateur en de Contractverantwoordelijke (_beh) is 1e  aanspreekpunt die beslist over wel/niet verlengen
CREATE OR REPLACE VIEW tayl_v_noti_cntreminder
(
   code,
   sender,
   receiver,
   text,
   key,
   xkey,
   xemail,
   xmobile
)
AS                 -- Op rappel-datum naar de Beheerder/Administrateur sturen
   SELECT 'CNTMAI',
          NULL,
          c.prs_perslid_key_beh,
          'TER INFO: Rappel verstuurd voor contract ' || c.cnt_contract_nummer_intern
          || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
          || ' (' || c.cnt_contract_omschrijving || ' ' || b.prs_bedrijf_naam || ')'
          || ' - Moet uiterlijk per ' || TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'dd-mm-yyyy')
          || ' worden verlengd of opgezegd.',
          c.cnt_contract_key,
          NULL,
          NULL,
          NULL
     FROM cnt_v_aanwezigcontract c, prs_bedrijf b
    WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
          AND cnt_contract_status = 0
          AND cnt.cnt_getrappeldatum (c.cnt_contract_key) = TRUNC (SYSDATE)
          AND c.prs_perslid_key_beh <> c.prs_perslid_key_eig -- als administratuer gelijk aan 1e aanspreekpunt dan dan sturen we de info-mail niet uit
          AND NOT EXISTS -- kenmerkveld 'Opgezegd' staat uit
          (SELECT km.cnt_contract_key
             FROM cnt_kenmerkcontract km, cnt_kenmerk k
            WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 7)
   UNION ALL     -- Op rappel-datum ACTIE-mail naar het 1e aanspreekpunt sturen
   SELECT 'CUST01',
          NULL,
          c.prs_perslid_key_eig,
          'ACTIE: Rappel verstuurd voor contract ' || c.cnt_contract_nummer_intern
          || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
          || ' (' || c.cnt_contract_omschrijving || ' ' || b.prs_bedrijf_naam || ')'
          || ' - Moet uiterlijk per ' || TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'dd-mm-yyyy')
          || ' worden verlengd of opgezegd.',
          c.cnt_contract_key,
          NULL,
          NULL,
          NULL
     FROM cnt_v_aanwezigcontract c, prs_bedrijf b
    WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
          AND cnt_contract_status = 0
          AND cnt.cnt_getrappeldatum (c.cnt_contract_key) = TRUNC (SYSDATE)
          AND c.prs_perslid_key_eig IS NOT NULL
          AND NOT EXISTS  -- kenmerkveld 'Opgezegd' staat uit
          (SELECT km.cnt_contract_key
             FROM cnt_kenmerkcontract km, cnt_kenmerk k
            WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 7) ;

-------------------------------
--- RAPPORTAGES ---------------
-------------------------------




------ 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