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

BLCC#77810 Indexatie/Contractkenmerken vermenigvuldigen met 1,0462566

Browse Source 
svn path=/Customer/; revision=60109
This commit is contained in:
Maarten van der Heide
2023-04-20 07:12:27 +00:00
parent 2c5b862138
commit d138b11770
1 changed files with 119 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
onces/BLCC/BLCC#77810.sql Normal file
View File

@@ -0,0 +1,119 @@
--
-- $Id$
--
-- Customer specific once-script BLCC#77810.SQL.
DEFINE thisfile = 'BLCC#77810.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#77810
-- Voor alle in juli 2023 lopende/definieve LA+LA CRF contracten de velden
-- Contracttarief H/K/L/O/T x 1.0462566 (4,62566%).
SET SERVEROUTPUT ON size 1000000;
DECLARE
CURSOR c
IS
SELECT DISTINCT kc.cnt_contract_key
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerkcontract_verwijder IS NULL
AND EXISTS
(SELECT 1
FROM cnt_kenmerk
WHERE cnt_srtkenmerk_key IN (385, 386, 387, 388, 389) -- Contracttarief H/K/L/O/T
AND cnt_kenmerk_key = kc.cnt_kenmerk_key)
AND EXISTS
(SELECT 1
FROM cnt_v_aanwezigcontract
WHERE ins_discipline_key IN (2122, 2023) -- LA/LA CRF
AND TRUNC (cnt_contract_looptijd_van) < fac.safe_to_date ('31072023', 'ddmmyyyy') -- Van-datum < einde te factureren maand
AND cnt_contract_looptijd_tot > fac.safe_to_date ('01072023', 'ddmmyyyy') -- Tot-datum > begin te factureren maand
AND cnt_contract_status IN (0, 2) -- Definitief
AND cnt_contract_key = kc.cnt_contract_key)
ORDER BY kc.cnt_contract_key;
v_count NUMBER := 0;
BEGIN
FOR rec IN c
LOOP
BEGIN
UPDATE cnt_kenmerkcontract kc
SET kc.cnt_kenmerkcontract_waarde = ROUND (1.0462566 * kc.cnt_kenmerkcontract_waarde, 2)
WHERE EXISTS
(SELECT 1
FROM cnt_kenmerk
WHERE cnt_srtkenmerk_key IN (385, 386, 387, 388, 389) -- Contracttarief H/K/L/O/T
AND cnt_kenmerk_key = kc.cnt_kenmerk_key)
AND kc.cnt_contract_key = rec.cnt_contract_key;
fac.trackaction ('CNTUPD', rec.cnt_contract_key, NULL, NULL, 'Contracttarieven ge<67>ndexeerd (4,62566%)');
v_count := v_count + 1;
END;
END LOOP;
DBMS_OUTPUT.PUT_LINE ('S: ' || TO_CHAR (v_count) || ' LA/LA CRF contracten gewijzigd');
END;
/
-- Voor alle in juli 2023 lopende/definieve SLA MC contracten het veld
-- Managed Connectivity (jaarbedrag) x 1.0462566 (4,62566%).
SET SERVEROUTPUT ON size 1000000;
DECLARE
CURSOR c
IS
SELECT kc.cnt_contract_key, kc.cnt_kenmerkcontract_key
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerkcontract_verwijder IS NULL
AND kc.cnt_kenmerk_key = 637 -- Managed Connectivity (jaarbedrag)
AND EXISTS
(SELECT 1
FROM cnt_v_aanwezigcontract
WHERE ins_discipline_key = 2185 -- SLA Managed Connectivity
AND TRUNC (cnt_contract_looptijd_van) < fac.safe_to_date ('31072023', 'ddmmyyyy') -- Van-datum < einde te factureren maand
AND cnt_contract_looptijd_tot > fac.safe_to_date ('01072023', 'ddmmyyyy') -- Tot-datum > begin te factureren maand
AND cnt_contract_status IN (0, 2) -- Definitief
AND cnt_contract_key = kc.cnt_contract_key)
ORDER BY kc.cnt_contract_key;
v_count NUMBER := 0;
BEGIN
FOR rec IN c
LOOP
BEGIN
UPDATE cnt_kenmerkcontract kc
SET kc.cnt_kenmerkcontract_waarde = ROUND (1.0462566 * kc.cnt_kenmerkcontract_waarde, 2)
WHERE kc.cnt_kenmerkcontract_key = rec.cnt_kenmerkcontract_key;
fac.trackaction ('CNTUPD', rec.cnt_contract_key, NULL, NULL, 'Jaarbedrag ge<67>ndexeerd (4,62566%)');
v_count := v_count + 1;
END;
END LOOP;
DBMS_OUTPUT.PUT_LINE('S: ' || TO_CHAR (v_count) || ' SLA MC contracten gewijzigd');
END;
/
------ 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