UWVA#61083 Bewaartermijnen/automatische schoning+UWVA#71759 Rap/Locatie-Dienst-Bedrijf

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

UWVA/uwva_misc.sql

@@ -10326,6 +10326,42 @@ AS
           AND alg_kenmerk_key = 1020
           AND l.alg_locatie_key = ak.alg_onrgoed_key;
 
+-- UWVA#61083: Bewaartermijnen/automatische schoning!
+CREATE OR REPLACE VIEW UWVA_V_NOTI_AUTO_SCHONING
+(
+   CODE,
+   SENDER,
+   RECEIVER,
+   TEXT,
+   KEY,
+   XKEY,
+   XSENDER,
+   XEMAIL,
+   XMOBILE,
+   ATTACHMENTS
+)
+AS
+   SELECT sn.fac_srtnotificatie_code,
+          NULL,
+          p.prs_perslid_key,
+          sn.fac_srtnotificatie_oms,
+          r.fac_usrrap_key,
+          NULL,
+          NULL,
+          NULL,
+          NULL,
+          NULL
+     FROM fac_usrrap r,
+          fac_gebruikersgroep gg,
+          prs_v_aanwezigperslid p,
+          fac_srtnotificatie sn
+    WHERE r.fac_usrrap_key = 142 -- Dummy rapport? [Te schonen BES/BEZ/RES/MLD/CNT-data te zwaar]
+          AND gg.fac_groep_key IN (1, 741)     -- Infobeheer/HV Contract admin
+          AND gg.prs_perslid_key = p.prs_perslid_key
+          AND sn.fac_srtnotificatie_code = 'CUST29'
+          AND TO_CHAR (SYSDATE, 'dd-mm') = '10-01' -- Notificatie op 10/1 tbv. schoning op 1/3!
+;
+
 -- UWVA#36904
 CREATE OR REPLACE VIEW uwva_v_rap_res_vc_perslid
 (
@@ -15111,7 +15147,7 @@ AS
       WHERE ins_discipline_key NOT IN (198, 412)
    GROUP BY 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy'), ins_discipline_key
 ;
-/*
+
 CREATE OR REPLACE PROCEDURE uwva_daily
 AS
    -- BES per jaar!
@@ -15149,9 +15185,14 @@ AS
    v_datum1         DATE;
    v_datum2         DATE;
 BEGIN
+   -- Aanname dat er in elk jaar minimaal te schonen BEZ zijn!
+   v_errormsg := 'Fout bepalen of er nog iets te schonen valt';
+   SELECT COUNT (*)
+     INTO v_count
+     FROM uwva_v_rap_bez_schoning;
+
    -- Initieel dagelijks een jaartje schonen totdat achterstand ingelopen!
-   --IF 1 = 1
-   IF TO_CHAR (SYSDATE, 'dd-mm-yyyy') >= '01-03-2021'
+   IF TO_CHAR (SYSDATE, 'mm-dd') >= '99-99' AND v_count > 0
    THEN
       v_count := 0;
       v_datum1 := SYSDATE;
@@ -15386,7 +15427,7 @@ EXCEPTION
       COMMIT;
 END;
 /
-*/
+
 -- UWVA#69803: Bezettingspercentage (WP-reserveringen uit catalogi 475 en 484)!
 CREATE OR REPLACE VIEW UWVA_V_RAP_RES_WP_BZG
 (
@@ -15616,6 +15657,107 @@ AS
                        FROM rescatl) loc
              ON nl.dag = loc.dag AND nl.catalogus = loc.catalogus;
 */
+
+-- UWVA#71759: Rapportage Locatie-Dienst-Bedrijf!
+CREATE OR REPLACE VIEW UWVA_V_RAP_LOC_DIENST_BEDR
+(
+   district,
+   locatie_key,
+   locatie_code,
+   locatie_oms,
+   dienst,
+   relatie,
+   padres,
+   ppostcode,
+   pplaats,
+   pland,
+   badres,
+   bpostcode,
+   bplaats,
+   bland,
+   telefoon,
+   email,
+   l,
+   u,
+   c,
+   h,
+   kanaal_type,
+   kanaal_opdrachttype,
+   kanaal_url,
+   kanaal_xsl,
+   vakgroeptype,
+   vakgroep,
+   standaardmelding,
+   behandelgroep_naam,
+   behandelgroep_oms
+)
+AS
+   SELECT d.alg_district_omschrijving district,
+          l.alg_locatie_key,
+          l.alg_locatie_code,
+          l.alg_locatie_omschrijving,
+          dst.prs_dienst_omschrijving dienst,
+          b.prs_bedrijf_naam,
+          b.prs_bedrijf_post_adres,
+          b.prs_bedrijf_post_postcode,
+          b.prs_bedrijf_post_plaats,
+          b.prs_bedrijf_post_land,
+          b.prs_bedrijf_bezoek_adres,
+          b.prs_bedrijf_bezoek_postcode,
+          b.prs_bedrijf_bezoek_plaats,
+          b.prs_bedrijf_bezoek_land,
+          b.prs_bedrijf_telefoon,
+          b.prs_bedrijf_email,
+          b.prs_bedrijf_leverancier l,
+          b.prs_bedrijf_uitvoerende u,
+          b.prs_bedrijf_contract c,
+          b.prs_bedrijf_huurder h,
+          ba.prs_bedrijfadres_type kanaal_type,
+          DECODE (ba.prs_bedrijfadres_type, 'O', DECODE (ot.mld_typeopdr_key, NULL, 'Overige', ot.mld_typeopdr_omschrijving), NULL) kanaal_opdrachttype,
+          ba.prs_bedrijfadres_url kanaal_url,
+          ba.prs_bedrijfadres_xsl kanaal_xsl,
+          sd.ins_srtdiscipline_omschrijving,
+          md.ins_discipline_omschrijving,
+          sm.mld_stdmelding_omschrijving,
+          bg.mld_behandelgroep_naam,
+          bg.mld_behandelgroep_oms
+     FROM (SELECT prs_bedrijf_key, prs_dienst_key, alg_locatie_key
+             FROM prs_bedrijfdienstlocatie
+            WHERE alg_locatie_key IS NOT NULL
+           UNION
+           SELECT bdl.prs_bedrijf_key, bdl.prs_dienst_key, g.alg_locatie_key
+             FROM prs_bedrijfdienstlocatie bdl, alg_gebouw g
+            WHERE bdl.alg_gebouw_key = g.alg_gebouw_key
+           UNION
+           SELECT bdl.prs_bedrijf_key, bdl.prs_dienst_key, l.alg_locatie_key
+             FROM prs_bedrijfdienstlocatie bdl, alg_locatie l
+            WHERE bdl.alg_locatie_key IS NULL AND bdl.alg_gebouw_key IS NULL) bdl,
+          alg_locatie l,
+          alg_district d,
+          prs_dienst dst,
+          prs_v_aanwezigbedrijf b,
+          prs_bedrijfadres ba,
+          mld_typeopdr ot,
+          (SELECT *
+             FROM mld_stdmelding
+            WHERE COALESCE (mld_stdmelding_verwijder, mld_stdmelding_vervaldatum, SYSDATE) > TRUNC (SYSDATE)) sm,
+          mld_discipline md,
+          ins_srtdiscipline sd,
+          mld_disc_params dp,
+          mld_behandelgroep bg
+    WHERE bdl.alg_locatie_key = l.alg_locatie_key
+          AND COALESCE (l.alg_locatie_verwijder, l.alg_locatie_vervaldatum, SYSDATE) > TRUNC (SYSDATE)
+          AND l.alg_district_key = d.alg_district_key
+          AND bdl.prs_dienst_key = dst.prs_dienst_key
+          AND bdl.prs_bedrijf_key = b.prs_bedrijf_key
+          AND b.prs_bedrijf_key = ba.prs_bedrijf_key(+)
+          AND ba.mld_typeopdr_key = ot.mld_typeopdr_key(+)
+          AND dst.prs_dienst_key = sm.prs_dienst_key(+)
+          AND sm.mld_ins_discipline_key = md.ins_discipline_key(+)
+          AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+          AND md.ins_discipline_key = dp.mld_ins_discipline_key(+)
+          AND dp.mld_behandelgroep_key = bg.mld_behandelgroep_key(+);
+
 ------ payload end   ------
 
 SET DEFINE OFF