80 lines
2.7 KiB
SQL
80 lines
2.7 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Customer specific once-script UWVA#81993.
|
|
DEFINE thisfile = 'UWVA#81993.SQL'
|
|
DEFINE dbuser = '^UWVA'
|
|
|
|
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 ------
|
|
|
|
-- UWVA#81993: Voor alle reserveringen na 1 februari de gekoppelde afspraak
|
|
-- met actie=Oproepen omkatten naar actie=Op laten halen!
|
|
SET SERVEROUTPUT ON size 1000000;
|
|
|
|
DECLARE
|
|
--CURSOR c -- Korte versie
|
|
-- SELECT bez_afspraak_key
|
|
-- FROM bez_afspraak
|
|
-- WHERE bez_actie_key = 21 -- Oproepen
|
|
-- AND res_rsv_ruimte_key IS NOT NULL -- Is en zou zo moeten zijn!
|
|
-- AND bez_afspraak_datum >= fac.safe_to_date ('01-02-2024', 'dd-mm-yyyy')
|
|
-- ORDER BY bez_afspraak_key;
|
|
CURSOR c
|
|
IS
|
|
SELECT a.bez_afspraak_key
|
|
FROM bez_afspraak a,
|
|
res_v_aanwezigrsv_ruimte rrr,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE a.bez_actie_key = 21 -- Oproepen
|
|
--AND a.res_rsv_ruimte_key IS NOT NULL
|
|
AND a.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
|
|
AND rrr.res_rsv_ruimte_van >= fac.safe_to_date ('01-02-2024', 'dd-mm-yyyy')
|
|
AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.bez_actie_key = 21 -- Oproepen
|
|
ORDER BY a.bez_afspraak_key;
|
|
|
|
v_count NUMBER := 0;
|
|
BEGIN
|
|
FOR rec IN c
|
|
LOOP
|
|
BEGIN
|
|
UPDATE bez_afspraak
|
|
SET bez_actie_key = 5 -- Op laten halen (bellen)
|
|
WHERE bez_afspraak_key = rec.bez_afspraak_key;
|
|
fac.trackaction ('BEZUPD', rec.bez_afspraak_key, NULL, NULL,
|
|
'Afspraak ' || TO_CHAR (rec.bez_afspraak_key) || ' is gewijzigd' || CHR (13) || CHR (10) || 'Actie: Oproepen --> Op laten halen (bellen)');
|
|
v_count := v_count + 1;
|
|
END;
|
|
END LOOP;
|
|
|
|
DBMS_OUTPUT.PUT_LINE('S: ' || TO_CHAR (v_count) || ' afspraken omgekat');
|
|
END;
|
|
/
|
|
|
|
------ payload end ------
|
|
|
|
SET DEFINE OFF
|
|
BEGIN adm.systrackscriptId ('$Id$'); END;
|
|
/
|
|
|
|
COMMIT;
|
|
SET ECHO OFF
|
|
SPOOL OFF
|
|
SET DEFINE ON
|
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|