VNOG#83890 -- Conversie van gerelateerde objecten naar onderdelen

svn path=/Customer/; revision=68245

onces/VNOG/VNOG#83890.sql

@@ -0,0 +1,50 @@
+-- $Id$
+--
+-- Script gerelateerde objecten om te hangen naar onderdelen en vervolgens de relatie te verwijderen.
+--
+--
+DEFINE thisfile = 'VNOG#83890.SQL'
+DEFINE dbuser   = '^VNOG'
+
+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 ------
+
+UPDATE ins_deel d
+   SET ins_deel_parent_key =
+           (SELECT MAX (ins_deelkoppeling_van_key)
+              FROM ins_deelkoppeling
+             WHERE     ins_deelkoppeling_naar_key = d.ins_deel_key
+                   AND ins_deelkoppeling_verwijder IS NULL);
+
+UPDATE ins_deelkoppeling ik
+   SET ins_deelkoppeling_verwijder = SYSDATE
+ WHERE     ik.ins_deelkoppeling_verwijder IS NULL
+       AND EXISTS
+               (SELECT 'x'
+                  FROM ins_deel
+                 WHERE     ins_deel_parent_key IS NOT NULL
+                       AND ins_deel_key = ik.ins_deelkoppeling_naar_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