WOHW#77281 -- MJOB indexeren met 22.07%

svn path=/Customer/; revision=59657

onces/WOHW/WOHW#77281.sql

@@ -0,0 +1,70 @@
+--
+-- $Id$
+--
+-- Ophogen van kosten periodieke taken en geaccordeerde taken met 22.07%
+
+DEFINE thisfile = 'WOHW#77281.sql'
+DEFINE dbuser   = '^WOHW'
+
+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 ins_srtcontrole_key FROM ins_srtcontrole;
+    BEGIN
+        FOR rec IN c1
+        LOOP
+            BEGIN
+                UPDATE ins_srtcontrole
+                   SET ins_srtcontrole_kosten2 =
+                           ins_srtcontrole_kosten2 * 1.2207
+                 WHERE ins_srtcontrole_key = rec.ins_srtcontrole_key;
+
+                FAC.trackaction (
+                    'CTRSUP',
+                    rec.ins_srtcontrole_key,
+                    3,
+                    SYSDATE,
+                    'Indexatie van 22.07% uitgevoerd door systeem.');
+            END;
+        END LOOP;
+
+        UPDATE ins_srtcontroledl_xcp
+           SET ins_srtcontroledl_xcp_kosten2 =
+                   ins_srtcontroledl_xcp_kosten2 * 1.2207;
+
+        UPDATE ins_deelsrtcontrole
+           SET ins_deelsrtcontrole_freezecost =
+                   ins_deelsrtcontrole_freezecost * 1.2207
+         WHERE TO_CHAR (ins_deelsrtcontrole_freezedate, 'YYYY') = '2023';
+    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