WELK#75628 opschonen geschiedenis Facilitor

svn path=/Customer/; revision=61244

onces/WELK/WELK#75628.sql

@@ -27,11 +27,20 @@ SET DEFINE OFF
 DECLARE
     CURSOR c_mld IS
         SELECT m.mld_melding_key
-          FROM mld_melding m, fac_tracking t
-         WHERE     m.mld_melding_status = 5
-               AND t.fac_tracking_refkey = m.mld_melding_key
-               AND t.fac_srtnotificatie_key = 22                      --MLDAFM
-               AND TRUNC (t.fac_tracking_datum) <
+          FROM mld_melding m
+         WHERE     m.mld_melding_status = 5                         --Afgemeld
+               AND TRUNC (m.mld_melding_datum) <
+                   TO_DATE ('01012021', 'DDMMYYYY');
+
+    CURSOR c_opdr IS
+        SELECT m.mld_melding_key,
+               o.mld_opdr_key,
+               o.mld_opdr_bedrijfopdr_volgnr
+          FROM mld_melding m, mld_opdr o
+         WHERE     m.mld_melding_key = o.mld_melding_key
+               AND m.mld_melding_status IN (5,6)                    --Afgemeld/Verwerkt
+               AND o.mld_statusopdr_key = 6                         --Afgemeld
+               AND TRUNC (m.mld_melding_datum) <
                    TO_DATE ('01012021', 'DDMMYYYY');
 
     CURSOR c_res IS
@@ -55,6 +64,20 @@ BEGIN
                          'Administratief verwerkt');
     END LOOP;
 
+    FOR rec IN c_opdr
+    LOOP
+        UPDATE mld_opdr
+           SET mld_statusopdr_key = 7
+         WHERE mld_opdr_key = rec.mld_opdr_key;
+
+        fac.trackaction (
+            'ORDVER',
+            rec.mld_opdr_key,
+            4,
+            NULL,
+            'Opdracht ' || rec.mld_opdr_key || ' is geheel verwerkt');
+    END LOOP;
+
     FOR rec IN c_res
     LOOP
         UPDATE res_rsv_ruimte
@@ -70,7 +93,6 @@ BEGIN
 END;
 /
 
-
 ------ payload end   ------
 
 SET DEFINE OFF