INCU#87791 -- Bijwerken ruimte gegevens

svn path=/Customer/; revision=69851

onces/INCU/INCU#87791.sql

@@ -0,0 +1,78 @@
+--
+-- $Id$
+--
+-- Bijwerken vastgoedinformatie INCU
+-- LET OP: EERST DE VASTGOEDSHEET INLEZEN fac_imp_onrgoed2
+
+DEFINE thisfile = 'INCU#87791.SQL'
+DEFINE dbuser   = 'INCU'
+
+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 c1
+IS
+SELECT
+r.alg_ruimte_key rkey,
+f.alg_ruimte_nr,
+f.alg_ruimte_bruto_vloeropp vloeropp,
+f.alg_ruimte_omschrijving omschr,
+f.alg_srtruimte_omschrijving,
+s.alg_srtruimte_key functie
+FROM
+fac_imp_onrgoed2 f,
+alg_ruimte r,
+alg_srtruimte s
+WHERE
+UPPER (f.alg_ruimte_nr) = UPPER (r.alg_ruimte_nr)
+AND UPPER (f.alg_srtruimte_omschrijving) = s.alg_srtruimte_upper;
+
+BEGIN
+
+FOR rec IN c1
+LOOP
+UPDATE alg_ruimte
+SET alg_ruimte_bruto_vloeropp = NULL
+WHERE alg_ruimte_key = rec.rkey;
+
+UPDATE alg_ruimte
+SET
+alg_ruimte_omschrijving = rec.omschr,
+alg_srtruimte_key = rec.functie,
+alg_ruimte_bruto_vloeropp = rec.vloeropp
+WHERE alg_ruimte_key = rec.rkey;
+
+fac.trackaction (
+                'ALGRUP',
+                rec.rkey,
+                6,                                                  -- Systeem
+                NULL,
+                'Ruimteinformatie bijgewerkt');
+
+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