--
-- $Id$
--
-- Customer specific once-script BLCC#83852.SQL.
DEFINE thisfile = 'BLCC#83852.sql'
DEFINE dbuser   = '^BLCC'

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 ------

-- BLCC#83852: Ondersteuning in Facilitor voor nieuw financieel pakket.
--             Zet laatste sync op 01-11-2024 voor niet verwerkte WO's, zodat
--             deze als aangeleverd staan gemarkeerd!
/*
SELECT o.mld_opdr_key,
       o.mld_melding_key,
       o.mld_opdr_bedrijfopdr_volgnr,
       o.mld_statusopdr_key,
       fac.gettrackingdate ('ORDNEW', mld_opdr_key) ordnew,
       o.mld_opdr_datumbegin,
       o.mld_opdr_externsyncdate
  FROM mld_opdr o
 WHERE o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- Relevante opdrachttypes
       AND o.mld_statusopdr_key NOT IN (1, 2, 7) -- Afgewezen/Niet akkoord/Verwerkt
       AND EXISTS
             (SELECT 1
                FROM fac_tracking
               WHERE fac_srtnotificatie_key = 59                     -- ORDNEW
                     AND fac_tracking_refkey = o.mld_opdr_key)
       AND o.mld_opdr_externsyncdate IS NULL;
*/
UPDATE mld_opdr o
   SET o.mld_opdr_externsyncdate = fac.safe_to_date ('01-11-2024', 'dd-mm-yyyy')
 WHERE o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- Relevante opdrachttypes
       AND o.mld_statusopdr_key NOT IN (1, 2, 7) -- Afgewezen/Niet akkoord/Verwerkt
       AND EXISTS
             (SELECT 1
                FROM fac_tracking
               WHERE fac_srtnotificatie_key = 59                     -- ORDNEW
                     AND fac_tracking_refkey = o.mld_opdr_key)
       AND o.mld_opdr_externsyncdate IS NULL;
/*
SELECT sm.mld_stdmelding_key,
       sm.mld_stdmelding_omschrijving,
       sm.mld_stdmelding_vervaldatum,
       SUBSTR ('x' || sm.mld_stdmelding_omschrijving, 1, 60)
  FROM mld_stdmelding sm
 WHERE sm.mld_stdmelding_verwijder IS NULL
       AND sm.mld_stdmelding_vervaldatum = fac.safe_to_date ('08-11-2024', 'dd-mm-yyyy')
       AND NOT EXISTS
             (SELECT 1
                FROM mld_stdmelding
               WHERE mld_stdmelding_upper = SUBSTR ('x' || sm.mld_stdmelding_upper, 1, 60)
                     AND mld_ins_discipline_key = sm.mld_ins_discipline_key
                     AND mld_stdmelding_key != sm.mld_stdmelding_key);
*/
UPDATE mld_stdmelding sm
   SET sm.mld_stdmelding_omschrijving = SUBSTR ('x' || sm.mld_stdmelding_omschrijving, 1, 60)
 WHERE sm.mld_stdmelding_verwijder IS NULL
       AND sm.mld_stdmelding_vervaldatum = fac.safe_to_date ('08-11-2024', 'dd-mm-yyyy');
/*
SELECT sm.mld_ins_discipline_key,
       sm.mld_stdmelding_key,
       sm.mld_stdmelding_omschrijving,
       sm.mld_stdmelding_vervaldatum,
       SUBSTR (sm.mld_stdmelding_omschrijving, 2)
  FROM mld_stdmelding sm
 WHERE sm.mld_stdmelding_verwijder IS NULL
       AND SUBSTR (sm.mld_stdmelding_omschrijving, 1, 1) = '*'
       AND EXISTS
             (SELECT 1
                FROM prs_kostensoort
               WHERE LENGTH (prs_kostensoort_oms) = 6
                     AND prs_kostensoort_key = sm.prs_kostensoort_key);
*/
UPDATE mld_stdmelding sm
   SET sm.mld_stdmelding_omschrijving = SUBSTR (sm.mld_stdmelding_omschrijving, 2)
 WHERE sm.mld_stdmelding_verwijder IS NULL
       AND SUBSTR (sm.mld_stdmelding_omschrijving, 1, 1) = '*'
       AND EXISTS
             (SELECT 1
                FROM prs_kostensoort
               WHERE LENGTH (prs_kostensoort_oms) = 6
                     AND prs_kostensoort_key = sm.prs_kostensoort_key);

------ 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
