BLCC#73785+BLCC#73837 Corrigeren BLCC_ALG_FREEZE-vulling van IN_EXPL_DAT en UIT_EXPL_DAT

svn path=/Customer/; revision=56886

onces/BLCC/BLCC#73837.sql

@@ -0,0 +1,72 @@
+--
+-- $Id$
+--
+-- Customer specific once-script BLCC#71247_2.sql.
+DEFINE thisfile = 'BLCC#73837.sql'
+DEFINE dbuser   = '^BLCC'
+
+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 ------
+
+-- BLCC#73837: Corrigeren vulling op 1/8 van IN_EXPL_DAT en UIT_EXPL_DAT.
+SET SERVEROUTPUT ON size 1000000;
+
+DECLARE
+   v_count   NUMBER := 0;
+BEGIN
+   -- Leegmaken IN_EXPL_DAT en UIT_EXPL_DAT zoals op 1/8 gevuld.
+   --UPDATE blcc_alg_freeze
+   --   SET in_expl_dat = NULL,
+   --       uit_expl_dat = NULL
+   -- WHERE TO_CHAR (freeze_datum, 'dd-mm-yyyy') = '01-08-2022';
+
+   -- Bijwerken IN_EXPL_DAT en UIT_EXPL_DAT alsof op 1/8 gedaan.
+   FOR rec
+      IN (  SELECT x.*
+              FROM blcc_v_alg_actual x
+             WHERE (x.in_expl_dat IS NOT NULL OR x.uit_expl_dat IS NOT NULL)
+                   AND EXISTS
+                         (SELECT 1
+                            FROM blcc_alg_freeze
+                           WHERE TO_CHAR (freeze_datum, 'dd-mm-yyyy') = '01-08-2022'
+                                 AND alg_ruimte_key = x.alg_ruimte_key)
+          ORDER BY x.alg_ruimte_key)
+   LOOP
+      BEGIN
+         UPDATE blcc_alg_freeze
+            SET in_expl_dat = fac.safe_to_date (rec.in_expl_dat, 'dd-mm-yyyy'),
+                uit_expl_dat = fac.safe_to_date (rec.uit_expl_dat, 'dd-mm-yyyy')
+          WHERE TO_CHAR (freeze_datum, 'dd-mm-yyyy') = '01-08-2022'
+                AND alg_ruimte_key = rec.alg_ruimte_key;
+         v_count := v_count + 1;
+      END;
+   END LOOP;
+
+   DBMS_OUTPUT.PUT_LINE (
+      'S: ' || TO_CHAR (v_count) || ' ruimten gecorigeerd');
+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