182 lines
8.7 KiB
SQL
182 lines
8.7 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script om de ruimtefunctie aan te passen.
|
|
--
|
|
DEFINE thisfile = 'KMMO#65492_2.SQL'
|
|
DEFINE dbuser = '^KMMO'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE 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 'Gang' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Trappenhuis' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Sluis' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Voorruimte' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Lift' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Beveiligingssluis' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Verkeersruimte' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Bezoekers meldkamer' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Trap technische ruimte' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Trap naar kelder' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Tochtportaal' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Entree wachtruimte' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Portaal' oud, 'Verkeersruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Toilet' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Douche' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Wasruimte' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Toilet Heren' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Toilet Dames' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Douche Heren' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Douche Dames' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Voorruimte toilet dames' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Voorruimte/urinoirs heren' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'MIVA toilet' oud, 'Sanitair' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Kantoor' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Meldkamer' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Reflexieruimte' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Vergaderruimte' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Archief' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Repro' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Bibliotheek' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Fietsenstalling' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Werkplaats' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Brandweerruimte KMM' oud, 'Kantoor' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Magazijn' oud, 'Opslag' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Berging' oud, 'Opslag' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Werkkast' oud, 'Opslag' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Kast' oud, 'Opslag' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Opslag' oud, 'Opslag' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Kleedruimte' oud, 'Personeelsruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'EHBO ruimte' oud, 'Personeelsruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Technische ruimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Stapelput' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Installatieruimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Electra ruimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Techniek' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Liftinstallaties' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Voorruimte klimaatcel' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Ruimte aanzuiglucht' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Aanzuigruimte buitenlucht' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Sprinklerput' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Leidingtunnel' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Schacht' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Laagspanningsruimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Lijsten werkplaats' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Aggregaatruimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Koeltorens' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Ledige ruimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Traforuimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'CV-ruimte' oud, 'Installaties' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Depot' oud, 'Depot' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Quarantaineruimte' oud, 'Depot' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Transito ruimte' oud, 'Depot' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Uitblaaslucht ruimte' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Koekoek' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Patio' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Buitenbordes' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Terras' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Overkapping' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Personeelsparkeerplaats direct' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Personeelsparkeerplaats dienst' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Garage' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Terrein Apeldoorn' oud, 'Buitenruimte' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Winkel' oud, 'Publieksvoorzieningen' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Pasruimte' oud, 'Publieksvoorzieningen' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Restaurant' oud, 'Publieksvoorzieningen' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Garderobe' oud, 'Publieksvoorzieningen' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Publiek' oud, 'Publieksvoorzieningen' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Filmcabine' oud, 'Publieksvoorzieningen' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Tentoonstellingsruimte' oud, 'Tentoonstellingsruimten' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Aula' oud, 'Tentoonstellingsruimten' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Omloop aula' oud, 'Tentoonstellingsruimten' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Aula auditorium' oud, 'Tentoonstellingsruimten' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Uitgifte' oud, 'Restaurant' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Keuken' oud, 'Restaurant' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Spoelkeuken' oud, 'Restaurant' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Pantry' oud, 'Restaurant' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Schilderijen/Restauratie' oud, 'Museum' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Restauratieatelier' oud, 'Museum' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Expeditie' oud, 'Museum' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Paviljoen' oud, 'Museum' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Voortuin/Steinbank' oud, 'Museum' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Beeldentuin' oud, 'Museum' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Vide opslag' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Vide aula' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Vide aula auditorium' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Vide technische ruimte' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Tussendak boven ruimte' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Tussendak aula auditorium' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Dakvlak' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Dak tuinloods' oud, 'Gebouw' nieuw FROM DUAL UNION ALL
|
|
SELECT 'Kruipruimte' oud, 'Gebouw' nieuw FROM DUAL;
|
|
|
|
|
|
v_srtruimte_key NUMBER(10);
|
|
v_count NUMBER;
|
|
|
|
BEGIN
|
|
|
|
DELETE imp_log WHERE imp_log_applicatie = 'SRTRUIMTE_CONV';
|
|
|
|
FOR rec IN c LOOP
|
|
BEGIN
|
|
|
|
SELECT alg_srtruimte_key
|
|
INTO v_srtruimte_key
|
|
FROM alg_srtruimte
|
|
WHERE alg_srtruimte_verwijder IS NULL
|
|
AND UPPER (alg_srtruimte_omschrijving) = UPPER(rec.nieuw);
|
|
|
|
EXCEPTION WHEN NO_DATA_FOUND
|
|
THEN
|
|
|
|
INSERT INTO alg_srtruimte (alg_srtruimte_omschrijving) VALUES (rec.nieuw) RETURNING alg_srtruimte_key INTO v_srtruimte_key;
|
|
fac.writelog ('SRTRUIMTE_CONV','I','srtruimte aangemaakt: ' || rec.nieuw,'');
|
|
|
|
END;
|
|
|
|
SELECT count(*)
|
|
INTO v_count
|
|
FROM alg_ruimte
|
|
WHERE UPPER(alg_ruimte_omschrijving) LIKE '%' || TRIM(UPPER(rec.oud)) || '%';
|
|
fac.writelog ('SRTRUIMTE_CONV','I','aantal omschrijvingen gevonden: ' || rec.oud || ' aantal: ' || v_count,'');
|
|
|
|
IF v_count > 0 THEN
|
|
UPDATE alg_ruimte
|
|
SET alg_srtruimte_key = v_srtruimte_key
|
|
WHERE UPPER(alg_ruimte_omschrijving) LIKE '%' || TRIM(UPPER(rec.oud)) || '%';
|
|
END IF;
|
|
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
|