101 lines
3.0 KiB
MySQL
101 lines
3.0 KiB
MySQL
CREATE OR REPLACE VIEW tmp_v_terrein_key_move
|
|
AS
|
|
SELECT alg_onroerendgoed_keys alg_terreinsector_key,
|
|
MAX (alg_type) max_type, MIN (alg_type) min_type, COUNT(*) aantal,
|
|
alg_onroerendgoed_keys
|
|
FROM alg_v_allonrgoed_gegevens
|
|
GROUP BY alg_onroerendgoed_keys
|
|
HAVING COUNT (*) > 1;
|
|
|
|
|
|
|
|
DECLARE
|
|
|
|
CURSOR c_cursor
|
|
IS
|
|
SELECT *
|
|
FROM tmp_v_terrein_key_move
|
|
WHERE 1=1
|
|
AND (max_type = 'T' or min_type = 'T');
|
|
|
|
rec c_cursor%ROWTYPE;
|
|
new_key number(10);
|
|
|
|
BEGIN
|
|
|
|
new_key := -1;
|
|
|
|
FOR rec IN c_cursor
|
|
LOOP
|
|
BEGIN
|
|
|
|
commit; -- Opslaan logging exception
|
|
|
|
new_key := -1;
|
|
|
|
SELECT alg_s_alg_onroerendgoed_keys.nextval
|
|
INTO new_key
|
|
FROM DUAL;
|
|
|
|
update alg_terreinsector
|
|
set alg_terreinsector_key = new_key
|
|
where alg_terreinsector_key = rec.alg_terreinsector_key;
|
|
|
|
commit;
|
|
|
|
update alg_onrgoedkenmerk
|
|
set alg_onrgoed_key = new_key
|
|
where alg_onrgoed_niveau = 'T'
|
|
and alg_onrgoed_key = rec.alg_terreinsector_key;
|
|
|
|
update ins_deel
|
|
set ins_alg_ruimte_key = new_key
|
|
where ins_alg_ruimte_type = 'T'
|
|
and ins_alg_ruimte_key = rec.alg_terreinsector_key
|
|
and ins_deel_verwijder is null;
|
|
|
|
-- MLD_MELDING (MLD_ALG_ONROERENDGOED_KEYS) laten voor wat het is.
|
|
-- Uitgangspunt: geen meldingen mbt terreinen.
|
|
/*
|
|
3995;Het komt regelmatig voor dat de beveiligingsapparatuur die d;2004-11-08 16:13:48
|
|
4029;Graag vervangen van twee gasbranders a € 182,50 excl. BTW, e;2004-11-09 15:40:49
|
|
4089;De vlotter in het toilet dient vervangen te worden. Deze bl;2004-11-11 11:25:36
|
|
4501;Graag uitvoeren van de werkzaamheden conform uw offerte nr. ;2004-11-25 16:13:05
|
|
4598;Het hek buiten van de parkeerplaats kan niet afgesloten word;2004-11-30 14:26:43
|
|
4836;Graag leveren van 1 Torkrol per week.;2004-12-13 9:12:10
|
|
4855;Graag met spoed de inspectie uitvoeren conform het contract ;2004-12-13 13:04:55
|
|
4887;Graag de ledigingsfrequentie verhogen van 1x per jaar naar 1;2004-12-14 13:48:03
|
|
5200;De verwarming in de kantoren is defect. Graag z.s.m. repare;2004-12-29 14:33:10
|
|
5353;Graag uitvoeren werkzaamheden conform de adviezen in uw rapp;2005-01-07 14:57:46
|
|
5498;Graag nazien van de buitenverlichting.;2005-01-14 14:20:32
|
|
5805;Offerte aanvraag: Het is 30 graden in het kantoor en er is ;2005-01-28 12:53:45
|
|
5846;In de gehuurde portocabin van uw firma op de carpoolplaats i;2005-02-01 9:49:26
|
|
5881;Het vervangen van de bestaande electrische radiator. Prijs:;2005-02-02 12:14:08
|
|
*/
|
|
|
|
-- BEZ_AFSRAAK hoeft niet bij CONN.
|
|
|
|
commit;
|
|
|
|
-- EXCEPTION
|
|
-- WHEN OTHERS
|
|
-- THEN
|
|
|
|
-- insert into rd_log
|
|
-- (log_key2,log_mes)
|
|
-- values
|
|
-- (new_key,to_char(rec.alg_terreinsector_key));
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
commit;
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
drop view tmp_v_terrein_key_move;
|
|
|
|
commit;
|