BLCC#83852 Overstap naar MS Dynamics en koppeling met Facilitor

svn path=/Customer/; revision=66965
This commit is contained in:
Maarten van der Heide
2024-11-08 16:16:10 +00:00
parent f680bd34cd
commit fff7aac39e

108
onces/BLCC/BLCC#83852.sql Normal file
View File

@@ -0,0 +1,108 @@
--
-- $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