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

BLCC#72497 Omhangen gebouwen naar nieuwe clusters=locaties

Browse Source 
svn path=/Customer/; revision=56548
This commit is contained in:
Maarten van der Heide
2022-07-11 16:28:10 +00:00
parent bef5e2905d
commit 7f0236097c
1 changed files with 260 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

260
onces/BLCC/BLCC#72497.sql Normal file
View File

@@ -0,0 +1,260 @@
--
-- $Id$
--
-- Customer specific once-script BLCC#72497.sql.
DEFINE thisfile = 'BLCC#72497.sql'
DEFINE dbuser = '^BLCC'
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#72497: Omhangen gebouwen naar nieuwe clusters=locaties op basis van
-- 'Eigen tabel'-import!
-- *** PRE-CONDITIE ***
-- Alleen inlezen (niet verwerken!) van bestand via 'FIP: Aanmaken/bijwerken
-- eigen tabel'-import!
-- Verwijder FAC_IMPORT-entry voor vandaag/zojuist door _FACILITOR ingelezen
-- bestand (om verwerken te voorkomen).
-- NB. De FAC_IMPORT_USRDATA-tabel blijft gevuld!
DELETE FROM fac_import
WHERE fac_import_app_key = 23 -- FIP: Eigen tabellen
AND TRUNC (fac_import_datum_gelezen) = TRUNC (SYSDATE)
--AND fac_import_filenaam = 'InventarisatieET_ClusterGebouw.csv'
AND prs_perslid_key = 4 -- _FACILITOR
;
COMMIT;
/*
-- Clusters bestaan nog niet?
SELECT DISTINCT fac_usrdata_omschr
FROM fac_imp_usrdata ud
WHERE NOT EXISTS
(SELECT 1
FROM alg_v_aanweziglocatie
WHERE UPPER (alg_locatie_code) = UPPER (ud.fac_usrdata_omschr));
*/
-- Toevoegen clusters.
INSERT INTO alg_locatie (alg_district_key, alg_locatie_code, alg_locatie_omschrijving)
SELECT DISTINCT 1, ud.fac_usrdata_omschr, ud.fac_usrdata_omschr
FROM fac_imp_usrdata ud
ORDER BY 1, 2;
COMMIT;
/*
-- Alle clusters toegevoegd?
SELECT ud.fac_usrdata_omschr gebouwcluster, ud.fac_usrdata_code gebouw
FROM fac_imp_usrdata ud
WHERE EXISTS (SELECT 1
FROM alg_v_aanweziggebouw
WHERE TRIM (alg_gebouw_upper) = UPPER (TRIM (ud.fac_usrdata_code)));
SELECT g.alg_gebouw_code, g.alg_gebouw_naam
FROM alg_v_aanweziggebouw g
WHERE NOT EXISTS
(SELECT 1
FROM fac_imp_usrdata
WHERE UPPER (TRIM (fac_usrdata_code)) = TRIM (g.alg_gebouw_upper));
*/
-- Omhangen gebouwen naar cluster.
/*
SELECT g.alg_locatie_key,
(SELECT l.alg_locatie_key
FROM fac_imp_usrdata ud, alg_v_aanweziglocatie l
WHERE UPPER (TRIM (ud.fac_usrdata_omschr)) = UPPER (TRIM (l.alg_locatie_code))
AND UPPER (TRIM (ud.fac_usrdata_code)) = TRIM (g.alg_gebouw_upper))
FROM alg_gebouw g
WHERE g.alg_gebouw_verwijder IS NULL
AND g.alg_locatie_key = 1
AND EXISTS
(SELECT 1
FROM fac_imp_usrdata ud, alg_v_aanweziglocatie l
WHERE UPPER (TRIM (ud.fac_usrdata_omschr)) = UPPER (TRIM (l.alg_locatie_code))
AND UPPER (TRIM (ud.fac_usrdata_code)) = TRIM (g.alg_gebouw_upper));
*/
UPDATE alg_gebouw g
SET g.alg_locatie_key =
(SELECT l.alg_locatie_key
FROM fac_imp_usrdata ud, alg_v_aanweziglocatie l
WHERE UPPER (TRIM (ud.fac_usrdata_omschr)) = UPPER (TRIM (l.alg_locatie_code))
AND UPPER (TRIM (ud.fac_usrdata_code)) = TRIM (g.alg_gebouw_upper))
WHERE g.alg_gebouw_verwijder IS NULL AND g.alg_locatie_key = 1
AND EXISTS
(SELECT 1
FROM fac_imp_usrdata ud, alg_v_aanweziglocatie l
WHERE UPPER (TRIM (ud.fac_usrdata_omschr)) = UPPER (TRIM (l.alg_locatie_code))
AND UPPER (TRIM (ud.fac_usrdata_code)) = TRIM (g.alg_gebouw_upper));
COMMIT;
-- Bijwerken MLD_ALG_LOCATIE_KEY op MLD_MELDING volgens nieuwe clusters.
/*
SELECT mld_alg_locatie_key,
(SELECT alg_locatie_key
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys)
FROM mld_melding m
WHERE m.mld_alg_onroerendgoed_keys IS NOT NULL
AND EXISTS
(SELECT 1
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys);
*/
UPDATE mld_melding m
SET mld_alg_locatie_key =
(SELECT alg_locatie_key
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys)
WHERE m.mld_alg_onroerendgoed_keys IS NOT NULL
AND EXISTS
(SELECT 1
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys);
COMMIT;
-- Bijwerken INS_ALG_LOCATIE_KEY op INS_DEEL volgens nieuwe clusters.
/*
SELECT ins_alg_locatie_key,
(SELECT alg_locatie_key
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = d.ins_alg_ruimte_key)
FROM ins_deel d
WHERE d.ins_deel_verwijder IS NULL
AND d.ins_alg_ruimte_type = 'R'
--AND d.ins_alg_ruimte_key IS NOT NULL
AND EXISTS (SELECT 1
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = d.ins_alg_ruimte_key);
*/
UPDATE ins_deel d
SET ins_alg_locatie_key =
(SELECT alg_locatie_key
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = d.ins_alg_ruimte_key)
WHERE d.ins_deel_verwijder IS NULL
AND d.ins_alg_ruimte_type = 'R'
--AND d.ins_alg_ruimte_key IS NOT NULL
AND EXISTS (SELECT 1
FROM alg_v_allonroerendgoed
WHERE alg_onroerendgoed_keys = d.ins_alg_ruimte_key);
COMMIT;
/*
-- Bijwerken ALG_LOCATIE_OMSCHRIJVING van locaties.
SELECT l.alg_locatie_omschrijving,
(SELECT MAX (alg_locatie_omschrijving)
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_locatie_code)) = UPPER (TRIM (l.alg_locatie_code)))
FROM alg_locatie l
WHERE l.alg_locatie_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_locatie_code)) = UPPER (TRIM (l.alg_locatie_code)));
UPDATE alg_locatie l
SET l.alg_locatie_omschrijving =
(SELECT MAX (alg_locatie_omschrijving)
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_locatie_code)) = UPPER (TRIM (l.alg_locatie_code)))
WHERE l.alg_locatie_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_locatie_code)) = UPPER (TRIM (l.alg_locatie_code)));
*/
/*
-- Bijwerken ALG_GEBOUW_NAAM van gebouwen.
SELECT g.alg_gebouw_naam,
(SELECT alg_gebouw_naam
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_gebouw_code)) = TRIM (g.alg_gebouw_upper))
FROM alg_gebouw g
WHERE g.alg_gebouw_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_gebouw_code)) = TRIM (g.alg_gebouw_upper));
UPDATE alg_gebouw g
SET g.alg_gebouw_naam =
(SELECT alg_gebouw_naam
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_gebouw_code)) = TRIM (g.alg_gebouw_upper))
WHERE g.alg_gebouw_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM fac_imp_onrgoed1
WHERE UPPER (TRIM (alg_gebouw_code)) = TRIM (g.alg_gebouw_upper));
*/
/*
-- Bijwerken ALG_SRTGEBOUW_KEY van gebouwen.
SELECT g.alg_srtgebouw_key,
(SELECT sg.alg_srtgebouw_key
FROM fac_imp_onrgoed1 x, alg_srtgebouw sg
WHERE UPPER (TRIM (x.alg_srtgebouw_omschrijving)) = TRIM (sg.alg_srtgebouw_upper)
AND sg.alg_srtgebouw_verwijder IS NULL
AND UPPER (TRIM (x.alg_gebouw_code)) = TRIM (g.alg_gebouw_upper))
FROM alg_gebouw g
WHERE g.alg_gebouw_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM fac_imp_onrgoed1 x, alg_srtgebouw sg
WHERE UPPER (TRIM (x.alg_srtgebouw_omschrijving)) = TRIM (sg.alg_srtgebouw_upper)
AND sg.alg_srtgebouw_verwijder IS NULL
AND UPPER (TRIM (x.alg_gebouw_code)) = TRIM (g.alg_gebouw_upper));
UPDATE alg_gebouw g
SET g.alg_srtgebouw_key =
(SELECT sg.alg_srtgebouw_key
FROM fac_imp_onrgoed1 x, alg_srtgebouw sg
WHERE UPPER (TRIM (x.alg_srtgebouw_omschrijving)) = TRIM (sg.alg_srtgebouw_upper)
AND sg.alg_srtgebouw_verwijder IS NULL
AND UPPER (TRIM (x.alg_gebouw_code)) = TRIM (g.alg_gebouw_upper))
WHERE g.alg_gebouw_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM fac_imp_onrgoed1 x, alg_srtgebouw sg
WHERE UPPER (TRIM (x.alg_srtgebouw_omschrijving)) = TRIM (sg.alg_srtgebouw_upper)
AND sg.alg_srtgebouw_verwijder IS NULL
AND UPPER (TRIM (x.alg_gebouw_code)) = TRIM (g.alg_gebouw_upper));
*/
-- Met BLCC#71247_3.sql gereconstrueerde Strategie-veld weer wissen t/m 01-03-2022.
/*
SELECT *
FROM blcc_alg_freeze
WHERE freeze_datum <= TO_DATE ('01-03-2022', 'dd-mm-yyyy')
AND gebouw_strategie IS NOT NULL;
*/
UPDATE blcc_alg_freeze
SET gebouw_strategie = NULL
WHERE freeze_datum <= TO_DATE ('01-03-2022', 'dd-mm-yyyy')
AND gebouw_strategie IS NOT NULL;
COMMIT;
------ 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