From 616277e7a2e732444d9b977d8b7eb86a37be3f0e Mon Sep 17 00:00:00 2001
From: Jos Migo <jos.migo@aareon.nl>
Date: Wed, 22 Feb 2023 12:49:49 +0000
Subject: [PATCH] HMOD#75472 -- Gebouwbeheer en meldingen en opdrachten -
 Herziening werkwijze - aanvulling rapportages

svn path=/Customer/trunk/; revision=59266
---
 HMOD/hmod.sql | 102 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)

diff --git a/HMOD/hmod.sql b/HMOD/hmod.sql
index f03bae4db..42eaae233 100644
--- a/HMOD/hmod.sql
+++ b/HMOD/hmod.sql
@@ -2447,6 +2447,108 @@ SELECT
        AND v.formatieplaats = k.code (+)
 ;
 
+-- Opdrachten en Gebouwbeheer
+CREATE OR REPLACE VIEW HMOD_V_RAP_OPDRACHTEN_INTERN
+(
+    TYPE,
+    MLD_OPDR_KEY,
+    MLD_UITVOERENDE_KEY,
+    OPDRACHTNR,
+    OPDRACHT_DATUM,
+    STATUS,
+    MELDING,
+    BEHANDELAAR,
+    LOCATIE_PLAATS,
+    LOCATIE_OMSCHRIJVING,
+    GEPLANDE_AANVANG,
+    OMSCHRIJVING,
+    PRS_PERSLID_KEY,
+    NAAM_UITVOERDER,
+    TYPE_LOCATIE,
+    AFMELD_DATUM,
+    OPDRACHT_TYPE,
+    TD_NAAM
+)
+AS
+    SELECT CASE
+               WHEN mu.TYPE = 'B' THEN 'Poule-opdracht'
+               WHEN mu.TYPE = 'P' THEN 'Klus-opdracht'
+               ELSE '<?>'
+           END
+               TYPE,
+           o.mld_opdr_key,
+           CASE
+               WHEN mu.TYPE = 'B' THEN o.prs_perslid_key
+               WHEN mu.TYPE = 'P' THEN mu.mld_uitvoerende_key
+               ELSE NULL
+           END
+               mld_uitvoerende_key,
+              TO_CHAR (o.mld_melding_key)
+           || '/'
+           || o.mld_opdr_bedrijfopdr_volgnr
+               opdrachtnummer,
+           o.mld_opdr_datumbegin,
+           DECODE (
+               os.mld_statusopdr_key,
+               8, DECODE (o.mld_opdr_halted,
+                          1, 'Onderbroken',
+                          os.mld_statusopdr_omschrijving),
+               os.mld_statusopdr_omschrijving)
+               status,
+           std.mld_stdmelding_omschrijving,
+           COALESCE (p.prs_perslid_naam_full, '<nog geen behandelaar>'), -- BEHANDELAAR
+           l.alg_locatie_plaats,
+           l.alg_locatie_omschrijving,
+           COALESCE (o.mld_opdr_plandatum, o.mld_opdr_einddatum)
+               geplande_aanvang,
+              TRIM (
+                  REGEXP_REPLACE (
+                      REGEXP_SUBSTR (o.mld_opdr_omschrijving,
+                                     '(([^ ]*)( |$)*){10}'),
+                      '[[:space:]]',
+                      ' '))
+           || '...',
+           p.prs_perslid_key,
+           mu.naam,
+           d.alg_district_omschrijving,
+           (SELECT MAX (ft.fac_tracking_datum)
+              FROM fac_tracking ft
+             WHERE     ft.fac_tracking_refkey = o.mld_opdr_key
+                   AND ft.fac_srtnotificatie_key = 74),              -- MLDAFM
+           ot.mld_typeopdr_omschrijving,
+           CASE
+               WHEN mu.TYPE = 'B'
+               THEN
+                   COALESCE (p.prs_perslid_naam_full,
+                             '<nog geen behandelaar>')
+               WHEN mu.TYPE = 'P'
+               THEN
+                   mu.naam
+               ELSE
+                   '<?>'
+           END
+               TD_NAAM
+      FROM mld_opdr                 o,
+           mld_melding              m,
+           mld_typeopdr             ot,
+           prs_v_perslid_fullnames  p,
+           ins_tab_discipline       d,
+           mld_stdmelding           std,
+           alg_locatie              l,
+           alg_district             d,
+           mld_v_uitvoerende        mu,
+           mld_statusopdr           os
+     WHERE     o.mld_melding_key = m.mld_melding_key(+)
+           AND o.prs_perslid_key = p.prs_perslid_key(+)
+           AND o.mld_typeopdr_key = ot.mld_typeopdr_key
+           AND ot.mld_typeopdr_isofferte = 0          -- Alleen werkopdrachten
+           AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)
+           AND std.mld_ins_discipline_key = d.ins_discipline_key(+)
+           AND m.mld_alg_locatie_key = l.alg_locatie_key -- alle std-meldingen hebben verplicht-niveau locatie
+           AND l.alg_district_key = d.alg_district_key
+           AND o.mld_uitvoerende_keys = mu.mld_uitvoerende_key
+           AND os.mld_statusopdr_key = o.mld_statusopdr_key
+           AND mu.intern = 1;
 
 ------ payload end   ------