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

DEFINE thisfile = 'PZEE.SQL'
DEFINE dbuser   = 'PZEE'

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

CREATE OR REPLACE PACKAGE PZEE
AS
    PROCEDURE prs_mandaten;
END;
/

CREATE OR REPLACE PACKAGE BODY PZEE
AS
    PROCEDURE prs_mandaten
    AS
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errormsg       VARCHAR2 (200);

        CURSOR c IS
            SELECT p.prs_perslid_key              
              FROM prs_perslid p
              WHERE p.prs_perslid_verwijder IS NULL 
              AND NOT EXISTS
                           (SELECT *
                              FROM prs_perslidkostenplaats m
                             WHERE  m.prs_perslid_key = p.prs_perslid_key);
    BEGIN
        FOR rec IN C
        LOOP
            INSERT INTO prs_perslidkostenplaats (
                            prs_perslid_key,                            
                            prs_perslidkostenplaats_boeken,
                            prs_perslidkostenplaats_aanmk)
                 VALUES (rec.prs_perslid_key,                       
                         1,
                         SYSDATE);

            COMMIT;
        END LOOP;
    EXCEPTION
        WHEN OTHERS
        THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg :=
                   'OTHERS (error '
                || oracle_err_num
                || '/'
                || oracle_err_mes
                || ')';
            fac.writelog ('Mandatering medewerker',
                          'E',
                          v_errormsg,
                          '');
    END;
END;
/

CREATE OR REPLACE PROCEDURE pzee_import_perslid (p_import_key IN NUMBER)
AS
    oracle_err_num     NUMBER;
    oracle_err_mes     VARCHAR2 (200);
    v_errormsg         VARCHAR2 (400);
    v_errorhint        VARCHAR2 (400);
    v_aantal_in_FCLT   NUMBER;
BEGIN
    v_errorhint := 'Generieke update';
    -- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
    prs.import_perslid (
        p_import_key,
           '0;0;0;0;0;0;10;2;3;5;'
        || '4;0;0;0;0;6;7;9;0;1;'
        || '10;8;0;0;0;0;0;0;0;0;'
        || '0;0;0;0;0;0;0;0;0;0;'
        || '0;0;0;0;0;0',
        ---"Personeelsnummer";"Achternaam";"Voorvoegsel";"Roepnaam";"TelefoonnummerVast";"TelefoonnummerMobiel";"Netwerknaam";"Email";"OrganisatieEenheidCode"
        '"Personeelsnummer";"Achternaam";"Voorvoegsel";"Voorletters";"Roepnaam";"TelefoonnummerVast";"TelefoonnummerMobiel";"Netwerknaam";"Email";"OrganisatieEenheidCode"%');
  
    COMMIT;

    -- Personeelsleden die op afdelingsniveau ‘ZLD – Zeeland’ zitten zijn externen
    UPDATE fac_imp_perslid p
       SET p.prs_afdeling_naam = 'EXT'
     WHERE UPPER (p.prs_afdeling_naam) = 'ZLD';

    -- functie wordt niet gebruikt, dus deze wordt altijd 'onbekend'
    UPDATE fac_imp_perslid
       SET prs_srtperslid_omschrijving = 'Onbekend';

    COMMIT;
EXCEPTION
    WHEN OTHERS
    THEN
        oracle_err_num := SQLCODE;
        oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
        v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
        fac.imp_writelog (p_import_key,
                          'E',
                          v_errormsg,
                          v_errorhint);
END pzee_import_perslid;
/

CREATE OR REPLACE PROCEDURE pzee_update_perslid (p_import_key IN NUMBER)
IS
    v_count   NUMBER;

    CURSOR c_perslid IS
        SELECT *
          FROM fac_imp_perslid
         WHERE prs_perslid_key IS NOT NULL;

    -- Alle medewerkers van de provincie verwijderen die niet meer in import bestand voorkomen.
    CURSOR c_del IS
        SELECT p.prs_perslid_key,
               p.prs_perslid_email,
               pf.prs_perslid_naam_full
          FROM prs_perslid p, prs_v_perslid_fullnames_all pf
         WHERE     pf.prs_perslid_key = p.prs_perslid_key
               AND p.prs_perslid_email IS NOT NULL
               AND p.prs_perslid_verwijder IS NULL
               AND p.prs_perslid_oslogin NOT LIKE '%\_%' ESCAPE '\'
               AND NOT EXISTS
                       (SELECT *
                          FROM fac_imp_perslid i
                         WHERE UPPER (i.prs_perslid_email) =
                               UPPER (p.prs_perslid_email));
    
    --- #79894: Medewerkers met een afdelingscode PS, BCL of GS niet in autorisatiegroep _default maar in 'Statenlid, Burgercom., gedeput'.   
    CURSOR c_auth IS
        SELECT i.prs_perslid_key, 581 as fac_groep_key
          FROM fac_imp_perslid i
        WHERE   i.prs_afdeling_naam IN ('PS', 'BCL', 'GS')
           AND prs_perslid_key IS NOT NULL
           AND prs_perslid_key NOT IN (SELECT prs_perslid_key
                                         FROM fac_gebruikersgroep ---Statenlid, Burgercom., gedeput'.
                                        WHERE fac_groep_key = 581);  --- 581 is de key van de groep op productie
                                        
BEGIN
    -- generic update
    SELECT COUNT (*) INTO v_count FROM fac_imp_perslid;

    IF v_count < 750
    THEN
        fac.imp_writelog (
            p_import_key,
            'E',
               'Het aantal te importeren personen is te klein ('
            || TO_CHAR (v_count)
            || ')',
            'Zie Specificatie');
        RETURN;
    END IF;

    -- Match op 'e-mail'
    prs.update_perslid (p_import_key, 'EMAIL', NULL);

    COMMIT;

    -- Verwijder personen die niet meer in de import voorkomen.
    FOR rec IN c_del
    LOOP
        BEGIN
        
            prs.delete_perslid (p_import_key, rec.prs_perslid_key);          
            
        END;
    END LOOP;

    FOR rec IN c_auth
        LOOP
            BEGIN
                INSERT INTO FAC_GEBRUIKERSGROEP (prs_perslid_key, fac_groep_key)
                     VALUES (rec.prs_perslid_key, rec.fac_groep_key);

                DELETE FAC_GEBRUIKERSGROEP
                WHERE prs_perslid_key = rec.prs_perslid_key
                AND fac_groep_key = 1;

            END;
    END LOOP;
        
    --- En dan zorgen we ook even dat alle mandaten goed staan voor eventuele nieuwe personen
    pzee.prs_mandaten;

    COMMIT;
END pzee_update_perslid;
/

CREATE OR REPLACE PROCEDURE pzee_import_kpl (p_import_key IN NUMBER)
IS
    c_fielddelimitor         VARCHAR2 (1) := ';';
    c_headerline             VARCHAR (1000)
        --  := 'Achternaam;E-mail adres;Extern emailadres;My Nyenrode Login;Studentnummer;Geboortedatum;Geslacht;Voorletters;Roepnaam;Voorvoegsels;Mobiel telefoonnummer;Telefoonnummer;Opleiding;Cohort';
         := 'Kostenplaatstype ID;Kostenplaats type;Kostenplaats ID;Kostenplaatsnaam;Kostenplaats ERP ID;Kostenplaats online;Toegangsrecht rol ID;Rol;Gebruiker login;Gebruikernaam;Status gebruiker;Gebruiker verwijderd?';

    v_newline                VARCHAR2 (1000);                    -- Input line
    v_header                 VARCHAR2 (1000);
    v_aanduiding             VARCHAR2 (200);
    v_errorhint              VARCHAR2 (1000);
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
    header_is_valid          NUMBER := 0;
    v_ongeldig               NUMBER (1);
    v_count_tot              NUMBER (10);
    v_count_import           NUMBER (10);
    v_count                  NUMBER;
    -- De importvelden:
    v_kostenplaatstype_id    VARCHAR2 (256);
    v_kostenplaats_type      VARCHAR2 (256);
    v_kostenplaats_id        VARCHAR2 (256);
    v_kostenplaatsnaam       VARCHAR2 (256);
    v_kostenplaats_erp_id    VARCHAR2 (256);
    v_kostenplaats_online    VARCHAR2 (256);
    v_toegangsrecht_rol_id   VARCHAR2 (256);
    v_rol                    VARCHAR2 (256);
    v_gebruiker_login        VARCHAR2 (256);
    v_gebruikernaam          VARCHAR2 (256);
    v_status_gebruiker       VARCHAR2 (256);
    v_gebruiker_verwijderd   VARCHAR2 (256);

    CURSOR c1 IS
          SELECT *
            FROM fac_imp_file
           WHERE fac_import_key = p_import_key
        ORDER BY fac_imp_file_index;
BEGIN
    DELETE FROM fac_imp_kpn;

    COMMIT;

    v_count_tot := 0;
    v_count_import := 0;

    FOR rec1 IN c1
    LOOP
        BEGIN
            v_newline := rec1.fac_imp_file_line;
            v_header := v_newline;
            v_aanduiding := '';
            v_errorhint := 'Fout bij opvragen te importeren rij';
            v_ongeldig := 0;

            -- Lees alle veldwaarden
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_kostenplaatstype_id);
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_kostenplaats_type);
            fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaats_id);
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_kostenplaatsnaam);
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_kostenplaats_erp_id);
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_kostenplaats_online);
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_toegangsrecht_rol_id);
            fac.imp_getfield (v_newline, c_fielddelimitor, v_rol);
            fac.imp_getfield (v_newline, c_fielddelimitor, v_gebruiker_login);
            fac.imp_getfield (v_newline, c_fielddelimitor, v_gebruikernaam);
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_status_gebruiker);
            fac.imp_getfield (v_newline,
                              c_fielddelimitor,
                              v_gebruiker_verwijderd);

            v_aanduiding :=
                '[' || v_kostenplaats_id || '|' || v_kostenplaatsnaam || '] ';

            -- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
            -- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
            -- Ik negeer alles totdat ik een geldige header ben gepasseerd.
            IF (header_is_valid = 0)
            THEN
                IF UPPER (v_header) LIKE UPPER (c_headerline || '%')
                THEN
                    header_is_valid := 1;
                END IF;
            ELSE
                v_count_tot := v_count_tot + 1;

                -- Insert geformatteerde import record
                IF header_is_valid = 1
                THEN
                    BEGIN
                        v_errorhint :=
                            'Fout bij toevoegen regel aan importtabel fac_imp_kpn';

                        INSERT INTO fac_imp_kpn (
                                        prs_kostenplaats_nr,
                                        prs_kostenplaats_omschrijving,
                                        prs_kostenplaats_module,
                                        prs_kostenplaats_externnr ---- deze misbruiken we voor de budgehouder
                                                                 )
                                 VALUES (
                                     v_kostenplaats_id,
                                     v_kostenplaatsnaam,
                                     DECODE (v_kostenplaats_type, ----ALG = Gebouwkostenplaats, PRS = Afdelingskostenplaats, PRJ = Projectkostenplaats
                                             'IBCF', 'PRJ',
                                             'IBTW', 'PRJ',
                                             'IKST', 'PRJ',
                                             'VB0', 'PRJ'),
                                     v_gebruiker_login);


                        COMMIT;

                        v_count_import := v_count_import + 1;
                    EXCEPTION
                        WHEN OTHERS
                        THEN
                            oracle_err_num := SQLCODE;
                            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                            v_errormsg :=
                                   v_errorhint
                                || ' ORACLE (error '
                                || oracle_err_num
                                || '/'
                                || oracle_err_mes
                                || ')';
                            fac.imp_writelog (
                                p_import_key,
                                'W',
                                v_aanduiding || v_errormsg,
                                'Ingelezen regel kan niet worden weggeschreven!');
                            COMMIT;
                    END;
                END IF;
            END IF;                                            -- header_valid
        END;
    END LOOP;

    --- nu even de juiste budgethouder op basis van het emailadres bepalen
    UPDATE fac_imp_kpn k
       SET k.prs_perslid_key =
               (SELECT p.prs_perslid_key
                  FROM prs_perslid p
                 WHERE UPPER (k.prs_kostenplaats_externnr) =
                       UPPER (p.prs_perslid_email));

    --- en de tijdelijke veldwaarde opruimen
    UPDATE fac_imp_kpn
       SET prs_kostenplaats_externnr = NULL
     WHERE prs_kostenplaats_externnr IS NOT NULL;

    IF (header_is_valid = 1)
    THEN
        fac.imp_writelog (
            p_import_key,
            'S',
               'Kostenplaatsen: aantal ingelezen regels: '
            || TO_CHAR (v_count_tot),
            '');
        fac.imp_writelog (
            p_import_key,
            'S',
               'Persoon: aantal ongeldige importregels: '
            || TO_CHAR (v_count_tot - v_count_import),
            '');
    ELSE
        fac.imp_writelog (
            p_import_key,
            'E',
            'Ongeldige headerregel!',
            SUBSTR ('Moet zijn: "' || c_headerline || '"', 1, 1000));
    END IF;
EXCEPTION
    WHEN OTHERS
    THEN
        oracle_err_num := SQLCODE;
        oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
        v_errormsg :=
               'OTHERS (error '
            || oracle_err_num
            || '/'
            || oracle_err_mes
            || ')';
        fac.imp_writelog (p_import_key,
                          'E',
                          v_aanduiding || v_errormsg,
                          v_errorhint);
        COMMIT;
END pzee_import_kpl;
/

CREATE OR REPLACE PROCEDURE pzee_update_kpl (p_import_key IN NUMBER)
AS
    CURSOR c_del IS
        SELECT kp.prs_kostenplaats_key
          FROM prs_kostenplaats kp
         WHERE     kp.prs_kostenplaats_verwijder IS NULL
               AND NOT EXISTS
                       (SELECT *
                          FROM fac_imp_kpn ki
                         WHERE ki.prs_kostenplaats_nr =
                               kp.prs_kostenplaats_nr);
                               
BEGIN
    fac_update_kpn (p_import_key);

    --  PZEE#80593 Wijziging procedure verwerken kostenplaatsen/import
    FOR rec IN c_del
    LOOP
        BEGIN
            UPDATE prs_kostenplaats kp
               SET kp.prs_kostenplaats_eind = SYSDATE
             WHERE kp.prs_kostenplaats_key = rec.prs_kostenplaats_key;
        END;
    END LOOP;

    -- dan zorgen we vervolgens ook even dat alle mandaten goed staan
    pzee.prs_mandaten;
END pzee_update_kpl;
/

CREATE OR REPLACE VIEW PZEE_V_THEMA_EQUIPM
(
    INS_DEEL_KEY,
    ALG_RUIMTE_KEY,
    WAARDE
)
AS
    SELECT ins_deel_key,
           alg_ruimte_key,
           DECODE ((SELECT COUNT (*)
                      FROM mld_melding m, mld_melding_object mo
                     WHERE     m.mld_melding_key = mo.mld_melding_key
                           AND mo.ins_deel_key = d.ins_deel_key
                           AND mld_melding_status IN (0,    -- Bij frontoffice
                                                      2,              -- Nieuw
                                                      3,      -- Te accepteren
                                                      4,     -- In behandeling
                                                      7,         -- Uitgegeven
                                                      99)),   -- Niet opgelost
                   0, 'Normaal',
                   'Defect')    ins_status
      FROM ins_v_deel_gegevens d;

CREATE OR REPLACE VIEW PZEE_V_RAP_INFOBORD
(
    RESERVERING,
    AKTIEF,
    DATUM,
    DATUM_TOT,
    DAG_VAN,
    TIJD_VAN,
    DAG_TOT,
    TIJD_TOT,
    RUIMTE,
    RUIMTENR,
    GASTHEER,
    GASTHEER_NAAM,
    AANVRAGER,
    AANVRAGER_NAAM,
    OMSCHRIJVING,
    LOCATIE_OMSCHRIJVING,
    GEBOUW_CODE,
    GEBOUW,
    VERDIEPING_OMSCHRIJVING,
    VERDIEPING_VOLGNR,
    TITEL
)
AS
    SELECT res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
               reservering,
           (CASE
                WHEN res_rsv_ruimte_van > SYSDATE THEN 'expected'
                WHEN res_rsv_ruimte_tot < SYSDATE THEN 'passed'
                ELSE 'active'
            END)
               aktief,
           res_rsv_ruimte_van
               datum,
           res_rsv_ruimte_tot
               datum_tot,
           TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy')
               dag_van,
           TO_CHAR (res_rsv_ruimte_van, 'hh24:mi')
               tijd_van,
           TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy')
               dag_van,
           TO_CHAR (res_rsv_ruimte_tot, 'hh24:mi')
               tijd_tot,
           res_ruimte_nr
               ruimte,
           SUBSTR (res_ruimte_nr, 1, 4)
               ruimtenr,
           gastheer.prs_perslid_naam_full
               gastheer,
           gastheer.prs_perslid_naam_friendly
               gastheer_naam,
           aanvrager.prs_perslid_naam_full,
           aanvrager.prs_perslid_naam_friendly
               aanvrager_naam,
           res_rsv_ruimte_omschrijving
               omschrijving,
           l.alg_locatie_omschrijving
               locatie_omschrijving,
           g.alg_gebouw_code
               gebouw_code,
           g.alg_gebouw_naam
               gebouw,
           v.alg_verdieping_omschrijving
               verdieping_omschrijving,
           v.alg_verdieping_volgnr
               verdieping_volgnr,
           titel.titel
      FROM res_v_aanwezigrsv_ruimte   rrr,
           res_ruimte_opstelling      rro,
           prs_v_perslid_fullnames    aanvrager,
           prs_v_perslid_fullnames    gastheer,
           res_v_res_ruimte_gegevens  rrg,
           alg_locatie                l,
           alg_gebouw                 g,
           alg_verdieping             v,
           res_status_fo              sf,
           res_discipline             rd,
           (SELECT res_rsv_ruimte_key,
                   ud.fac_usrdata_omschr     weergeven,
                   ud.fac_usrdata_key
              FROM res_kenmerkwaarde  kw,
                   res_kenmerk        k,
                   res_srtkenmerk     sk,
                   fac_usrdata        ud,
                   fac_usrtab         ut
             WHERE     kw.res_kenmerk_key = k.res_kenmerk_key
                   AND k.res_srtkenmerk_key = sk.res_srtkenmerk_key
                   AND fac.safe_to_number (kw.res_kenmerkreservering_waarde) =
                       ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND sk.res_srtkenmerk_key = 41
                   AND ut.fac_usrtab_key = 202) weergeven,
           (SELECT kw.res_rsv_ruimte_key,
                   kw.res_kenmerkreservering_waarde     titel
              FROM res_kenmerkwaarde kw, res_kenmerk k
             WHERE     kw.res_kenmerk_key = k.res_kenmerk_key
                   AND k.res_kenmerk_key = 63) titel
     WHERE     rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
           AND rro.res_ruimte_key = rrg.res_ruimte_key
           AND rrr.res_rsv_ruimte_host_key = gastheer.prs_perslid_key
           AND rrr.res_rsv_ruimte_contact_key = aanvrager.prs_perslid_key
           AND rrg.alg_locatie_key = l.alg_locatie_key
           AND rrg.alg_gebouw_key = g.alg_gebouw_key
           AND rrg.alg_verdieping_key = v.alg_verdieping_key
           AND rrr.res_status_fo_key = sf.res_status_fo_key
           AND rrg.res_discipline_key = rd.ins_discipline_key
           AND weergeven.res_rsv_ruimte_key(+) = rrr.res_rsv_ruimte_key
           AND titel.res_rsv_ruimte_key(+) = rrr.res_rsv_ruimte_key
           AND weergeven.fac_usrdata_key = 181;

CREATE OR REPLACE VIEW pzee_v_rap_bruikleenovk
(
    datum,
    perslid_key,
    perslid_voorletters,
    perslid_voornaam,
    perslid_voorletter,
    perslid_naam,
    perslid_tussenvoegsel,
    perslid_achternaam,
    personeelsnr,
    objectsoort,
    object_id,
    object_omschrijving,
    serienummer,
    selectie
)
AS
    SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy'),
           p.prs_perslid_key,
           p.prs_perslid_voorletters,
           p.prs_perslid_voornaam,
           SUBSTR (p.prs_perslid_voornaam, 1, 1) || '.'    voorletter,
           REPLACE (p.prs_perslid_naam, 'INACTIEF:'),
           p.prs_perslid_tussenvoegsel,
           CASE
               WHEN p.prs_perslid_tussenvoegsel IS NOT NULL
               THEN
                   REPLACE (p.prs_perslid_naam, 'INACTIEF:') || ', ' || p.prs_perslid_tussenvoegsel
               ELSE
                   REPLACE (p.prs_perslid_naam, 'INACTIEF:')
           END                                             AS achternaam,
           p.prs_perslid_nr,
           sd.ins_srtdeel_omschrijving,
           d.ins_deel_omschrijving,
           d.ins_deel_opmerking,
           sn.serienummer,
           s.selectie
      FROM ins_deel     d,
           prs_perslid  p,
           ins_srtdeel  sd,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde serienummer
              FROM ins_srtkenmerk sk, ins_kenmerk k, ins_kenmerkdeel kd
             WHERE     sk.ins_srtkenmerk_key = 23
                   AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) sn,
           (SELECT DECODE (unpivot_row,
                           1, 'Bruikleenovereenkomst',
                           2, 'Bruikleenovereenkomst ambtsdrager')    AS selectie
              FROM DUAL,
                   (    SELECT LEVEL     AS unpivot_row
                          FROM DUAL
                    CONNECT BY LEVEL <= 2)) s
     WHERE     d.ins_alg_ruimte_type = 'P'
           AND d.ins_alg_ruimte_key = p.prs_perslid_key
           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
           AND sn.ins_deel_key(+) = d.ins_deel_key
           AND d.ins_deel_verwijder IS NULL
           AND (d.ins_deel_vervaldatum IS NULL OR d.ins_deel_vervaldatum > TRUNC(SYSDATE))
           AND d.ins_deel_actief = 1
    UNION ALL
    SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy'),
           p.prs_perslid_key,
           p.prs_perslid_voorletters,
           SUBSTR (p.prs_perslid_voornaam, 1, 1) || '.'    voorletter,
           p.prs_perslid_voornaam,
           REPLACE (p.prs_perslid_naam, 'INACTIEF:'),
           p.prs_perslid_tussenvoegsel,
           CASE
               WHEN p.prs_perslid_tussenvoegsel IS NOT NULL
               THEN
                   REPLACE (p.prs_perslid_naam, 'INACTIEF:') || ', ' || p.prs_perslid_tussenvoegsel
               ELSE
                   REPLACE (p.prs_perslid_naam, 'INACTIEF:')
           END                                             AS achternaam,
           p.prs_perslid_nr,
           sd.ins_srtdeel_omschrijving,
           d.ins_deel_omschrijving,
           d.ins_deel_opmerking,
           sn.serienummer,
           s.selectie
      FROM ins_deel     d,
           prs_perslid  p,
           ins_srtdeel  sd,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde serienummer
              FROM ins_srtkenmerk sk, ins_kenmerk k, ins_kenmerkdeel kd
             WHERE     sk.ins_srtkenmerk_key = 23
                   AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) sn,
           (SELECT DECODE (unpivot_row,
                           1, 'Bruikleenovereenkomst',
                           2, 'Bruikleenovereenkomst ambtsdrager')    AS selectie
              FROM DUAL,
                   (    SELECT LEVEL     AS unpivot_row
                          FROM DUAL
                    CONNECT BY LEVEL <= 2)) s
     WHERE     d.ins_alg_ruimte_type_org = 'P'
           AND d.ins_alg_ruimte_key_org = p.prs_perslid_key
           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
           AND sn.ins_deel_key(+) = d.ins_deel_key
              AND d.ins_deel_verwijder IS NULL
           AND (d.ins_deel_vervaldatum IS NULL OR d.ins_deel_vervaldatum > TRUNC(SYSDATE))
           AND d.ins_deel_actief = 1;

CREATE OR REPLACE VIEW pzee_v_rap_vrijwaring
(
    datum,
    perslid_key,
    perslid_voorletters,
    perslid_voornaam,
    perslid_voorletter,
    perslid_naam,
    perslid_achternaam,
    personeelsnr,
    objectsoort,
    object_id,
    object_omschrijving,
    serienummer,
    selectie
)
AS
    SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy'),
           p.prs_perslid_key,
           p.prs_perslid_voorletters,
           p.prs_perslid_voornaam,
           SUBSTR (p.prs_perslid_voornaam, 1, 1) || '.'    voorletter,
              p.prs_perslid_voorletters
           || ' '
           || CASE
                  WHEN p.prs_perslid_tussenvoegsel IS NOT NULL
                  THEN
                         p.prs_perslid_tussenvoegsel
                      || ' '
                      || REPLACE (p.prs_perslid_naam, 'INACTIEF:')
                  ELSE
                      REPLACE (p.prs_perslid_naam, 'INACTIEF:')
              END                                          naam_full,
           CASE
               WHEN p.prs_perslid_tussenvoegsel IS NOT NULL
               THEN
                      REPLACE (p.prs_perslid_naam, 'INACTIEF:')
                   || ', '
                   || p.prs_perslid_tussenvoegsel
               ELSE
                   REPLACE (p.prs_perslid_naam, 'INACTIEF:')
           END                                             AS achternaam,
           p.prs_perslid_nr,
           sd.ins_srtdeel_omschrijving,
           d.ins_deel_omschrijving,
           d.ins_deel_opmerking,
           sn.serienummer,
           s.selectie
      FROM ins_deel     d,
           prs_perslid  p,
           ins_srtdeel  sd,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde serienummer
              FROM ins_srtkenmerk sk, ins_kenmerk k, ins_kenmerkdeel kd
             WHERE     sk.ins_srtkenmerk_key = 23
                   AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) sn,
           (SELECT DECODE (unpivot_row,
                           1, 'Vrijwaring',
                           2, 'Vrijwaring ambtsdrager')    AS selectie
              FROM DUAL,
                   (    SELECT LEVEL     AS unpivot_row
                          FROM DUAL
                    CONNECT BY LEVEL <= 2)) s
     WHERE     d.ins_alg_ruimte_type = 'P'
           AND d.ins_alg_ruimte_key = p.prs_perslid_key
           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
           AND sn.ins_deel_key(+) = d.ins_deel_key
           AND d.ins_deel_verwijder IS NULL
           AND (   d.ins_deel_vervaldatum IS NULL
                OR d.ins_deel_vervaldatum > TRUNC (SYSDATE))
           AND d.ins_deel_actief = 1
    UNION ALL
    SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy'),
           p.prs_perslid_key,
           p.prs_perslid_voorletters,
           p.prs_perslid_voornaam,
           SUBSTR (p.prs_perslid_voornaam, 1, 1) || '.'    voorletter,
              p.prs_perslid_voorletters
           || ' '
           || CASE
                  WHEN p.prs_perslid_tussenvoegsel IS NOT NULL
                  THEN
                         p.prs_perslid_tussenvoegsel
                      || ' '
                      || REPLACE (p.prs_perslid_naam, 'INACTIEF:')
                  ELSE
                      REPLACE (p.prs_perslid_naam, 'INACTIEF:')
              END                                          naam_full,
           CASE
               WHEN p.prs_perslid_tussenvoegsel IS NOT NULL
               THEN
                      REPLACE (p.prs_perslid_naam, 'INACTIEF:')
                   || ', '
                   || p.prs_perslid_tussenvoegsel
               ELSE
                   REPLACE (p.prs_perslid_naam, 'INACTIEF:')
           END                                             AS achternaam,
           p.prs_perslid_nr,
           sd.ins_srtdeel_omschrijving,
           d.ins_deel_omschrijving,
           d.ins_deel_opmerking,
           sn.serienummer,
           s.selectie
      FROM ins_deel     d,
           prs_perslid  p,
           ins_srtdeel  sd,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde serienummer
              FROM ins_srtkenmerk sk, ins_kenmerk k, ins_kenmerkdeel kd
             WHERE     sk.ins_srtkenmerk_key = 23
                   AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) sn,
           (SELECT DECODE (unpivot_row,
                           1, 'vrijwaring',
                           2, 'vrijwaring ambtsdrager')    AS selectie
              FROM DUAL,
                   (    SELECT LEVEL     AS unpivot_row
                          FROM DUAL
                    CONNECT BY LEVEL <= 2)) s
     WHERE     d.ins_alg_ruimte_type_org = 'P'
           AND d.ins_alg_ruimte_key_org = p.prs_perslid_key
           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
           AND sn.ins_deel_key(+) = d.ins_deel_key
           AND d.ins_deel_verwijder IS NULL
           AND (   d.ins_deel_vervaldatum IS NULL
                OR d.ins_deel_vervaldatum > TRUNC (SYSDATE))
           AND d.ins_deel_actief = 1;
       
CREATE OR REPLACE VIEW PZEE_RAP_KALENDER_OMBOUW
(
    USER_KEY,
    TITLE,
    VAN,
    TOT,
    ITEM_KEY,
    COLOR,
    TEXTCOLOR,
    URL
)
AS
    SELECT DISTINCT
           NULL                                                     user_key,
           r.alg_ruimte_omschrijving                                title,
           fac.safe_to_date (
               TO_CHAR (mld_melding_einddatum, 'DD-MM-YYYY') || ' ' || tijd,
               ' dd-mm-yyyy HH24:mi:ss')                            van,
           mld_melding_einddatum                                    tot,
           m.mld_melding_key                                        item_key,
           CASE
               WHEN s.mld_statuses_key <> 5 THEN '#fc0303'
               ELSE '#008000'
           END                                                      color,
           '#FFFFFF'                                                textcolor,
           '?u=melding' || CHR (38) || 'k=' || m.mld_melding_key    url
      FROM mld_stdmelding  sm,
           mld_melding     m,
           mld_statuses    s,
           alg_ruimte      r,
           res_alg_ruimte  ra,
           res_ruimte      rr,
           (SELECT km.mld_kenmerkmelding_waarde tijd, km.mld_melding_key
              FROM mld_srtkenmerk sk, mld_kenmerk k, mld_kenmerkmelding km
             WHERE     sk.mld_srtkenmerk_key = 461
                   AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
                   AND km.mld_kenmerk_key = k.mld_kenmerk_key) tijd_van
     WHERE     sm.mld_stdmelding_key = m.mld_stdmelding_key
           AND s.mld_statuses_key = m.mld_melding_status
           AND m.mld_alg_onroerendgoed_keys = r.alg_ruimte_key
           AND r.alg_ruimte_key = ra.alg_ruimte_key
           AND ra.res_ruimte_key = rr.res_ruimte_key
           AND tijd_van.mld_melding_key = m.mld_melding_key
           AND sm.mld_stdmelding_key = 401;

CREATE OR REPLACE FORCE VIEW PZEE_V_INS_QRC_ALG
(
    HIDE_F_SORT,
    LOCATIE_CODE,
    FCLT_F_LOCATIE,
    FCLT_F_GEBOUW,
    FCLT_F_PLAATS,
    RUIMTENR,
    NAAM,
    FCLT_F_DISCIPLINE,
    FCLT_F_OBJECTGROEP,
    FCLT_F_OBJECTSOORT,
    FCLT_F_IDENTIFICATIE,
    FCLT_F_BOOKMARK,
    INS_DEEL_KEY,
    INS_SRTDEEL_KEY,
    FCLT_3D_DISCIPLINE_KEY,
    FCLT_3D_LOCATIE_KEY,
    INS_ALG_RUIMTE_TYPE,
    INS_ALG_RUIMTE_KEY,
    BOOKMARK_ID,
    GEKOPPELD_AAN
)
AS
    SELECT i.ins_deel_omschrijving
               hide_f_sort,
           l.alg_locatie_code,
           l.alg_locatie_code || ' ' || l.alg_locatie_omschrijving
               fclt_f_locatie,
           o.alg_gebouw_omschrijving
               fclt_f_gebouw,
           SUBSTR (o.alg_plaatsaanduiding, 13)
               fclt_f_plaats,
           o.alg_ruimte_nr,
           NULL
               prs_perslid_naam,
           d.ins_discipline_omschrijving
               fclt_f_discipline,
           g.ins_srtgroep_omschrijving
               fclt_f_objectgroep,
           s.ins_srtdeel_omschrijving
               fclt_f_objectsoort,
           i.ins_deel_omschrijving
               fclt_f_identificatie,
           b.fac_bookmark_naam
               fclt_f_bookmark,
           i.ins_deel_key,
           s.ins_srtdeel_key,
           i.ins_discipline_key
               fclt_3d_discipline_key,
           l.alg_locatie_key
               fclt_3d_locatie_key,
           i.ins_alg_ruimte_type,
           i.ins_alg_ruimte_key,
           b.fac_bookmark_id
               hide_f_bookmark_id,
           'Ruimte'
               Gekoppeld_aan
      FROM ins_deel             i,
           ins_v_alg_overzicht  o,
           ins_srtdeel          s,
           ins_srtgroep         g,
           ins_discipline       d,
           alg_locatie          l,
           fac_bookmark         b
     WHERE     UPPER (b.fac_bookmark_naam) = 'QRC NAAR OBJECT'
           AND COALESCE (b.fac_bookmark_expire, SYSDATE + 1) > SYSDATE
           AND ins_deel_verwijder IS NULL
           AND COALESCE (i.ins_deel_vervaldatum, SYSDATE + 1) > SYSDATE
           AND i.ins_deel_module = 'INS'
           AND i.ins_deel_parent_key IS NULL
           AND s.ins_srtdeel_key = i.ins_srtdeel_key
           AND g.ins_srtgroep_key = s.ins_srtgroep_key
           AND d.ins_discipline_key = g.ins_discipline_key
           AND o.alg_onroerendgoed_keys =
               COALESCE (i.ins_alg_ruimte_key_org, i.ins_alg_ruimte_key)
           AND o.alg_onroerendgoed_type =
               COALESCE (i.ins_alg_ruimte_type_org, i.ins_alg_ruimte_type)
           AND COALESCE (i.ins_alg_ruimte_type_org, i.ins_alg_ruimte_type) IN
                   ('T', 'R', 'W')
           AND o.alg_locatie_key = i.ins_alg_locatie_key
           AND l.alg_locatie_key = i.ins_alg_locatie_key
    UNION ALL
    SELECT i.ins_deel_omschrijving           hide_f_sort,
           NULL,
           NULL                              fclt_f_locatie,
           NULL                              fclt_f_gebouw,
           NULL                              fclt_f_plaats,
           NULL,
           p.prs_perslid_naam,
           d.ins_discipline_omschrijving     fclt_f_discipline,
           g.ins_srtgroep_omschrijving       fclt_f_objectgroep,
           s.ins_srtdeel_omschrijving        fclt_f_objectsoort,
           i.ins_deel_omschrijving           fclt_f_identificatie,
           b.fac_bookmark_naam               fclt_f_bookmark,
           i.ins_deel_key,
           s.ins_srtdeel_key,
           i.ins_discipline_key              fclt_3d_discipline_key,
           NULL                              fclt_3d_locatie_key,
           i.ins_alg_ruimte_type,
           i.ins_alg_ruimte_key,
           b.fac_bookmark_id                 hide_f_bookmark_id,
           'Persoon'
      FROM ins_deel        i,
           ins_srtdeel     s,
           ins_srtgroep    g,
           prs_perslid     p,
           ins_discipline  d,
           fac_bookmark    b
     WHERE     UPPER (b.fac_bookmark_naam) = 'QRC NAAR OBJECT'
           AND COALESCE (b.fac_bookmark_expire, SYSDATE + 1) > SYSDATE
           AND ins_deel_verwijder IS NULL
           AND COALESCE (i.ins_deel_vervaldatum, SYSDATE + 1) > SYSDATE
           AND i.ins_deel_module = 'INS'
           AND i.ins_deel_parent_key IS NULL
           AND s.ins_srtdeel_key = i.ins_srtdeel_key
           AND g.ins_srtgroep_key = s.ins_srtgroep_key
           AND d.ins_discipline_key = g.ins_discipline_key
           AND p.prs_perslid_key =
               COALESCE (i.ins_alg_ruimte_key_org, i.ins_alg_ruimte_key)
           AND COALESCE (i.ins_alg_ruimte_type_org, i.ins_alg_ruimte_type) =
               'P';

CREATE OR REPLACE VIEW PZEE_V_RUIMTE_QRC_ALG
(
    OMGEVING,
    ALG_LOCATIE_OMSCHRIJVING,
    ALG_GEBOUW_OMSCHRIJVING,
    ALG_RUIMTE_NR,
    ALG_RUIMTE_OMSCHRIJVING,
    SRT_RUIMTE,
    FAC_BOOKMARK_ID,
    FAC_BOOKMARK_PATH,
    FAC_BOOKMARK_QUERY,
    ALG_RUIMTE_KEY
)
AS
    SELECT USER     omgeving,
           r.alg_locatie_omschrijving,
           r.alg_gebouw_omschrijving,
           r.alg_ruimte_nr,
           r.alg_ruimte_omschrijving,
           r.alg_srtruimte_omschrijving,
           b.fac_bookmark_id,
           b.fac_bookmark_path,
           b.fac_bookmark_query,
           r.alg_ruimte_key
      FROM fac_bookmark b, alg_v_ruimte_gegevens r
     WHERE b.fac_bookmark_id = 'Dk6aMzV8hdfSIvpw';

CREATE OR REPLACE VIEW PZEE_V_RUIMTE_QRC_RES
(
    HIDE_F_SORT,
    LOCATIE_CODE,
    FCLT_F_LOCATIE,
    FCLT_F_GEBOUW_NAAM,
    FCLT_F_GEBOUW_OMSCHR,
    FCLT_F_VERDIEPING,
    ALG_RUIMTE_KEY,
    FCLT_F_ALG_RUIMTE_NR,
    RES_RUIMTE_KEY,
    FCLT_F_RES_RUIMTE_NR,
    FCLT_F_IDENTIFICATIE,
    FCLT_F_BOOKMARK
)
AS
    SELECT r.res_ruimte_nr,
           l.alg_locatie_code,
           l.alg_locatie_omschrijving,
           g.alg_gebouw_naam,
           g.alg_gebouw_omschrijving,
           v.alg_verdieping_code,
           r.alg_ruimte_key,
           r.alg_ruimte_nr,
           r.res_ruimte_key,
           r.res_ruimte_nr,
           r.res_ruimte_key,
           b.fac_bookmark_id     hide_f_bookmark_id
      FROM res_ruimte      r,
           res_alg_ruimte  ar,
           alg_ruimte      r,
           alg_verdieping  v,
           alg_gebouw      g,
           alg_locatie     l,
           fac_bookmark    b
     WHERE     ar.res_ruimte_key = r.res_ruimte_key
           AND r.alg_ruimte_key = ar.alg_ruimte_key
           AND v.alg_verdieping_key = r.alg_verdieping_key
           AND g.alg_gebouw_key = v.alg_gebouw_key
           AND l.alg_locatie_key = g.alg_locatie_key
           AND b.fac_bookmark_id = '3mZqlYCRJbw4MdPS'
           AND COALESCE (b.fac_bookmark_expire, SYSDATE + 1) > SYSDATE
           AND l.alg_locatie_verwijder IS NULL
           AND (   l.alg_locatie_vervaldatum > SYSDATE
                OR l.alg_locatie_vervaldatum IS NULL)
           AND g.alg_gebouw_verwijder IS NULL
           AND ar.res_alg_ruimte_verwijder IS NULL
           AND r.res_ruimte_verwijder IS NULL
           AND (   r.res_ruimte_vervaldatum > SYSDATE
                OR r.res_ruimte_vervaldatum IS NULL);

-- Voor de koppeling met BIS is een specifieke opbouw van de rapportage nodig

CREATE OR REPLACE VIEW meeting
(
    res_date,
    starttime,
    endtime,
    name,
    location
)
AS
    SELECT datum, tijd_van, tijd_tot, titel, ruimte FROM pzee_v_rap_infobord;

-- Voor de tijdelijke koppeling inforborden
CREATE OR REPLACE VIEW PZEE_V_RAP_VERGADERING_2
(
    RES_DATE,
    RES_DATE_TOT,
    STARTDATUM,
    EINDDATUM,
    BEGINTIJD,
    EINDTIJD,
    ONDERWERP,
    AANVRAGER,
    LOCATIECODE,
    LOCATIECODELINK,
    LOCATIE
)
AS
    SELECT datum,
           datum_tot,
           dag_van,
           dag_tot,
           tijd_van,
           tijd_tot,
           titel,
           aanvrager_naam,
           ruimtenr,
           ruimtenr     locatielink,
           ruimte
      FROM pzee_v_rap_infobord
     WHERE TRUNC (datum) = TRUNC (SYSDATE) AND datum_tot > SYSDATE;

--- reserveringen met catering

CREATE OR REPLACE VIEW PZEE_V_RAP_CATERING
AS
    SELECT DISTINCT
           rrr.res_rsv_ruimte_key,
           rrr.res_reservering_key,
           rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
               reservering,
           (SELECT MAX (fac_tracking_datum)
              FROM fac_tracking
             WHERE     fac_tracking_refkey = rrr.res_rsv_ruimte_key
                   AND fac_srtnotificatie_key = 117                 --- resupd
                   AND UPPER (COALESCE (fac_tracking_oms, ' ')) NOT LIKE
                           '%ERROR%')
               laatste_upd,
           rrr.res_rsv_ruimte_externsyncdate
               datum_export,
           rrr.res_rsv_ruimte_verwijder
               datum_verwijderd,
           cat.ins_discipline_key
               ruimte_catalogus_key,
           cat.ins_discipline_omschrijving
               ruimte_catalogus,
           rer.res_ruimte_key,
           rer.res_ruimte_nr
               ruimte,
           (SELECT gb.alg_gebouw_code
              FROM alg_gebouw gb
             WHERE gb.alg_gebouw_key = alg.alg_gebouw_key)
               gebouw,
           rrr.res_rsv_ruimte_van
               datum_van,
           rrr.res_rsv_ruimte_tot
               datum_tot,
           rrr.res_rsv_ruimte_omschrijving
               oms,
           (SELECT prs_perslid_naam_friendly
              FROM prs_v_perslid_fullnames
             WHERE prs_perslid_key = rrr.res_rsv_ruimte_host_key)
               gastheer,
           (SELECT prs_perslid_naam_friendly
              FROM prs_v_perslid_fullnames
             WHERE prs_perslid_key = rrr.res_rsv_ruimte_contact_key)
               contact,
           kstp.prs_kostenplaats_nr
               act_nr,
           (SELECT res_kenmerkreservering_waarde
              FROM res_kenmerkwaarde kw, res_kenmerk k, res_srtkenmerk sk
             WHERE     kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
                   AND k.res_kenmerk_key = kw.res_kenmerk_key
                   AND sk.res_srtkenmerk_key = k.res_srtkenmerk_key
                   AND sk.res_srtkenmerk_key = 1)           --- allergie/dieet
               wensen,
           (SELECT CASE
                       WHEN res_kenmerkreservering_waarde = 181 THEN 'Ja'
                       ELSE 'Nee'
                   END    externen
              FROM res_kenmerkwaarde kw, res_kenmerk k, res_srtkenmerk sk
             WHERE     kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
                   AND k.res_kenmerk_key = kw.res_kenmerk_key
                   AND sk.res_srtkenmerk_key = k.res_srtkenmerk_key
                   AND sk.res_srtkenmerk_key = 81)                --- externen
               externen,
           (SELECT res_kenmerkreservering_waarde
              FROM res_kenmerkwaarde kw, res_kenmerk k, res_srtkenmerk sk
             WHERE     kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
                   AND k.res_kenmerk_key = kw.res_kenmerk_key
                   AND sk.res_srtkenmerk_key = k.res_srtkenmerk_key
                   AND sk.res_srtkenmerk_key = 161)                 --- aantal
               aantal
      FROM res_rsv_ruimte             rrr,
           res_rsv_artikel            rar,
           res_ruimte_opstelling      rop,
           res_ruimte                 rer,
           ins_tab_discipline         cat,
           res_alg_ruimte             rarm,
           alg_v_ruimte_gegevens_all  alg,
           prs_kostenplaats           kstp
     WHERE     rrr.res_rsv_ruimte_verwijder IS NULL
           AND cat.ins_discipline_key = rer.res_discipline_key
           AND rar.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
           AND rrr.res_ruimte_opstel_key = rop.res_ruimte_opstel_key
           AND rer.res_ruimte_key = rop.res_ruimte_key
           AND rarm.res_ruimte_key = rer.res_ruimte_key
           AND alg.alg_ruimte_key = rarm.alg_ruimte_key
           AND kstp.prs_kostenplaats_key = rrr.prs_kostenplaats_key
    UNION ALL
    SELECT DISTINCT
           rrr.res_rsv_ruimte_key,
           rrr.res_reservering_key,
           rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
               reservering,
           (SELECT MAX (fac_tracking_datum)
              FROM fac_tracking
             WHERE     fac_tracking_refkey = rrr.res_rsv_ruimte_key
                   AND fac_srtnotificatie_key = 117                 --- resupd
                   AND UPPER (COALESCE (fac_tracking_oms, ' ')) NOT LIKE
                           '%ERROR%')
               laatste_upd,
           rrr.res_rsv_ruimte_externsyncdate
               last_export,
           rrr.res_rsv_ruimte_verwijder
               datum_verwijderd,
           0
               ruimte_catalogus_key,
           'Losse catering'
               ruimte_catalogus,
           alg.alg_ruimte_key,
           alg.alg_ruimte_nr || ' ' || alg.alg_ruimte_omschrijving
               ruimte,
           (SELECT gb.alg_gebouw_code
              FROM alg_gebouw gb
             WHERE gb.alg_gebouw_key = alg.alg_gebouw_key)
               gebouw,
           rrr.res_rsv_ruimte_van
               datum_van,
           rrr.res_rsv_ruimte_tot
               datum_tot,
           COALESCE (rrr.res_rsv_ruimte_omschrijving, 'Catering ')
               oms,
           (SELECT prs_perslid_naam_friendly
              FROM prs_v_perslid_fullnames
             WHERE prs_perslid_key = rrr.res_rsv_ruimte_host_key)
               gastheer,
           (SELECT prs_perslid_naam_friendly
              FROM prs_v_perslid_fullnames
             WHERE prs_perslid_key = rrr.res_rsv_ruimte_contact_key)
               contact,
           kstp.prs_kostenplaats_nr
               act_nr,
           (SELECT res_kenmerkreservering_waarde
              FROM res_kenmerkwaarde kw, res_kenmerk k, res_srtkenmerk sk
             WHERE     kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
                   AND k.res_kenmerk_key = kw.res_kenmerk_key
                   AND sk.res_srtkenmerk_key = k.res_srtkenmerk_key
                   AND sk.res_srtkenmerk_key = 1)           --- allergie/dieet
               wensen,
           (SELECT CASE
                       WHEN res_kenmerkreservering_waarde = 181 THEN 'Ja'
                       ELSE 'Nee'
                   END    externen
              FROM res_kenmerkwaarde kw, res_kenmerk k, res_srtkenmerk sk
             WHERE     kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
                   AND k.res_kenmerk_key = kw.res_kenmerk_key
                   AND sk.res_srtkenmerk_key = k.res_srtkenmerk_key
                   AND sk.res_srtkenmerk_key = 81)                --- externen
               externen,
           (SELECT res_kenmerkreservering_waarde
              FROM res_kenmerkwaarde kw, res_kenmerk k, res_srtkenmerk sk
             WHERE     kw.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
                   AND k.res_kenmerk_key = kw.res_kenmerk_key
                   AND sk.res_srtkenmerk_key = k.res_srtkenmerk_key
                   AND sk.res_srtkenmerk_key = 161)                 --- aantal
               aantal
      FROM res_rsv_ruimte             rrr,
           res_rsv_artikel            rar,
           alg_v_ruimte_gegevens_all  alg,
           prs_kostenplaats           kstp
     WHERE     rrr.res_rsv_ruimte_verwijder IS NULL
           AND rar.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
           AND alg.alg_ruimte_key = rrr.alg_ruimte_key
           AND kstp.prs_kostenplaats_key = rrr.prs_kostenplaats_key
    ORDER BY res_rsv_ruimte_key;

--- catering artikelen die besteld mogen worden conform de gestelde catalogus instellingen

CREATE OR REPLACE VIEW PZEE_V_RAP_CATERING_RGL
AS
    SELECT b.prs_bedrijf_key || rar.res_rsv_ruimte_key
           extra_key,
       rar.res_rsv_ruimte_key,
       b.prs_bedrijf_key
           bedrijfs_key,
       b.prs_bedrijf_naam
           leverancier,
       SUBSTR (ba.prs_bedrijfadres_url, INSTR (ba.prs_bedrijfadres_url, ':') + 1)
           mailadres,
       rar.res_artikel_key,
       rar.res_rsv_artikel_key,
       art.res_artikel_omschrijving,
       rar.res_rsv_artikel_aantal,
       rar.res_rsv_artikel_levering,
       TO_CHAR (rar.res_rsv_artikel_levering, 'DAY')
           leverdag,
       TO_CHAR (rar.res_rsv_artikel_levering, 'd')
           leverdagnr,
       art.res_discipline_key,
       rar.res_rsv_artikel_externsyncdate,
       cat.ins_discipline_omschrijving,
       cat_s.res_disc_params_expire_dagen,
       cat_s.res_disc_params_expire_tijd,
       t1.t1,
       TRUNC (fac.datumtijdplusuitvoertijd (SYSDATE,
                                            res_disc_params_expire_dagen - 1,
                                            'DAGEN',
                                            t1,
                                            res_disc_params_expire_tijd,
                                            1))
           bestelling_voor_originieel, --- we bestellen na de wijzigingshorizon! Dus trekken we er weer een dag vanaf       
       TRUNC (fac.datumtijdplusuitvoertijd (TRUNC (SYSDATE + 1),                 ---- zie PZEE#90449
                                            res_disc_params_expire_dagen - 1,
                                            'DAGEN',
                                            t1,
                                            res_disc_params_expire_tijd,
                                            1))
           AS bestelling_voor
  FROM res_rsv_artikel     rar,
       res_artikel         art,
       ins_tab_discipline  cat,
       res_disc_params     cat_s,
       prs_bedrijf         b,
       prs_bedrijfadres    ba,
       (SELECT COALESCE (cat_t1, res_t1)     t1
          FROM (SELECT (SELECT fac_setting_pvalue
                          FROM fac_setting
                         WHERE fac_setting_name = 'res_cat_t1')    cat_t1,
                       (SELECT fac_setting_pvalue
                          FROM fac_setting
                         WHERE fac_setting_name = 'res_t1')        res_t1
                  FROM DUAL)) t1
 WHERE     art.res_artikel_key = rar.res_artikel_key
       AND cat.ins_discipline_key = art.res_discipline_key
       AND rar.res_rsv_artikel_verwijder IS NULL
       AND rar.res_rsv_artikel_dirtlevel = 0
       AND cat_s.res_ins_discipline_key = cat.ins_discipline_key
       AND cat_s.prs_bedrijf_key = b.prs_bedrijf_key
       AND ba.prs_bedrijf_key = b.prs_bedrijf_key;

-- combinatie van reservering en bestelregels

CREATE OR REPLACE VIEW PZEE_V_RAP_CATERING_ALL
AS
    SELECT CASE
               WHEN     TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 2
                    AND cr.bedrijfs_key = 1842
               THEN
                   (SELECT b.PRS_BEDRIJF_KEY
                      FROM prs_bedrijf b, prs_bedrijfadres ba
                     WHERE     b.prs_bedrijf_key = 1843
                           AND ba.prs_bedrijf_key = b.prs_bedrijf_key) -- bakker Bliek levert niet op maandag
               ELSE
                   cr.bedrijfs_key
           END                                                    bedrijfs_key,
           CASE
               WHEN     TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 2
                    AND cr.bedrijfs_key = 1842
               THEN
                   (SELECT b.prs_bedrijf_naam
                      FROM prs_bedrijf b, prs_bedrijfadres ba
                     WHERE     b.prs_bedrijf_key = 1843
                           AND ba.prs_bedrijf_key = b.prs_bedrijf_key) -- bakker Bliek levert niet op maandag
               ELSE
                   cr.leverancier
           END                                                    leverancier,
           CASE
               WHEN     TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 2
                    AND cr.bedrijfs_key = 1842
               THEN
                   (SELECT SUBSTR (ba.prs_bedrijfadres_url,
                                   INSTR (ba.prs_bedrijfadres_url, ':') + 1)    mailadres
                      FROM prs_bedrijf b, prs_bedrijfadres ba
                     WHERE     b.prs_bedrijf_key = 1843
                           AND ba.prs_bedrijf_key = b.prs_bedrijf_key) -- bakker Bliek levert niet op maandag
               ELSE
                   cr.mailadres
           END                                                    mailadres,
           c.res_rsv_ruimte_key,
           c.reservering,
           c.oms                                                  omschrijving,
           ruimte_catalogus,
           cr.res_disc_params_expire_dagen,
           cr.res_disc_params_expire_tijd,
           CASE
               WHEN (    c.ruimte_catalogus_key IN (441)
                     AND NOT c.res_ruimte_key = 17
                     AND cr.bedrijfs_key = 1841)
               THEN
                   'hoofdgebouw keuken beneden' --- bestellingen in ruimtes A0 en B1 voor SEC
               ELSE
                   'hoofdgebouw  keuken boven'
           END                                                    afleverlocatie,
           c.gebouw,
           c.ruimte,
           c.act_nr                                               activiteitennr,
           c.externen                                             externen_aanwezig,
           c.aantal                                               aant_externen,
           c.wensen                                               dieet_allergie,
           cr.ins_discipline_omschrijving                         catalogus,
           cr.res_artikel_omschrijving                            artikel,
           cr.res_rsv_artikel_aantal                              aantal,
           CASE
               WHEN TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 1
               THEN
                   'Zondag'
               WHEN TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 2
               THEN
                   'Maandag'
               WHEN TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 3
               THEN
                   'Dinsdag'
               WHEN TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 4
               THEN
                   'Woensdag'
               WHEN TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 5
               THEN
                   'Donderdag'
               WHEN TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 6
               THEN
                   'Vrijdag'
               WHEN TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 7
               THEN
                   'Zaterdag'
           END                                                    leverdag, --- zondag is dag 1 van de week
           cr.res_rsv_artikel_levering                            artikel_levering,
           TO_CHAR (cr.res_rsv_artikel_levering, 'dd-mm-yyyy')    leverdatum,
           TO_CHAR (cr.res_rsv_artikel_levering, 'hh24:mi')       levertijd
      FROM pzee_v_rap_catering c, pzee_v_rap_catering_rgl cr
     WHERE c.res_rsv_ruimte_key = cr.res_rsv_ruimte_key;

-- rapport met bestellingen dat naar de leverancier gestuurd mag worden

CREATE OR REPLACE VIEW PZEE_V_RAP_NOTI_LEVERANCIER
AS
    SELECT c.res_rsv_ruimte_key,
           c.res_reservering_key,
           c.reservering,
           c.oms                                                  omschrijving,
           c.ruimte_catalogus_key,
           ruimte_catalogus,
           CASE
               WHEN (    c.ruimte_catalogus_key IN (441)
                     AND NOT c.res_ruimte_key = 17
                     AND cr.bedrijfs_key = 1841)
               THEN
                   'hoofdgebouw keuken beneden' --- bestellingen in ruimtes A0 en B1 voor SEC
               ELSE
                   'hoofdgebouw  keuken boven'
           END                                                    afleverlocatie,
           c.gebouw,
           c.ruimte,
           c.act_nr                                               activiteitennr,
           c.contact,
           c.externen                                             externen_aanwezig,
           c.aantal                                               aant_externen,
           c.wensen                                               dieet_allergie,
           cr.ins_discipline_omschrijving                         catalogus,
           cr.res_discipline_key                                  catalogus_key,
           fac.safe_to_number (cr.extra_key)                      extra_key,
           CASE
               WHEN     TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 2
                    AND cr.bedrijfs_key = 1842
               THEN
                   (SELECT b.PRS_BEDRIJF_KEY
                      FROM prs_bedrijf b, prs_bedrijfadres ba
                     WHERE     b.prs_bedrijf_key = 1843
                           AND ba.prs_bedrijf_key = b.prs_bedrijf_key) -- bakker Bliek levert niet op maandag
               ELSE
                   cr.bedrijfs_key
           END                                                    bedrijfs_key,
           CASE
               WHEN     TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 2
                    AND cr.bedrijfs_key = 1842
               THEN
                   (SELECT b.prs_bedrijf_naam
                      FROM prs_bedrijf b, prs_bedrijfadres ba
                     WHERE     b.prs_bedrijf_key = 1843
                           AND ba.prs_bedrijf_key = b.prs_bedrijf_key) -- bakker Bliek levert niet op maandag
               ELSE
                   cr.leverancier
           END                                                    leverancier,
           CASE
               WHEN     TO_CHAR (cr.res_rsv_artikel_levering, 'd') = 2
                    AND cr.bedrijfs_key = 1842
               THEN
                   (SELECT SUBSTR (ba.prs_bedrijfadres_url,
                                   INSTR (ba.prs_bedrijfadres_url, ':') + 1)    mailadres
                      FROM prs_bedrijf b, prs_bedrijfadres ba
                     WHERE     b.prs_bedrijf_key = 1843
                           AND ba.prs_bedrijf_key = b.prs_bedrijf_key) -- bakker Bliek levert niet op maandag
               ELSE
                   cr.mailadres
           END                                                    mailadres,
           cr.res_artikel_omschrijving                            artikel,
           cr.res_rsv_artikel_aantal                              aantal,
           cr.res_rsv_artikel_levering                            artikel_levering,
           cr.res_rsv_artikel_externsyncdate,
           TO_CHAR (cr.res_rsv_artikel_levering, 'hh24:mi')       levertijd,
           TO_CHAR (cr.res_rsv_artikel_levering, 'dd-mm-yyyy')    leverdatum,
           TO_CHAR (cr.res_rsv_artikel_levering, 'd')             leverdag --- zondag is dag 1 van de week
      FROM pzee_v_rap_catering c, pzee_v_rap_catering_rgl cr
     WHERE     TRUNC (cr.bestelling_voor) =
               TRUNC (cr.res_rsv_artikel_levering)
           AND c.res_rsv_ruimte_key = cr.res_rsv_ruimte_key;

--- SELECT sender, receiver, text, code, key, xkey, xsender, xemail, xmobile

CREATE OR REPLACE VIEW PZEE_V_NOTI_BAKKERBEST
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    KEY,
    XKEY,
    XSENDER,
    XEMAIL,
    XMOBILE
)
AS
    SELECT DISTINCT
           3
               sender,                                            -- Facilitor
           NULL
               receiver,
           'Bestelling ' || b.reservering || ' voor ' || leverdatum
               text,
           sn.fac_srtnotificatie_code
               code,
           (SELECT fac_usrrap_key
              FROM fac_usrrap
             WHERE     UPPER (fac_usrrap_omschrijving) =
                       'RES: TE BESTELLEN CATERING'
                   AND UPPER (fac_usrrap_view_name) =
                       'PZEE_V_RAP_NOTI_LEVERANCIER') ---- refkey: is het rapport
               key,
           b.extra_key
               xkey,
           NULL
               xsender,
           b.mailadres
               xemail,
           NULL
               xmobile
      FROM fac_srtnotificatie           sn,
           fac_tracking                 t,
           pzee_v_rap_noti_leverancier  b
     WHERE sn.fac_srtnotificatie_code = 'CUST01' AND b.bedrijfs_key = 1842;

CREATE OR REPLACE VIEW PZEE_V_NOTI_SEC_BEST
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    KEY,
    XKEY,
    XSENDER,
    XEMAIL,
    XMOBILE
)
AS
    SELECT DISTINCT
           3
               sender,                                            -- Facilitor
           NULL
               receiver,
           'Bestelling ' || b.reservering || ' voor ' || leverdatum
               text,
           sn.fac_srtnotificatie_code
               code,
           (SELECT fac_usrrap_key
              FROM fac_usrrap
             WHERE     UPPER (fac_usrrap_omschrijving) =
                       'RES: TE BESTELLEN CATERING'
                   AND UPPER (fac_usrrap_view_name) =
                       'PZEE_V_RAP_NOTI_LEVERANCIER') ---- refkey: is het rapport
               key,
           b.extra_key
               xkey,
           NULL
               xsender,
           b.mailadres
               xemail,
           NULL
               xmobile
      FROM fac_srtnotificatie           sn,
           fac_tracking                 t,
           pzee_v_rap_noti_leverancier  b
     WHERE sn.fac_srtnotificatie_code = 'CUST01' AND b.bedrijfs_key = 1841;

CREATE OR REPLACE VIEW PZEE_V_MENTIMETER_ACC
(
    INS_DEEL_KEY,
    ACCOUNT_NAAM,
    INS_DEEL_VERWIJDER
)
AS
    SELECT d.ins_deel_key,
              d.ins_deel_omschrijving
           || ' ('
           || srt_a.fac_usrdata_omschr
           || ') '
           || a.ins_kenmerkdeel_waarde    accountnaam,
           d.ins_deel_verwijder
      FROM ins_deel     d,
           ins_srtdeel  sd,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
              FROM ins_kenmerkdeel kd, ins_kenmerk k
             WHERE     k.ins_kenmerk_key = kd.ins_kenmerk_key
                   AND k.ins_kenmerk_key = 151) a,
           (SELECT kd.ins_deel_key, ud.fac_usrdata_omschr
              FROM ins_kenmerkdeel  kd,
                   ins_kenmerk      k,
                   ins_srtkenmerk   sk,
                   fac_usrdata      ud
             WHERE     kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 87
                   AND ud.fac_usrdata_key =
                       fac.safe_to_number (kd.ins_kenmerkdeel_waarde)
                   AND ud.fac_usrtab_key = 441) srt_a
     WHERE     d.ins_srtdeel_key = sd.ins_srtdeel_key
           AND sd.ins_srtdeel_key = 183
           AND a.ins_deel_key = d.ins_deel_key
           AND srt_a.ins_deel_key = d.ins_deel_key;

--- notificatie naar representatie wanneer er een wijziging of annulering is van een reserving in een representatieve ruimte
--- die in behandeling is door representatie

CREATE OR REPLACE VIEW PZEE_V_NOTI_RESUPD
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    KEY,
    XKEY,
    XSENDER,
    XEMAIL,
    XMOBILE
)
AS
    SELECT 3                                                  sender,
           NULL                                               receiver,
              'Er is een wijziging op reservering '
           || r.res_reservering_key
           || '/'
           || r.res_rsv_ruimte_volgnr                         tekst,
           sn.fac_srtnotificatie_code                         code,
           r.res_reservering_key                              key,
           NULL                                               xkey,
           NULL                                               xsender,
           'representatie@zeeland.nl;ab.kramer@zeeland.nl'    xemail,
           NULL                                               xmobile
      FROM fac_tracking        t,
           prs_perslid         p,
           res_rsv_ruimte      r,
           fac_srtnotificatie  sn,
           (SELECT d.ins_discipline_key,
                   d.ins_discipline_omschrijving,
                   ro.res_ruimte_opstel_key
              FROM ins_tab_discipline     d,
                   res_ruimte_opstelling  ro,
                   res_ruimte             rr
             WHERE     ro.res_ruimte_key = rr.res_ruimte_key
                   AND rr.res_discipline_key = d.ins_discipline_key) cat
     WHERE     t.fac_srtnotificatie_key = 117                       --- RESUPD
           AND p.prs_perslid_key = t.prs_perslid_key
           AND sn.fac_srtnotificatie_code = 'CUST02'
           AND r.res_rsv_ruimte_key = t.fac_tracking_refkey
           AND r.res_ruimte_opstel_key = cat.res_ruimte_opstel_key
           AND r.res_rsv_ruimte_flag IN (1, 2) -- status representatie is in behandeling of voorlopig afgerond
           AND cat.ins_discipline_key IN (803, 442, 801)
           AND t.fac_tracking_datum >
               (SELECT fac_notificatie_job_lastrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'PZEE_V_NOTI_RESUPD')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'PZEE_V_NOTI_RESUPD')
           AND NOT EXISTS
                   (SELECT ton.prs_perslid_key
                      FROM prs_perslid ton
                     WHERE     ton.prs_perslid_key = 1225
                           AND ton.prs_perslid_key = p.prs_perslid_key)
    UNION ALL
    SELECT 3                                                 sender,
           NULL                                              receiver,
              'Let op: Reservering '
           || r.res_reservering_key
           || '/'
           || r.res_rsv_ruimte_volgnr
           || ' is geannuleerd'                              tekst,
           sn.fac_srtnotificatie_code                        code,
           r.res_reservering_key                             key,
           NULL                                              xkey,
           NULL                                              xsender,
           'representatie@zeeland.nl;abkramer@zeeland.nl'    xemail,
           NULL                                              xmobile
      FROM fac_tracking        t,
           prs_perslid         p,
           res_rsv_ruimte      r,
           fac_srtnotificatie  sn,
           (SELECT d.ins_discipline_key,
                   d.ins_discipline_omschrijving,
                   ro.res_ruimte_opstel_key
              FROM ins_tab_discipline     d,
                   res_ruimte_opstelling  ro,
                   res_ruimte             rr
             WHERE     ro.res_ruimte_key = rr.res_ruimte_key
                   AND rr.res_discipline_key = d.ins_discipline_key) cat
     WHERE     t.fac_srtnotificatie_key = 121                       --- RESDEL
           AND p.prs_perslid_key = t.prs_perslid_key
           AND sn.fac_srtnotificatie_code = 'CUST02'
           AND r.res_rsv_ruimte_key = t.fac_tracking_refkey
           AND r.res_ruimte_opstel_key = cat.res_ruimte_opstel_key
           AND r.res_rsv_ruimte_flag IN (1, 2, 3) -- status representatie is in behandeling, voorlopig afgerond of gereserveerd respresentatie
           AND t.fac_tracking_datum >
               (SELECT fac_notificatie_job_lastrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'PZEE_V_NOTI_RESUPD')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'PZEE_V_NOTI_RESUPD')
           AND NOT EXISTS
                   (SELECT ton.prs_perslid_key
                      FROM prs_perslid ton
                     WHERE     ton.prs_perslid_key = 1225
                           AND ton.prs_perslid_key = p.prs_perslid_key);

CREATE OR REPLACE PROCEDURE pzee_select_catering_bes (
    p_applname   IN VARCHAR2,
    p_applrun    IN VARCHAR2)
AS
    oracle_err_num   NUMBER;
    oracle_err_mes   VARCHAR2 (200);
    v_errorhint      VARCHAR2 (100);
    v_aanduiding     VARCHAR2 (100);

    CURSOR BAKKER IS
        SELECT DISTINCT b.reservering,
                        b.res_rsv_ruimte_key,
                        3                                             sender, -- Facilitor
                           'Bestelling '
                        || b.reservering
                        || ' voor '
                        || leverdatum                                 text,
                        sn.fac_srtnotificatie_code,
                        sn.fac_srtnotificatie_key,
                        (SELECT fac_usrrap_key
                           FROM fac_usrrap
                          WHERE     UPPER (fac_usrrap_omschrijving) =
                                    'RES: TE BESTELLEN CATERING'
                                AND UPPER (fac_usrrap_view_name) =
                                    'PZEE_V_RAP_NOTI_LEVERANCIER') ---- refkey: is het rapport
                                                                      key,
                        b.extra_key                                   xkey,
                        b.mailadres                                   xemail
          FROM fac_srtnotificatie           sn,
               fac_tracking                 t,
               pzee_v_rap_noti_leverancier  b
         WHERE     sn.fac_srtnotificatie_code = 'CUST01'
               AND b.res_rsv_artikel_externsyncdate IS NULL
               AND b.bedrijfs_key IN (1842, 1843);

    CURSOR SEC IS
        SELECT DISTINCT b.reservering,
                        b.res_rsv_ruimte_key,
                        3                                             sender, -- Facilitor
                           'Bestelling '
                        || b.reservering
                        || ' voor '
                        || leverdatum                                 text,
                        sn.fac_srtnotificatie_code,
                        sn.fac_srtnotificatie_key,
                        (SELECT fac_usrrap_key
                           FROM fac_usrrap
                          WHERE     UPPER (fac_usrrap_omschrijving) =
                                    'RES: TE BESTELLEN CATERING'
                                AND UPPER (fac_usrrap_view_name) =
                                    'PZEE_V_RAP_NOTI_LEVERANCIER') ---- refkey: is het rapport
                                                                      key,
                        b.extra_key                                   xkey,
                        b.mailadres                                   xemail
          FROM fac_srtnotificatie           sn,
               fac_tracking                 t,
               pzee_v_rap_noti_leverancier  b
         WHERE     sn.fac_srtnotificatie_code = 'CUST01'
               AND b.res_rsv_artikel_externsyncdate IS NULL
               AND b.bedrijfs_key = 1841;

    CURSOR BES_RGL IS
        SELECT res_rsv_artikel_key,
               cr.bedrijfs_key,
               cr.leverancier,
               cr.mailadres,
               cr.res_artikel_omschrijving
                   artikel,
               cr.res_rsv_artikel_aantal
                   aantal,
               cr.res_rsv_artikel_levering
                   artikel_levering,
               TO_CHAR (cr.res_rsv_artikel_levering, 'hh24:mi')
                   levertijd,
               TO_CHAR (cr.res_rsv_artikel_levering, 'dd-mm-yyyy')
                   leverdatum,
               TO_CHAR (cr.res_rsv_artikel_levering, 'd')
                   leverdag                    --- zondag is dag 1 van de week
          FROM pzee_v_rap_catering_rgl cr
         WHERE     TRUNC (cr.bestelling_voor) =
                   TRUNC (cr.res_rsv_artikel_levering)
               AND cr.res_rsv_artikel_externsyncdate IS NULL;
BEGIN
    v_errorhint := 'init';

    DELETE imp_log
     WHERE imp_log_applicatie = p_applname;


    FOR rec IN BAKKER
    LOOP
        BEGIN
            INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                         fac_notificatie_status,
                                         fac_notificatie_receiver_email,
                                         fac_notificatie_oms,
                                         fac_notificatie_refkey,
                                         fac_notificatie_extrakey,
                                         prs_perslid_key_sender,
                                         fac_notificatie_prioriteit,
                                         fac_notificatie_lang)
                 VALUES (rec.fac_srtnotificatie_key,
                         2,
                         rec.xemail,
                         rec.text,
                         rec.key,                               -- rapport key
                         rec.xkey,                              -- bedrijfskey
                         3,
                         2,
                         'NL');

            fac.trackaction (
                'RESTRK',
                rec.res_rsv_ruimte_key,
                NULL,
                NULL,
                'Bakkersbestelling verstuurd naar: ' || rec.xemail);
        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 SEC
    LOOP
        BEGIN
            INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                         fac_notificatie_status,
                                         fac_notificatie_receiver_email,
                                         fac_notificatie_oms,
                                         fac_notificatie_refkey,
                                         fac_notificatie_extrakey,
                                         prs_perslid_key_sender,
                                         fac_notificatie_prioriteit,
                                         fac_notificatie_lang)
                 VALUES (rec.fac_srtnotificatie_key,
                         2,
                         rec.xemail,
                         rec.text,
                         rec.key,                               -- rapport key
                         rec.xkey,                              -- bedrijfskey
                         3,
                         2,
                         'NL');

            fac.trackaction ('RESTRK',
                             rec.res_rsv_ruimte_key,
                             NULL,
                             NULL,
                             'SEC bestelling verstuurd naar: ' || rec.xemail);
        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 BES_RGL
    LOOP
        BEGIN
            UPDATE res_rsv_artikel ra
               SET ra.res_rsv_artikel_externsyncdate = SYSDATE
             WHERE ra.res_rsv_artikel_key = rec.res_rsv_artikel_key;
        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;
    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;
/

CREATE OR REPLACE FORCE VIEW pzee_v_noti_base27
(
    text,
    code,
    fac_srtnotificatie_key,
    key,
    prs_bedrijfadres_key
)
AS
    SELECT DISTINCT sn.fac_srtnotificatie_oms,
                    sn.fac_srtnotificatie_code,
                    sn.fac_srtnotificatie_key,
                    m.mld_melding_key,
                    ba.prs_bedrijfadres_key
      FROM mld_discipline      bt,
           mld_melding         m,
           mld_stdmelding      sm,
           mld_statuses        s,
           fac_tracking        t,
           fac_srtnotificatie  sn,
           prs_bedrijf         b,
           prs_bedrijfadres    ba
     WHERE     bt.ins_discipline_key = m.mld_ins_discipline_key
           AND s.mld_statuses_key = m.mld_melding_status
           AND sm.mld_stdmelding_key = m.mld_stdmelding_key
           AND sm.mld_stdmeldinggroep_key = 13     -- meldinggroep Veiligheid
           AND m.mld_ins_discipline_key IN (261, 702)  -- melding staat op behandelteam Security of Security datalek
           AND t.fac_tracking_refkey = m.mld_melding_key
           AND t.fac_srtnotificatie_key = 47  -- MLDAFM melding is afgemeld
           AND sn.fac_srtnotificatie_code = 'CUST03'
           AND b.prs_bedrijf_key = ba.prs_bedrijf_key
           AND b.prs_bedrijf_naam_upper = 'BASE27'
           AND t.fac_tracking_datum >
               (SELECT fac_notificatie_job_nextrun - fac_notificatie_job_interval / 24
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) = 'PZEE_V_NOTI_BASE27')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) = 'PZEE_V_NOTI_BASE27');
                 
------ 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