--
-- $Id$
--
-- Korte beschrijving wat het script doet
-- Voor dbuser invullen: - indien script voor 1 klant is: 'AADS' (de klantcode, zoals vermeld in fac_version_cust)
--                       - script is voor meerdere klanten: 'AAXX' (de groepcode, zoals vermeld in fac_version_group)
--                       - script is voor meerdere klanten met naam volgens een bepaald patroon: '^AA|^ASMS|^GULU|^NMMS|^RABO|^ZKHM'
--
DEFINE thisfile = 'YKPN#62991'
DEFINE dbuser   = '^YKPN'

SET ECHO ON
SET DEFINE ON
SET serveroutput ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
WHENEVER SQLERROR CONTINUE;
PROMPT &fcltcusterr
SET DEFINE OFF

------ payload begin ------

DECLARE
    CURSOR c IS
          SELECT rrr.res_rsv_ruimte_key,
                 REPLACE (res_rsv_ruimte_omschrijving,
                          'Flexreservering',
                          'Teamarea reservering')
                     res_rsv_ruimte_omschrijving,
                 MAX (ro.res_ruimte_opstel_key) res_ruimte_opstel_key,
                 MAX (rrd.res_rsv_deel_key) res_rsv_deel_key,
                 COALESCE (rrr.prs_kostenplaats_key, a.prs_kostenplaats_key)
                     prs_kostenplaats_key,
                 COUNT (*)
            FROM res_rsv_ruimte       rrr,
                 res_rsv_deel         rrd,
                 res_deel             rd,
                 res_ruimte           rr,
                 res_ruimte_opstelling ro,
                 prs_perslid          p,
                 prs_afdeling         a
           WHERE     rrr.res_activiteit_key = 170
                 AND rrr.res_rsv_ruimte_key = rrd.res_rsv_ruimte_key
                 AND rrd.res_deel_key = rd.res_deel_key
                 AND rr.res_ruimte_key = ro.res_ruimte_key
                 AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
                 AND p.prs_afdeling_key = a.prs_afdeling_key
                 AND rrr.res_rsv_ruimte_van > TO_DATE ('20200922', 'YYYYMMDD')
                 AND DECODE (rr.res_ruimte_key,
                             1561                -- Amersfoort - Teamarea Aqua
                                 , 22263 -- TEAMAREA 3006 Amersfoort, Stationsstraat 115 1
                                        ,
                             1621          -- Amersfoort - Teamarea Koraalrood
                                 , 22264 -- TEAMAREA 3007 Amersfoort, Stationsstraat 115 2
                                        ,
                             1581            -- Amersfoort - Teamarea Okergeel
                                 , 22277 -- TEAM AREA1009 Amersfoort, Stationsstraat 115 10
                                        ,
                             1601                -- Amersfoort - Teamarea Roze
                                 , 22274 -- TEAM AREA1008 Amersfoort, Stationsstraat 115 7
                                        ,
                             1425                 -- Amsterdam - Teamarea Aqua
                                 , 22225 -- TEAMAREA 3001 Amsterdam, Teleportboulevard 121 4
                                        ,
                             1522           -- Amsterdam - Teamarea Koraalrood
                                 , 22223 -- TEAM AREA1002 Amsterdam, Teleportboulevard 121 4
                                        ,
                             1821                 -- Amsterdam - Teamarea Lila
                                 , 22501 -- TEAM AREA1011 Amsterdam, Teleportboulevard 121 4
                                        ,
                             1461                 -- Amsterdam - Teamarea Lime
                                 , 22230 -- TEAM AREA1004 Amsterdam, Teleportboulevard 121 4
                                        ,
                             1501             -- Amsterdam - Teamarea Okergeel
                                 , 22228 -- TEAMAREA2001 Amsterdam, Teleportboulevard 121 4
                                        ,
                             1541                 -- Amsterdam - Teamarea Roze
                                 , 22221 -- TEAM AREA1001 Amsterdam, Teleportboulevard 121 4
                                        ,
                             1481                   -- Amsterdam -Teamarea Wit
                                 , 22227 -- TEAM AREA1003 Amsterdam, Teleportboulevard 121 4
                                        ,
                             1801              -- Enschede - Teamarea Okergeel
                                 , 22301 -- TEAM AREA1010 Enschede, Schuttersveld 15 2
                                        ,
                             1402                 -- Groningen - Teamarea Aqua
                                 , 22325 -- TEAMAREA 3010 Groningen, Stationsplein 7 3
                                        ,
                             1403           -- Groningen - Teamarea Koraalrood
                                 , 22303 -- TEAMAREA2014 Groningen, Stationsplein 7 2
                                        ,
                             1401                 -- Groningen - Teamarea Lime
                                 , 22323 -- TEAMAREA2015 Groningen, Stationsplein 7 3
                                        ,
                             1404             -- Groningen - Teamarea Okergeel
                                 , 22302 -- TEAMAREA2013 Groningen, Stationsplein 7 1
                                        ,
                             1405                 -- Groningen - Teamarea Roze
                                 , 22326 -- TEAMAREA 3011 Groningen, Stationsplein 7 4
                                        ,
                             1901                    -- Houten - Teamarea Aqua
                                 , 24501 -- TEAMAREA 3013 Houten, Kromme Schaft 3-5, Building 1
                                        ,
                             1881              -- Houten - Teamarea Koraalrood
                                 , 23796 -- TEAMAREA2016 Houten, Kromme Schaft 3-5, Building 2
                                        ,
                             1841                -- Houten - Teamarea Okergeel
                                 , 23803 -- TEAM AREA1012 Houten, Kromme Schaft 3-5, Building 3
                                        ,
                             1861                    -- Houten - Teamarea Roze
                                 , 23801 -- TEAMAREA 3012 Houten, Kromme Schaft 3-5, Building 3
                                        ,
                             1381          -- Maastricht - Teamarea Koraalrood
                                 , 22402 -- TEAMAREA 4005 Maastricht, Stationsplein 18 5
                                        ,
                             1421            -- Rotterdam  - Teamarea Okergeel
                                 , 22386 -- TEAMAREA 4001 Rotterdam, Wilhelminakade 123 9
                                        ,
                             1442                 -- Rotterdam - Teamarea Aqua
                                 , 22389 -- TEAMAREA 4003 Rotterdam, Wilhelminakade 123 10
                                        ,
                             1424           -- Rotterdam - Teamarea Koraalrood
                                 , 22390 -- TEAMAREA 4004 Rotterdam, Wilhelminakade 123 10
                                        ,
                             1422                 -- Rotterdam - Teamarea Roze
                                 , 22387 -- TEAMAREA 4002 Rotterdam, Wilhelminakade 123 9
                                        ,
                             1702                        -- TP - Teamarea Aqua
                                 , 22245 -- TEAMAREA 3002 's-Gravenhage, TP, Maanplein 55 2
                                        ,
                             1641                     -- TP - Teamarea Bordeux
                                 , 22251 -- TEAMAREA 3005 's-Gravenhage, TP, Maanplein 55 2
                                        ,
                             1781                       -- TP - Teamarea Bruin
                                 , 22241 -- TEAM AREA1007 's-Gravenhage, TP, Maanplein 55 0
                                        ,
                             1721                  -- TP - Teamarea Koraalrood
                                 , 22250 -- TEAMAREA 3004 's-Gravenhage, TP, Maanplein 55 2
                                        ,
                             1681                        -- TP - Teamarea Lila
                                 , 22248 -- TEAMAREA2008 's-Gravenhage, TP, Maanplein 55 2
                                        ,
                             1701                        -- TP - Teamarea Lime
                                 , 22249 -- TEAMAREA2009 's-Gravenhage, TP, Maanplein 55 2
                                        ,
                             1761                    -- TP - Teamarea Okergeel
                                 , 22261 -- TEAMAREA2010 's-Gravenhage, TP, Maanplein 55 3
                                        ,
                             1741                        -- TP - Teamarea Roze
                                 , 22262 -- TEAMAREA2011 's-Gravenhage, TP, Maanplein 55 3
                                        ,
                             1661                         -- TP - Teamarea Wit
                                 , 22247 -- TEAMAREA 3003 's-Gravenhage, TP, Maanplein 55 2
                                        --,1782 -- TP - Teamarea donker blauw,
                                        ,
                             1788               -- Zoetermeer -  Teamarea Aqua
                                 , 22233 -- TEAMAREA2003 Zoetermeer, Rontgenlaan 75 1
                                        --,1791 -- Zoetermeer - Teamarea Bordeaux,
                                        ,
                             1789               -- Zoetermeer - Teamarea Bruin
                                 , 22235 -- TEAMAREA2004 Zoetermeer, Rontgenlaan 75 1
                                        ,
                             1783          -- Zoetermeer - Teamarea Koraalrood
                                 , 22240 -- TEAMAREA2007 Zoetermeer, Rontgenlaan 75 3
                                        ,
                             1790                -- Zoetermeer - Teamarea Lila
                                 , 22232 -- TEAMAREA2002 Zoetermeer, Rontgenlaan 75 0
                                        ,
                             1786                -- Zoetermeer - Teamarea Lime
                                 , 22239 -- TEAMAREA2006 Zoetermeer, Rontgenlaan 75 2
                                        ,
                             1785            -- Zoetermeer - Teamarea Okergeel
                                 , 22231 -- TEAM AREA1005 Zoetermeer, Rontgenlaan 75 0
                                        ,
                             1921                -- Zoetermeer - Teamarea Roze
                                 , 22236 -- TEAMAREA2005 Zoetermeer, Rontgenlaan 75 1
                                        ,
                             1787                 -- Zoetermeer - Teamarea Wit
                                 , 24021 -- TEAMAREA2017 Zoetermeer, Rontgenlaan 75 2
                                        ) =
                     rd.res_ins_deel_key
        GROUP BY rrr.res_rsv_ruimte_key,
                 rrr.prs_kostenplaats_key,
                 a.prs_kostenplaats_key,
                 rrr.res_rsv_ruimte_omschrijving;

    v_hint   VARCHAR2 (200);
BEGIN
    FOR rec IN c
    LOOP
        BEGIN
            v_hint := 'Aanpassen res_rsv_ruimte: ' || rec.res_rsv_ruimte_key;
            UPDATE res_rsv_ruimte
               SET res_rsv_ruimte_omschrijving =
                       rec.res_rsv_ruimte_omschrijving,
                   prs_kostenplaats_key = rec.prs_kostenplaats_key,
                   res_rsv_ruimte_kosten_klant = 1,
                   res_ruimte_opstel_key = rec.res_ruimte_opstel_key,
                   res_activiteit_key = 150,
                   res_rsv_ruimte_bezoekers = 1,
                   res_status_bo_key = 2,
                   res_status_fo_key = 2,
                   res_rsv_ruimte_cvab_mode = NULL
             WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;

            v_hint := 'Aanpassen res_rsv_deel: ' || rec.res_rsv_ruimte_key;
            UPDATE res_rsv_deel rrd
               SET res_rsv_deel_verwijder = SYSDATE
             WHERE     rrd.res_rsv_ruimte_key = rec.res_rsv_ruimte_key
                   AND rrd.res_deel_key IN (SELECT res_deel_key
                                              FROM res_deel
                                             WHERE res_discipline_key = 2641);
        EXCEPTION WHEN OTHERS
        THEN
            DBMS_OUTPUT.put_line ('Foutmelding: ' || v_hint);
        END;
    END LOOP;
END;
/

------ payload end   ------

SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 1); END;
/

COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile
