CSUN#58018 -- Eenmalig werkplekken virtueel maken ivm performance

svn path=/Customer/; revision=43010

onces/CSUN/CSUN#58018.sql

@@ -0,0 +1,65 @@
+--
+-- $Id$
+--
+
+
+DEFINE thisfile = 'CSUN#58018.SQL'
+DEFINE dbuser   = '^CSUN'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+-- Personen uit autorisatiegroep klant en rayonmanager met meer dan 5 gekoppelde werkplekken virtueel maken ivm performance-issues
+
+UPDATE prs_werkplek wp
+   SET wp.prs_werkplek_virtueel = 1
+ WHERE     wp.prs_werkplek_virtueel = 0
+       AND wp.prs_werkplek_volgnr = 1
+       AND wp.prs_werkplek_key IN
+               (SELECT pwp.prs_werkplek_key
+                  FROM prs_perslidwerkplek  pwp,
+                       prs_perslid          p,
+                       prs_srtperslid       sp,
+                       fac_gebruikersgroep  ggr,
+                       fac_groep            gr,
+                       (  SELECT p.prs_perslid_key,
+                                 p.prs_perslid_naam,
+                                 COUNT (wp.prs_perslidwerkplek_key) AS totaal
+                            FROM prs_werkplek       w,
+                                 prs_perslidwerkplek wp,
+                                 prs_perslid        p
+                           WHERE     w.prs_werkplek_key = wp.prs_werkplek_key
+                                 AND wp.prs_perslid_key = p.prs_perslid_key
+                                 AND w.prs_werkplek_volgnr = 1
+                                 AND w.prs_werkplek_virtueel = 0
+                        GROUP BY p.prs_perslid_key, p.prs_perslid_naam) pwnv -- niet virtuele werkplekken
+                 WHERE     p.prs_perslid_key = pwp.prs_perslid_key
+                       AND p.prs_perslid_key = pwnv.prs_perslid_key
+                       AND p.prs_srtperslid_key = sp.prs_srtperslid_key
+                       AND p.prs_perslid_key = ggr.prs_perslid_key
+                       AND ggr.fac_groep_key = gr.fac_groep_key
+                       AND pwnv.totaal IS NOT NULL
+                       AND pwnv.totaal > 5                       -- Max_aantal
+                       AND fac_groep_omschrijving IN
+                               ('Klant', 'Rayonmanager') 
+                       )   ;
+
+------ 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