KMMO#76334 -- Rondleidingen > Planbord rondleiders datum selectie reageert niet goed (plandatum aanpassen)

svn path=/Customer/; revision=61562

onces/KMMO/KMMO#76334.sql

@@ -23,20 +23,30 @@ SET DEFINE OFF
 
 DECLARE
     CURSOR c IS
-        SELECT mld_melding_key
-          FROM mld_melding m, mld_stdmelding std
-         WHERE     m.mld_melding_status IN (2, 3, 4)                             -- Nieuw, Te accepteren, In behandeling
-               AND m.mld_stdmelding_key = std.mld_stdmelding_key
-               AND std.mld_ins_discipline_key = 361                                                     -- Rondleidingen
-               AND NOT EXISTS
-                       (SELECT 1
-                          FROM mld_opdr o
-                         WHERE o.mld_melding_key = m.mld_melding_key AND o.mld_statusopdr_key NOT IN (6, 1)) -- afgemeld en afgewezen
-               AND mld_melding_einddatum < TO_DATE ('20230601', 'yyyymmdd');
+        SELECT mld_opdr_key,
+               mld_melding_key,
+               mld_opdr_bedrijfopdr_volgnr,
+               mld_opdr_einddatum
+          FROM mld_opdr
+         WHERE mld_typeopdr_key = 241 AND mld_opdr_plandatum IS NULL; -- rondleidingen
 BEGIN
     FOR rec IN c
     LOOP
-        mld.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- afgemeld
+        UPDATE mld_opdr
+           SET mld_opdr_plandatum = rec.mld_opdr_einddatum
+         WHERE mld_opdr_key = rec.mld_opdr_key;
+
+        FAC.trackaction (
+            '#ORDPLD',
+            rec.mld_opdr_key,
+            3,
+            NULL,
+               'De geplande aanvang van opdracht Ron'
+            || rec.mld_melding_key
+            || '/'
+            || rec.mld_opdr_bedrijfopdr_volgnr
+            || ' is gewijzigd: (leeg) --> '
+            || TO_CHAR (rec.mld_opdr_einddatum, 'dd-mm-yyyy hh24:mi'));
     END LOOP;
 END;
 /