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

BLCC#91276 Indexatie huurcontracten voor 2026

Browse Source 
svn path=/Customer/; revision=70880
This commit is contained in:
Maarten van der Heide
2025-11-11 08:34:37 +00:00
parent 7767a61a49
commit 1bb2605f87
1 changed files with 116 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

127
onces/BLCC/BLCC#91276.sql
View File

@@ -25,24 +25,31 @@ SET DEFINE OFF
-- contractsoorten 2122, 2123, 2181, 2185, 2182, 2184 en 2382 (resp. LA/
-- LA CRF/SLA CRF-CV/SLA MC/SLA CV-CRF/SLA CGZ vast/SLA Generiek CRF) de
-- betreffende velden x 1.037 (met 3,7% indexeren).
-- Behalve voor Sabic, daar betreffende velden x 1.03 (3% ipv. 3,7%)!
SET SERVEROUTPUT ON size 1000000;
DECLARE
CURSOR c
IS
SELECT DISTINCT kc.cnt_contract_key
FROM cnt_kenmerkcontract kc
SELECT DISTINCT
kc.cnt_contract_key,
DECODE (c.ins_discipline_key,
2122, DECODE (c.cnt_prs_bedrijf_key, 11199, 1.03, 1.037), -- LA, dan SABIC Petrochemicals B.V.=3% en Rest=3,7%
2123, DECODE (c.cnt_prs_bedrijf_key, 11199, 1.03, 1.037), -- LA CRF, dan SABIC Petrochemicals B.V.=3% en Rest=3,7%
1.037) -- Rest=3,7%
index_percentage
FROM cnt_kenmerkcontract kc, cnt_v_aanwezigcontract c
WHERE kc.cnt_kenmerkcontract_verwijder IS NULL
AND kc.cnt_contract_key = c.cnt_contract_key
AND EXISTS
(SELECT 1
FROM cnt_kenmerk
WHERE (cnt_srtkenmerk_key IN (385, 386, 387, 388, 389) -- Contracttarief H/K/L/O/T [LA+LA CRF] * 3,7% (behalve contract 1933/Arlanxeo)
OR cnt_kenmerk_key IN (663, 664, 671) -- Rent Infra/Rent Utilities/Rent Expedition space [SLA CRF-CV] * 3,7%
OR cnt_kenmerk_key = 637 -- Managed Connectivity [SLA MC] * 3,7%
OR cnt_kenmerk_key IN (512, 524) -- Advance Payment Collective Services/Advance Payment Utilities [SLA CV-CRF] * 3,7%
OR cnt_kenmerk_key = 638 -- Monthly Fee CGZ [SLA CGZ vast] * 3,7%
OR cnt_kenmerk_key = 824 -- Maandbedrag [SLA Generiek CRF] * 3,7%
)
WHERE (cnt_srtkenmerk_key IN (385, 386, 387, 388, 389) -- Contracttarief H/K/L/O/T [LA+LA CRF]
OR cnt_kenmerk_key IN (663, 664, 671) -- Rent Infra/Rent Utilities/Rent Expedition space [SLA CRF-CV]
OR cnt_kenmerk_key = 637 -- Managed Connectivity [SLA MC]
OR cnt_kenmerk_key IN (512, 524) -- Advance Payment Collective Services/Advance Payment Utilities [SLA CV-CRF]
OR cnt_kenmerk_key = 638 -- Monthly Fee CGZ [SLA CGZ vast]
OR cnt_kenmerk_key = 824) -- Maandbedrag [SLA Generiek CRF]
AND cnt_kenmerk_key = kc.cnt_kenmerk_key)
AND EXISTS
(SELECT 1
@@ -61,7 +68,7 @@ BEGIN
LOOP
BEGIN
UPDATE cnt_kenmerkcontract kc
SET kc.cnt_kenmerkcontract_waarde = ROUND (1.037 * kc.cnt_kenmerkcontract_waarde, 2)
SET kc.cnt_kenmerkcontract_waarde = ROUND (rec.index_percentage * kc.cnt_kenmerkcontract_waarde, 2)
WHERE EXISTS
(SELECT 1
FROM cnt_kenmerk
@@ -73,7 +80,7 @@ BEGIN
OR cnt_kenmerk_key = 824) -- Maandbedrag [SLA Generiek CRF]
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 (3,7%)');
fac.trackaction ('#CNTUPD', rec.cnt_contract_key, NULL, NULL, 'Contracttarieven ge<67>ndexeerd (' || DECODE (rec.index_percentage, 1.03, '3,0', '3,7') || '%)');
v_count := v_count + 1;
END;
END LOOP;
@@ -147,7 +154,105 @@ BEGIN
DBMS_OUTPUT.PUT_LINE('S: ' || TO_CHAR (v_count) || ' Gebouw-tarieven gewijzigd');
END;
/
/*
-- Correctie testrun ARLANXEO -factuur.
SELECT fin_verkoopfactuur_n1,
fin_verkoopfactuur_n2,
'264,82',
fin_verkoopfactuur_bedrag,
fin_verkoopfactuur_btw,
ROUND ((fin_verkoopfactuur_n1 * 256.36) / 12, 2)
bedrag_oud,
ROUND (0.21 * ROUND ((fin_verkoopfactuur_n1 * 256.36) / 12, 2), 2)
btw_oud,
ROUND ((fin_verkoopfactuur_n1 * 264.82) / 12, 2)
bedrag_nieuw,
ROUND (0.21 * ROUND ((fin_verkoopfactuur_n1 * 264.82) / 12, 2), 2)
btw_nieuw
FROM fin_verkoopfactuur vf
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
AND fin_verkoopfactuur_c1 = '1933.8'
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n2 = '256.36';
UPDATE fin_verkoopfactuur vf
SET fin_verkoopfactuur_n2 = '264.82',
fin_verkoopfactuur_bedrag = ROUND ((fin_verkoopfactuur_n1 * 264.82) / 12, 2),
fin_verkoopfactuur_btw = ROUND (0.21 * ROUND ((fin_verkoopfactuur_n1 * 264.82) / 12, 2), 2)
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
AND fin_verkoopfactuur_c1 = '1933.8'
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n2 = '256.36';
-- Correctie testrun SABIC-facturen.
SELECT fin_verkoopfactuur_n1,
fin_verkoopfactuur_n2 tarief_cur,
fin_verkoopfactuur_bedrag bedrag_cur,
fin_verkoopfactuur_btw btw_cur,
ROUND (fin_verkoopfactuur_n2 * 0.96432, 2)
tarief_oud,
ROUND ((fin_verkoopfactuur_n1 * ROUND (fin_verkoopfactuur_n2 * 0.96432, 2)) / 12, 2)
bedrag_oud,
ROUND (0.21 * ROUND ((fin_verkoopfactuur_n1 * ROUND (fin_verkoopfactuur_n2 * 0.96432, 2)) / 12, 2), 2)
btw_oud
FROM fin_verkoopfactuur
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
--AND fin_verkoopfactuur_c1 IN ('1990.x', '1992.x', '1993.x', '1994.x', '3908.x', '2161.x')
AND prs_bedrijf_key = 11199 -- SABIC Petrochemicals B.V.
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n1 > 0;
UPDATE fin_verkoopfactuur
SET fin_verkoopfactuur_n2 = ROUND (fin_verkoopfactuur_n2 * 0.96432, 2)
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
--AND fin_verkoopfactuur_c1 IN ('1990.x', '1992.x', '1993.x', '1994.x', '3908.x', '2161.x')
AND prs_bedrijf_key = 11199 -- SABIC Petrochemicals B.V.
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n1 > 0;
UPDATE fin_verkoopfactuur
SET fin_verkoopfactuur_bedrag = ROUND ((fin_verkoopfactuur_n1 * fin_verkoopfactuur_n2) / 12, 2),
fin_verkoopfactuur_btw = ROUND (0.21 * ROUND ((fin_verkoopfactuur_n1 * fin_verkoopfactuur_n2) / 12, 2), 2)
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
--AND fin_verkoopfactuur_c1 IN ('1990.x', '1992.x', '1993.x', '1994.x', '3908.x', '2161.x')
AND prs_bedrijf_key = 11199 -- SABIC Petrochemicals B.V.
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n1 > 0;
SELECT fin_verkoopfactuur_n1,
fin_verkoopfactuur_n2 tarief_cur,
fin_verkoopfactuur_bedrag bedrag_cur,
fin_verkoopfactuur_btw btw_cur,
ROUND (fin_verkoopfactuur_n2 * 1.03, 2)
tarief_nieuw,
ROUND ((fin_verkoopfactuur_n1 * ROUND (fin_verkoopfactuur_n2 * 1.03, 2)) / 12, 2)
bedrag_nieuw,
ROUND (0.21 * ROUND ((fin_verkoopfactuur_n1 * ROUND (fin_verkoopfactuur_n2 * 1.03, 2)) / 12, 2), 2)
btw_nieuw
FROM fin_verkoopfactuur
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
--AND fin_verkoopfactuur_c1 IN ('1990.x', '1992.x', '1993.x', '1994.x', '3908.x', '2161.x')
AND prs_bedrijf_key = 11199 -- SABIC Petrochemicals B.V.
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n1 > 0;
UPDATE fin_verkoopfactuur
SET fin_verkoopfactuur_n2 = ROUND (fin_verkoopfactuur_n2 * 1.03, 2)
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
--AND fin_verkoopfactuur_c1 IN ('1990.x', '1992.x', '1993.x', '1994.x', '3908.x', '2161.x')
AND prs_bedrijf_key = 11199 -- SABIC Petrochemicals B.V.
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n1 > 0;
UPDATE fin_verkoopfactuur
SET fin_verkoopfactuur_bedrag = ROUND ((fin_verkoopfactuur_n1 * fin_verkoopfactuur_n2) / 12, 2),
fin_verkoopfactuur_btw = ROUND (0.21 * ROUND ((fin_verkoopfactuur_n1 * fin_verkoopfactuur_n2) / 12, 2), 2)
WHERE TRUNC (fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE - 4)
--AND fin_verkoopfactuur_c1 IN ('1990.x', '1992.x', '1993.x', '1994.x', '3908.x', '2161.x')
AND prs_bedrijf_key = 11199 -- SABIC Petrochemicals B.V.
AND INSTR (fin_verkoopfactuur_omschr, 'Rent') > 0
AND fin_verkoopfactuur_n1 > 0;
*/
------ payload end ------
SET DEFINE OFF