YKPN#40570 -- Management rapportages in Facilitor

YKPN#41298 -- Opdrachten na goedkeuring automatisch afmelden
YKPN#41033 -- Rapport parkeerplaatsen toevoegen

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

YKPN/ykpn.sql

@@ -2233,6 +2233,140 @@ AS
                    ver.prs_perslid_key
              END;
 
+
+
+-- Opdrachten op naam van intern bedrijf KPN boordeling Res (42702) worden goedgekeurd
+-- door ASA (Anita, Ada en Suzanne)
+CREATE OR REPLACE VIEW ykpn_v_beoord_huisvesting
+(
+   mld_opdr_key,
+   aanvraagnummer,
+   datum,
+   prs_perslid_naam_full,
+   afdeling,
+   afdeling2,
+   bedrag,
+   TYPE,
+   status,
+   categorie,
+   locatie
+)
+AS
+   SELECT op.mld_opdr_key,
+             sd.ins_srtdiscipline_prefix
+          || op.mld_melding_key
+          || '/'
+          || op.mld_opdr_bedrijfopdr_volgnr
+             aanvraagnummer,
+          mld_opdr_datumbegin datum,
+          pf.prs_perslid_naam_full,
+          a.prs_afdeling_omschrijving,
+          a2.prs_afdeling_omschrijving prs_afdeling_omschrijving2,
+          mld_opdr_kosten bedrag,
+          mld_typeopdr_omschrijving TYPE,
+          so.mld_statusopdr_omschrijving,
+          td.ins_discipline_omschrijving categorie,
+          CASE
+             WHEN l.alg_locatie_key IS NULL THEN NULL
+             ELSE l.alg_locatie_omschrijving || ' (' || l.alg_locatie_code || ')'
+          END
+             locatie
+     FROM mld_melding m,
+          mld_stdmelding sm,
+          mld_opdr op,
+          mld_typeopdr ot,
+          prs_v_perslid_fullnames_all pf,
+          ykpn_v_afdeling_boom b,
+          prs_perslid p,
+          prs_afdeling a,
+          prs_afdeling a2,
+          prs_kostenplaats k,
+          ins_tab_discipline td,
+          ins_srtdiscipline sd,
+          alg_locatie l,
+          mld_statusopdr so
+    WHERE op.mld_melding_key = m.mld_melding_key
+      AND op.mld_typeopdr_key = ot.mld_typeopdr_key
+      AND COALESCE (op.prs_kostenplaats_key, m.prs_kostenplaats_key) = k.prs_kostenplaats_key
+      AND pf.prs_perslid_key = m.prs_perslid_key
+      AND p.prs_perslid_key = m.prs_perslid_key
+      AND op.mld_melding_key = m.mld_melding_key
+      AND m.mld_stdmelding_key = sm.mld_stdmelding_key
+      AND sm.mld_ins_discipline_key = td.ins_discipline_key
+      AND sd.ins_srtdiscipline_key = td.ins_srtdiscipline_key
+      AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+      AND op.mld_statusopdr_key IN (5, 8)
+      AND b.prs_afdeling_key = a.prs_afdeling_key
+      AND b.prs_afdeling_key2 = a2.prs_afdeling_key
+      AND p.prs_afdeling_key = b.prs_afdeling_key
+      AND op.mld_statusopdr_key = so.mld_statusopdr_key
+      AND op.mld_uitvoerende_keys = 42702;
+      
+-- Rapport om misbruik van parkeerplaatsen op eigen locatie te rapporteren.
+CREATE OR REPLACE VIEW ykpn_v_rap_pp_eigen_gebruik
+(
+   gebouw,
+   actie,
+   aangemeld_door,
+   bezoeker,
+   bedrijf,
+   email_bezoeker,
+   afspraak_datum
+)
+AS
+   SELECT d.alg_gebouw_upper,
+          ba.bez_actie_omschrijving,
+          pf.prs_perslid_naam_full,
+          bez_afspraak_naam,
+          bez_afspraak_bedrijf,
+          LOWER (prs_perslid_email),
+          bez_afspraak_datum
+     FROM bez_afspraak a,
+          bez_actie ba,
+          bez_bezoekers b,
+          res_rsv_deel rrd,
+          res_v_aanwezigdeel rd,
+          ins_v_deel_gegevens d,
+          bez_kenmerkwaarde em,
+          prs_perslid p,
+          prs_v_perslid_fullnames pf,
+          prs_v_werkplekperslid_gegevens pwp
+    WHERE a.bez_afspraak_key = b.bez_afspraak_key
+      AND a.bez_actie_key = ba.bez_actie_key
+      AND b.bez_bezoekers_key = rrd.bez_bezoekers_key
+      AND rrd.res_deel_key = rd.res_deel_key
+      AND rd.res_ins_deel_key = d.ins_deel_key
+      AND em.bez_kenmerk_key = 1000
+      AND em.bez_bezoekers_key = b.bez_bezoekers_key
+      AND UPPER (em.bez_kenmerkwaarde_waarde) = UPPER (p.prs_perslid_email)
+      AND p.prs_perslid_key = pwp.prs_perslid_key
+      AND pwp.alg_locatie_key = d.alg_locatie_key
+      AND TRUNC (bez_afspraak_datum, 'mm') = ADD_MONTHS (TRUNC (SYSDATE, 'mm'), -1)
+      AND p.prs_perslid_key = pf.prs_perslid_key;
+
+
+-- Taak om goedgekeuurde aanvragen die toegewezen zijn aan Arnoud Pleij en bedrijf KPN RES services
+-- na acceptatie af te melden.
+CREATE OR REPLACE PROCEDURE ykpn_import_afmelden_opdracht (
+   p_import_key IN NUMBER)
+AS
+   CURSOR c
+   IS
+      SELECT *
+        FROM mld_opdr
+        -- Arnoud Pleij en bedrijf KPN RES services
+       WHERE mld_uitvoerende_keys IN (7676, 42702) 
+         -- status geaccepteerd
+         AND mld_statusopdr_key = 8;
+BEGIN
+   FOR rec IN c
+   LOOP
+      mld.setopdrachtstatus (rec.mld_opdr_key, 6, 3);                     -- afgemeld door Facilitor
+      mld.updatemeldingstatusav (rec.mld_melding_key, 0, NULL, 0);
+   END LOOP;
+END;
+/
+
 -----------------------------------------
 -- Koppeling met Strukton
 -----------------------------------------
@@ -2893,6 +3027,76 @@ BEGIN
 END;
 /
 
+CREATE OR REPLACE VIEW ykpn_v_graph_servicedesk
+(
+   discipline,
+   aantal
+)
+AS
+     SELECT d.ins_discipline_omschrijving, COUNT ( * )
+       FROM mld_melding m, mld_stdmelding std, ins_tab_discipline d
+      WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
+        AND TRUNC (mld_melding_datum, 'MM') = ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -1)
+        AND std.mld_ins_discipline_key IN (34, 48, 38)                                 -- compliment
+        AND std.mld_ins_discipline_key = d.ins_discipline_key
+   GROUP BY ins_discipline_omschrijving
+   UNION ALL
+   SELECT 'Melding', COUNT ( * )
+     FROM mld_melding m, mld_stdmelding std, ins_tab_discipline d
+    WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
+      AND TRUNC (mld_melding_datum, 'MM') = ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -1)
+      AND std.mld_ins_discipline_key NOT IN (34, 48, 38)                               -- compliment
+      AND std.mld_ins_discipline_key = d.ins_discipline_key
+   UNION ALL
+   SELECT 'Reservering', COUNT ( * )
+     FROM res_rsv_ruimte
+    WHERE TRUNC (res_rsv_ruimte_van, 'MM') = ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -1)
+      AND res_rsv_ruimte_verwijder IS NULL;
+
+CREATE OR REPLACE VIEW ykpn_v_graph_meldingen
+(
+   discipline,
+   aantal
+)
+AS
+     SELECT d.ins_discipline_omschrijving, COUNT ( * )
+       FROM mld_melding m, mld_stdmelding std, ins_tab_discipline d
+      WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
+        AND TRUNC (mld_melding_datum, 'MM') = ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -1)
+        AND std.mld_ins_discipline_key NOT IN (34, 48, 38)                             -- compliment
+        AND std.mld_ins_discipline_key = d.ins_discipline_key
+   GROUP BY ins_discipline_omschrijving;
+
+CREATE OR REPLACE VIEW ykpn_v_graph_bezoekers
+(
+   locatie,
+   aantal
+)
+AS
+     SELECT alg_locatie_omschrijving, COUNT ( * )
+       FROM bez_bezoekers b, bez_afspraak a, alg_locatie l
+      WHERE b.bez_afspraak_key = a.bez_afspraak_key
+        AND a.alg_locatie_key = l.alg_locatie_key
+        AND TRUNC (bez_afspraak_datum, 'MM') = ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -1)
+   GROUP BY alg_locatie_omschrijving;
+
+CREATE OR REPLACE VIEW ykpn_v_graph_parkeerplaats
+(
+   locatie,
+   aantal
+)
+AS
+     SELECT alg_locatie_omschrijving, COUNT ( * )
+       FROM bez_bezoekers b,
+            bez_afspraak a,
+            alg_locatie l,
+            res_rsv_deel rrd
+      WHERE b.bez_afspraak_key = a.bez_afspraak_key
+        AND a.alg_locatie_key = l.alg_locatie_key
+        AND b.bez_bezoekers_key = rrd.bez_bezoekers_key
+        AND TRUNC (bez_afspraak_datum, 'MM') = ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -1)
+   GROUP BY alg_locatie_omschrijving;
+
 ------ payload end   ------
 
 SET DEFINE OFF