MNNL#71193 M2M-HR/Zetten Gereed-datum+MNNL#71712 PRS-import/Automatische autorisatie VB

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

MNNL/mnnl.sql

@@ -172,6 +172,35 @@ BEGIN
             COMMIT;
       END;
    END LOOP;
+
+   -- Afnemen 2101=_Default_VB van medewerkers niet onder VB (op niveau 1)!
+   v_errorhint := 'Fout afnemen _Default_VB';
+
+   DELETE FROM fac_gebruikersgroep gg
+         WHERE gg.fac_groep_key = 2101                         -- _Default_VB
+               AND EXISTS
+                     (SELECT 1
+                        FROM prs_v_aanwezigperslid p, prs_v_afdeling_boom ab
+                       WHERE p.prs_afdeling_key = ab.prs_afdeling_key
+                             AND ab.prs_afdeling_key1 = 421 -- Afdeling-1 met code=VB!
+                             AND p.prs_perslid_key = gg.prs_perslid_key);
+   COMMIT;
+
+   -- Toekennen 2101=_Default_VB aan medewerkers onder VB (op niveau 1)!
+   v_errorhint := 'Fout toekennen _Default_VB';
+
+   INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
+      SELECT 2101, p.prs_perslid_key                            -- _Default_VB
+        FROM prs_v_aanwezigperslid p, prs_v_afdeling_boom ab
+       WHERE p.prs_perslid_oslogin IS NOT NULL
+             AND p.prs_afdeling_key = ab.prs_afdeling_key
+             AND ab.prs_afdeling_key1 = 421         -- Afdeling-1 met code=VB!
+             AND NOT EXISTS                         -- Niet al in _Default_VB!
+                   (SELECT 1
+                      FROM fac_gebruikersgroep
+                     WHERE fac_groep_key = 2101                 -- _Default_VB
+                       AND prs_perslid_key = p.prs_perslid_key);
+   COMMIT;
 END mnnl_update_prs;
 /
 
@@ -3640,6 +3669,7 @@ END mnnl_update_eua;
 -- MNNL#55078: Mail2Existing ticket/afmelden (melding@).
 -- MNNL#61759: FASE1/ServiceNow-koppeling/Mail2Existing opdracht (sogeti@).
 -- MNNL#61759: FASE2/ServiceNow-koppeling/Mail2Melding (snow@).
+-- MNNL#71193: Gereed-datum op basis van content van mail (hr@).
 CREATE OR REPLACE PROCEDURE MNNL_processemail (
    pfrom        IN VARCHAR2,
    pto          IN VARCHAR2,
@@ -3910,6 +3940,7 @@ BEGIN
                                   mld_melding_omschrijving,
                                   mld_stdmelding_key,
                                   mld_melding_t_uitvoertijd,
+                                  --mld_melding_einddatum,
                                   prs_kostenplaats_key,
                                   prs_perslid_key,
                                   prs_perslid_key_voor,
@@ -3924,6 +3955,7 @@ BEGIN
                      pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
                      v_stdmelding_key,
                      NULL,
+                     --fac.safe_to_date (SUBSTR (v_vrijstellingsdatum, 1, 10), 'dd-mm-yyyy'),
                      v_kostenplaats_key,
                      v_perslid_key,
                      v_perslid_key,