BRCF#73268 -- Groendus koppeling

svn path=/Customer/trunk/; revision=57391

BRCF/brcf.sql

@@ -298,6 +298,131 @@ END;
 /
 */
 
+-- T.b.v. de koppeling met Groendus.
+CREATE OR REPLACE PROCEDURE brcf_groendus_eancodes (
+   p_eancode      IN VARCHAR2,
+   p_addressid    IN VARCHAR2,
+   p_energytype   IN VARCHAR2)
+IS
+
+   CURSOR c1
+   IS
+      SELECT i.ins_deel_key
+        FROM ins_deel i,
+             alg_locatie l,
+             alg_gebouw g,
+             alg_verdieping v,
+             alg_ruimte r
+       WHERE     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 g.alg_locatie_key = l.alg_locatie_key
+             AND l.alg_locatie_externnr = p_addressid
+             AND i.ins_deel_externnr != p_eancode
+             AND UPPER (SUBSTR (ins_deel_omschrijving, 1, 1)) =
+                   UPPER (SUBSTR (p_energytype, 1, 1)); -- W = Water, G= Gas, E= Elektra
+BEGIN
+   FOR rec IN c1
+   LOOP
+      BEGIN
+         UPDATE ins_deel
+            SET ins_deel_externnr = p_eancode
+          WHERE ins_deel_key = rec.ins_deel_key;
+      END;
+   END LOOP;
+END;
+/
+    
+CREATE OR REPLACE VIEW brcf_v_groendus_history
+(
+   deel_key,
+   eancode,
+   datumvan,
+   datumtot
+)
+AS
+   SELECT ins_deel_key,
+          ins_deel_externnr,
+          '2022-01-01',
+          TO_CHAR (SYSDATE, 'YYYY-MM-DD')
+     FROM ins_deel
+    WHERE ins_srtdeel_key IN (61, 62, 63) AND ins_deel_externnr IS NOT NULL;
+    
+CREATE OR REPLACE VIEW brcf_v_groendus_history_old
+(
+   deel_key,
+   eancode,
+   datumvan,
+   datumtot
+)
+AS
+   SELECT ins_deel_key,
+          ins_deel_externnr,
+          '2021-01-01',
+          '2021-12-31'
+     FROM ins_deel
+    WHERE ins_srtdeel_key IN (61, 62, 63) AND ins_deel_externnr IS NOT NULL;
+    
+CREATE OR REPLACE VIEW brcf_v_groendus_latest
+(
+   deel_key,
+   eancode,
+   datumvan,
+   datumtot
+)
+AS
+     SELECT i.ins_deel_key,
+            i.ins_deel_externnr,
+            TO_CHAR (MAX (ih.ins_deel_statedate + 1), 'YYYY-MM-DD'),
+            TO_CHAR (SYSDATE, 'YYYY-MM-DD')
+       FROM ins_deel i, ins_deel_state_history ih
+      WHERE     i.ins_srtdeel_key IN (61, 62, 63)
+            AND i.ins_deel_externnr IS NOT NULL
+            AND i.ins_deel_key = ih.ins_deel_key
+   GROUP BY (i.ins_deel_key, i.ins_deel_externnr);
+    
+CREATE OR REPLACE VIEW brcf_v_groendus_meetwaarden
+(
+   deel_key,
+   locatie_omschrjving,
+   TYPE,
+   jaar,
+   jaarmaand,
+   maand,
+   jaarweek,
+   week,
+   dag,
+   meetwaarde
+)
+AS
+  SELECT i.ins_deel_key,
+          l.alg_locatie_omschrijving,
+          DECODE (i.ins_srtdeel_key,
+                  61, 'Elektriciteit',
+                  62, 'Water',
+                  63, 'Gas',
+                  NULL)
+             TYPE,
+          TO_CHAR (ih.ins_deel_statedate, 'YYYY') jaar,
+          TO_CHAR (ih.ins_deel_statedate, 'YYYY-MM') jaarmaand,
+          TO_CHAR (ih.ins_deel_statedate, 'MONTH') maand,
+          TO_CHAR (ih.ins_deel_statedate, 'YYYY-WW') jaarweek,
+          TO_CHAR (ih.ins_deel_statedate, 'WW') week,
+          TO_CHAR (ih.ins_deel_statedate, 'DD-MM-YYYY') dag,
+          fac.safe_to_number(ih.ins_deel_state) waarde
+     FROM ins_deel i,
+          ins_deel_state_history ih,
+          alg_locatie l,
+          alg_gebouw g,
+          alg_verdieping v,
+          alg_ruimte r
+    WHERE     i.ins_srtdeel_key IN (61, 62, 63)
+          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 g.alg_locatie_key = l.alg_locatie_key
+          AND i.ins_deel_key = ih.ins_deel_key;
+
 CREATE OR REPLACE PROCEDURE brcf_processemail
                       (pfrom      IN VARCHAR2,
                        pto        IN VARCHAR2,