diff --git a/onces/KMMO/KMMO#76334.sql b/onces/KMMO/KMMO#76334.sql index 027f5d005..a192a0aaa 100644 --- a/onces/KMMO/KMMO#76334.sql +++ b/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; /