YASK#80349 -- Gebouwen Altrecht aanpassen

svn path=/Customer/; revision=62153

onces/YASK/YASK#80349.sql

@@ -0,0 +1,94 @@
+--
+-- $Id$
+--
+-- Aanpassingen
+-- Gebouwen van Altrecht worden onder een eigen locatie geplaatst. Omdat anders de technische adressen niet gekoppeld kunnen worden.
+
+DEFINE thisfile = 'YASK#80349.SQL'
+DEFINE dbuser   = '^YASK'
+
+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 cl IS
+        SELECT l.*
+          FROM alg_district d, alg_locatie l
+         WHERE d.alg_district_key = l.alg_district_key AND d.alg_district_omschrijving = 'Altrecht'
+           AND l.alg_locatie_verwijder IS NULL;
+
+    CURSOR cg (c_locatie_key NUMBER)
+    IS
+        SELECT g.*
+          FROM alg_gebouw g
+         WHERE g.alg_locatie_key = c_locatie_key
+           AND g.alg_gebouw_verwijder IS NULL;
+
+    v_locatie_key   NUMBER;
+BEGIN
+    FOR recl IN cl
+    LOOP
+        FOR recg IN cg (recl.alg_locatie_key)
+        LOOP
+        dbms_output.put_line (SUBSTR ('ALT-' || recg.alg_gebouw_naam, 1, 60));
+            INSERT INTO alg_locatie (alg_district_key,
+                                     alg_locatie_code,
+                                     alg_locatie_omschrijving,
+                                     alg_locatie_adres,
+                                     alg_locatie_postcode,
+                                     alg_locatie_plaats,
+                                     alg_locatie_land,
+                                     mld_dienstniveau_key)
+                 VALUES (recl.alg_district_key,
+                         recg.alg_gebouw_code,
+                         SUBSTR ('ALT-' || recg.alg_gebouw_naam, 1, 60),
+                         recg.alg_gebouw_adres,
+                         recg.alg_gebouw_postcode,
+                         recl.alg_locatie_plaats,
+                         'Nederland',
+                         501)
+              RETURNING alg_locatie_key
+                   INTO v_locatie_key;
+
+            UPDATE alg_gebouw
+               SET alg_locatie_key = v_locatie_key
+             WHERE alg_gebouw_key = recg.alg_gebouw_key;
+
+            UPDATE mld_melding
+               SET mld_alg_locatie_key = v_locatie_key
+             WHERE     mld_alg_locatie_key = recl.alg_locatie_key
+                   AND mld_alg_onroerendgoed_keys IN (SELECT alg_onroerendgoed_keys
+                                                        FROM alg_v_onroerendgoed
+                                                       WHERE alg_gebouw_key = recg.alg_gebouw_key);
+        END LOOP;
+
+        UPDATE alg_locatie
+           SET alg_locatie_verwijder = SYSDATE
+         WHERE alg_locatie_key = recl.alg_locatie_key;
+    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