admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

YASK#66676 Historisch corrigeren Kostenplaats-kenmerkveld voor Power Packer

Browse Source 
svn path=/Customer/; revision=51250
This commit is contained in:
Maarten van der Heide
2021-05-04 20:40:06 +00:00
parent 4a4b51cf94
commit 0e7f011274
1 changed files with 98 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
onces/YASK/YASK#66676.sql Normal file
View File

@@ -0,0 +1,98 @@
--
-- $Id$
--
-- Customer specific once-script YASK#66676.SQL.
DEFINE thisfile = 'YASK#66676.SQL'
DEFINE dbuser = '^YASK'
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 ------
-- YASK#66676: Historisch corrigeren Kostenplaats-kenmerkveld.
/*
SELECT m.mld_melding_key, km.mld_kenmerkmelding_waarde
FROM mld_v_aanwezigkenmerkmelding km, mld_kenmerk k, mld_melding m
WHERE km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_srtkenmerk_key = 61 -- Klant Kostenplaats
AND ( km.mld_kenmerkmelding_waarde LIKE 'B1%'
OR km.mld_kenmerkmelding_waarde LIKE 'B2%'
OR km.mld_kenmerkmelding_waarde LIKE 'B3%')
AND km.mld_melding_key = m.mld_melding_key
MINUS
SELECT m.mld_melding_key, km.mld_kenmerkmelding_waarde
FROM mld_v_aanwezigkenmerkmelding km, mld_kenmerk k, mld_melding m
WHERE km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_srtkenmerk_key = 61 -- Klant Kostenplaats
AND ( km.mld_kenmerkmelding_waarde LIKE 'B1%'
OR km.mld_kenmerkmelding_waarde LIKE 'B2%'
OR km.mld_kenmerkmelding_waarde LIKE 'B3%')
AND km.mld_melding_key = m.mld_melding_key
AND (m.prs_kostenplaats_key = 41 -- Power Packer
OR m.mld_alg_locatie_key = 81 -- Power Packer
OR EXISTS
(SELECT 1
FROM prs_perslid p, prs_v_afdeling_boom ab
WHERE p.prs_afdeling_key = ab.prs_afdeling_key
AND ab.prs_bedrijf_key = 1241
AND p.prs_perslid_key = m.prs_perslid_key));
*/
DELETE FROM mld_kenmerkmelding km
WHERE km.mld_kenmerkmelding_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM mld_kenmerk k
WHERE k.mld_kenmerk_verwijder IS NULL
AND k.mld_srtkenmerk_key = 61
AND k.mld_kenmerk_key = km.mld_kenmerk_key)
AND km.mld_kenmerkmelding_waarde LIKE 'B1%';
COMMIT;
UPDATE mld_kenmerkmelding km
SET km.mld_kenmerkmelding_waarde = 'B2'
WHERE km.mld_kenmerkmelding_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM mld_kenmerk k
WHERE k.mld_kenmerk_verwijder IS NULL
AND k.mld_srtkenmerk_key = 61
AND k.mld_kenmerk_key = km.mld_kenmerk_key)
AND km.mld_kenmerkmelding_waarde LIKE 'B2%';
COMMIT;
UPDATE mld_kenmerkmelding km
SET km.mld_kenmerkmelding_waarde = 'B3'
WHERE km.mld_kenmerkmelding_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM mld_kenmerk k
WHERE k.mld_kenmerk_verwijder IS NULL
AND k.mld_srtkenmerk_key = 61
AND k.mld_kenmerk_key = km.mld_kenmerk_key)
AND km.mld_kenmerkmelding_waarde LIKE 'B3%';
COMMIT;
------ 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