From 5e7505a4217f4c487a2c6824f52cfa980040cfef Mon Sep 17 00:00:00 2001
From: Suzan Wiegerinck <suzan.wiegerinck@aareon.nl>
Date: Sat, 10 Jul 2021 10:56:47 +0000
Subject: [PATCH] FCLT#65380 Implementatie AkzoNobel Sassenheim en A'hem/A'dam
 naar Saas --> Medewerkers Amsterdam in juiste autorisatiegroep zetten

svn path=/Customer/; revision=52303
---
 onces/AKZO/FCLT#65380_2.sql | 75 +++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 onces/AKZO/FCLT#65380_2.sql

diff --git a/onces/AKZO/FCLT#65380_2.sql b/onces/AKZO/FCLT#65380_2.sql
new file mode 100644
index 000000000..a76f60392
--- /dev/null
+++ b/onces/AKZO/FCLT#65380_2.sql
@@ -0,0 +1,75 @@
+--
+-- $Id$
+--
+-- FCLT#65380 Implementatie AkzoNobel Sassenheim en A'hem/A'dam naar Saas
+-- Medewerkers Amsterdam in juiste autorisatiegroep zetten
+
+DEFINE thisfile = 'FCLT#65380_2.SQL'
+DEFINE dbuser   = '^AKZO'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+
+SELECT adm.getscriptspoolfile ('&thisfile') AS fcltlogfile FROM DUAL;
+
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+
+SELECT adm.checkscriptcust ('&dbuser') AS fcltcusterr FROM DUAL;
+
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+
+DECLARE
+    --   Onderstaande cursor bevat alle mdw Amsterdam/ fac_groep_key = 201;
+    CURSOR c_mdw IS
+        SELECT DISTINCT wp.prs_perslid_key
+          FROM prs_perslidwerkplek        wp,
+               prs_werkplek               w,
+               alg_v_ruimte_gegevens_all  r,
+               prs_perslid                p
+         WHERE     w.prs_werkplek_key = wp.prs_werkplek_key
+               AND w.prs_alg_ruimte_key = r.alg_ruimte_key
+               AND r.alg_locatie_code = 'NLAMS00A'
+               AND p.prs_perslid_key = wp.prs_perslid_key
+               AND p.prs_perslid_einddatum IS NULL
+               AND p.prs_perslid_verwijder IS NULL
+               AND UPPER (p.prs_perslid_email) LIKE '%AKZONOBEL%'
+               AND wp.prs_perslid_key NOT IN (SELECT g.prs_perslid_key
+                                                FROM fac_gebruikersgroep g
+                                               WHERE g.fac_groep_key = 201);
+BEGIN
+    FOR rec IN c_mdw
+    LOOP
+        BEGIN
+            INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
+                 VALUES (201, rec.prs_perslid_key);
+
+            COMMIT;
+        END;
+    END LOOP;
+END;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+
+BEGIN
+    adm.systrackscriptId (
+        '$Id$',
+        1);
+END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile
\ No newline at end of file