From fff7aac39e243847d534d99433a7bf4ef01ca467 Mon Sep 17 00:00:00 2001
From: Maarten van der Heide <maarten.vanderheide@aareon.nl>
Date: Fri, 8 Nov 2024 16:16:10 +0000
Subject: [PATCH] BLCC#83852 Overstap naar MS Dynamics en koppeling met
 Facilitor

svn path=/Customer/; revision=66965
---
 onces/BLCC/BLCC#83852.sql | 108 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100644 onces/BLCC/BLCC#83852.sql

diff --git a/onces/BLCC/BLCC#83852.sql b/onces/BLCC/BLCC#83852.sql
new file mode 100644
index 000000000..ce75bb6a4
--- /dev/null
+++ b/onces/BLCC/BLCC#83852.sql
@@ -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