KMMO#76480 -- Indexering toevoegen.

svn path=/Customer/trunk/; revision=59945

KMMO/kmmo.sql

@@ -35,6 +35,8 @@ CREATE OR REPLACE PACKAGE KMMO AS
                            psessionid IN VARCHAR2,
                            pemailkey  IN NUMBER);
 
+   PROCEDURE indexatie_mjob;
+
 END;
 /
 
@@ -258,6 +260,37 @@ CREATE OR REPLACE PACKAGE BODY KMMO AS
                      'Database fout - Neem contact op met uw systeembeheerder');
    END;
 
+   PROCEDURE indexatie_mjob
+   AS
+    v_indexatie   NUMBER;
+   BEGIN
+       SELECT fac_usrdata_prijs
+         INTO v_indexatie
+         FROM fac_usrdata
+        WHERE     fac_usrtab_key = 261 -- Indexatie MJOB
+              AND fac_usrdata_vervaldatum = TRUNC (SYSDATE);
+
+       UPDATE ins_deelsrtcontrole dsc
+          SET dsc.ins_deelsrtcontrole_freezecost = dsc.ins_deelsrtcontrole_freezecost * (1 + v_indexatie / 100)
+        WHERE     TRUNC (dsc.ins_deelsrtcontrole_freezedate, 'yyyy') = TRUNC (SYSDATE, 'yyyy')
+              AND dsc.ins_srtcontrole_key IN
+                      (SELECT sc.ins_srtcontrole_key
+                         FROM ctr_disc_params dp, ins_srtcontrole sc
+                        WHERE dp.ctr_ins_discipline_key = sc.ctr_discipline_key AND dp.ctr_disc_params_ismjob = 1);
+
+       UPDATE ins_srtcontroledl_xcp xcp
+          SET xcp.ins_srtcontroledl_xcp_materia = xcp.ins_srtcontroledl_xcp_materia * (1 + v_indexatie / 100)
+        WHERE xcp.ins_srtcontrole_key IN
+                  (SELECT sc.ins_srtcontrole_key
+                     FROM ctr_disc_params dp, ins_srtcontrole sc
+                    WHERE dp.ctr_ins_discipline_key = sc.ctr_discipline_key AND dp.ctr_disc_params_ismjob = 1);
+   EXCEPTION
+       WHEN NO_DATA_FOUND
+       THEN
+           -- Er valt vandaag niets te indexeren.
+           NULL;
+   END;
+
 END;
 /
 
@@ -284,6 +317,10 @@ BEGIN
 
    END IF;
 
+   -- Kijk of de MJOB records geindexeerd moeten worden.
+   -- De indexatie vindt plaats op de vervaldatum van het record in de Indexatie MJOB eigen tabel
+   KMMO.indexatie_mjob;
+
 END;
 /