FMHN#72353 Aanmaken reservering n.a.v. melding 'Aanvraag Evenement'

svn path=/Customer/; revision=57677

onces/FMHN/FMHN#72353.sql

@@ -0,0 +1,71 @@
+/* Formatted on 28/2/2022 15:06:21 (QP5 v5.371) */
+--
+-- $Id$
+--
+-- Deze once is ondersteunend aan de change release FMH-2 
+-- Met deze once worden reserveringen die nu met een veld 'referentie' (mld_melding_kto_key) gevuld zijn, ook gekoppeld via tabblad reservering aan de reservering. 
+-- Het evenementent team gaat namelijk na de change evenementen koppelen via het tabblad reserveringen van de melding. 
+-- Door ook bij de bestaande meldingen die zo aan een evenement(reservering) zijn gekoppeld, te vullen, is er sprake van een uniforme werkwijze. 
+-- Bovendien zijn die reserveringen dan ook voorzien van een snelkoppeling naar de aanvraag, vanuit de reservering. 
+-- Het betreffen bijna 300 meldingen en dat is handmatig teveel werk.
+
+DEFINE thisfile = 'FMHN#72353.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 m.mld_melding_key,
+               m.mld_melding_kto_key,
+               rrr.res_reservering_key
+          FROM mld_melding m, res_rsv_ruimte rrr
+         WHERE     m.mld_stdmelding_key = 25             -- Aanvraag evenement
+               AND m.mld_melding_kto_key IS NOT NULL
+               AND rrr.res_rsv_ruimte_key = m.mld_melding_kto_key
+               AND rrr.res_reservering_key NOT IN
+                       (SELECT r.res_reservering_key
+                          FROM res_reservering r
+                         WHERE r.mld_melding_key = m.mld_melding_key);
+BEGIN
+    FOR rec IN c
+    LOOP
+        BEGIN
+            UPDATE res_reservering
+               SET mld_melding_key = rec.mld_melding_key
+             WHERE res_reservering_key = rec.res_reservering_key;
+
+            fac.trackaction (
+                'MLDUPD',
+                rec.mld_melding_key,
+                NULL,
+                NULL,
+                'Dataconversie FMHN#72353: Reservering nu via tabblad inzichtelijk');
+        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