From 558bb94a540074ba6e1d671b1662c3d5271ee647 Mon Sep 17 00:00:00 2001
From: Arthur Egberink <arthur.egberink@aareon.nl>
Date: Thu, 29 Aug 2024 09:01:18 +0000
Subject: [PATCH] PCHD#85297 -- Verwijderen van vervallen locaties uit
 pchd_v_locatie_gegevens rapportage

svn path=/Customer/trunk/; revision=66066
---
 PCHD/pchd.sql | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/PCHD/pchd.sql b/PCHD/pchd.sql
index 5dc39d619..6a754c7c2 100644
--- a/PCHD/pchd.sql
+++ b/PCHD/pchd.sql
@@ -2425,6 +2425,7 @@ AS
           alg_locatie_omschrijving,
           alg_locatie_code                        hoofd_locatie_code,
           alg_locatie_omschrijving                hoofd_locatie_omschrijving,
+          alg_locatie_vervaldatum,
           alg_locatie_adres,
           alg_locatie_postcode,
           alg_locatie_plaats,
@@ -2450,14 +2451,15 @@ AS
     WHERE alg_locatie_verwijder IS NULL AND COALESCE (alg_locatie_vervaldatum, SYSDATE + 1) > SYSDATE
    UNION ALL
    SELECT 'Projectlocatie',
-          alg_ruimte_nr,
-          alg_ruimte_omschrijving,
-          alg_locatie_code,
-          alg_locatie_omschrijving,
+          rg.alg_ruimte_nr,
+          rg.alg_ruimte_omschrijving,
+          l.alg_locatie_code,
+          l.alg_locatie_omschrijving,
+          l.alg_locatie_vervaldatum,
           flx.getflex ('ALG', 2101, alg_ruimte_key, 'R')                       adres,
           flx.getflex ('ALG', 2102, alg_ruimte_key, 'R')                       postcode,
           flx.getflex ('ALG', 2103, alg_ruimte_key, 'R')                       plaats,
-          alg_locatie_key,
+          l.alg_locatie_key,
           alg_ruimte_key,
           (SELECT LISTAGG (DISTINCT prs_kostenplaats_nr, ',') WITHIN GROUP (ORDER BY prs_kostenplaats_nr ASC)   AS wmen
              FROM alg_kenmerk         k,
@@ -2475,8 +2477,10 @@ AS
                   AND alg_onrgoed_key = rg.alg_locatie_key
                   AND b.prs_bedrijf_key = wm.prs_link_key(+)
                   AND b.prs_bedrijf_intern = 1)   wmen
-     FROM alg_v_ruimte_gegevens rg
-    WHERE alg_srtruimte_key = 241;
+     FROM alg_v_ruimte_gegevens rg,
+          alg_locatie l
+    WHERE rg.alg_locatie_key = l.alg_locatie_key
+      AND alg_srtruimte_key = 241;
 
 
 -- detailrapportage als je klikt op een regel in bovenstaande rapport.