AASA#70046 -- Assetmanagement voor SABIC inrichten

svn path=/Customer/; revision=54364

onces/AA/AASA/AASA#70046.sql

@@ -0,0 +1,100 @@
+--
+-- $Id$
+--
+-- Inrichting Assetmanagent bij SABIC - Script om oude Objectstructuur op te ruimen
+
+DEFINE thisfile = 'AASA#70046.SQL'
+DEFINE dbuser   = 'AASA'
+
+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 ------
+
+-- OPSCHONING huidige objectstructuur
+---- 1. Objecten via voorkant verwijderen
+---- 2. Kenmerken via voorkant verwijderen
+---- 3. Dit script draaien om bepaald deel van de objectstructuur te verwijderen.
+
+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;
+    v_aanvrager      NUMBER(10);
+
+CURSOR c
+IS
+SELECT sd.ins_srtdeel_key,
+       sd.ins_srtdeel_code,
+       sd.ins_srtdeel_omschrijving,
+       sd.ins_srtdeel_aanmaak,
+       sd.ins_srtdeel_verwijder,
+       sg.ins_srtgroep_key,
+       sg.ins_srtgroep_omschrijving,
+       sg.ins_srtgroep_verwijder,
+       d.ins_discipline_key,
+       d.ins_discipline_omschrijving,
+       d.ins_discipline_verwijder
+  FROM ins_srtdeel sd, ins_srtgroep sg, ins_tab_discipline d
+ WHERE     sd.ins_srtgroep_key = sg.ins_srtgroep_key
+       AND sg.ins_discipline_key = d.ins_discipline_key
+       AND d.ins_discipline_module = 'INS'
+       AND SUBSTR (sg.ins_srtgroep_omschrijving, 1, 2) =
+           SUBSTR (d.ins_discipline_omschrijving, 1, 2)
+       AND fac.safe_to_number (SUBSTR (d.ins_discipline_omschrijving, 1, 2))
+               IS NOT NULL
+       AND NOT EXISTS
+               (SELECT 1
+                  FROM ins_deel
+                 WHERE     ins_srtdeel_key = sd.ins_srtdeel_key
+                       AND ins_deel_verwijder IS NULL) ;                       
+
+BEGIN
+   
+    FOR rec IN c
+    LOOP
+        BEGIN
+
+          UPDATE ins_srtdeel
+             SET ins_srtdeel_verwijder = SYSDATE
+           WHERE ins_srtdeel_key = rec.ins_srtdeel_key;
+
+          UPDATE ins_srtgroep
+             SET ins_srtgroep_verwijder = SYSDATE
+           WHERE ins_srtgroep_key = rec.ins_srtgroep_key;
+
+          UPDATE ins_tab_discipline
+             SET ins_discipline_verwijder = SYSDATE
+           WHERE ins_discipline_key = rec.ins_discipline_key;
+
+        END;
+    END LOOP;
+
+END;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 0); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile