49 lines
1.7 KiB
SQL
49 lines
1.7 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Customer specific once-script DIAN#65248.SQL.
|
|
DEFINE thisfile = 'DIAN#65248.SQL'
|
|
DEFINE dbuser = '^DIAN'
|
|
|
|
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 ------
|
|
|
|
-- Afpakken schrijfrechten op foutieve catalogi zoals in maart 2020 aangemaakt nav. een verkeerde aanlevering vanuit Exact!
|
|
UPDATE fac_groeprechten
|
|
SET fac_gebruiker_prs_level_write = 9, fac_gebruiker_alg_level_write = 9
|
|
WHERE fac_groeprechten_key IN
|
|
(SELECT DISTINCT gr.fac_groeprechten_key
|
|
FROM bes_discipline bd, fac_groeprechten gr, fac_functie f, fac_groep g
|
|
WHERE LENGTH (SUBSTR (bd.ins_discipline_omschrijving, INSTR (bd.ins_discipline_omschrijving, '/') + 1)) <> 6
|
|
AND bd.ins_discipline_key = gr.ins_discipline_key
|
|
AND gr.fac_functie_key = f.fac_functie_key
|
|
AND f.fac_functie_module = 'BES'
|
|
AND gr.fac_groep_key = g.fac_groep_key
|
|
--AND LENGTH (SUBSTR (g.fac_groep_omschrijving, 1, INSTR (g.fac_groep_omschrijving, '/') - 1)) <> 6
|
|
AND g.fac_groep_key NOT IN (3, 61)) -- _FACILITOR/Client bestellingen FO/BO
|
|
;
|
|
|
|
------ 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
|