AAGN#66410 -- Gebouwwijziging via script - tbv object-locatie-koppeling

svn path=/Customer/; revision=51021
This commit is contained in:
Jos Migo
2021-04-22 12:43:06 +00:00
parent 7cc2f914db
commit ccfd4511d6

View File

@@ -0,0 +1,61 @@
--
-- $Id$
--
-- Aanvulling op op scripts om gebouwen om te zetten (AAGN#64307 en AAGN#65828 en deze AAGN#66410)
-- Daarin is niet meegenomen om de gekoppeld objecten de nieuwe locatie_key mee te geven, waardoor zoeken in objectbeheer niet lekker werkt.
DEFINE thisfile = 'AAGN#66410_2.SQL'
DEFINE dbuser = 'AAGN'
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 ------
UPDATE ins_deel d
SET ins_alg_locatie_key = (SELECT g.alg_locatie_key
FROM ins_deel i,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g
WHERE i.ins_alg_ruimte_type = 'R'
AND i.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND i.ins_alg_locatie_key <> g.alg_locatie_key
AND i.ins_deel_key = d.ins_deel_key)
WHERE d.ins_deel_key IN (SELECT i.ins_deel_key
FROM ins_deel i,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g
WHERE i.ins_alg_ruimte_type = 'R'
AND i.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND i.ins_alg_locatie_key <> g.alg_locatie_key)
;
------ payload end ------
SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 0); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile