From 5bf66395384df83f50cffdf474bbff05a5ff1b6a Mon Sep 17 00:00:00 2001
From: Arthur Egberink <arthur.egberink@aareon.nl>
Date: Mon, 16 Jun 2025 11:20:07 +0000
Subject: [PATCH] BCGV#89432 Historisch overzicht verhuurcontracten op
 ruimteniveau beschikbaar maken

svn path=/Customer/trunk/; revision=69426
---
 BCGV/bcgv.sql | 74 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 74 insertions(+)

diff --git a/BCGV/bcgv.sql b/BCGV/bcgv.sql
index faa13ea24..ee9281755 100644
--- a/BCGV/bcgv.sql
+++ b/BCGV/bcgv.sql
@@ -769,6 +769,52 @@ AS
                            AND cnt_kenmerkcontract_verwijder IS NULL
                            AND cnt_kenmerkcontract_waarde = '1');
 
+-- View om van actuele verhuurcontracten de ruimte te bepalen
+CREATE OR REPLACE VIEW bcgv_v_act_contract_ruimte
+AS
+   SELECT c.cnt_contract_key, cp.cnt_alg_plaats_key alg_ruimte_key, cp.cnt_contract_plaats_gewicht
+     FROM cnt_contract c, cnt_contract_plaats cp
+    WHERE     c.ins_discipline_key = 241                                                              -- verhuurcontract
+          AND c.cnt_contract_key = cp.cnt_contract_key
+          AND cp.cnt_alg_plaats_code = 'R'
+          AND cp.cnt_contract_plaats_verwijder IS NULL
+          AND c.cnt_contract_verwijder IS NULL
+          AND c.cnt_contract_looptijd_tot > ADD_MONTHS (TRUNC (SYSDATE, 'MM'), 1) -- de looptijd valt binnen de volgende maand
+          AND c.cnt_contract_looptijd_van < ADD_MONTHS (TRUNC (SYSDATE, 'MM'), 2)
+          AND c.cnt_contract_key NOT IN
+                 (SELECT cnt_contract_key
+                    FROM cnt_kenmerkcontract kc
+                   WHERE     cnt_kenmerk_key = 37                                                               -- optie
+                         AND cnt_kenmerkcontract_verwijder IS NULL
+                         AND cnt_kenmerkcontract_waarde = '1');
+
+-- Rapportage om de historische data over de ruimtebezetting in Facilitor op te vragen.
+CREATE OR REPLACE VIEW bcgv_rap_hist_contract_ruimte
+AS
+   SELECT h.fin_verkoopfactuur_maand,
+          c.cnt_contract_key,
+          c.cnt_contract_nummer,
+          c.cnt_contract_omschrijving,
+          prs_bedrijf_naam,
+          g.alg_gebouw_code,
+          v.alg_verdieping_code,
+          h.alg_ruimte_nr,
+          h.alg_ruimte_omschrijving,
+          h.alg_srtruimte_omschrijving,
+          h.alg_ruimte_bruto_vloeropp,
+          DECODE (prs_verhuurbaar, 1, 'Ja', 'Nee')          prs_verhuurbaar,
+          DECODE (h.cnt_contract_key, NULL, 'Ja', 'Nee')    leegstand
+     FROM bcgv_hist_ruimte_bezetting  h,
+          cnt_contract                c,
+          alg_ruimte                  r,
+          alg_verdieping              v,
+          alg_gebouw                  g,
+          prs_bedrijf                 b
+    WHERE     h.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 h.cnt_contract_key = c.cnt_contract_key(+)
+          AND c.CNT_PRS_BEDRIJF_KEY = b.prs_bedrijf_key(+);
 
 CREATE OR REPLACE VIEW bcgv_v_export_exact_gv (
    result,
@@ -1051,6 +1097,34 @@ BEGIN
       SET fin_verkoopfactuur_d1 = SYSDATE
     WHERE fin_verkoopfactuur_c4 = 'HuurGreenportVenlo'
       AND fin_verkoopfactuur_d1 IS NULL;
+
+   -- Nu de export verwerkt is gaan we ook de detail ruimteinformatie opslaan zodat er historische gegevens gerapporteerd kunnen worden.
+   INSERT INTO bcgv_hist_ruimte_bezetting
+   (
+   alg_ruimte_key ,
+   alg_ruimte_omschrijving,
+   alg_ruimte_nr ,
+   cnt_contract_key ,
+   fin_verkoopfactuur_maand ,
+   alg_srtruimte_key ,
+   alg_srtruimte_omschrijving ,
+   alg_ruimte_bruto_vloeropp ,
+   cnt_contract_plaats_gewicht,
+   prs_verhuurbaar 
+   )
+   SELECT r.alg_ruimte_key,
+          alg_ruimte_omschrijving,
+          alg_ruimte_nr,
+          c.cnt_contract_key,
+          TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyymm')    fin_verkoopfactuur_maand,
+          sr.alg_srtruimte_key,
+          sr.alg_srtruimte_omschrijving,
+          alg_ruimte_bruto_vloeropp                      alg_ruimte_oppervlakte,
+          c.cnt_contract_plaats_gewicht,
+          sr.prs_verhuurbaar
+     FROM alg_v_ruimte_gegevens r, alg_srtruimte sr, bcgv_v_act_contract_ruimte c
+    WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key AND r.alg_ruimte_key = c.alg_ruimte_key(+);
+
 END;
 /