From 01c07a68515a7b701c0ed5e56a21f09b6201d7e5 Mon Sep 17 00:00:00 2001
From: Maarten van der Heide <maarten.vanderheide@aareon.nl>
Date: Fri, 19 Sep 2025 10:02:20 +0000
Subject: [PATCH] BLCC#90731 VVO-shuffle/wijzigen kenmerken en rapportages

svn path=/Customer/; revision=70368
---
 onces/BLCC/BLCC#90731.sql | 94 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 94 insertions(+)
 create mode 100644 onces/BLCC/BLCC#90731.sql

diff --git a/onces/BLCC/BLCC#90731.sql b/onces/BLCC/BLCC#90731.sql
new file mode 100644
index 000000000..6b014ded3
--- /dev/null
+++ b/onces/BLCC/BLCC#90731.sql
@@ -0,0 +1,94 @@
+--
+-- $Id$
+--
+-- Customer specific once-script BLCC#90731.SQL.
+DEFINE thisfile = 'BLCC#90731.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 ------
+
+/* Stap 1+2 volgens onderstaand voorstel van Roger Quaedvlieg:
+1. Inhoud VVO naar nieuw aangemaakt veld VVO NEN2580 Oud (bestaat op acceptatie al met kenmerk Id 2660)
+2. Inhoud van VVO NEN2580 Brink naar VVO
+3. Veld VVO NEN2580 Brink readonly en onzichtbaar maken
+4. Veld "Verhuur classificatie" hernoemen naar "Verhuur classificatie actieve huurcontract"
+5. Veld "Verhuur classificatie NEN2580 Brink" hernoemen naar "Verhuur classificatie bij leegstand"
+*/
+SET SERVEROUTPUT ON size 1000000;
+
+DECLARE
+    c_vvo_oud_kkey   NUMBER := 2580; --2660;                        -- VVO NEN2580 Oud
+    CURSOR c IS
+          SELECT alg_ruimte_key,
+                 alg_ruimte_opp_alt1
+            FROM alg_v_aanwezigruimte
+           WHERE alg_ruimte_opp_alt1 IS NOT NULL
+        ORDER BY 1;
+
+    v_count   NUMBER := 0;
+BEGIN
+    FOR rec IN c
+    LOOP
+        BEGIN
+            INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key, alg_onrgoed_niveau, alg_kenmerk_key, alg_onrgoedkenmerk_waarde)
+                  VALUES (rec.alg_ruimte_key, 'R', c_vvo_oud_kkey, TO_CHAR (rec.alg_ruimte_opp_alt1));
+            fac.trackaction ('ALGRUP', rec.alg_ruimte_key, NULL, NULL, 'VVO NEN2580 Oud: (leeg) --> ' || TO_CHAR (rec.alg_ruimte_opp_alt1));
+            v_count := v_count + 1;
+        END;
+    END LOOP;
+
+    DBMS_OUTPUT.PUT_LINE ('S: ' || TO_CHAR (v_count) || ' ruimten bijgewerkt#1');
+END;
+/
+
+DECLARE
+    c_vvo_brink_kkey   NUMBER := 2521;                    -- VVO NEN2580 Brink
+    CURSOR c IS
+          SELECT r.alg_ruimte_key, alg_ruimte_opp_alt1,  fac.safe_to_number (alg_onrgoedkenmerk_waarde) vvo_brink
+            FROM alg_ruimte r, alg_v_aanwezigonrgoedkenmerk ok 
+           WHERE r.alg_ruimte_key = ok.alg_onrgoed_key
+                 AND ok.alg_onrgoed_niveau = 'R'
+                 AND ok.alg_kenmerk_key = c_vvo_brink_kkey
+        ORDER BY 1;
+
+    v_count   NUMBER := 0;
+BEGIN
+    FOR rec IN c
+    LOOP
+        BEGIN
+            UPDATE alg_ruimte
+               SET alg_ruimte_opp_alt1 = rec.vvo_brink
+             WHERE alg_ruimte_key = rec.alg_ruimte_key;
+            fac.trackaction ('ALGRUP', rec.alg_ruimte_key, NULL, NULL, 'VVO (m2): ' || TO_CHAR (rec.alg_ruimte_opp_alt1) || ' --> ' || TO_CHAR (rec.vvo_brink));
+            v_count := v_count + 1;
+        END;
+    END LOOP;
+
+    DBMS_OUTPUT.PUT_LINE ('S: ' || TO_CHAR (v_count) || ' ruimten bijgewerkt#2');
+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