FMHN#63881 KPI

svn path=/Customer/trunk/; revision=54156

FMHN/fmhn.sql

@@ -4836,6 +4836,32 @@ EXCEPTION
 END;
 /
 
+-- Kopie van ORG- en PRS-import met Charset op Windows-1252!
+CREATE OR REPLACE PROCEDURE fmhn_import_org2 (p_import_key IN NUMBER)
+AS
+BEGIN
+   fmhn_import_org (p_import_key);
+END;
+/
+CREATE OR REPLACE PROCEDURE fmhn_update_org2 (p_import_key IN NUMBER)
+AS
+BEGIN
+   fmhn_update_org (p_import_key);
+END;
+/
+CREATE OR REPLACE PROCEDURE fmhn_import_prs2 (p_import_key IN NUMBER)
+AS
+BEGIN
+   fmhn_import_prs (p_import_key);
+END;
+/
+CREATE OR REPLACE PROCEDURE fmhn_update_prs2 (p_import_key IN NUMBER)
+AS
+BEGIN
+   fmhn_update_prs (p_import_key);
+END;
+/
+
 CREATE OR REPLACE PROCEDURE fmhn_import_rel (p_import_key IN NUMBER)
 AS
    c_delim           VARCHAR2 (1) := ';';                   -- Field seperator
@@ -7311,6 +7337,18 @@ AS
                             (SELECT 1 -- Satellietzetel op afdeling8 van persoon!
                                FROM prs_afdeling
                               WHERE prs_afdeling_key = ab.prs_afdeling_key7
+                                    AND UPPER (prs_afdeling_externid) =
+                                          UPPER (SUBSTR (ud.fac_usrdata_code, 1, INSTR (ud.fac_usrdata_code, '/') - 1)))
+                       OR EXISTS
+                            (SELECT 1 -- Satellietzetel op afdeling9 van persoon!
+                               FROM prs_afdeling
+                              WHERE prs_afdeling_key = ab.prs_afdeling_key8
+                                    AND UPPER (prs_afdeling_externid) =
+                                          UPPER (SUBSTR (ud.fac_usrdata_code, 1, INSTR (ud.fac_usrdata_code, '/') - 1)))
+                       OR EXISTS
+                            (SELECT 1 -- Satellietzetel op afdeling10 van persoon!
+                               FROM prs_afdeling
+                              WHERE prs_afdeling_key = ab.prs_afdeling_key9
                                     AND UPPER (prs_afdeling_externid) =
                                           UPPER (SUBSTR (ud.fac_usrdata_code, 1, INSTR (ud.fac_usrdata_code, '/') - 1))))
                   AND NOT EXISTS (SELECT 1   -- Nog geen WP op satellietzetel!
@@ -9428,6 +9466,7 @@ SELECT m.mld_melding_key,
   FROM mld_melding m, mld_v_udr_melding x
  WHERE m.mld_meldbron_nr IS NOT NULL AND m.mld_melding_key = x.melding_key;
 */
+-- Tbv. de volgende tabs in Excel van P&C: PD doorlooptijd DV, PD exploitatie/maand, PD Facilitair oog, PD KWIS meldingen
 CREATE OR REPLACE VIEW fmhn_v_rap_doorlooptijd_dv
 (
    binnen_norm,
@@ -9444,7 +9483,7 @@ CREATE OR REPLACE VIEW fmhn_v_rap_doorlooptijd_dv
    omschrijving,
    ruimtenr,
    plaatsaanduiding,
-   prioriteit,
+   prioriteit,                                                 -- Was urgentie
    aanvrager,                                                    -- Was melder
    kosten_voor,
    kosten_incl,
@@ -9488,7 +9527,7 @@ AS
                 UPPER (x.uitvoering_sla_optijd),
                 'NEE', 'Buiten norm',
                 'Binnen norm'),
-             DECODE (
+             DECODE (                       -- Gemigreerde melding uit Planon!
                 SIGN (x.melding_einddatum_std - COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key))),
                 -1, 'Buiten norm',
                 'Binnen norm'))
@@ -9498,9 +9537,9 @@ AS
              NULL,
              DECODE (
                 UPPER (x.uitvoering_sla_optijd),
-                'NEE', COALESCE ((x.doorlooptijd_werkdgn - x.sla_werkdgn), (x.doorlooptijd_werkuren - x.sla_werkuren)),
+                'NEE', COALESCE ((x.doorlooptijd_werkdgn - x.sla_werkdgn) * 9, x.doorlooptijd_werkuren - x.sla_werkuren),
                 0),
-             DECODE (
+             DECODE (                       -- Gemigreerde melding uit Planon!
                 SIGN (x.melding_einddatum_std - COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key))),
                 -1, mld.getactualuitvoer (
                        x.melding_einddatum_std,
@@ -9512,19 +9551,11 @@ AS
                        'U').tijdsduur,
                 0))
              buiten_norm_uren,
-          --mld.getactualuitvoer (
-          --   x.melding_datum,
-          --   COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key)),
-          --   m.mld_stdmelding_key,
-          --   NULL,
-          --   NULL,
-          --   NULL,
-          --   'D').tijdsduur
           DECODE (
              m.mld_meldbron_nr,
              NULL,
-             x.doorlooptijd_werkdgn * 9,
+             COALESCE (x.doorlooptijd_werkdgn, x.doorlooptijd_werkuren / 9),
-             mld.getactualuitvoer (
+             mld.getactualuitvoer (         -- Gemigreerde melding uit Planon!
                 x.melding_datum,
                 COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key)),
                 m.mld_stdmelding_key,
@@ -9535,12 +9566,12 @@ AS
              afhandelingstijd,
           TRIM(SUBSTR (mc_ud.fac_usrdata_omschr, INSTR (mc_ud.fac_usrdata_omschr, '-') + 1))
              klant,
-          'TODO' fm,
+          pfm.prs_perslid_naam_full fm,
-          DECODE (mc_ud.fac_usrdata_code, '04', 'Ja', 'Nee') facilitair_oog, -- TODO:Klantverzoek=NVT???
+          DECODE (ab.prs_afdeling_key3, 97, 'Ja', 'Nee') facilitair_oog, -- 97=o653=DGVBR/FMHaaglanden;TODO:Klantverzoek=NVT???
           x.melding_district locatieteam,
           x.melding_locatie pand,
           x.meldingnummer nummer,
-          x.soortmelding || '???' gebruikerstype,
+          x.soortmelding gebruikerstype,                       -- Vakgroeptype
           x.melding_status status,
           NULL omschrijving,
           NULL ruimtenr,
@@ -9553,7 +9584,7 @@ AS
           NULL toelichting,
           TO_CHAR (m.mld_stdmelding_key) standaardorder_code,
           x.subproductgroep standaardorder_oms,
-          'TODO' sla,
+          DECODE (x.sla_werkuren, NULL, DECODE (x.sla_werkdgn, NULL, NULL, TO_CHAR (x.sla_werkdgn) || 'D'), TO_CHAR (x.sla_werkuren) || 'U') sla,
           NULL nsk_of_overig,
           REGEXP_REPLACE (REGEXP_SUBSTR (x.productgroep,
                                          '\(([^}]+)\)',
@@ -9564,9 +9595,9 @@ AS
              productdienstnr,
           x.productgroep productdienstnaam,
           x.actieve_behandelgroep behandelteam,
-          'TODO' uitvoerder_intext,
+          DECODE (b.prs_bedrijf_key, NULL, 'Intern', 'Extern') uitvoerder_intext,
-          pf.prs_perslid_naam_full uitvoerder_intern,
+          pfb.prs_perslid_naam_full uitvoerder_intern,
-          'TODO' uitvoerder_extern,
+          b.prs_bedrijf_naam uitvoerder_extern,
           x.melding_datum datum_gemeld,                             -- MLDNEW?
           TO_CHAR (x.melding_datum, 'hh24:mi') datum_gemeld_tijd,   -- MLDNEW?
           TO_CHAR (x.melding_datum, 'month') datum_gemeld_maand,    -- MLDNEW?
@@ -9582,168 +9613,357 @@ AS
           x.melding_accepted datum_in_behandeling,    -- / Res. def. / Offerte
           TO_CHAR (x.melding_accepted, 'hh24:mi') datum_in_behandeling_tijd, -- / Res. def. / Offerte tijd
           TO_CHAR (x.melding_accepted, 'month') datum_in_behandeling_maand, -- / Res. def. / Offerte maand
-          'TODO' datum_opdracht_gereed,
+          o.opdracht_gereed datum_opdracht_gereed,
-          'TODO' datum_opdracht_gereed_tijd,
+          TO_CHAR (o.opdracht_gereed, 'hh24:mi') datum_opdracht_gereed_tijd,
           NULL datum_technisch_gereed,
           NULL datum_technisch_gereed_tijd
      FROM mld_v_udr_melding x,
           mld_melding m,
           (SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1008) mc, -- Ministeriecode
           fac_v_aanwezigusrdata mc_ud,
-          prs_v_perslid_fullnames_all pf,
+          prs_perslid p,
-          fmhn_v_rap_idm_afdboom k2a               -- Kostenplaats2Afdeling???
+          prs_v_afdeling_boom ab,
-    WHERE --x.melding_afgemeld > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum
+          fmhn_v_rap_idm_afdboom k2a,                 -- Kostenplaats2Afdeling
+          alg_locatie l,
+          (SELECT * FROM alg_v_aanwezigonrgoedkenmerk WHERE alg_kenmerk_key = 1060) fm, -- Facilitair Manager
+          prs_v_perslid_fullnames_all pfm,
+          --(SELECT o1.mld_melding_key, o1.mld_opdr_bedrijfopdr_volgnr volgnr, o1.mld_uitvoerende_keys prs_perslid_key
+          --   FROM mld_opdr o1
+          --  WHERE EXISTS (SELECT 1 FROM prs_perslid WHERE prs_perslid_key = o1.mld_uitvoerende_keys) -- Laatst uitgegeven interne opdracht!
+          --        AND NOT EXISTS (SELECT 1 FROM mld_opdr o2 WHERE o2.mld_melding_key = o1.mld_melding_key AND o2.mld_opdr_key > o1.mld_opdr_key)) int_o,
+          --(SELECT o1.mld_melding_key, o1.mld_opdr_bedrijfopdr_volgnr volgnr, o1.mld_uitvoerende_keys prs_bedrijf_key
+          --   FROM mld_opdr o1
+          --  WHERE EXISTS (SELECT 1 FROM prs_bedrijf WHERE prs_bedrijf_key = o1.mld_uitvoerende_keys) -- Laatst uitgegeven externe opdracht!
+          --        AND NOT EXISTS (SELECT 1 FROM mld_opdr o2 WHERE o2.mld_melding_key = o1.mld_melding_key AND o2.mld_opdr_key > o1.mld_opdr_key)) ext_o,
+          (SELECT o1.mld_melding_key, o1.mld_uitvoerende_keys, fac.gettrackingdate ('ORDAFM', o1.mld_opdr_key) opdracht_gereed -- Laatst uitgegeven opdracht!
+             FROM mld_opdr o1
+            WHERE NOT EXISTS (SELECT 1 FROM mld_opdr o2 WHERE o2.mld_melding_key = o1.mld_melding_key AND o2.mld_opdr_key > o1.mld_opdr_key)) o,
+          prs_v_perslid_fullnames_all pfb,
+          prs_bedrijf b
+    WHERE --x.melding_afgemeld > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum???
           COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key)) > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum???
-          AND x.sla_nvt = 0
+          AND x.sla_nvt = 0 -- Alleen meldingen waarvoor SLA bewaken aangevinkt!
           AND INSTR (UPPER (x.subproductgroep), 'KLACHT') = 0
-          AND x.prioriteit IN (3, 4)
+          --AND x.prioriteit IN (3, 4) -- Alle prioriteiten, want bronrapport tbv. niet urgente en urgente meldingen!
           AND x.melding_key = m.mld_melding_key
           AND m.prs_perslid_key_voor = mc.prs_link_key(+)
           AND fac.safe_to_number (mc.prs_kenmerklink_waarde) = mc_ud.fac_usrdata_key(+)
-          AND COALESCE (m.mld_melding_behandelaar2_key, m.mld_melding_behandelaar_key) = pf.prs_perslid_key
+          AND m.prs_perslid_key_voor = p.prs_perslid_key
-          AND m.prs_kostenplaats_key = k2a.prs_kostenplaats_key;
+          AND p.prs_afdeling_key = ab.prs_afdeling_key
+          AND m.prs_kostenplaats_key = k2a.prs_kostenplaats_key
+          AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+          AND l.alg_district_key = fm.alg_onrgoed_key(+)
+          AND fac.safe_to_number (fm.alg_onrgoedkenmerk_waarde) = pfm.prs_perslid_key(+)
+          --AND m.mld_melding_key = int_o.mld_melding_key(+)
+          --AND m.mld_melding_key = ext_o.mld_melding_key(+)
+          AND m.mld_melding_key = o.mld_melding_key(+)
+          --AND COALESCE (int_o.prs_perslid_key, m.mld_melding_behandelaar2_key, m.mld_melding_behandelaar_key) = pf.prs_perslid_key(+)
+          AND COALESCE (m.mld_melding_behandelaar2_key, m.mld_melding_behandelaar_key) = pfb.prs_perslid_key(+)
+          AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+);
 
+-- Afhandeling klachten.
+CREATE OR REPLACE VIEW fmhn_v_rap_afh_klachten
+(
+   klacht_idee_compliment,
+   binnen_norm,
+   buiten_norm_uren,
+   afhandelingstijd,
+   klant,
+   fm,
+   facilitair_oog,
+   locatieteam,
+   pand,
+   nummer,
+   gebruikerstype,
+   status,
+   omschrijving,
+   ruimtenr,
+   plaatsaanduiding,
+   prioriteit,                                                 -- Was urgentie
+   aanvrager,                                                    -- Was melder
+   kosten_voor,
+   --kosten_incl,
+   aanvraag_voor,
+   toelichting,
+   standaardorder_code,
+   standaardorder_oms,
+   sla,                                                      -- Was prioriteit
+   --nsk_of_overig,
+   productdienstnr,
+   productdienstnaam,
+   behandelteam,                                               -- Was vakgroep
+   --uitvoerder_intext,
+   uitvoerder_intern,
+   --uitvoerder_extern,
+   datum_gemeld,                                                      --_datum
+   datum_gemeld_tijd,
+   datum_gemeld_maand,
+   datum_startdatum,
+   datum_startdatum_tijd,
+   datum_gewenst_gereed,
+   datum_gewenst_gereed_tijd,
+   datum_gereed,                                                        -- KV?
+   datum_gereed_tijd,                                                   -- KV?
+   datum_admgereed,
+   datum_admgereed_tijd,
+   datum_admgereed_maand,
+   datum_in_behandeling,                              -- / Res. def. / Offerte
+   datum_in_behandeling_tijd,                    -- / Res. def. / Offerte tijd
+   datum_in_behandeling_maand,                  -- / Res. def. / Offerte maand
+   datum_opdracht_gereed,
+   datum_opdracht_gereed_tijd,
+   datum_technisch_gereed,
+   datum_technisch_gereed_tijd
+)
+AS
+   SELECT '???' klacht_idee_compliment,
+          DECODE (
+             m.mld_meldbron_nr,
+             NULL,
+             DECODE (
+                UPPER (x.uitvoering_sla_optijd),
+                'NEE', 'Buiten norm',
+                'Binnen norm'),
+             DECODE (                       -- Gemigreerde melding uit Planon!
+                SIGN (x.melding_einddatum_std - COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key))),
+                -1, 'Buiten norm',
+                'Binnen norm'))
+             binnen_norm,
+          DECODE (
+             m.mld_meldbron_nr,
+             NULL,
+             DECODE (
+                UPPER (x.uitvoering_sla_optijd),
+                'NEE', COALESCE ((x.doorlooptijd_werkdgn - x.sla_werkdgn) * 9, x.doorlooptijd_werkuren - x.sla_werkuren),
+                0),
+             DECODE (                       -- Gemigreerde melding uit Planon!
+                SIGN (x.melding_einddatum_std - COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key))),
+                -1, mld.getactualuitvoer (
+                       x.melding_einddatum_std,
+                       COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key)),
+                       m.mld_stdmelding_key,
+                       NULL,
+                       NULL,
+                       NULL,
+                       'U').tijdsduur,
+                0))
+             buiten_norm_uren,
+          DECODE (
+             m.mld_meldbron_nr,
+             NULL,
+             COALESCE (x.doorlooptijd_werkdgn, x.doorlooptijd_werkuren / 9),
+             mld.getactualuitvoer (         -- Gemigreerde melding uit Planon!
+                x.melding_datum,
+                COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key)),
+                m.mld_stdmelding_key,
+                NULL,
+                NULL,
+                NULL,
+                'D').tijdsduur)
+             afhandelingstijd,
+          TRIM(SUBSTR (mc_ud.fac_usrdata_omschr, INSTR (mc_ud.fac_usrdata_omschr, '-') + 1))
+             klant,
+          pfm.prs_perslid_naam_full fm,
+          DECODE (ab.prs_afdeling_key3, 97, 'Ja', 'Nee') facilitair_oog, -- 97=o653=DGVBR/FMHaaglanden;TODO:Klantverzoek=NVT???
+          x.melding_district locatieteam,
+          x.melding_locatie pand,
+          x.meldingnummer nummer,
+          x.soortmelding gebruikerstype,                       -- Vakgroeptype
+          x.melding_status status,
+          NULL omschrijving,
+          NULL ruimtenr,
+          NULL plaatsaanduiding,
+          x.prioriteittxt prioriteit,
+          x.melder aanvrager,
+          k2a.pad kosten_voor,
+          --NULL kosten_incl,
+          NULL aanvraag_voor,
+          NULL toelichting,
+          TO_CHAR (m.mld_stdmelding_key) standaardorder_code,
+          x.subproductgroep standaardorder_oms,
+          DECODE (x.sla_werkuren, NULL, DECODE (x.sla_werkdgn, NULL, NULL, TO_CHAR (x.sla_werkdgn) || 'D'), TO_CHAR (x.sla_werkuren) || 'U') sla,
+          --NULL nsk_of_overig,
+          REGEXP_REPLACE (REGEXP_SUBSTR (x.productgroep,
+                                         '\(([^}]+)\)',
+                                         1,
+                                         1,
+                                         NULL,
+                                         1), '[^0-9.]', '')
+             productdienstnr,
+          x.productgroep productdienstnaam,
+          x.actieve_behandelgroep behandelteam,
+          --DECODE (b.prs_bedrijf_key, NULL, 'Intern', 'Extern') uitvoerder_intext,
+          pfb.prs_perslid_naam_full uitvoerder_intern,
+          --b.prs_bedrijf_naam uitvoerder_extern,
+          x.melding_datum datum_gemeld,                             -- MLDNEW?
+          TO_CHAR (x.melding_datum, 'hh24:mi') datum_gemeld_tijd,   -- MLDNEW?
+          TO_CHAR (x.melding_datum, 'month') datum_gemeld_maand,    -- MLDNEW?
+          NULL datum_startdatum,                        -- Planbare meldingen?
+          NULL datum_startdatum_tijd,                   -- Planbare meldingen?
+          x.melding_einddatum datum_gewenst_gereed,
+          TO_CHAR (x.melding_einddatum, 'hh24:mi') datum_gewenst_gereed_tijd,
+          x.melding_afgemeld datum_gereed,                              -- KV?
+          TO_CHAR (x.melding_afgemeld, 'hh24:mi') datum_gereed_tijd,    -- KV?
+          NULL datum_admgereed,
+          NULL datum_admgereed_tijd,
+          NULL datum_admgereed_maand,
+          x.melding_accepted datum_in_behandeling,    -- / Res. def. / Offerte
+          TO_CHAR (x.melding_accepted, 'hh24:mi') datum_in_behandeling_tijd, -- / Res. def. / Offerte tijd
+          TO_CHAR (x.melding_accepted, 'month') datum_in_behandeling_maand, -- / Res. def. / Offerte maand
+          NULL datum_opdracht_gereed,
+          NULL datum_opdracht_gereed_tijd,
+          NULL datum_technisch_gereed,
+          NULL datum_technisch_gereed_tijd
+     FROM mld_v_udr_melding x,
+          mld_melding m,
+          (SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1008) mc, -- Ministeriecode
+          fac_v_aanwezigusrdata mc_ud,
+          prs_perslid p,
+          prs_v_afdeling_boom ab,
+          fmhn_v_rap_idm_afdboom k2a,                 -- Kostenplaats2Afdeling
+          alg_locatie l,
+          (SELECT * FROM alg_v_aanwezigonrgoedkenmerk WHERE alg_kenmerk_key = 1060) fm, -- Facilitair Manager
+          prs_v_perslid_fullnames_all pfm,
+          prs_v_perslid_fullnames_all pfb
+    WHERE --x.melding_afgemeld > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum???
+          COALESCE (fac.gettrackingdate ('MLDAFM', x.melding_key), fac.gettrackingdate ('MLDAFR', x.melding_key)) > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum???
+          --AND x.sla_nvt = 0 -- Alleen meldingen waarvoor SLA bewaken aangevinkt!
+          AND INSTR (UPPER (x.subproductgroep), 'KLACHT') > 0
+          --AND x.prioriteit IN (3, 4) -- Alle prioriteiten, want bronrapport tbv. niet urgente en urgente meldingen!
+          AND x.melding_key = m.mld_melding_key
+          AND m.prs_perslid_key_voor = mc.prs_link_key(+)
+          AND fac.safe_to_number (mc.prs_kenmerklink_waarde) = mc_ud.fac_usrdata_key(+)
+          AND m.prs_perslid_key_voor = p.prs_perslid_key
+          AND p.prs_afdeling_key = ab.prs_afdeling_key
+          AND m.prs_kostenplaats_key = k2a.prs_kostenplaats_key
+          AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+          AND l.alg_district_key = fm.alg_onrgoed_key(+)
+          AND fac.safe_to_number (fm.alg_onrgoedkenmerk_waarde) = pfm.prs_perslid_key(+)
+          AND COALESCE (m.mld_melding_behandelaar2_key, m.mld_melding_behandelaar_key) = pfb.prs_perslid_key(+);
+
+-- NoShow catering en reserveringen
+CREATE OR REPLACE VIEW fmhn_v_rap_res_noshow
+AS
+     SELECT x.res_rsv_artikel_levering fact_datum,
+            l.alg_locatie_omschrijving gebouw,
+            pfc.prs_perslid_naam_full aanvrager,                 -- Was melder
+            k2a.pad kosten_voor,
+            TO_CHAR (x.res_reservering_key) || '/' || TO_CHAR (x.res_rsv_ruimte_volgnr) nummer,
+            x.productdienstnr,
+            x.productdienstnaam,
+            '???' omschrijving,
+            SUM (ROUND (kosten_excl * btw, 2)) kosten_incl,
+            pfh.prs_perslid_naam_full aanvraag_voor,
+            x.status,
+            TO_CHAR (x.res_rsv_artikel_levering, 'yyyy') jaar,
+            TO_CHAR (x.res_rsv_artikel_levering, 'month') maand,
+            '???' artikel, -- TODO:602=Studiovoorzieningen en 040=Rest???
+            '2230.01 Vergaderservice???' dienst,
+            TRIM (SUBSTR (a2d.debiteur, 1, INSTR (a2d.debiteur, '/') - 1)) departement,
+            TRIM (SUBSTR (a2d.debiteur, INSTR (a2d.debiteur, '/') + 1)) debiteur,
+            '60???' kostendrager,
+            '600-60???' kostenplaats
+       FROM (SELECT rrr.res_rsv_ruimte_key,
+                    --rr.res_discipline_key,          -- 525=Studiovoorzieningen
+                    rrr.res_reservering_key,
+                    rrr.res_rsv_ruimte_volgnr,
+                    aog.alg_locatie_key,
+                    rrr.res_rsv_ruimte_contact_key,
+                    rrr.res_rsv_ruimte_host_key,
+                    rra.res_rsv_artikel_levering,
+                    --ra.res_artikel_omschrijving,
+                    --ra.res_artikel_eenheid,
+                    --ra.res_artikel_prijs,
+                    --ra.res_artikel_btw,
+                    --rra.res_rsv_artikel_aantal,
+                    --rra.res_rsv_artikel_prijs,
+                    res.getartikelprijs (rra.res_rsv_artikel_key) kosten_excl,
+                    --(100 + COALESCE (rra.res_rsv_artikel_btw, 0)) / 100 btw,
+                    DECODE (planonnr.res_rsv_ruimte_key,
+                            NULL,
+                            (100 + COALESCE (rra.res_rsv_artikel_btw, 0)) / 100,
+                            (100 + COALESCE (ra.res_artikel_btw, 0)) / 100)
+                       btw,
+                    DECODE (rrr.res_activiteit_key, 11, '2230.01', '1430.02')
+                       productdienstnr,
+                    DECODE (rrr.res_activiteit_key, 11, 'Roomservice', 'Reservering vergaderzalen') -- TODO:???
+                       productdienstnaam,
+                    rrr.prs_kostenplaats_key,
+                    s.res_status_bo_omschrijving status
+               FROM res_v_aanwezigrsv_ruimte rrr,
+                    (SELECT * FROM res_v_aanwezigkenmerkwaarde WHERE res_kenmerk_key IN (21, 22, 23, 24)) planonnr, -- Referentienummer
+                    res_ruimte_opstelling rro,
+                    res_ruimte rr,
+                    (  SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
+                         FROM res_alg_ruimte
+                        WHERE res_alg_ruimte_verwijder IS NULL
+                     GROUP BY res_ruimte_key) rar1,
+                    (  SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
+                         FROM res_alg_ruimte
+                        WHERE res_alg_ruimte_verwijder IS NOT NULL
+                     GROUP BY res_ruimte_key) rar2,
+                    alg_v_allonroerendgoed aog,
+                    res_v_aanwezigrsv_artikel rra,
+                    res_artikel ra,
+                    res_status_bo s
+              WHERE (rrr.res_rsv_ruimte_verwijder IS NULL
+                     OR (rrr.res_rsv_ruimte_verwijder IS NOT NULL AND rrr.res_status_fo_key = 4))
+                    AND rrr.res_rsv_ruimte_tot > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of rrr.res_rsv_ruimte_van???
+                    AND rrr.res_rsv_ruimte_dirtlevel = 0
+                    AND COALESCE (rrr.res_rsv_ruimte_bezoekers_shown, rrr.res_rsv_ruimte_noshow) IS NOT NULL -- NoShow
+                    AND rrr.res_rsv_ruimte_key = planonnr.res_rsv_ruimte_key(+)
+                    AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key(+)
+                    AND rro.res_ruimte_key = rr.res_ruimte_key(+)
+                    AND rr.res_ruimte_key = rar1.res_ruimte_key(+)
+                    AND rr.res_ruimte_key = rar2.res_ruimte_key(+)
+                    AND COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) = aog.alg_ruimte_key
+                    AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
+                    AND rra.res_rsv_artikel_dirtlevel = 0
+                    --AND COALESCE (rra.res_rsv_artikel_prijs, ra.res_artikel_prijs) <> 0 -- TODO:Reserveringen zonder kosten negeren???
+                    AND rra.res_artikel_key = ra.res_artikel_key
+                    AND rra.res_status_bo_key = s.res_status_bo_key) x,
+            alg_locatie l,
+            fmhn_v_rap_idm_afdboom k2a,               -- Kostenplaats2Afdeling
+            fmhn_v_rap_afd2debnr a2d,
+            prs_v_perslid_fullnames_all pfc,
+            prs_v_perslid_fullnames_all pfh
+      WHERE x.alg_locatie_key = l.alg_locatie_key
+            AND x.prs_kostenplaats_key = k2a.prs_kostenplaats_key
+            AND k2a.prs_afdeling_key = a2d.prs_afdeling_key
+            AND x.res_rsv_ruimte_contact_key = pfc.prs_perslid_key(+)
+            AND x.res_rsv_ruimte_host_key = pfh.prs_perslid_key(+)
+   GROUP BY x.res_rsv_artikel_levering,
+            l.alg_locatie_omschrijving,
+            pfc.prs_perslid_naam_full,
+            k2a.pad,
+            TO_CHAR (x.res_reservering_key) || '/' || TO_CHAR (x.res_rsv_ruimte_volgnr),
+            x.productdienstnr,
+            x.productdienstnaam,
+            '???',
+            pfh.prs_perslid_naam_full,
+            x.status,
+            TO_CHAR (x.res_rsv_artikel_levering, 'yyyy'),
+            TO_CHAR (x.res_rsv_artikel_levering, 'month'),
+            '???',
+            '2230.01 Vergaderservice???',
+            TRIM (SUBSTR (a2d.debiteur, 1, INSTR (a2d.debiteur, '/') - 1)),
+            TRIM (SUBSTR (a2d.debiteur, INSTR (a2d.debiteur, '/') + 1)),
+            '60???',
+            '600-60???';
+/*
 -- Afhandeling klachten.
 CREATE OR REPLACE VIEW fmhn_v_udr_afh_klachten
 AS
-SELECT m.meldingnummer,
+SELECT *
-       m.melding_start_key,
-       m.melding_regio,
-       m.melding_district,
-       m.melding_locatiecode,
-       m.melding_locatie,
-       m.melding_locatieplaats,
-       m.melding_gebouwcode,
-       m.melding_gebouw,
-       m.melding_verdieping,
-       m.melding_ruimtenr,
-       m.melding_ruimte,
-       m.kostensoortgroep,
-       m.kostensoort,
-       m.kostenplaats,
-       m.kostenplaats_oms,
-       m.melder,
-       m.afdeling,
-       m.afdeling_omschrijving afdeling_oms,
-       m.invoerder,
-       m.meldbron,
-       m.soortmelding vakgroeptype,
-       m.productgroep vakgroep,
-       m.subproductgroep soortmelding,
-       m.behandelgroep,
-       m.behandelaar,
-       m.actieve_behandelgroep,
-       m.actieve_behandelaar,
-       m.melding_status,
-       m.sla_nvt,
-       m.sla_accptdgn,
-       m.sla_accpturen,
-       m.sla_werkdgn,
-       m.sla_werkuren,
-       m.plan_uitvoertijd_sla,
-       m.melding_datum,
-       m.melding_einddatum,
-       m.melding_einddatum_std,
-       m.melding_acceptdatum,
-       m.melding_afgemeld,
-       m.melding_accepted,
-       m.doorlooptijd_werkdgn,
-       m.doorlooptijd_werkuren,
-       m.onderwerp,
-       m.vomschrijving omschrijving,
-       m.melding_opmerking,
-       m.prioriteit,
-       m.rating,
-       m.rating_opmerking rating_opm,
-       m.actiecode,
-       m.accept_sla_dagen,
-       m.accept_sla_uren,
-       m.uitvoering_sla_dagen,
-       m.uitvoering_sla_uren,
-       m.afspraak_sla_dagen,
-       m.afspraak_sla_uren,
-       DECODE (UPPER (m.accept_sla_optijd), 'JA', 1, 0) accept_sla_optijd,
-       1 - DECODE (UPPER (m.accept_sla_optijd), 'JA', 1, 0) accept_sla_telaat,
-       DECODE (UPPER (m.uitvoering_sla_optijd), 'JA', 1, 0) uitvoering_sla_optijd,
-       1 - DECODE (UPPER (m.uitvoering_sla_optijd), 'JA', 1, 0) uitvoering_sla_telaat,
-       DECODE (UPPER (m.afspraak_sla_optijd), 'JA', 1, 0) afspraak_sla_optijd,
-       1 - DECODE (UPPER (m.afspraak_sla_optijd), 'JA', 1, 0) afspraak_sla_telaat,
-       m.selfservice,
-       TO_CHAR (m.melding_afgemeld, 'yyyy-mm') maand
   FROM mld_v_udr_melding m
  WHERE m.melding_afgemeld > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum
        --AND m.sla_nvt = 0
-       AND INSTR (UPPER (subproductgroep), 'KLACHT') > 0
+       AND INSTR (UPPER (subproductgroep), 'KLACHT') > 0;
-;
 
 -- Facilitair oog.
 CREATE OR REPLACE VIEW fmhn_v_udr_facilitair_oog
 AS
-SELECT m.meldingnummer,
+SELECT *
-       m.melding_start_key,
-       m.melding_regio,
-       m.melding_district,
-       m.melding_locatiecode,
-       m.melding_locatie,
-       m.melding_locatieplaats,
-       m.melding_gebouwcode,
-       m.melding_gebouw,
-       m.melding_verdieping,
-       m.melding_ruimtenr,
-       m.melding_ruimte,
-       m.kostensoortgroep,
-       m.kostensoort,
-       m.kostenplaats,
-       m.kostenplaats_oms,
-       m.melder,
-       m.afdeling,
-       m.afdeling_omschrijving afdeling_oms,
-       m.invoerder,
-       m.meldbron,
-       m.soortmelding vakgroeptype,
-       m.productgroep vakgroep,
-       m.subproductgroep soortmelding,
-       m.behandelgroep,
-       m.behandelaar,
-       m.actieve_behandelgroep,
-       m.actieve_behandelaar,
-       m.melding_status,
-       m.sla_nvt,
-       m.sla_accptdgn,
-       m.sla_accpturen,
-       m.sla_werkdgn,
-       m.sla_werkuren,
-       m.plan_uitvoertijd_sla,
-       m.melding_datum,
-       m.melding_einddatum,
-       m.melding_einddatum_std,
-       m.melding_acceptdatum,
-       m.melding_afgemeld,
-       m.melding_accepted,
-       m.doorlooptijd_werkdgn,
-       m.doorlooptijd_werkuren,
-       m.onderwerp,
-       m.vomschrijving omschrijving,
-       m.melding_opmerking,
-       m.prioriteit,
-       m.rating,
-       m.rating_opmerking rating_opm,
-       m.actiecode,
-       m.accept_sla_dagen,
-       m.accept_sla_uren,
-       m.uitvoering_sla_dagen,
-       m.uitvoering_sla_uren,
-       m.afspraak_sla_dagen,
-       m.afspraak_sla_uren,
-       DECODE (UPPER (m.accept_sla_optijd), 'JA', 1, 0) accept_sla_optijd,
-       1 - DECODE (UPPER (m.accept_sla_optijd), 'JA', 1, 0) accept_sla_telaat,
-       DECODE (UPPER (m.uitvoering_sla_optijd), 'JA', 1, 0) uitvoering_sla_optijd,
-       1 - DECODE (UPPER (m.uitvoering_sla_optijd), 'JA', 1, 0) uitvoering_sla_telaat,
-       DECODE (UPPER (m.afspraak_sla_optijd), 'JA', 1, 0) afspraak_sla_optijd,
-       1 - DECODE (UPPER (m.afspraak_sla_optijd), 'JA', 1, 0) afspraak_sla_telaat,
-       m.selfservice,
-       TO_CHAR (m.melding_afgemeld, 'yyyy-mm') maand,
-       DECODE (ab.prs_afdeling_key5, -1, 1, 0) facilitair_oog -- TODO:Key van FMH in BZK-afdelingsboom
   FROM mld_v_udr_melding m, mld_melding m, prs_perslid p, prs_v_afdeling_boom ab
  WHERE m.melding_afgemeld > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum
        --AND m.sla_nvt = 0
@@ -9751,114 +9971,22 @@ SELECT m.meldingnummer,
        --AND prioriteit IN (1, 2)
        AND SUBSTR (m.meldingnummer, REGEXP_INSTR (m.meldingnummer, '\d')) = TO_CHAR (m.mld_melding_key)
        AND fac.gettrackinguserkey ('MLDNEW', m.mld_melding_key) = p.prs_perslid_key
-       AND p.prs_afdeling_key = ab.prs_afdeling_key
+       AND p.prs_afdeling_key = ab.prs_afdeling_key;
-;
 
 -- Afhandeling urgente meldingen.
 CREATE OR REPLACE VIEW fmhn_v_udr_afh_mld_prio
 AS
-SELECT m.meldingnummer,
+SELECT *
-       m.melding_start_key,
-       m.melding_regio,
-       m.melding_district,
-       m.melding_locatiecode,
-       m.melding_locatie,
-       m.melding_locatieplaats,
-       m.melding_gebouwcode,
-       m.melding_gebouw,
-       m.melding_verdieping,
-       m.melding_ruimtenr,
-       m.melding_ruimte,
-       m.kostensoortgroep,
-       m.kostensoort,
-       m.kostenplaats,
-       m.kostenplaats_oms,
-       m.melder,
-       m.afdeling,
-       m.afdeling_omschrijving afdeling_oms,
-       m.invoerder,
-       m.meldbron,
-       m.soortmelding vakgroeptype,
-       m.productgroep vakgroep,
-       m.subproductgroep soortmelding,
-       m.behandelgroep,
-       m.behandelaar,
-       m.actieve_behandelgroep,
-       m.actieve_behandelaar,
-       m.melding_status,
-       m.sla_nvt,
-       m.sla_accptdgn,
-       m.sla_accpturen,
-       m.sla_werkdgn,
-       m.sla_werkuren,
-       m.plan_uitvoertijd_sla,
-       m.melding_datum,
-       m.melding_einddatum,
-       m.melding_einddatum_std,
-       m.melding_acceptdatum,
-       m.melding_afgemeld,
-       m.melding_accepted,
-       m.doorlooptijd_werkdgn,
-       m.doorlooptijd_werkuren,
-       m.onderwerp,
-       m.vomschrijving omschrijving,
-       m.melding_opmerking,
-       m.prioriteit,
-       m.rating,
-       m.rating_opmerking rating_opm,
-       m.actiecode,
-       m.accept_sla_dagen,
-       m.accept_sla_uren,
-       m.uitvoering_sla_dagen,
-       m.uitvoering_sla_uren,
-       m.afspraak_sla_dagen,
-       m.afspraak_sla_uren,
-       DECODE (UPPER (m.accept_sla_optijd), 'JA', 1, 0) accept_sla_optijd,
-       1 - DECODE (UPPER (m.accept_sla_optijd), 'JA', 1, 0) accept_sla_telaat,
-       DECODE (UPPER (m.uitvoering_sla_optijd), 'JA', 1, 0) uitvoering_sla_optijd,
-       1 - DECODE (UPPER (m.uitvoering_sla_optijd), 'JA', 1, 0) uitvoering_sla_telaat,
-       DECODE (UPPER (m.afspraak_sla_optijd), 'JA', 1, 0) afspraak_sla_optijd,
-       1 - DECODE (UPPER (m.afspraak_sla_optijd), 'JA', 1, 0) afspraak_sla_telaat,
-       m.selfservice,
-       TO_CHAR (m.melding_afgemeld, 'yyyy-mm') maand
   FROM mld_v_udr_melding m
  WHERE m.melding_afgemeld > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') -- Of m.melding_datum
        AND m.sla_nvt = 0
        AND INSTR (UPPER (subproductgroep), 'KLACHT') = 0
-       AND prioriteit IN (1, 2)
+       AND prioriteit IN (1, 2);
-;
 
 -- NoShow catering en reserveringen
 CREATE OR REPLACE VIEW fmhn_v_udr_res_noshow
 AS
-   SELECT DISTINCT
+   SELECT *
-          b.prs_bedrijf_naam,
-          p.prs_afdeling_key,
-          SUBSTR (a.prs_afdeling_externid, 3) afdnr,
-          a.prs_afdeling_naam afdcode,
-          a.prs_afdeling_omschrijving afdoms,
-          d.alg_district_omschrijving district,
-          l.alg_locatie_code locatiecode,
-          l.alg_locatie_omschrijving locatie,
-          aog.alg_gebouw_code gebouwcode,
-          aog.alg_gebouw_naam gebouw,
-          rrr.res_rsv_ruimte_key,
-          rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr resid,
-          rrr.res_rsv_ruimte_van datum,
-          rrr.res_rsv_ruimte_van,
-          rrr.res_rsv_ruimte_tot,
-          act.res_activiteit_omschrijving activiteit,
-          rrr.res_rsv_ruimte_omschrijving omschrijving,
-          --rra.res_rsv_artikel_aantal aantal,
-          --ra.res_artikel_omschrijving artikel,
-          --res.getartikelprijs (rra.res_rsv_artikel_key) prijs,
-          rrr.res_rsv_ruimte_bezoekers aantal_pers,
-          rrr.res_rsv_ruimte_bezoekers_shown aantal_show,
-          rrr.res_rsv_ruimte_noshow noshow,
-          rrr.res_status_fo_key fo_status,
-          rrr.res_status_bo_key bo_status,
-          rrr.res_rsv_ruimte_verwijder,
-          TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm') maand
      FROM res_rsv_ruimte rrr,
           res_v_aanwezigrsv_artikel rra,
           res_artikel ra,
@@ -9893,9 +10021,8 @@ AS
           AND rro.res_ruimte_key = rar2.res_ruimte_key(+)
           AND COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) = aog.alg_ruimte_key
           AND aog.alg_locatie_key = l.alg_locatie_key
-          AND l.alg_district_key = d.alg_district_key
+          AND l.alg_district_key = d.alg_district_key;
-;
+*/
-
 -- Openstaande meldingen vandaag en komende 5 werkdagen
 CREATE OR REPLACE VIEW fmhn_v_udr_mld_open_d
 AS
@@ -12165,7 +12292,7 @@ AS
            x.mld_melding_kto_verstuurd,
            'melding'                                                 node,
            x.ins_srtdiscipline_key,
-           DECODE (x.ins_srtdiscipline_key,
+           DECODE (x.ins_srtdiscipline_key,  -- Let op: mapping ook in stylesheet
                    24, 'Aanvraag',
                    29, 'Storing',
                    30, 'Storing',