admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BLCC#90731 VVO-shuffle/wijzigen kenmerken en rapportages

Browse Source 
svn path=/Customer/; revision=70368
This commit is contained in:
Maarten van der Heide
2025-09-19 10:02:20 +00:00
parent 8c3b15b341
commit 01c07a6851
1 changed files with 94 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
onces/BLCC/BLCC#90731.sql Normal file
View File

@@ -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