BLST#66395 Implementatie belastingdienst, initieel leegstand bij juiste ruimte zetten

svn path=/Customer/; revision=52925

onces/BLST/BLST#66395_2.sql

@@ -0,0 +1,79 @@
+--
+-- $Id$
+--
+-- BLST#66395 leegstand ruimtes initieel goed zetten
+-- De brongegevens hiervoor zijn in een eigen tabel geimporteerd
+--
+DEFINE thisfile = 'BLST#66395_2.sql'
+DEFINE dbuser   = '^BLST'
+
+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 bezetting IS
+        SELECT r.alg_ruimte_key,
+               r.alg_ruimte_nr,
+               a.prs_afdeling_key,
+               a.prs_afdeling_naam
+          FROM fac_usrdata ud, alg_ruimte r, prs_afdeling a
+          WHERE   ud.fac_usrtab_key =261 
+               AND fac_usrdata_upper = r.alg_ruimte_nr
+               AND fac_usrdata_omschr = a.prs_afdeling_naam;
+BEGIN
+    FOR rec IN bezetting
+    LOOP
+        BEGIN
+            INSERT INTO prs_ruimteafdeling ra (
+                            ra.alg_ruimte_key,
+                            ra.prs_afdeling_key,
+                            ra.prs_ruimteafdeling_bezetting)
+                 VALUES (rec.alg_ruimte_key, rec.prs_afdeling_key, 100);
+
+            fac.trackaction (
+                'ALGTRK',
+                rec.alg_ruimte_key,
+                3,                                                -- Facilitor
+                NULL,
+                   'Leegstand '
+                || rec.prs_afdeling_key
+                || ' '
+                || rec.prs_afdeling_naam
+                || ' opgenomen');
+        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