AADS#84514 -- Naamswijziging DSM naar dsm-firmenich.com met once doorvoeren

svn path=/Customer/; revision=66089

onces/AA/AADS/AADS#84514.sql

@@ -0,0 +1,89 @@
+--
+-- $Id$
+--
+-- Korte beschrijving wat het script doet
+-- Domeinnamen '@dsm..' komen te vervallen en verzoek om deze te vervangen door '@dsm-firmenich.com'. Betreft +/- 3000 records...
+--
+DEFINE thisfile = 'AADS#84514.SQL'
+DEFINE dbuser   = 'AADS'
+
+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
+    v_errormsg       VARCHAR (200);
+    v_errorhint      VARCHAR (200);
+    oracle_err_num   NUMBER;
+    oracle_err_mes   VARCHAR2 (150);
+    currentversion   fac_module.fac_module_version%TYPE;
+    v_aanduiding     VARCHAR (100);
+    v_count          NUMBER;
+
+    -- CURSOR  - Alle actuele personen met een oude dsm-domeinnaam 
+    CURSOR c
+    IS
+    SELECT p.prs_perslid_key, p.prs_perslid_naam, p.prs_perslid_email, 
+           SUBSTR (p.prs_perslid_email, 0, INSTR (p.prs_perslid_email, '@') - 1) naam,           
+           SUBSTR (p.prs_perslid_email, INSTR (p.prs_perslid_email, '@') + 1) domein_naam
+      FROM prs_perslid p
+     WHERE     p.prs_perslid_verwijder IS NULL
+         AND SUBSTR (p.prs_perslid_email, INSTR (p.prs_perslid_email, '@') + 1) IN
+                 ('DSM.com',
+                  'DSM.Com',
+                  'DSM-Niaga.com',
+                  'dsm-niaga.com',
+                  'dsm.nl',
+                  'dsm.com',
+                  'DSM-firmenich.COM',
+                  'dsm-sinochem.com',
+                  'DSM.COM',
+                  'mail4dsm.com')
+     ORDER BY p.prs_perslid_key;
+
+BEGIN
+
+    FOR rec IN c
+    LOOP
+        BEGIN
+
+            v_aanduiding :=
+                   'bijwerken emailadres - perslid_key:'
+                || TO_CHAR (rec.prs_perslid_key);
+            
+            -- aanpassen huidige domeinnaam naar 'dsm-firmenich.com'
+            UPDATE prs_perslid p
+               SET p.prs_perslid_email = REPLACE(p.prs_perslid_email, rec.domein_naam, 'dsm-firmenich.com')
+             WHERE prs_perslid_key = rec.prs_perslid_key ;
+             
+            -- logging op personenkaart
+            BEGIN fac.trackaction('PRSUPD', rec.prs_perslid_key, 4, NULL, 'E-mail: ' || rec.prs_perslid_email || ' --> ' || rec.naam || '@dsm-firmenich.com'); END;
+        
+        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