diff --git a/onces/BRCF/BRCF#73268.sql b/onces/BRCF/BRCF#73268.sql new file mode 100644 index 000000000..5a08b6f9b --- /dev/null +++ b/onces/BRCF/BRCF#73268.sql @@ -0,0 +1,107 @@ +-- +-- $Id$ +-- +-- Eenmalig in bulk aanmaken van Elektra-, Water- en Gasmeter objecten per locatie. + +DEFINE thisfile = 'BRCF#73268.sql' +DEFINE dbuser = 'BRCF' + +SET ECHO ON +SET DEFINE ON +COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT; +COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT; +WHENEVER SQLERROR CONTINUE; +SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL; +SPOOL &fcltlogfile +WHENEVER SQLERROR EXIT; +SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL; +WHENEVER SQLERROR CONTINUE; +--------------------------------------- +PROMPT &fcltcusttxt +--------------------------------------- +SET DEFINE OFF + +------ payload begin ------ + +DECLARE + CURSOR c1 + IS +SELECT g.alg_locatie_key, + r.alg_ruimte_key, + 'W_' || g.alg_gebouw_code water, + 'G_' || g.alg_gebouw_code gas, + 'E_' || g.alg_gebouw_code elektra + FROM alg_gebouw g, alg_verdieping v, alg_ruimte r + WHERE g.alg_gebouw_key = v.alg_gebouw_key + AND r.alg_verdieping_key = v.alg_verdieping_key + AND r.alg_ruimte_upper_nr = '_' + AND g.alg_gebouw_verwijder IS NULL + AND NOT EXISTS + (SELECT i.ins_deel_key + FROM ins_deel i + WHERE i.ins_alg_ruimte_key = r.alg_ruimte_key + AND i.ins_srtdeel_key IN (61, 62, 63)); +BEGIN + FOR rec IN c1 + LOOP + BEGIN + INSERT INTO ins_deel (ins_srtdeel_key, + ins_alg_ruimte_key, + ins_alg_ruimte_type, + ins_deel_aantal, + ins_deel_omschrijving, + ins_alg_locatie_key, + ins_deel_actief) + VALUES (62, + rec.alg_ruimte_key, + 'R', + 1, + rec.water, + rec.alg_locatie_key, + 1); + + INSERT INTO ins_deel (ins_srtdeel_key, + ins_alg_ruimte_key, + ins_alg_ruimte_type, + ins_deel_aantal, + ins_deel_omschrijving, + ins_alg_locatie_key, + ins_deel_actief) + VALUES (61, + rec.alg_ruimte_key, + 'R', + 1, + rec.elektra, + rec.alg_locatie_key, + 1); + + INSERT INTO ins_deel (ins_srtdeel_key, + ins_alg_ruimte_key, + ins_alg_ruimte_type, + ins_deel_aantal, + ins_deel_omschrijving, + ins_alg_locatie_key, + ins_deel_actief) + VALUES (63, + rec.alg_ruimte_key, + 'R', + 1, + rec.gas, + rec.alg_locatie_key, + 1); + END; + END LOOP; +END; +/ + +------ 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 \ No newline at end of file