From 381f9b843b934cbf3d188503623d784f3caa6b1c Mon Sep 17 00:00:00 2001
From: Arthur Egberink <arthur.egberink@aareon.nl>
Date: Tue, 6 Aug 2024 10:19:49 +0000
Subject: [PATCH] VBGO#83925 -- Implementatie SCIM koppeling voor VBGO

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

diff --git a/BCGV/bcgv.sql b/BCGV/bcgv.sql
index e1e8dea5c..997ad32a2 100644
--- a/BCGV/bcgv.sql
+++ b/BCGV/bcgv.sql
@@ -100,6 +100,91 @@ AS
     WHERE alg_gebouw_upper <> 'GV-RVA';
 
 
+-- view om offertestatus in dashbord te tonen
+-- functionaliteit overgenomen uit mld.inc
+CREATE OR REPLACE VIEW bcgv_v_rap_offerte_status
+AS
+   SELECT m.melder_key,
+          m.melder,
+          u.*,
+          g.prs_perslid_key_verantw opdracht_gebouw_verantw_key,
+          m.kostensoort kostensoort,
+          subproductgroepgroep,
+          DECODE (
+             COALESCE (na.aantal, 0),
+             1,
+             'Offerte geaccepteerd',
+             DECODE (COALESCE (nta.aantal, 0),
+                     0, 'Niet opgelost',
+                     'Offerte acceptatie'))
+          offerte_status,
+         (CASE
+                WHEN mo.mld_opdr_flag>0 THEN Lcl.L('lcl_opdr_flag' || mo.mld_opdr_flag)
+                ELSE ''
+                END) vlag,
+         (SELECT ok.waarde_n
+                FROM mld_v_udr_opdrachtkenmerk_cnd ok
+                WHERE ok.opdracht_key = u.opdracht_key AND ok.kenmerk = 'Offerte bedrag'
+                ) Offertebedrag,-- Op naam 'Offerte bedrag' ipv Key ivm gebruik afwijkende keys in de diverse HeyDayomgevingen
+          (SELECT fac.safe_to_number(kw.mld_kenmerkmelding_waarde)
+            FROM mld_kenmerkmelding  kw, mld_kenmerk km, mld_srtkenmerk sk
+            WHERE  kw.mld_melding_key = m.melding_key AND kw.mld_kenmerk_key = km.mld_kenmerk_key
+            AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+            AND sk.mld_srtkenmerk_upper = 'PROJECT LEIDER'
+            AND sk.mld_srtkenmerk_kenmerktype = 'S') projectleider_key,
+          (SELECT p.prs_perslid_naam
+            FROM mld_kenmerkmelding  kw, mld_kenmerk km, mld_srtkenmerk sk, prs_perslid p
+            WHERE  kw.mld_melding_key = m.melding_key AND kw.mld_kenmerk_key = km.mld_kenmerk_key
+            AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+            AND sk.mld_srtkenmerk_upper = 'PROJECT LEIDER'
+            AND sk.mld_srtkenmerk_kenmerktype = 'S'
+            AND fac.safe_to_number (kw.mld_kenmerkmelding_waarde) = p.prs_perslid_key) projectleider
+      FROM mld_v_udr_opdracht  u,
+           mld_opdr            mo,
+           alg_gebouw          g,
+           mld_v_udr_melding   m,
+           ins_tab_discipline  d,
+           (  SELECT o.mld_melding_key, COUNT (o.mld_statusopdr_key) aantal
+                FROM mld_opdr o
+               WHERE     o.mld_statusopdr_key = 6
+                     AND o.mld_opdr_key >
+                         COALESCE (
+                             (SELECT MAX (o1.mld_opdr_key)
+                                FROM mld_opdr o1, mld_typeopdr mo1
+                               WHERE     o1.mld_typeopdr_key =
+                                         mo1.mld_typeopdr_key
+                                     AND mo1.mld_typeopdr_isofferte = 0
+                                     AND o1.mld_melding_key = o.mld_melding_key),
+                             0)
+            GROUP BY o.mld_melding_key) nta,
+           (  SELECT o.mld_melding_key, COUNT (o.mld_statusopdr_key) aantal
+                FROM mld_opdr o
+               WHERE     o.mld_statusopdr_key = 9
+                     AND o.mld_opdr_key >
+                         COALESCE (
+                             (SELECT MAX (o1.mld_opdr_key)
+                                FROM mld_opdr o1, mld_typeopdr mo1
+                               WHERE     o1.mld_typeopdr_key =
+                                         mo1.mld_typeopdr_key
+                                     AND mo1.mld_typeopdr_isofferte = 0
+                                     AND o1.mld_melding_key = o.mld_melding_key),
+                             0)
+            GROUP BY o.mld_melding_key) na
+     WHERE     u.opdracht_gebouwcode = g.alg_gebouw_code
+           AND u.melding_key = m.melding_key
+           AND u.opdracht_key = mo.mld_opdr_key
+           AND m.fclt_3d_discipline_key = d.ins_discipline_key
+           AND d.ins_discipline_verwijder IS NULL
+           AND u.melding_key = na.mld_melding_key(+)
+           AND u.melding_key = nta.mld_melding_key(+)
+           AND (u.opdracht_type = 'RFQ' OR u.opdracht_type = 'Project RFQ') ;
+
+
+---------------------------------------------------------------------------------
+--
+-- Huuradministratie
+--
+---------------------------------------------------------------------------------
 CREATE OR REPLACE VIEW bcgv_v_huurruimte_geg_bron
 AS
 SELECT alg_ruimte_bruto_vloeropp,
@@ -185,6 +270,21 @@ SELECT b.cnt_contract_key,
    AND rg.alg_locatie_key = 1  -- Venlo
    AND rg.alg_verdieping_volgnr < 20;
 
+-- rapportage voor het contracten tabblad in Graphics
+CREATE OR REPLACE VIEW bcgv_v_rap_cnt_graphics
+AS
+   SELECT b.alg_ruimte_nr,
+          vvo_m2,
+          cnt_contract_key,
+          h.prs_bedrijf_naam      huurder,
+          cnt_contract_looptijd_van,
+          cnt_contract_looptijd_tot,
+          b.alg_ruimte_key        highlight,
+          b.alg_verdieping_key    vkey
+     FROM bcgv_v_huurruimte_geg_bron b, prs_bedrijf h
+    WHERE     h.prs_bedrijf_key = b.cnt_prs_bedrijf_key
+          AND SYSDATE BETWEEN cnt_contract_looptijd_van AND cnt_contract_looptijd_tot;
+
 CREATE OR REPLACE VIEW bcgv_v_cad_thema_leegstand
 (
     alg_ruimte_key,
@@ -938,6 +1038,9 @@ BEGIN
       AND fin_verkoopfactuur_d1 IS NULL;
 END;
 /
+
+
+
 ------ payload end   ------
 
 SET DEFINE OFF