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