RTGS#76899 -- Foutief geformateerde datums in ins_deel_aanmaak corrigeren (na import)

svn path=/Customer/; revision=61981

onces/RTGS/RTGS#76899.sql

@@ -0,0 +1,53 @@
+--
+-- $Id$
+--
+-- Verkeerd geformateerde aanmaakdatums bij objecten rechtzetten
+
+DEFINE thisfile = 'RTGS#76899.sql'
+DEFINE dbuser   = 'RTGS'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+---------------------------------------
+PROMPT &fcltcusttxt
+---------------------------------------
+SET DEFINE OFF
+
+------ payload begin ------
+BEGIN
+DECLARE
+    CURSOR c1 IS
+        SELECT i.ins_deel_key, i.ins_deel_aanmaak, f.ins_deel_aanmaak datum
+          FROM ins_deel i, fac_imp_ins f
+         WHERE     i.ins_deel_omschrijving = f.ins_deel_omschrijving
+               AND f.ins_deel_aanmaak IS NOT NULL;
+BEGIN
+    FOR rec IN c1
+    LOOP
+        UPDATE ins_deel
+           SET ins_deel_aanmaak = rec.datum
+         WHERE ins_deel_key = rec.ins_deel_key;
+    END LOOP; 
+    END;
+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