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:
62
onces/SGGR/SGGR#83501.sql
Normal file
62
onces/SGGR/SGGR#83501.sql
Normal 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
|
||||
Reference in New Issue
Block a user