AAXX#69571 -- Overgenomen uit Exchange zorgt voor veel dubbele bezoekers

svn path=/Customer/; revision=53786

onces/AA/CVGZ/CVGZ#69571.sql

@@ -0,0 +1,63 @@
+--
+-- $Id$
+-- Via EXCHANGE-koppeling worden voor aantal afspraken dezelfde bezoekers meerdere keren aangemaakt. Oorzaak: P_ATT_MAIL wordt niet goed gevuld
+-- Oorzaak wordt nog verder uitgezocht hoe/wat. Bij deze iig alvast opschoonactie om de bezoekers die teveel/onterecht zijn aangemaakt, te verwijdern
+-- Customer specific once-script CVGZ#62218.SQL.
+DEFINE thisfile = 'CVGZ#69571.SQL'
+DEFINE dbuser   = '^CVGZ'
+
+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 ------
+
+DELETE bez_bezoekers
+WHERE
+bez_bezoekers_key IN
+            (
+            SELECT b.bez_bezoekers_key
+              FROM bez_afspraak a,
+                   res_rsv_ruimte rrr,
+                   res_ruimte_opstelling ro,
+                   res_ruimte rr,
+                   -- res_activiteit ra,
+                   -- res_activiteitdiscipline rad,
+                   bez_bezoekers b
+             WHERE 
+               --a.res_rsv_ruimte_key = p_rsv_ruimte_key
+               -- AND
+               a.bez_afspraak_key = b.bez_afspraak_key
+               AND a.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+               AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+               AND ro.res_ruimte_key = rr.res_ruimte_key
+               AND rr.res_ruimte_extern_ID IS NOT NULL
+               -- TEST
+               -- AND a.bez_afspraak_key in (107915, 108169, 107792) -- 107792
+               AND NOT EXISTS 
+                 (SELECT kw.bez_bezoekers_key FROM bez_kenmerkwaarde kw WHERE 
+                        kw.bez_kenmerk_key = 1000           -- E-mailadres Exchange
+                        AND kw.bez_kenmerkwaarde_verwijder IS NULL
+                        AND kw.bez_bezoekers_key = b.bez_bezoekers_key) 
+         );
+
+------ 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