FMHN#73948 Markeringen reserveringen aanpassen ihkv FMHN#74630

svn path=/Customer/; revision=57513

onces/FMHN/FMHN#73948.sql

@@ -0,0 +1,65 @@
+/* Formatted on 28/2/2022 15:06:21 (QP5 v5.371) */
+--
+-- $Id$
+--
+-- Met deze once worden enkele zaken ter ondersteuning van de 2e change release van FMH ondersteund.
+-- FMHN#74630 Markeringen van reserveringen wijzigen. Men wilde de volgorde/duiding van flags aanpassen en dat zijn honderden reserveringen
+-- LET OP!! Dit moet gelijk gedaan worden met de aanvullende aanpassingen (vertaling/styling), zie FMHN#74630!
+
+
+DEFINE thisfile = 'FMHN#73948.sql'
+DEFINE dbuser   = '^FMHN'
+
+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 res_rsv_ruimte_key, res_rsv_ruimte_flag
+          FROM res_rsv_ruimte
+         WHERE     res_rsv_ruimte_verwijder IS NULL
+               AND res_rsv_ruimte_flag IN (1, 2, 3);
+BEGIN
+    FOR rec IN c
+    LOOP
+        BEGIN
+            UPDATE res_rsv_ruimte r
+               SET r.res_rsv_ruimte_flag = 2
+             WHERE     r.res_rsv_ruimte_key = c.res_rsv_ruimte_key
+                   AND c.res_rsv_ruimte_flag = 1;
+
+            UPDATE res_rsv_ruimte r
+               SET r.res_rsv_ruimte_flag = 3
+             WHERE     r.res_rsv_ruimte_key = c.res_rsv_ruimte_key
+                   AND c.res_rsv_ruimte_flag = 2;
+
+            UPDATE res_rsv_ruimte r
+               SET r.res_rsv_ruimte_flag = 1
+             WHERE     r.res_rsv_ruimte_key = c.res_rsv_ruimte_key
+                   AND c.res_rsv_ruimte_flag = 3;
+        END;
+    END LOOP;
+END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile