BLCC#90731 VVO-shuffle/wijzigen kenmerken en rapportages

svn path=/Customer/; revision=70371
This commit is contained in:
Maarten van der Heide
2025-09-19 12:02:30 +00:00
parent 599ec43887
commit 28303f72eb

View File

@@ -32,8 +32,8 @@ SET SERVEROUTPUT ON size 1000000;
DECLARE DECLARE
c_vvo_oud_kkey NUMBER := 2660; -- VVO NEN2580 Oud c_vvo_oud_kkey NUMBER := 2660; -- VVO NEN2580 Oud
CURSOR c IS CURSOR c IS
SELECT alg_ruimte_key, SELECT alg_ruimte_key, alg_ruimte_opp_alt1,
alg_ruimte_opp_alt1 'VVO NEN2580 Oud: (leeg) --> ' || TO_CHAR (alg_ruimte_opp_alt1, 'fm9999990.00') oms
FROM alg_v_aanwezigruimte FROM alg_v_aanwezigruimte
WHERE alg_ruimte_opp_alt1 IS NOT NULL WHERE alg_ruimte_opp_alt1 IS NOT NULL
ORDER BY 1; ORDER BY 1;
@@ -45,7 +45,7 @@ BEGIN
BEGIN BEGIN
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key, alg_onrgoed_niveau, alg_kenmerk_key, alg_onrgoedkenmerk_waarde) 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)); 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)); fac.trackaction ('ALGRUP', rec.alg_ruimte_key, NULL, NULL, rec.oms);
v_count := v_count + 1; v_count := v_count + 1;
END; END;
END LOOP; END LOOP;
@@ -57,11 +57,13 @@ END;
DECLARE DECLARE
c_vvo_brink_kkey NUMBER := 2521; -- VVO NEN2580 Brink c_vvo_brink_kkey NUMBER := 2521; -- VVO NEN2580 Brink
CURSOR c IS CURSOR c IS
SELECT r.alg_ruimte_key, alg_ruimte_opp_alt1, fac.safe_to_number (alg_onrgoedkenmerk_waarde) vvo_brink SELECT r.alg_ruimte_key, alg_ruimte_opp_alt1, fac.safe_to_number (alg_onrgoedkenmerk_waarde) vvo_brink,
'VVO (m2): ' || DECODE (alg_ruimte_opp_alt1, NULL, '(leeg)', TO_CHAR (alg_ruimte_opp_alt1, 'fm9999990.00')) || ' --> ' || TO_CHAR (fac.safe_to_number (alg_onrgoedkenmerk_waarde), 'fm9999990.00') oms
FROM alg_ruimte r, alg_v_aanwezigonrgoedkenmerk ok FROM alg_ruimte r, alg_v_aanwezigonrgoedkenmerk ok
WHERE r.alg_ruimte_key = ok.alg_onrgoed_key WHERE r.alg_ruimte_key = ok.alg_onrgoed_key
AND ok.alg_onrgoed_niveau = 'R' AND ok.alg_onrgoed_niveau = 'R'
AND ok.alg_kenmerk_key = c_vvo_brink_kkey AND ok.alg_kenmerk_key = c_vvo_brink_kkey
AND ok.alg_onrgoedkenmerk_waarde IS NOT NULL
ORDER BY 1; ORDER BY 1;
v_count NUMBER := 0; v_count NUMBER := 0;
@@ -72,7 +74,7 @@ BEGIN
UPDATE alg_ruimte UPDATE alg_ruimte
SET alg_ruimte_opp_alt1 = rec.vvo_brink SET alg_ruimte_opp_alt1 = rec.vvo_brink
WHERE alg_ruimte_key = rec.alg_ruimte_key; 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)); fac.trackaction ('ALGRUP', rec.alg_ruimte_key, NULL, NULL, rec.oms);
v_count := v_count + 1; v_count := v_count + 1;
END; END;
END LOOP; END LOOP;