237 lines
13 KiB
SQL
237 lines
13 KiB
SQL
--
|
|
-- $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
|