-- Script containing customer specific configuration sql statements for NETS (Netwerkstad Twente)
-- (c) 2008 Facilitor/Dijkoraad IT bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700

set echo on
SPOOL xNETS.LST

/* Formatted on 29-3-2016 16:45:15 (QP5 v5.136.908.31019) */
CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_rappel
(
   code,
   sender,
   receiver,
   text,
   key,
   xkey
)
AS
   SELECT 'CUST01',
          NULL,
          c.prs_perslid_key_beh,
          'Beste ' || p.prs_perslid_voornaam
          || DECODE (p.prs_perslid_tussenvoegsel,
                     NULL, ' ',
                     ' ' || p.prs_perslid_tussenvoegsel || ' ')
          || p.prs_perslid_naam
          || CHR (13)
          || CHR (13)
          || 'Op '
          || TO_CHAR (c.cnt_contract_looptijd_tot, 'dd-mm-yyyy')
          || ' loopt '
          || c.cnt_contract_nummer_intern
          || ' ('
          || c.cnt_contract_omschrijving
          || ') af. Het is raadzaam hierover contact '
          || CHR (13)
          || 'op te nemen met zowel uw leverancier als uw interne organisatie.'
          || CHR (13)
          || CHR (13)
          || 'Raadpleeg het digitale contract in Facilitor om de vervolgstappen te bepalen.'
          || CHR (13)
          || 'Indien het contract verlengd wordt, zorg er dan voor dat de mutaties en de daarbij behorende '
          || CHR (13)
          || 'documenten digitaal worden vastgelegd in Facilitor.'
          || CHR (13)
          || CHR (13)
          || CHR (13)
          || 'Met vriendelijke groet,'
          || CHR (13)
          || CHR (13)
          || 'Applicatiebeheer Facilitor',
          c.cnt_contract_key,
          NULL
     FROM cnt_v_aanwezigcontract c,
          prs_bedrijf b,
          prs_perslid p,
          prs_v_afdeling_boom ab
    WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
          AND c.prs_perslid_key_beh = p.prs_perslid_key
          AND p.prs_afdeling_key = ab.prs_afdeling_key
          AND ab.prs_afdeling_key1 IN (41, 42, 43) -- Alleen mails naar ALM/ENS/BOR-beh!
          AND TRUNC (SYSDATE) = TRUNC (cnt.cnt_getRappeldatum (c.cnt_contract_key))
   UNION ALL
   SELECT 'CUST01',
          NULL,
          c.prs_perslid_key_eig,
          'Beste ' || p.prs_perslid_voornaam
          || DECODE (p.prs_perslid_tussenvoegsel,
                     NULL, ' ',
                     ' ' || p.prs_perslid_tussenvoegsel || ' ')
          || p.prs_perslid_naam
          || CHR (13)
          || CHR (13)
          || 'Op '
          || TO_CHAR (c.cnt_contract_looptijd_tot, 'dd-mm-yyyy')
          || ' loopt '
          || c.cnt_contract_nummer_intern
          || ' ('
          || c.cnt_contract_omschrijving
          || ') af. Het is raadzaam hierover contact '
          || CHR (13)
          || 'op te nemen met zowel uw leverancier als uw interne organisatie.'
          || CHR (13)
          || CHR (13)
          || 'Raadpleeg het digitale contract in Facilitor om de vervolgstappen te bepalen.'
          || CHR (13)
          || 'Indien het contract verlengd wordt, zorg er dan voor dat de mutaties en de daarbij behorende '
          || CHR (13)
          || 'documenten digitaal worden vastgelegd in Facilitor.'
          || CHR (13)
          || CHR (13)
          || CHR (13)
          || 'Met vriendelijke groet,'
          || CHR (13)
          || CHR (13)
          || 'Applicatiebeheer Facilitor',
          c.cnt_contract_key,
          NULL
     FROM cnt_v_aanwezigcontract c,
          prs_bedrijf b,
          prs_perslid p,
          prs_v_afdeling_boom ab
    WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
          AND c.prs_perslid_key_eig = p.prs_perslid_key
          AND p.prs_afdeling_key = ab.prs_afdeling_key
          AND ab.prs_afdeling_key1 = 43          -- Alleen mails naar BOR-eig!
          AND TRUNC (SYSDATE) = TRUNC (cnt.cnt_getRappeldatum (c.cnt_contract_key));


-- Staan er bij contracten gesprekken gepland?
-- Zo ja, wanneer staat het eerste, tweede en derde gesprek gepland?
CREATE OR REPLACE FORCE VIEW nets_v_noti_gesprek_tekst
AS
SELECT  k.cnt_srtkenmerk_key, kc.cnt_contract_key, kc.cnt_kenmerkcontract_waarde
FROM    cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE   sk.cnt_srtkenmerk_key in (111,112,113)
AND     kc.cnt_kenmerkcontract_verwijder is null
AND     sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND     kc.cnt_kenmerk_key    = k.cnt_kenmerk_key;

-- Zijn er bij contracten gesprekken geweest?
CREATE OR REPLACE FORCE VIEW nets_v_noti_gesprek_ja
AS
SELECT  111 cnt_srtkenmerk_key, kc.cnt_contract_key
FROM    cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE   sk.cnt_srtkenmerk_key = 114 -- 'Eerste gesprek geweest'
AND     kc.cnt_kenmerkcontract_verwijder is null
AND     kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
AND     sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND     kc.cnt_kenmerk_key    = k.cnt_kenmerk_key
UNION ALL
SELECT  112 cnt_srtkenmerk_key, kc.cnt_contract_key
FROM    cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE   sk.cnt_srtkenmerk_key = 115 -- 'Tweede gesprek geweest'
AND     kc.cnt_kenmerkcontract_verwijder is null
AND     kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
AND     sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND     kc.cnt_kenmerk_key    = k.cnt_kenmerk_key
UNION ALL
SELECT  113 cnt_srtkenmerk_key, kc.cnt_contract_key
FROM    cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE   sk.cnt_srtkenmerk_key = 116 -- 'Derde gesprek geweest'
AND     kc.cnt_kenmerkcontract_verwijder is null
AND     kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
AND     sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND     kc.cnt_kenmerk_key    = k.cnt_kenmerk_key;



-- Contractgesprekken die staan gepland tussen nu en 8 weken (7*8 dagen) in de toekomst.
/* Formatted on 29-3-2016 16:58:02 (QP5 v5.136.908.31019) */
CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_gespr
(
   code,
   sender,
   receiver,
   text,
   key,
   xkey
)
AS
   SELECT 'CUST02',
          NULL,
          c.prs_perslid_key_beh,
          'Beste ' || p.prs_perslid_voornaam
          || DECODE (p.prs_perslid_tussenvoegsel,
                     NULL, ' ',
                     ' ' || p.prs_perslid_tussenvoegsel || ' ')
          || p.prs_perslid_naam
          || CHR (13)
          || CHR (13)
          || 'U bent beheerder van contract '
          || c.cnt_contract_nummer_intern
          || ' ('
          || c.cnt_contract_omschrijving
          || '). Met uw leverancier is'
          || CHR (13)
          || 'overeengekomen dat u (tussentijds) gaat evalueren. '
          || CHR (13)
          || CHR (13)
          || CHR (13)
          || 'Onderneem de volgende acties:'
          || CHR (13)
          || CHR (13)
          || '- Interne evaluatie;'
          || CHR (13)
          || '- Afspraak leverancier.'
          || CHR (13)
          || CHR (13)
          || 'Wilt u dit realiseren voor '
          || g.cnt_kenmerkcontract_waarde
          || '.'
          || CHR (13)
          || 'Zorg ervoor dat het (tussentijdse) evaluatieverslag digitaal vastgelegd wordt in het dossier van Facilitor.'
          || CHR (13)
          || CHR (13)
          || CHR (13)
          || 'Met vriendelijke groet,'
          || CHR (13)
          || CHR (13)
          || 'Applicatiebeheer Facilitor',
          c.cnt_contract_key,
          NULL
     FROM cnt_v_aanwezigcontract c,
          prs_perslid p,
          prs_v_afdeling_boom ab,
          nets_v_noti_gesprek_tekst g
    WHERE     c.prs_perslid_key_beh = p.prs_perslid_key
          AND p.prs_afdeling_key = ab.prs_afdeling_key
          AND ab.prs_afdeling_key1 IN (41, 42, 43) -- Alleen mails naar ALM/ENS/BOR-beh!
          AND c.cnt_contract_key = g.cnt_contract_key
          AND TRUNC (SYSDATE + (7 * 8)) = TRUNC(fac.safe_to_date (g.cnt_kenmerkcontract_waarde, 'dd-mm-yyyy'))
          AND NOT EXISTS
                (SELECT 'x'
                   FROM nets_v_noti_gesprek_ja x
                  WHERE x.cnt_srtkenmerk_key = g.cnt_srtkenmerk_key
                        AND x.cnt_contract_key = g.cnt_contract_key)
   UNION ALL
   SELECT 'CUST02',
          NULL,
          c.prs_perslid_key_eig,
          'Beste ' || p.prs_perslid_voornaam
          || DECODE (p.prs_perslid_tussenvoegsel,
                     NULL, ' ',
                     ' ' || p.prs_perslid_tussenvoegsel || ' ')
          || p.prs_perslid_naam
          || CHR (13)
          || CHR (13)
          || 'U bent beheerder van contract '
          || c.cnt_contract_nummer_intern
          || ' ('
          || c.cnt_contract_omschrijving
          || '). Met uw leverancier is'
          || CHR (13)
          || 'overeengekomen dat u (tussentijds) gaat evalueren. '
          || CHR (13)
          || CHR (13)
          || CHR (13)
          || 'Onderneem de volgende acties:'
          || CHR (13)
          || CHR (13)
          || '- Interne evaluatie;'
          || CHR (13)
          || '- Afspraak leverancier.'
          || CHR (13)
          || CHR (13)
          || 'Wilt u dit realiseren voor '
          || g.cnt_kenmerkcontract_waarde
          || '.'
          || CHR (13)
          || 'Zorg ervoor dat het (tussentijdse) evaluatieverslag digitaal vastgelegd wordt in het dossier van Facilitor.'
          || CHR (13)
          || CHR (13)
          || CHR (13)
          || 'Met vriendelijke groet,'
          || CHR (13)
          || CHR (13)
          || 'Applicatiebeheer Facilitor',
          c.cnt_contract_key,
          NULL
     FROM cnt_v_aanwezigcontract c,
          prs_perslid p,
          prs_v_afdeling_boom ab,
          nets_v_noti_gesprek_tekst g
    WHERE     c.prs_perslid_key_beh = p.prs_perslid_key
          AND p.prs_afdeling_key = ab.prs_afdeling_key
          AND ab.prs_afdeling_key1 = 43          -- Alleen mails naar BOR-eig!
          AND c.cnt_contract_key = g.cnt_contract_key
          AND TRUNC (SYSDATE + (7 * 8)) = TRUNC(fac.safe_to_date (g.cnt_kenmerkcontract_waarde, 'dd-mm-yyyy'))
          AND NOT EXISTS
                (SELECT 'x'
                   FROM nets_v_noti_gesprek_ja x
                  WHERE x.cnt_srtkenmerk_key = g.cnt_srtkenmerk_key
                        AND x.cnt_contract_key = g.cnt_contract_key);

BEGIN fac.registercustversion('NETS', 4); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
COMMIT;

SPOOL OFF
