AAIT#88697 -- script TA's en afmelder1 deleten ivm exit Afmelderscherm (leveranciersportal)

svn path=/Customer/; revision=68831

onces/AA/AAXX/AAXX_88697_afmelder1.sql

@@ -0,0 +1,85 @@
+--
+-- $Id$
+--
+-- ONCESCRIPT om binnen HEYDAY alle gekoppelde afmelder1 aan bedrijfsadressen te verwijderen - ivm inactiveren van alle Afmeldschermen voor Afmelder1-generieke accounts
+
+DEFINE thisfile = 'AAXX_88697_afmelder1.SQL'
+DEFINE dbuser   = 'AAXX'
+
+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 c
+     IS
+ SELECT ba.prs_bedrijfadres_key
+   FROM prs_bedrijfadres ba
+   WHERE ba.prs_bedrijfadres_key IN 
+       (
+          SELECT a.prs_bedrijfadres_key
+     FROM   prs_bedrijf b, prs_bedrijfadres a
+    WHERE       b.prs_bedrijf_key = a.prs_bedrijf_key
+            AND b.prs_bedrijf_verwijder IS NULL
+            AND NVL (b.prs_bedrijf_intern, 0) <> 1
+            AND a.prs_bedrijfadres_lockuser_key = (SELECT p.prs_perslid_key FROM prs_perslid p WHERE p.prs_perslid_verwijder IS NULL AND UPPER(p.prs_perslid_naam) = 'AFMELDER1') 
+         )
+         -- TEST
+         -- AND ba.prs_bedrijf_key IN (7544, 12795)
+          ;
+
+ BEGIN
+ 	
+    FOR rec IN c
+    LOOP
+        BEGIN
+
+        	-- DELETE - UITVOEREN
+        	UPDATE prs_bedrijfadres ba
+        	   SET ba.prs_bedrijfadres_lockuser_key = '',
+        	       ba.prs_bedrijfadres_locksecret = '',
+        	       ba.prs_bedrijfadres_lockexpire = ''
+           WHERE ba.prs_bedrijfadres_key = rec.prs_bedrijfadres_key ;
+         
+         -- tracking op systeemadres...
+         BEGIN fac.trackaction('PRSUPT', rec.prs_bedrijfadres_key, 4, NULL, 'Gewijzigd --> afmelder1-constructie verwijderd (zie AAIT#88697)'); 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