diff --git a/onces/HGCU/HGCU#88784.sql b/onces/HGCU/HGCU#88784.sql new file mode 100644 index 000000000..ad699d380 --- /dev/null +++ b/onces/HGCU/HGCU#88784.sql @@ -0,0 +1,104 @@ +-- +-- $Id$ +-- +-- Op verzoek van Axel van Breukelen de status van een aantal meldingen terugzetten van Historie (6) naar Afgemeld (5). Het script verwijdert ook tracking om +-- problemen met dubbele tracking te voorkomen. +-- +-- +DEFINE thisfile = 'HGCU#88784.SQL' +DEFINE dbuser = '^HGCU' + +SET ECHO ON +SET DEFINE ON +COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT; +COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT; +WHENEVER SQLERROR CONTINUE; +SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL; +SPOOL &fcltlogfile +WHENEVER SQLERROR EXIT; +SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL; +WHENEVER SQLERROR CONTINUE; +PROMPT &fcltcusterr +SET DEFINE OFF + +------ payload begin ------ + +DECLARE + CURSOR c IS + SELECT * + FROM mld_melding + WHERE mld_melding_key IN (257, + 258, + 264, + 266, + 271, + 273, + 286, + 287, + 290, + 294, + 295, + 302, + 304, + 306, + 308, + 314, + 315, + 317, + 325, + 333, + 335, + 336, + 339, + 343, + 344, + 359, + 369, + 370, + 373, + 374, + 375, + 376, + 377, + 389, + 396, + 411, + 443, + 471, + 536); + + v_tracking_key NUMBER; +BEGIN + FOR rec IN c + LOOP + BEGIN + UPDATE mld_melding + SET mld_melding_afgerond = 0, + mld_melding_status = 5 -- Afgemeld. + WHERE mld_melding_key = rec.mld_melding_key; + + DELETE fac_tracking + WHERE fac_tracking_refkey = rec.mld_melding_key AND fac_srtnotificatie_key IN (56, 48); -- MLDVER, MLDAFR + + fac.trackaction ('MLDUPD', + rec.mld_melding_key, + NULL, + NULL, + 'Melding is teruggezet van status Historie naar Afgemeld (HGCU#88784)', + v_tracking_key); + END; + END LOOP; +END; +/ + +------ payload end ------ + +SET DEFINE OFF +BEGIN adm.systrackscriptId ('$Id$', 1); END; +/ + +COMMIT; +SET ECHO OFF +SPOOL OFF +SET DEFINE ON +PROMPT Logfile of this upgrade is: &fcltlogfile