Customer/onces/BLCC/BLCC#72497_2.sql

--
-- $Id$
--
-- Customer specific once-script BLCC#72497_2.sql.
DEFINE thisfile = 'BLCC#72497_2.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 ------

-- BLCC#72497: Reconstrueren gebouwclustercode/naam met terugwerkende kracht
--             vanaf (huur)maand 2021-01 op basis van actuele cluster.
/*
SELECT x.gebouwclustercode,
       (SELECT ud.fac_usrdata_code
          FROM alg_v_aanwezigonrgoedkenmerk ok,
               fac_v_aanwezigusrdata ud,
               alg_verdieping v,
               alg_ruimte r
         WHERE ok.alg_onrgoed_niveau = 'G'
               AND ok.alg_kenmerk_key = 1940                  -- Gebouwcluster
               AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
               AND ud.fac_usrtab_key = 1061                  -- Gebouwclusters
               AND ok.alg_onrgoed_key = v.alg_gebouw_key
               AND v.alg_verdieping_key = r.alg_verdieping_key
               AND r.alg_ruimte_key = x.alg_ruimte_key)
  FROM blcc_alg_freeze x
 WHERE x.gebouwclustercode IS NULL
       AND EXISTS
             (SELECT 1
                FROM alg_v_aanwezigonrgoedkenmerk ok,
                     fac_v_aanwezigusrdata ud,
                     alg_verdieping v,
                     alg_ruimte r
               WHERE ok.alg_onrgoed_niveau = 'G'
                     AND ok.alg_kenmerk_key = 1940            -- Gebouwcluster
                     AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = 1061            -- Gebouwclusters
                     AND ok.alg_onrgoed_key = v.alg_gebouw_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND r.alg_ruimte_key = x.alg_ruimte_key);
*/
UPDATE blcc_alg_freeze x
   SET x.gebouwclustercode =
          (SELECT ud.fac_usrdata_code
             FROM alg_v_aanwezigonrgoedkenmerk ok,
                  fac_v_aanwezigusrdata ud,
                  alg_verdieping v,
                  alg_ruimte r
            WHERE ok.alg_onrgoed_niveau = 'G'
                  AND ok.alg_kenmerk_key = 1940               -- Gebouwcluster
                  AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                  AND ud.fac_usrtab_key = 1061               -- Gebouwclusters
                  AND ok.alg_onrgoed_key = v.alg_gebouw_key
                  AND v.alg_verdieping_key = r.alg_verdieping_key
                  AND r.alg_ruimte_key = x.alg_ruimte_key)
 WHERE x.gebouwclustercode IS NULL
       AND EXISTS
             (SELECT 1
                FROM alg_v_aanwezigonrgoedkenmerk ok,
                     fac_v_aanwezigusrdata ud,
                     alg_verdieping v,
                     alg_ruimte r
               WHERE ok.alg_onrgoed_niveau = 'G'
                     AND ok.alg_kenmerk_key = 1940            -- Gebouwcluster
                     AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = 1061            -- Gebouwclusters
                     AND ok.alg_onrgoed_key = v.alg_gebouw_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND r.alg_ruimte_key = x.alg_ruimte_key);
COMMIT;
/*
SELECT x.gebouwclusternaam,
       (SELECT ud.fac_usrdata_omschr
          FROM alg_v_aanwezigonrgoedkenmerk ok,
               fac_v_aanwezigusrdata ud,
               alg_verdieping v,
               alg_ruimte r
         WHERE ok.alg_onrgoed_niveau = 'G'
               AND ok.alg_kenmerk_key = 1940                  -- Gebouwcluster
               AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
               AND ud.fac_usrtab_key = 1061                  -- Gebouwclusters
               AND ok.alg_onrgoed_key = v.alg_gebouw_key
               AND v.alg_verdieping_key = r.alg_verdieping_key
               AND r.alg_ruimte_key = x.alg_ruimte_key)
  FROM blcc_alg_freeze x
 WHERE x.gebouwclusternaam IS NULL
       AND EXISTS
             (SELECT 1
                FROM alg_v_aanwezigonrgoedkenmerk ok,
                     fac_v_aanwezigusrdata ud,
                     alg_verdieping v,
                     alg_ruimte r
               WHERE ok.alg_onrgoed_niveau = 'G'
                     AND ok.alg_kenmerk_key = 1940            -- Gebouwcluster
                     AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = 1061            -- Gebouwclusters
                     AND ok.alg_onrgoed_key = v.alg_gebouw_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND r.alg_ruimte_key = x.alg_ruimte_key);
*/
UPDATE blcc_alg_freeze x
   SET x.gebouwclusternaam =
          (SELECT ud.fac_usrdata_omschr
             FROM alg_v_aanwezigonrgoedkenmerk ok,
                  fac_v_aanwezigusrdata ud,
                  alg_verdieping v,
                  alg_ruimte r
            WHERE ok.alg_onrgoed_niveau = 'G'
                  AND ok.alg_kenmerk_key = 1940               -- Gebouwcluster
                  AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                  AND ud.fac_usrtab_key = 1061               -- Gebouwclusters
                  AND ok.alg_onrgoed_key = v.alg_gebouw_key
                  AND v.alg_verdieping_key = r.alg_verdieping_key
                  AND r.alg_ruimte_key = x.alg_ruimte_key)
 WHERE x.gebouwclusternaam IS NULL
       AND EXISTS
             (SELECT 1
                FROM alg_v_aanwezigonrgoedkenmerk ok,
                     fac_v_aanwezigusrdata ud,
                     alg_verdieping v,
                     alg_ruimte r
               WHERE ok.alg_onrgoed_niveau = 'G'
                     AND ok.alg_kenmerk_key = 1940            -- Gebouwcluster
                     AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = 1061            -- Gebouwclusters
                     AND ok.alg_onrgoed_key = v.alg_gebouw_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND r.alg_ruimte_key = x.alg_ruimte_key);
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