From 7571a8e6dec6d9ab0ab4437c15604c13b09ca796 Mon Sep 17 00:00:00 2001
From: Arthur Egberink <arthur.egberink@aareon.nl>
Date: Thu, 23 Jan 2025 12:38:39 +0000
Subject: [PATCH] YASK#86752 View vbxx_v_rap_bedrijf_gegevens tbv rapportage is
 aangemaakt.

svn path=/Customer/trunk/; revision=67705
---
 VBXX/vbxx.sql | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/VBXX/vbxx.sql b/VBXX/vbxx.sql
index 74ee033a7..2044190d8 100644
--- a/VBXX/vbxx.sql
+++ b/VBXX/vbxx.sql
@@ -1245,6 +1245,62 @@ AS
                AND b.prs_bedrijf_key = p.prs_bedrijf_key
                AND b.prs_bedrijf_verwijder IS NULL;
 
+-- 
+-- View om bedrijven op te schonen. Het rapport geeft in één oogopslag inzicht in de recente activiteiten van het bedrijf
+--
+CREATE OR REPLACE VIEW vbxx_v_rap_bedrijf_gegevens
+AS
+   SELECT prs_bedrijf_naam,
+          prs_bedrijf_key,
+          prs_bedrijf_aanmaak
+             aanmaak,
+          prs_bedrijf_leverancier
+             l,
+          prs_bedrijf_uitvoerende
+             u,
+          prs_bedrijf_contract
+             c,
+          (SELECT COUNT (DISTINCT prs_dienst_key)
+             FROM prs_bedrijfdienstlocatie bdl
+            WHERE bdl.prs_bedrijf_key = b.prs_bedrijf_key)
+             n_diensten,
+          (SELECT COUNT (*)
+             FROM prs_bedrijfadres ba
+            WHERE ba.prs_bedrijf_key = b.prs_bedrijf_key)
+             n_tech_adres,
+          (SELECT COUNT (*)
+             FROM mld_opdr o
+            WHERE o.mld_uitvoerende_keys = b.prs_bedrijf_key)
+             n_opdr,
+          (SELECT COUNT (*)
+             FROM mld_opdr o
+            WHERE o.mld_uitvoerende_keys = b.prs_bedrijf_key AND o.mld_opdr_datumbegin > SYSDATE - (2 * 365))
+             n_opdr_2jr,
+          (SELECT MAX (mld_opdr_datumbegin)
+             FROM mld_opdr o
+            WHERE o.mld_uitvoerende_keys = b.prs_bedrijf_key AND o.mld_opdr_datumbegin > SYSDATE - (2 * 365))
+             opdr_datum_max,
+          (SELECT COUNT (*)
+             FROM cnt_contract c
+            WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key)
+             n_contract,
+          (SELECT COUNT (*)
+             FROM cnt_contract c
+            WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+                  AND cnt_contract_looptijd_tot > SYSDATE
+                  AND cnt_contract_status <> 1)
+             n_contract_nu,
+          (SELECT COUNT (*)
+             FROM bes_bestelopdr bo
+            WHERE bo.prs_bedrijf_key = b.prs_bedrijf_key)
+             n_bestellingen,
+          (SELECT COUNT (*)
+             FROM bes_bestelopdr bo
+            WHERE bo.prs_bedrijf_key = b.prs_bedrijf_key AND bes_bestelopdr_datum > SYSDATE - (2 * 365))
+             n_bestellingen_2jr
+     FROM prs_bedrijf b
+    WHERE prs_bedrijf_verwijder IS NULL AND (prs_bedrijf_intern <> 1 OR prs_bedrijf_intern IS NULL);
+
 -- View om notificaties naar bedrijven te sturen die opdrachten hebben die al 5 dagen geleden afgemeld hadden moeten zijn.
 -- Ze krijgen dan een mail met een link naar het knoppenscherm. CUST04 wordt hier nu gebruikt voor KFHT. Als het bij een andere
 -- omgeving aangepast moet worden zal er een DECODE op de user gedaan moeten worden.