66 lines
2.1 KiB
SQL
66 lines
2.1 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- De meldingen 'Bij frontoffice' (import planning) klanten, een week naar achteren qua gereeddatum, voor enkele klanten.
|
|
--
|
|
DEFINE thisfile = 'CSUN#65497.SQL'
|
|
DEFINE dbuser = '^CSUN'
|
|
|
|
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 ------
|
|
|
|
UPDATE mld_melding
|
|
SET mld_melding_einddatum = mld_melding_einddatum + 7
|
|
WHERE mld_melding_key IN
|
|
(SELECT m.mld_melding_key
|
|
FROM mld_melding m,
|
|
mld_statuses ms,
|
|
alg_locatie l,
|
|
alg_onrgoedkenmerk lk,
|
|
fac_usrdata ud
|
|
WHERE m.mld_alg_locatie_key = l.alg_locatie_key
|
|
AND l.alg_locatie_key = lk.alg_onrgoed_key
|
|
AND lk.alg_kenmerk_key = 1000
|
|
AND m.mld_melding_status = ms.mld_statuses_key
|
|
AND lk.alg_onrgoed_niveau = 'L'
|
|
AND lk.alg_onrgoedkenmerk_waarde = ud.fac_usrdata_key
|
|
AND m.mld_melding_status = 0
|
|
AND fac.safe_to_number (ud.fac_usrdata_code) IN
|
|
(909,
|
|
143,
|
|
914,
|
|
92,
|
|
307,
|
|
736,
|
|
961,
|
|
985,
|
|
832,
|
|
935,
|
|
683,
|
|
693,
|
|
984));
|
|
|
|
------ 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
|