SGGR#83501 Script om alle openstaande meldingen die geaccepteerd moeten worden (door medewerkers met een BO3 autorisatie) om te zetten naar een melding waarvoor instemming gegeven moet worden.

svn path=/Customer/; revision=70514
This commit is contained in:
Suzan Wiegerinck
2025-10-03 10:08:37 +00:00
parent 9af6d22883
commit 69e759cf17

62
onces/SGGR/SGGR#83501.sql Normal file
View File

@@ -0,0 +1,62 @@
--
-- $Id$
--
-- Korte beschrijving wat het script doet
-- Omzetten meldingen van accepteren (BO3) naar instemmen (conceptstatus=8)
--
--
DEFINE thisfile = 'SGGR#83501.SQL'
DEFINE dbuser = '^SGGR'
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 ------
-- alle meldingen die nu nog ter goedkeuring bij teamleiders liggen zetten we om naar consent
UPDATE MLD_MELDING um
SET um.mld_melding_conceptstatus = 8
WHERE EXISTS
(SELECT 1
FROM sggr_v_rap_acc a, mld_melding m, mld_stdmelding sm
WHERE a.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.mld_melding_conceptstatus = 0
AND sm.mld_stdmelding_conceptstatus = 8
AND um.mld_melding_key = a.mld_melding_key);
-- alle meldingen die nu nog ter goedkeuring bij directie liggen zetten we om naar consent
UPDATE MLD_MELDING um
SET um.mld_melding_conceptstatus = 8
WHERE EXISTS
(SELECT 1
FROM sggr_v_rap_dir a, mld_melding m, mld_stdmelding sm
WHERE a.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.mld_melding_conceptstatus = 0
AND sm.mld_stdmelding_conceptstatus = 8
AND um.mld_melding_key = a.mld_melding_key);
COMMIT;
------ 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