UWVA#80789 AFTERSALES/Afmelden WP-reserveringen+UWVA#83691 Rap/Toevoegen kolom

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

UWVA/uwva_misc.sql

@@ -2726,73 +2726,120 @@ AS
             AND p.fac_profiel_key = pr.fac_profiel_key(+)
    ORDER BY 1, 2, 3;
 
--- UWVA#15946
+-- UWVA#15946/UWVA#83691
 CREATE OR REPLACE VIEW UWVA_V_SP_06_FAC_GEBRUIKERS_MW
 (
    FCLT_F_SERVICEPUNT,
    FCLT_F_ROL,
    FCLT_F_NAAM,
    NUMMER,
+   FUNCTIE,
    PROFIEL,
    EMAIL,
    PANDCODE,
    KOSTENPLAATS,
    LOGIN,
-   DATUM,
+   --DATUM,
    FCLT_3D_LOCATIE_KEY
 )
 AS
-     SELECT DISTINCT
-            di.alg_district_omschrijving fclt_f_servicepunt,
+   SELECT DISTINCT
+          d.alg_district_omschrijving,
+          g.fac_groep_omschrijving,
+          pf.prs_perslid_naam_full,
+          p.prs_perslid_nr,
+          sp.prs_srtperslid_omschrijving,
+          pr.fac_profiel_omschrijving,
+          p.prs_perslid_email,
+          (SELECT MIN (w.alg_gebouw_code) || DECODE (COUNT ( * ), 1, '', '...')
+             FROM prs_v_werkplek_gegevens w, prs_perslidwerkplek pw
+            WHERE w.prs_werkplek_key = pw.prs_werkplek_key
+                  AND pw.prs_perslid_key = p.prs_perslid_key),
+          k.prs_kostenplaats_nr,
+          p.prs_perslid_oslogin,
+          --(SELECT kl.prs_kenmerklink_waarde
+          --   FROM prs_kenmerklink kl
+          --  WHERE kl.prs_kenmerk_key = 1004 -- Datum wijziging rechten (in 2010 verwijderd)
+          --        AND kl.prs_link_key = p.prs_perslid_key)
+          --   datum,
+          (SELECT MIN (w.alg_locatie_key)
+             FROM prs_v_werkplek_gegevens w, prs_perslidwerkplek pw
+            WHERE w.prs_werkplek_key = pw.prs_werkplek_key
+                  AND pw.prs_perslid_key = p.prs_perslid_key)
+             alg_locatie_key
+     FROM prs_perslid p,
+          prs_v_perslid_fullnames pf,
+          prs_afdeling a,
+          prs_kostenplaats k,
+          prs_srtperslid sp,
+          fac_profiel pr,
+          fac_gebruikersgroep gg,
+          fac_groep g,
+          prs_perslidwerkplek pw,
+          prs_v_werkplek_gegevens w,
+          alg_locatie l,
+          alg_district d
+    WHERE p.prs_perslid_key = pf.prs_perslid_key
+          AND p.prs_afdeling_key = a.prs_afdeling_key
+          AND a.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+          AND p.prs_srtperslid_key = sp.prs_srtperslid_key(+)
+          AND p.fac_profiel_key = pr.fac_profiel_key(+)
+          AND p.prs_perslid_key = gg.prs_perslid_key
+          AND gg.fac_groep_key = g.fac_groep_key
+          AND p.prs_perslid_key = pw.prs_perslid_key
+          AND pw.prs_werkplek_key = w.prs_werkplek_key
+          AND w.alg_locatie_key = l.alg_locatie_key
+          AND l.alg_district_key = d.alg_district_key;
+/* Toch anders?
+     SELECT d.alg_district_omschrijving,
             g.fac_groep_omschrijving,
             pf.prs_perslid_naam_full,
             p.prs_perslid_nr,
+            sp.prs_srtperslid_omschrijving,
             pr.fac_profiel_omschrijving,
             p.prs_perslid_email email,
-            (SELECT MIN (w.alg_gebouw_code)
-                    || DECODE (COUNT ( * ), 1, '', '...')
-               FROM prs_v_werkplek_gegevens w, prs_perslidwerkplek pw
-              WHERE w.prs_werkplek_key = pw.prs_werkplek_key
-                    AND pw.prs_perslid_key = p.prs_perslid_key),
+            MIN (w.alg_gebouw_code) || DECODE (COUNT ( * ), 1, '', '...'),
             k.prs_kostenplaats_nr,
             p.prs_perslid_oslogin,
-            (SELECT kl.prs_kenmerklink_waarde
-               FROM prs_kenmerklink kl
-              WHERE kl.prs_link_key = p.prs_perslid_key
-                    AND kl.prs_kenmerk_key = 1004)
-               datum,
-            (SELECT MIN (l.alg_locatie_key)
-               FROM prs_v_werkplek_gegevens w,
-                    prs_perslidwerkplek pw,
-                    alg_locatie l
-              WHERE     w.prs_werkplek_key = pw.prs_werkplek_key
-                    AND pw.prs_perslid_key = p.prs_perslid_key
-                    AND w.alg_locatie_key = l.alg_locatie_key)
-               alg_locatie_key
+            --(SELECT kl.prs_kenmerklink_waarde
+            --   FROM prs_kenmerklink kl
+            --  WHERE kl.prs_kenmerk_key = 1004 -- Datum wijziging rechten (in 2010 verwijderd)
+            --        AND kl.prs_link_key = p.prs_perslid_key)
+            --   datum,
+            MIN (w.alg_locatie_key) alg_locatie_key
        FROM prs_perslid p,
             prs_v_perslid_fullnames pf,
-            fac_gebruikersgroep gg,
-            fac_profiel pr,
-            prs_v_werkplek_gegevens w,
-            prs_perslidwerkplek pw,
-            alg_locatie l,
-            alg_district di,
-            prs_afdeling d,
+            prs_afdeling a,
             prs_kostenplaats k,
-            fac_groep g
-      WHERE     g.fac_groep_key = gg.fac_groep_key
-            AND gg.prs_perslid_key = p.prs_perslid_key
-            AND p.prs_perslid_key = pf.prs_perslid_key
-            AND w.prs_werkplek_key = pw.prs_werkplek_key
-            AND p.prs_perslid_key = pw.prs_perslid_key
-            AND w.alg_locatie_key = l.alg_locatie_key
-            AND l.alg_district_key = di.alg_district_key
-            AND p.prs_afdeling_key = d.prs_afdeling_key
-            AND k.prs_kostenplaats_key(+) = d.prs_kostenplaats_key
+            prs_srtperslid sp,
+            fac_profiel pr,
+            fac_gebruikersgroep gg,
+            fac_groep g,
+            prs_perslidwerkplek pw,
+            prs_v_werkplek_gegevens w,
+            alg_locatie l,
+            alg_district d
+      WHERE p.prs_perslid_key = pf.prs_perslid_key
+            AND p.prs_afdeling_key = a.prs_afdeling_key
+            AND a.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+            AND p.prs_srtperslid_key = sp.prs_srtperslid_key(+)
             AND p.fac_profiel_key = pr.fac_profiel_key(+)
-   ORDER BY 1, 2, 3;
-
-
+            AND p.prs_perslid_key = gg.prs_perslid_key
+            AND gg.fac_groep_key = g.fac_groep_key
+            AND p.prs_perslid_key = pw.prs_perslid_key
+            AND pw.prs_werkplek_key = w.prs_werkplek_key
+            AND w.alg_locatie_key = l.alg_locatie_key
+            AND l.alg_district_key = d.alg_district_key
+   GROUP BY d.alg_district_omschrijving,
+            g.fac_groep_omschrijving,
+            pf.prs_perslid_naam_full,
+            p.prs_perslid_nr,
+            sp.prs_srtperslid_omschrijving,
+            pr.fac_profiel_omschrijving,
+            p.prs_perslid_email,
+            k.prs_kostenplaats_nr,
+            p.prs_perslid_oslogin;
+*/
 -- UWVA#15656
 CREATE OR REPLACE VIEW uwva_v_imp_bes_artikel_sync
 (
@@ -2848,7 +2895,6 @@ AS
           AND sd.prs_bedrijf_key = b.prs_bedrijf_key
           AND bs.bes_staffeltabel_key(+) = sd.bes_staffeltabel_key;
 
-
 -- UWVA#201
 CREATE OR REPLACE VIEW uwva_v_stats_04_res_artikel
 (
@@ -7577,48 +7623,39 @@ AS
 
    CURSOR cart
    IS
-      SELECT    '['
-             || TO_CHAR (ra.res_rsv_ruimte_key)
-             || '/'
-             || TO_CHAR (ra.res_rsv_artikel_key)
-             || '] '
-                aanduiding,
+      SELECT '[' || TO_CHAR (ra.res_rsv_ruimte_key) || '/' || TO_CHAR (ra.res_rsv_artikel_key) || '] ' aanduiding,
              ra.res_rsv_ruimte_key,
              ra.res_rsv_artikel_key,
              ra.res_artikel_key
         FROM res_rsv_artikel ra
-       WHERE     ra.res_status_bo_key = 2
+       WHERE ra.res_status_bo_key = 2
              AND ra.res_rsv_artikel_dirtlevel = 0
              AND ra.res_rsv_artikel_verwijder IS NULL
-             AND fac.count_work_days (ra.res_rsv_artikel_levering, SYSDATE) >
-                   2;
+             AND fac.count_work_days (ra.res_rsv_artikel_levering, SYSDATE) > 2;
 
+   -- UWVA#80789: Afmelden WP-reserveringen na 1 werkdag (ipv. 3 werkdagen)!
    CURSOR cobj
    IS
-      SELECT    '['
-             || TO_CHAR (rd.res_rsv_ruimte_key)
-             || '/'
-             || TO_CHAR (rd.res_rsv_deel_key)
-             || '] '
-                aanduiding,
+      SELECT '[' || TO_CHAR (rd.res_rsv_ruimte_key) || '/' || TO_CHAR (rd.res_rsv_deel_key) || '] ' aanduiding,
              rd.res_rsv_ruimte_key,
              rd.res_rsv_deel_key
-        FROM res_rsv_deel rd
-       WHERE     rd.res_status_bo_key = 2
-             AND rd.res_rsv_ruimte_key IS NOT NULL     -- Geen parkeerplaatsen
+        FROM res_rsv_deel rd, res_rsv_ruimte rr
+       WHERE rd.res_rsv_deel_verwijder IS NULL
              AND rd.res_rsv_deel_dirtlevel = 0
-             AND rd.res_rsv_deel_verwijder IS NULL
-             AND fac.count_work_days (rd.res_rsv_deel_tot, SYSDATE) > 2;
+             AND rd.res_status_bo_key = 2
+             --AND rd.res_rsv_ruimte_key IS NOT NULL     -- Geen parkeerplaatsen
+             AND rd.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
+             AND fac.count_work_days (rd.res_rsv_deel_tot, SYSDATE) > DECODE (rr.res_activiteit_key, 501, 0, 2);
 
    CURSOR cres
    IS
       SELECT '[' || TO_CHAR (rrr.res_rsv_ruimte_key) || '] ' aanduiding,
              rrr.res_rsv_ruimte_key
         FROM res_rsv_ruimte rrr
-       WHERE     rrr.res_status_bo_key = 2
-             AND rrr.res_ruimte_opstel_key IS NOT NULL   -- Geen "roomservice"
+       WHERE rrr.res_rsv_ruimte_verwijder IS NULL
              AND rrr.res_rsv_ruimte_dirtlevel = 0
-             AND rrr.res_rsv_ruimte_verwijder IS NULL
+             AND rrr.res_status_bo_key = 2
+             AND rrr.res_ruimte_opstel_key IS NOT NULL   -- Geen "roomservice"
              AND fac.count_work_days (rrr.res_rsv_ruimte_tot, SYSDATE) > 2;
 
    -- Facturen die al 4 weken bij de budgethouder liggen,
@@ -7693,13 +7730,11 @@ BEGIN
    LOOP
       BEGIN
          v_errorhint := 'Fout bij bepalen res_rsv_artikel_prijs.';
-
          SELECT res.getartikelprijs (rc.res_rsv_artikel_key)
            INTO v_prijs
            FROM DUAL;
 
          v_errorhint := 'Fout bij bijwerken res_rsv_artikel_prijs.';
-
          UPDATE res_rsv_artikel
             SET res_status_bo_key = 5,
                 res_rsv_artikel_prijs = v_prijs,
@@ -7713,26 +7748,14 @@ BEGIN
                      WHERE res_artikel_key = rc.res_artikel_key)
           WHERE res_rsv_artikel_key = rc.res_rsv_artikel_key;
 
-         fac.trackaction ('RESAFM',
-                          rc.res_rsv_ruimte_key,
-                          NULL,
-                          NULL,
-                          'Catering afgemeld');
+         fac.trackaction ('RESAFM', rc.res_rsv_ruimte_key, NULL, NULL, 'Catering afgemeld');
       EXCEPTION
          WHEN OTHERS
          THEN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
-            v_errormsg :=
-                  ' ORACLE (error '
-               || oracle_err_num
-               || '/'
-               || oracle_err_mes
-               || ')';
-            fac.writelog (p_applname,
-                          'W',
-                          rc.aanduiding || v_errormsg,
-                          v_errorhint);
+            v_errormsg := ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+            fac.writelog (p_applname, 'W', rc.aanduiding || v_errormsg, v_errorhint);
             COMMIT;
       END;
    END LOOP;
@@ -7743,35 +7766,21 @@ BEGIN
    LOOP
       BEGIN
          v_errorhint := 'Fout bij bepalen res_rsv_deel_prijs.';
-
          SELECT res.getdeelprijs (rc.res_rsv_deel_key) INTO v_prijs FROM DUAL;
 
          v_errorhint := 'Fout bij bijwerken res_rsv_deel_prijs.';
-
          UPDATE res_rsv_deel
             SET res_status_bo_key = 5, res_rsv_deel_prijs = v_prijs
           WHERE res_rsv_deel_key = rc.res_rsv_deel_key;
 
-         fac.trackaction ('RESAFM',
-                          rc.res_rsv_ruimte_key,
-                          NULL,
-                          NULL,
-                          'Voorziening(en) afgemeld');
+         fac.trackaction ('RESAFM', rc.res_rsv_ruimte_key, NULL, NULL, 'Voorziening(en) afgemeld');
       EXCEPTION
          WHEN OTHERS
          THEN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
-            v_errormsg :=
-                  ' ORACLE (error '
-               || oracle_err_num
-               || '/'
-               || oracle_err_mes
-               || ')';
-            fac.writelog (p_applname,
-                          'W',
-                          rc.aanduiding || v_errormsg,
-                          v_errorhint);
+            v_errormsg := ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+            fac.writelog (p_applname, 'W', rc.aanduiding || v_errormsg, v_errorhint);
             COMMIT;
       END;
    END LOOP;
@@ -7782,37 +7791,23 @@ BEGIN
    LOOP
       BEGIN
          v_errorhint := 'Fout bij bepalen res_rsv_ruimte_prijs.';
-
          SELECT res.getruimteprijs (rc.res_rsv_ruimte_key)
            INTO v_prijs
            FROM DUAL;
 
          v_errorhint := 'Fout bij bijwerken res_rsv_ruimte_prijs.';
-
          UPDATE res_rsv_ruimte
             SET res_status_bo_key = 5, res_rsv_ruimte_prijs = v_prijs
           WHERE res_rsv_ruimte_key = rc.res_rsv_ruimte_key;
 
-         fac.trackaction ('RESAFM',
-                          rc.res_rsv_ruimte_key,
-                          NULL,
-                          NULL,
-                          NULL);
+         fac.trackaction ('RESAFM', rc.res_rsv_ruimte_key, NULL, NULL, NULL);
       EXCEPTION
          WHEN OTHERS
          THEN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
-            v_errormsg :=
-                  ' ORACLE (error '
-               || oracle_err_num
-               || '/'
-               || oracle_err_mes
-               || ')';
-            fac.writelog (p_applname,
-                          'W',
-                          rc.aanduiding || v_errormsg,
-                          v_errorhint);
+            v_errormsg := ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+            fac.writelog (p_applname, 'W', rc.aanduiding || v_errormsg, v_errorhint);
             COMMIT;
       END;
    END LOOP;