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

BLCC#81064 FACT-export/Wijzigen facturatie Property Tax (LA)

Browse Source 
svn path=/Customer/trunk/; revision=62653
This commit is contained in:
Maarten van der Heide
2023-11-22 11:34:37 +00:00
parent 78c0c7bcb9
commit cbf166d834
1 changed files with 97 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

185
BLCC/blcc.sql
View File

@@ -10611,16 +10611,16 @@ AS
aog.alg_onroerendgoed_keys alg_onrgoed_key,
fac.safe_to_number (vvo.alg_onrgoedkenmerk_waarde) opp,
ud.fac_usrdata_code srtopp
FROM cnt_v_aanwezigcontract_plaats ccp, alg_v_onroerendgoed aog, alg_v_aanwezigonrgoedkenmerk ok, fac_usrdata ud, alg_v_aanwezigonrgoedkenmerk vvo
FROM cnt_v_aanwezigcontract_plaats ccp,
alg_v_onroerendgoed aog,
(SELECT * FROM alg_v_aanwezigonrgoedkenmerk WHERE alg_onrgoed_niveau = 'R' AND alg_kenmerk_key = 1100) ok, -- LHKOTC Classificatie
fac_usrdata ud,
(SELECT * FROM alg_v_aanwezigonrgoedkenmerk WHERE alg_onrgoed_niveau = 'R' AND alg_kenmerk_key = 1720) vvo -- VVO Overeenkomst
WHERE ccp.cnt_alg_plaats_code IN ('R')
AND ccp.cnt_alg_plaats_key = aog.alg_onroerendgoed_keys
AND aog.alg_onroerendgoed_keys = ok.alg_onrgoed_key
AND ok.alg_kenmerk_key = 1100 -- LHKOTC Classificatie
AND ok.alg_onrgoed_niveau = 'R'
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
AND aog.alg_onroerendgoed_keys = vvo.alg_onrgoed_key
AND vvo.alg_kenmerk_key = 1720 -- VVO Overeenkomst
AND vvo.alg_onrgoed_niveau = 'R')
AND aog.alg_onroerendgoed_keys = ok.alg_onrgoed_key(+)
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key(+)
AND aog.alg_onroerendgoed_keys = vvo.alg_onrgoed_key(+))
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
TRIM (x.cnt_contract_nummer) po_nr, -- Yourref
--TRIM (x.cnt_contract_omschrijving) ourref, -- Ourref
@@ -11013,12 +11013,12 @@ AS
LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1 mndbez, -- Bezet
DECODE (cpm.srtopp, 'X', -1, COALESCE (cpm.opp, 0)) aantal, -- Aantal m2
DECODE (cpm.srtopp,
'L', COALESCE (fac.safe_to_number (ltar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (htar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (ktar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (otar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (ttar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (ctar.alg_onrgoedkenmerk_waarde), 0),
'L', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'X', COALESCE (cpm.opp, 0), -- Absolute jaarkorting
0)
bedrag, -- Jaarbedrag (per eenheid)
@@ -11028,12 +11028,12 @@ AS
ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) *
DECODE (cpm.srtopp, 'X', -1, COALESCE (cpm.opp, 0)) *
DECODE (cpm.srtopp,
'L', COALESCE (fac.safe_to_number (ltar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (htar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (ktar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (otar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (ttar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (ctar.alg_onrgoedkenmerk_waarde), 0),
'L', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'X', COALESCE (cpm.opp, 0), -- Absolute jaarkorting
0) *
1/12, 2)
@@ -11076,30 +11076,34 @@ AS
WHERE cnt_kenmerkcontract_verwijder IS NULL
AND cnt_kenmerk_key = 506) cpm -- Absolute korting Property Tax
ON x.cnt_contract_key = cpm.cnt_contract_key
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ltar
ON cpm.alg_gebouw_key = ltar.alg_onrgoed_key
AND ltar.alg_kenmerk_key = 1200 -- OZB tarief L
AND ltar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk htar
ON cpm.alg_gebouw_key = htar.alg_onrgoed_key
AND htar.alg_kenmerk_key = 1201 -- OZB tarief H
AND htar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ktar
ON cpm.alg_gebouw_key = ktar.alg_onrgoed_key
AND ktar.alg_kenmerk_key = 1202 -- OZB tarief K
AND ktar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk otar
ON cpm.alg_gebouw_key = otar.alg_onrgoed_key
AND otar.alg_kenmerk_key = 1203 -- OZB tarief O
AND otar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ttar
ON cpm.alg_gebouw_key = ttar.alg_onrgoed_key
AND ttar.alg_kenmerk_key = 1204 -- OZB tarief T
AND ttar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ctar
ON cpm.alg_gebouw_key = ctar.alg_onrgoed_key
AND ctar.alg_kenmerk_key = 1242 -- OZB tarief C
AND ctar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ltar
-- ON cpm.alg_gebouw_key = ltar.alg_onrgoed_key
-- AND ltar.alg_kenmerk_key = 1200 -- OZB tarief L
-- AND ltar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk htar
-- ON cpm.alg_gebouw_key = htar.alg_onrgoed_key
-- AND htar.alg_kenmerk_key = 1201 -- OZB tarief H
-- AND htar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ktar
-- ON cpm.alg_gebouw_key = ktar.alg_onrgoed_key
-- AND ktar.alg_kenmerk_key = 1202 -- OZB tarief K
-- AND ktar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk otar
-- ON cpm.alg_gebouw_key = otar.alg_onrgoed_key
-- AND otar.alg_kenmerk_key = 1203 -- OZB tarief O
-- AND otar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ttar
-- ON cpm.alg_gebouw_key = ttar.alg_onrgoed_key
-- AND ttar.alg_kenmerk_key = 1204 -- OZB tarief T
-- AND ttar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ctar
-- ON cpm.alg_gebouw_key = ctar.alg_onrgoed_key
-- AND ctar.alg_kenmerk_key = 1242 -- OZB tarief C
-- AND ctar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk tar
ON cpm.alg_gebouw_key = tar.alg_onrgoed_key
AND tar.alg_kenmerk_key = 2280 -- OZB tarief (alle letters)
AND tar.alg_onrgoed_niveau = 'G'
LEFT JOIN prs_v_aanwezigkostenplaats kp
ON kp.prs_kostenplaats_nr = '50600' -- Hardcoded?
LEFT JOIN prs_kostenplaatsgrp kpg
@@ -11600,16 +11604,16 @@ AS
aog.alg_onroerendgoed_keys alg_onrgoed_key,
fac.safe_to_number (vvo.alg_onrgoedkenmerk_waarde) opp,
ud.fac_usrdata_code srtopp
FROM cnt_v_aanwezigcontract_plaats ccp, alg_v_onroerendgoed aog, alg_v_aanwezigonrgoedkenmerk ok, fac_usrdata ud, alg_v_aanwezigonrgoedkenmerk vvo
FROM cnt_v_aanwezigcontract_plaats ccp,
alg_v_onroerendgoed aog,
(SELECT * FROM alg_v_aanwezigonrgoedkenmerk WHERE alg_onrgoed_niveau = 'R' AND alg_kenmerk_key = 1100) ok, -- LHKOTC Classificatie
fac_usrdata ud,
(SELECT * FROM alg_v_aanwezigonrgoedkenmerk WHERE alg_onrgoed_niveau = 'R' AND alg_kenmerk_key = 1720) vvo -- VVO Overeenkomst
WHERE ccp.cnt_alg_plaats_code IN ('R')
AND ccp.cnt_alg_plaats_key = aog.alg_onroerendgoed_keys
AND aog.alg_onroerendgoed_keys = ok.alg_onrgoed_key
AND ok.alg_kenmerk_key = 1100 -- LHKOTC Classificatie
AND ok.alg_onrgoed_niveau = 'R'
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
AND aog.alg_onroerendgoed_keys = vvo.alg_onrgoed_key
AND vvo.alg_kenmerk_key = 1720 -- VVO Overeenkomst
AND vvo.alg_onrgoed_niveau = 'R')
AND aog.alg_onroerendgoed_keys = ok.alg_onrgoed_key(+)
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key(+)
AND aog.alg_onroerendgoed_keys = vvo.alg_onrgoed_key(+))
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
TRIM (x.cnt_contract_nummer) po_nr, -- Yourref
--TRIM (x.cnt_contract_omschrijving) ourref, -- Ourref
@@ -11873,12 +11877,12 @@ AS
LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1 mndbez, -- Bezet
DECODE (cpm.srtopp, 'X', -1, COALESCE (cpm.opp, 0)) aantal, -- Aantal m2
DECODE (cpm.srtopp,
'L', COALESCE (fac.safe_to_number (ltar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (htar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (ktar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (otar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (ttar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (ctar.alg_onrgoedkenmerk_waarde), 0),
'L', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'X', COALESCE (cpm.opp, 0), -- Absolute jaarkorting
0)
bedrag, -- Jaarbedrag (per eenheid)
@@ -11888,12 +11892,12 @@ AS
ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) *
DECODE (cpm.srtopp, 'X', -1, COALESCE (cpm.opp, 0)) *
DECODE (cpm.srtopp,
'L', COALESCE (fac.safe_to_number (ltar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (htar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (ktar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (otar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (ttar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (ctar.alg_onrgoedkenmerk_waarde), 0),
'L', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'H', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'K', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'O', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'T', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'C', COALESCE (fac.safe_to_number (tar.alg_onrgoedkenmerk_waarde), 0),
'X', COALESCE (cpm.opp, 0), -- Absolute jaarkorting
0) *
1/12, 2)
@@ -11936,30 +11940,34 @@ AS
WHERE cnt_kenmerkcontract_verwijder IS NULL
AND cnt_kenmerk_key = 801) cpm -- BLCC#61264: Absolute korting Property Tax
ON x.cnt_contract_key = cpm.cnt_contract_key
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ltar
ON cpm.alg_gebouw_key = ltar.alg_onrgoed_key
AND ltar.alg_kenmerk_key = 1200 -- OZB tarief L
AND ltar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk htar
ON cpm.alg_gebouw_key = htar.alg_onrgoed_key
AND htar.alg_kenmerk_key = 1201 -- OZB tarief H
AND htar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ktar
ON cpm.alg_gebouw_key = ktar.alg_onrgoed_key
AND ktar.alg_kenmerk_key = 1202 -- OZB tarief K
AND ktar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk otar
ON cpm.alg_gebouw_key = otar.alg_onrgoed_key
AND otar.alg_kenmerk_key = 1203 -- OZB tarief O
AND otar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ttar
ON cpm.alg_gebouw_key = ttar.alg_onrgoed_key
AND ttar.alg_kenmerk_key = 1204 -- OZB tarief T
AND ttar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk ctar
ON cpm.alg_gebouw_key = ctar.alg_onrgoed_key
AND ctar.alg_kenmerk_key = 1242 -- OZB tarief C
AND ctar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ltar
-- ON cpm.alg_gebouw_key = ltar.alg_onrgoed_key
-- AND ltar.alg_kenmerk_key = 1200 -- OZB tarief L
-- AND ltar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk htar
-- ON cpm.alg_gebouw_key = htar.alg_onrgoed_key
-- AND htar.alg_kenmerk_key = 1201 -- OZB tarief H
-- AND htar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ktar
-- ON cpm.alg_gebouw_key = ktar.alg_onrgoed_key
-- AND ktar.alg_kenmerk_key = 1202 -- OZB tarief K
-- AND ktar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk otar
-- ON cpm.alg_gebouw_key = otar.alg_onrgoed_key
-- AND otar.alg_kenmerk_key = 1203 -- OZB tarief O
-- AND otar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ttar
-- ON cpm.alg_gebouw_key = ttar.alg_onrgoed_key
-- AND ttar.alg_kenmerk_key = 1204 -- OZB tarief T
-- AND ttar.alg_onrgoed_niveau = 'G'
--LEFT JOIN alg_v_aanwezigonrgoedkenmerk ctar
-- ON cpm.alg_gebouw_key = ctar.alg_onrgoed_key
-- AND ctar.alg_kenmerk_key = 1242 -- OZB tarief C
-- AND ctar.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk tar
ON cpm.alg_gebouw_key = tar.alg_onrgoed_key
AND tar.alg_kenmerk_key = 2280 -- OZB tarief (alle letters)
AND tar.alg_onrgoed_niveau = 'G'
LEFT JOIN cnt_kenmerkcontract kostenplaats
ON x.cnt_contract_key = kostenplaats.cnt_contract_key
AND kostenplaats.cnt_kenmerkcontract_verwijder IS NULL
@@ -15814,6 +15822,7 @@ BEGIN
SELECT fac_s_user04.NEXTVAL INTO v_count FROM DUAL;
v_factuur_id := '4' || SUBSTR ('00000000' || TO_CHAR (v_count), -8);
END IF;
--A-tweak:v_factkop_id := rec.cnt_contract_nummer_intern || '-' || rec.debiteur_nr || '-' || v_factuur_id;
v_factkop_id := v_factuur_id || '_' || SUBSTR (rec.maand, 1, 4) || '-' || SUBSTR (rec.maand, -2) || '_' || rec.debiteur_nr;
ELSE
-- BLCC#73137: Nulfacturen in formaat 'x99999999_2022-09'!