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

BSSC#55692 Facturatieproces

Browse Source 
svn path=/Customer/trunk/; revision=60218
This commit is contained in:
Maarten van der Heide
2023-04-26 14:24:52 +00:00
parent 0aae6daeb7
commit b30439f92b
1 changed files with 362 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

490
BSSC/bssc.sql
View File

@@ -1100,14 +1100,10 @@ AS
x.adres, x.postcode, x.plaats, x.land,
x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms,
--x.prs_kostensoort_oms, x.prs_kostensoort_opmerking, x.prs_kostensoort_refcode, x.prs_kostensoortgrp_oms,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', DECODE (oh.cnt_kenmerkcontract_waarde, '921', '0', 'H')) fin_btwtabelwaarde_code,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', DECODE (oh.cnt_kenmerkcontract_waarde, '921', 'Nul', 'Hoog')) fin_btwtabelwaarde_oms,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 21)) fin_btwtabelwaarde_perc,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd,
'H' fin_btwtabelwaarde_code,
'Hoog' fin_btwtabelwaarde_oms,
21 fin_btwtabelwaarde_perc,
TO_NUMBER (NULL) fin_btwtabelwaarde_verlegd,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', DECODE (oh.cnt_kenmerkcontract_waarde, '921', '0', 'H')) fin_btwtabelwaarde_code,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', DECODE (oh.cnt_kenmerkcontract_waarde, '921', 'Nul', 'Hoog')) fin_btwtabelwaarde_oms,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 21)) fin_btwtabelwaarde_perc,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd,
x.maand,
TO_CHAR (TO_DATE (x.maand, 'yyyymm'), 'dd-mm-yyyy') mndbegin,
TO_CHAR (LAST_DAY (TO_DATE (x.maand, 'yyyymm')), 'dd-mm-yyyy') mndeinde,
@@ -1134,6 +1130,7 @@ AS
'966', '8406', -- Schoonmaak
'982', '8424', -- Koffieautomaten
'983', '8425', -- Duty manager
'1081', DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8417', '8400'), -- Opslagruimte
'9999')
grtboekrek, -- Hardcoded?
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
@@ -1183,7 +1180,7 @@ AS
LEFT JOIN cnt_kenmerkcontract jbw
ON x.cnt_contract_key = jbw.cnt_contract_key
AND jbw.cnt_kenmerkcontract_verwijder IS NULL
AND jbw.cnt_kenmerk_key IN (963, 964, 965, 966, 982, 983) -- Overige maandbedragen
AND jbw.cnt_kenmerk_key IN (963, 964, 965, 966, 982, 983, 1081) -- Overige maandbedragen
LEFT JOIN cnt_kenmerk jbw_k
ON jbw.cnt_kenmerk_key = jbw_k.cnt_kenmerk_key
AND jbw_k.cnt_kenmerk_verwijder IS NULL
@@ -1995,14 +1992,10 @@ AS
x.adres, x.postcode, x.plaats, x.land,
x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms,
--x.prs_kostensoort_oms, x.prs_kostensoort_opmerking, x.prs_kostensoort_refcode, x.prs_kostensoortgrp_oms,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', DECODE (oh.cnt_kenmerkcontract_waarde, '921', '0', 'H')) fin_btwtabelwaarde_code,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', DECODE (oh.cnt_kenmerkcontract_waarde, '921', 'Nul', 'Hoog')) fin_btwtabelwaarde_oms,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 21)) fin_btwtabelwaarde_perc,
--DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd,
'H' fin_btwtabelwaarde_code,
'Hoog' fin_btwtabelwaarde_oms,
21 fin_btwtabelwaarde_perc,
TO_NUMBER (NULL) fin_btwtabelwaarde_verlegd,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', DECODE (oh.cnt_kenmerkcontract_waarde, '921', '0', 'H')) fin_btwtabelwaarde_code,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', DECODE (oh.cnt_kenmerkcontract_waarde, '921', 'Nul', 'Hoog')) fin_btwtabelwaarde_oms,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 21)) fin_btwtabelwaarde_perc,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd,
x.maand,
TO_CHAR (TO_DATE (x.maand, 'yyyymm'), 'dd-mm-yyyy') mndbegin,
TO_CHAR (LAST_DAY (TO_DATE (x.maand, 'yyyymm')), 'dd-mm-yyyy') mndeinde,
@@ -2029,6 +2022,7 @@ AS
'966', '8406', -- Schoonmaak
'982', '8424', -- Koffieautomaten
'983', '8425', -- Duty manager
'1081', DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8417', '8400'), -- Opslagruimte
'9999')
grtboekrek, -- Hardcoded?
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
@@ -2078,7 +2072,7 @@ AS
LEFT JOIN cnt_kenmerkcontract jbw
ON x.cnt_contract_key = jbw.cnt_contract_key
AND jbw.cnt_kenmerkcontract_verwijder IS NULL
AND jbw.cnt_kenmerk_key IN (963, 964, 965, 966, 982, 983) -- Overige maandbedragen
AND jbw.cnt_kenmerk_key IN (963, 964, 965, 966, 982, 983, 1081) -- Overige maandbedragen
LEFT JOIN cnt_kenmerk jbw_k
ON jbw.cnt_kenmerk_key = jbw_k.cnt_kenmerk_key
AND jbw_k.cnt_kenmerk_verwijder IS NULL
@@ -2310,13 +2304,9 @@ AS
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (x.btw, 0, 0, 21)) fin_btwtabelwaarde_perc,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd,
x.maand,
--TO_CHAR (TO_DATE (x.maand, 'yyyymm'), 'dd-mm-yyyy') mndbegin,
--TO_CHAR (LAST_DAY (TO_DATE (x.maand, 'yyyymm')), 'dd-mm-yyyy') mndeinde,
--TO_CHAR (GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')), 'dd-mm-yyyy') dagbegin,
--TO_CHAR (LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))), 'dd-mm-yyyy') dageinde,
DECODE (x.cnt_contract_key, 1576, '01-04-2023', '01-03-2023') mndbegin, -- TODO:Eenmalige tweak!
TO_CHAR (TO_DATE (x.maand, 'yyyymm'), 'dd-mm-yyyy') mndbegin,
TO_CHAR (LAST_DAY (TO_DATE (x.maand, 'yyyymm')), 'dd-mm-yyyy') mndeinde,
DECODE (x.cnt_contract_key, 1576, '01-04-2023', '01-03-2023') dagbegin, -- TODO:Eenmalige tweak!
TO_CHAR (GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')), 'dd-mm-yyyy') dagbegin,
TO_CHAR (LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))), 'dd-mm-yyyy') dageinde,
LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1 mndbes, -- Beschikbaar
LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1 mndbez, -- Bezet
@@ -2325,14 +2315,12 @@ AS
TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagpercentage
bedrag.cnt_kenmerk_key regel_key,
NULL alg_onroerendgoed_type, NULL alg_onroerendgoed_keys, NULL alg_plaatsaanduiding,
--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)) *
ROUND ((DECODE (x.cnt_contract_key, 1576, 0, 1) + ((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))) *
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)) *
fac.safe_to_number (aantal.cnt_kenmerkcontract_waarde) *
fac.safe_to_number (bedrag.cnt_kenmerkcontract_waarde) *
1/12, 2)
mndnet, -- Netto maandbedrag (incl. kortingspercentage)
--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)) *
ROUND ((DECODE (x.cnt_contract_key, 1576, 0, 1) + ((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))) *
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)) *
fac.safe_to_number (aantal.cnt_kenmerkcontract_waarde) *
fac.safe_to_number (bedrag.cnt_kenmerkcontract_waarde) *
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, x.btw) *
@@ -2367,36 +2355,6 @@ AS
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = cmdnr.prs_link_key(+)
AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
UNION ALL --TODO:Eenmalige tweak voor contracten t/m maart 2023 lopen!
SELECT c.ins_discipline_key,
c.cnt_contract_key,
c.cnt_contract_nummer_intern, c.cnt_contract_versie,
c.cnt_contract_nummer,
c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt,
b.prs_bedrijf_key, b.prs_bedrijf_naam, TRIM (cmdnr.prs_kenmerklink_waarde) debiteur_nr,
0.21 btw,
DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres,
DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode,
DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats,
DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land,
kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms,
lp.maand
FROM lopendeperiode lp,
cnt_v_aanwezigcontract c,
prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1220) cmdnr,
prs_kostenplaats kp,
prs_kostenplaatsgrp kpg
WHERE c.ins_discipline_key = 2004 -- Parkeren CMD
AND c.cnt_contract_status = 0 -- Definitief
--AND c.cnt_contract_key IN (1482, 1486)
AND TRUNC (c.cnt_contract_looptijd_van) <= TO_DATE ('202303' || '01', 'yyyymmdd') -- Van-datum <= 01-03-2023/TODO:Eenmalige tweak!
AND TRUNC (c.cnt_contract_looptijd_tot) = TO_DATE ('202303' || '31', 'yyyymmdd') -- Tot-datum = 31-03-2023/TODO:Eenmalige tweak!
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = cmdnr.prs_link_key(+)
AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)) x
LEFT JOIN prs_kenmerklink btwvl
ON x.prs_bedrijf_key = btwvl.prs_link_key
@@ -2534,7 +2492,7 @@ AS
TO_CHAR (vf.fin_verkoopfactuur_datum, 'dd-mm-yyyy') factuurdatum, TO_CHAR (vf.fin_verkoopfactuur_d1, 'dd-mm-yyyy') vervaldatum,
vf.fin_verkoopfactuur_xmlnode xmlnode,
vf.fin_verkoopfactuur_refkey refkey, -- !!!
c.cnt_contract_nummer_intern || '/' || COALESCE (c.cnt_contract_versie, '0') refid, -- Niet historisch bewaard!
vf.fin_verkoopfactuur_c1 refid, -- !!!
c.cnt_contract_looptijd_tot lv, -- Niet historisch bewaard!
vf.prs_bedrijf_key, vf.prs_debiteur_naam,
SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr,
@@ -2591,11 +2549,13 @@ AS
SELECT DISTINCT '[' || vf.fin_verkoopfactuur_id || '|' || vf.fin_verkoopfactuur_maand || '|' || vf.prs_debiteur_naam || '] ' aanduiding,
vf.fin_verkoopfactuur_id, vf.fin_verkoopfactuur_maand, vf.prs_debiteur_naam,
vfk.fin_verkoopfactuurkop_key, vfk.fin_verkoopfactuurkop_id,
b.prs_bedrijf_email
FROM fin_verkoopfactuur vf, fin_verkoopfactuurkop vfk, prs_bedrijf b
COALESCE (kl.prs_kenmerklink_waarde, b.prs_bedrijf_email) prs_bedrijf_email
FROM fin_verkoopfactuur vf, fin_verkoopfactuurkop vfk, prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1240) kl -- E-mail adres facturatie
WHERE vf.fin_verkoopfactuur_xmlnode = 'contract' AND fin_verkoopfactuur_n1 IS NULL -- Onderscheid ADDD vs. FACT!
AND vf.fin_verkoopfactuurkop_key = vfk.fin_verkoopfactuurkop_key
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = kl.prs_link_key (+)
AND TRUNC (vf.fin_verkoopfactuur_aanmaak) = TRUNC (SYSDATE)
ORDER BY vf.fin_verkoopfactuur_id;
@@ -2727,13 +2687,12 @@ BEGIN
rec.fin_btwtabelwaarde_perc,
rec.fin_btwtabelwaarde_verlegd,
rec.maand,
--rec.mld_melding_key, -- n1/correctiemelding
TO_NUMBER (NULL), -- n1
rec.mld_melding_key, -- n1/correctiemelding=NULL
rec.aantal, -- n2/aantal
rec.bedrag, -- n3/bedrag
rec.vvo_toeslag, -- n4/vvo_toeslag
rec.regel_key, -- n5/regel_key
NULL, -- c1
rec.refid, -- c1/contract_id
NULL, -- c2
NULL, -- c3
NULL, -- c4
@@ -2827,7 +2786,7 @@ AS
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_c1, TO_CHAR (m.mld_melding_key)) refid,
NULL lv, -- TODO: Nvt. op correctiefactuur?
--vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur!
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, -- Niet overnemen van te corrigeren factuur?
@@ -2924,7 +2883,7 @@ AS
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_c1, TO_CHAR (m.mld_melding_key)) refid,
NULL lv, -- TODO: Nvt. op correctiefactuur?
--vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur!
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, -- Niet overnemen van te corrigeren factuur?
@@ -3020,7 +2979,7 @@ AS
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_c1, TO_CHAR (m.mld_melding_key)) refid,
NULL lv, -- TODO: Nvt. op correctiefactuur?
--vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur!
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, -- Niet overnemen van te corrigeren factuur?
@@ -3116,7 +3075,7 @@ AS
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_c1, TO_CHAR (m.mld_melding_key)) refid,
NULL lv, -- TODO: Nvt. op correctiefactuur?
--vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur!
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, -- Niet overnemen van te corrigeren factuur?
@@ -3212,7 +3171,7 @@ AS
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode,
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_c1, TO_CHAR (m.mld_melding_key)) refid,
NULL lv, -- TODO: Nvt. op correctiefactuur?
--vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur!
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, -- Niet overnemen van te corrigeren factuur?
@@ -3308,9 +3267,11 @@ AS
pf.prs_perslid_naam_full aanvrager,
'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms,
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
'melding' xmlnode,
m.mld_melding_key refkey,
NULL refid, -- TODO: Nvt. op losverkoopfactuur?
--'melding' xmlnode,
--m.mld_melding_key refkey,
DECODE (m2c.cnt_contract_key, NULL, 'melding', 'contract') xmlnode,
DECODE (m2c.cnt_contract_key, NULL, m.mld_melding_key, m2c.cnt_contract_key) refkey,
DECODE (m2c.cnt_contract_key, NULL, TO_CHAR (m.mld_melding_key), m2c.cnt_contract_nummer_intern || '/' || COALESCE (m2c.cnt_contract_versie, '0')) refid,
NULL lv, -- TODO: Nvt. op losverkoopfactuur?
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam,
DECODE (m.mld_stdmelding_key, 1641, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr,
@@ -3360,11 +3321,11 @@ AS
WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = -1) po, -- PO
--(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
-- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
-- WHERE mld_kenmerk_key = -1 -- Contractreferentie
-- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
WHERE mld_kenmerk_key IN (961, 962)) po, -- PO
(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
WHERE mld_kenmerk_key IN (963, 964) -- Contractreferentie
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = 902) cb, -- Correctiebedrag
@@ -3395,7 +3356,7 @@ AS
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = po.mld_melding_key(+)
--AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = cb.mld_melding_key
AND m.mld_melding_key = btw.mld_melding_key
AND m.mld_melding_key = ro.mld_melding_key
@@ -3411,9 +3372,11 @@ AS
pf.prs_perslid_naam_full aanvrager,
'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms,
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
'melding' xmlnode,
m.mld_melding_key refkey,
NULL refid, -- TODO: Nvt. op losverkoopfactuur?
--'melding' xmlnode,
--m.mld_melding_key refkey,
DECODE (m2c.cnt_contract_key, NULL, 'melding', 'contract') xmlnode,
DECODE (m2c.cnt_contract_key, NULL, m.mld_melding_key, m2c.cnt_contract_key) refkey,
DECODE (m2c.cnt_contract_key, NULL, TO_CHAR (m.mld_melding_key), m2c.cnt_contract_nummer_intern || '/' || COALESCE (m2c.cnt_contract_versie, '0')) refid,
NULL lv, -- TODO: Nvt. op losverkoopfactuur?
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam,
DECODE (m.mld_stdmelding_key, 1641, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr,
@@ -3463,11 +3426,11 @@ AS
WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = -1) po, -- PO
--(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
-- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
-- WHERE mld_kenmerk_key = -1 -- Contractreferentie
-- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
WHERE mld_kenmerk_key IN (961, 962)) po, -- PO
(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
WHERE mld_kenmerk_key IN (963, 964) -- Contractreferentie
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = 907) cb, -- Correctiebedrag
@@ -3498,7 +3461,7 @@ AS
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = po.mld_melding_key(+)
--AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = cb.mld_melding_key
AND m.mld_melding_key = btw.mld_melding_key
AND m.mld_melding_key = ro.mld_melding_key
@@ -3514,9 +3477,11 @@ AS
pf.prs_perslid_naam_full aanvrager,
'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms,
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
'melding' xmlnode,
m.mld_melding_key refkey,
NULL refid, -- TODO: Nvt. op losverkoopfactuur?
--'melding' xmlnode,
--m.mld_melding_key refkey,
DECODE (m2c.cnt_contract_key, NULL, 'melding', 'contract') xmlnode,
DECODE (m2c.cnt_contract_key, NULL, m.mld_melding_key, m2c.cnt_contract_key) refkey,
DECODE (m2c.cnt_contract_key, NULL, TO_CHAR (m.mld_melding_key), m2c.cnt_contract_nummer_intern || '/' || COALESCE (m2c.cnt_contract_versie, '0')) refid,
NULL lv, -- TODO: Nvt. op losverkoopfactuur?
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam,
DECODE (m.mld_stdmelding_key, 1641, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr,
@@ -3566,11 +3531,11 @@ AS
WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = -1) po, -- PO
--(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
-- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
-- WHERE mld_kenmerk_key = -1 -- Contractreferentie
-- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
WHERE mld_kenmerk_key IN (961, 962)) po, -- PO
(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
WHERE mld_kenmerk_key IN (963, 964) -- Contractreferentie
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = 912) cb, -- Correctiebedrag
@@ -3601,7 +3566,7 @@ AS
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = po.mld_melding_key(+)
--AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = cb.mld_melding_key
AND m.mld_melding_key = btw.mld_melding_key
AND m.mld_melding_key = ro.mld_melding_key
@@ -3617,9 +3582,11 @@ AS
pf.prs_perslid_naam_full aanvrager,
'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms,
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
'melding' xmlnode,
m.mld_melding_key refkey,
NULL refid, -- TODO: Nvt. op losverkoopfactuur?
--'melding' xmlnode,
--m.mld_melding_key refkey,
DECODE (m2c.cnt_contract_key, NULL, 'melding', 'contract') xmlnode,
DECODE (m2c.cnt_contract_key, NULL, m.mld_melding_key, m2c.cnt_contract_key) refkey,
DECODE (m2c.cnt_contract_key, NULL, TO_CHAR (m.mld_melding_key), m2c.cnt_contract_nummer_intern || '/' || COALESCE (m2c.cnt_contract_versie, '0')) refid,
NULL lv, -- TODO: Nvt. op losverkoopfactuur?
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam,
DECODE (m.mld_stdmelding_key, 1641, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr,
@@ -3669,11 +3636,11 @@ AS
WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = -1) po, -- PO
--(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
-- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
-- WHERE mld_kenmerk_key = -1 -- Contractreferentie
-- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
WHERE mld_kenmerk_key IN (961, 962)) po, -- PO
(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
WHERE mld_kenmerk_key IN (963, 964) -- Contractreferentie
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = 917) cb, -- Correctiebedrag
@@ -3704,7 +3671,7 @@ AS
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = po.mld_melding_key(+)
--AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = cb.mld_melding_key
AND m.mld_melding_key = btw.mld_melding_key
AND m.mld_melding_key = ro.mld_melding_key
@@ -3720,9 +3687,11 @@ AS
pf.prs_perslid_naam_full aanvrager,
'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms,
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
'melding' xmlnode,
m.mld_melding_key refkey,
NULL refid, -- TODO: Nvt. op losverkoopfactuur?
--'melding' xmlnode,
--m.mld_melding_key refkey,
DECODE (m2c.cnt_contract_key, NULL, 'melding', 'contract') xmlnode,
DECODE (m2c.cnt_contract_key, NULL, m.mld_melding_key, m2c.cnt_contract_key) refkey,
DECODE (m2c.cnt_contract_key, NULL, TO_CHAR (m.mld_melding_key), m2c.cnt_contract_nummer_intern || '/' || COALESCE (m2c.cnt_contract_versie, '0')) refid,
NULL lv, -- TODO: Nvt. op losverkoopfactuur?
b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam,
DECODE (m.mld_stdmelding_key, 1641, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr,
@@ -3772,11 +3741,11 @@ AS
WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = -1) po, -- PO
--(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
-- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
-- WHERE mld_kenmerk_key = -1 -- Contractreferentie
-- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
WHERE mld_kenmerk_key IN (961, 962)) po, -- PO
(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie
FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c
WHERE mld_kenmerk_key IN (963, 964) -- Contractreferentie
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c,
(SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde
FROM mld_v_aanwezigkenmerkmelding
WHERE mld_kenmerk_key = 922) cb, -- Correctiebedrag
@@ -3807,7 +3776,7 @@ AS
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = po.mld_melding_key(+)
--AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = m2c.mld_melding_key(+)
AND m.mld_melding_key = cb.mld_melding_key
AND m.mld_melding_key = btw.mld_melding_key
AND m.mld_melding_key = ro.mld_melding_key
@@ -3857,7 +3826,7 @@ AS
x.prs_kostensoort_refcode grtboekrek,
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT rrr.res_rsv_ruimte_key, -- Ruimte-regel
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr res_id,
TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr) res_id,
h.prs_bedrijf_key,
TRIM (h.prs_bedrijf_naam) prs_bedrijf_naam,
TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon,
@@ -3933,7 +3902,7 @@ AS
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
UNION ALL -- Korting-regel
SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr res_id,
TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr) res_id,
h.prs_bedrijf_key,
TRIM (h.prs_bedrijf_naam) prs_bedrijf_naam,
TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon,
@@ -4010,7 +3979,7 @@ AS
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
UNION ALL -- Catering-regels
SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr res_id,
TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr) res_id,
h.prs_bedrijf_key,
TRIM (h.prs_bedrijf_naam) prs_bedrijf_naam,
TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon,
@@ -4099,7 +4068,7 @@ AS
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
UNION ALL -- Middelen-regels
SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr res_id,
TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr) res_id,
h.prs_bedrijf_key,
TRIM (h.prs_bedrijf_naam) prs_bedrijf_naam,
TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon,
@@ -4276,7 +4245,7 @@ AS
TO_CHAR (vf.fin_verkoopfactuur_datum, 'dd-mm-yyyy') factuurdatum, TO_CHAR (vf.fin_verkoopfactuur_d1, 'dd-mm-yyyy') vervaldatum,
vf.fin_verkoopfactuur_xmlnode xmlnode,
vf.fin_verkoopfactuur_refkey refkey, -- !!!
DECODE (vf.fin_verkoopfactuur_xmlnode, 'reservering', TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr), NULL) refid, -- Niet historisch bewaard!
DECODE (vf.fin_verkoopfactuur_xmlnode, 'reservering', TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr), 'contract', vf.fin_verkoopfactuur_c1, TO_CHAR (vf.fin_verkoopfactuur_n1)) refid, -- !!!
TO_DATE (NULL) lv,
vf.prs_bedrijf_key, vf.prs_debiteur_naam,
SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr,
@@ -4361,18 +4330,20 @@ AS
vf.fin_verkoopfactuur_xmlnode,
vf.fin_verkoopfactuur_id, vf.fin_verkoopfactuur_maand, vf.prs_debiteur_naam,
vfk.fin_verkoopfactuurkop_key, vfk.fin_verkoopfactuurkop_id,
b.prs_bedrijf_email,
COALESCE (kl.prs_kenmerklink_waarde, b.prs_bedrijf_email) prs_bedrijf_email,
MAX (fin_verkoopfactuur_n1) mld_melding_key
FROM fin_verkoopfactuur vf, fin_verkoopfactuurkop vfk, prs_bedrijf b
FROM fin_verkoopfactuur vf, fin_verkoopfactuurkop vfk, prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1240) kl -- E-mail adres facturatie
WHERE (vf.fin_verkoopfactuur_xmlnode = 'reservering' OR vf.fin_verkoopfactuur_n1 IS NOT NULL) -- Onderscheid ADDD vs. FACT!
AND vf.fin_verkoopfactuurkop_key = vfk.fin_verkoopfactuurkop_key
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = kl.prs_link_key (+)
AND vf.fin_verkoopfactuur_aanmaak > TRUNC (SYSDATE) -- Zojuist/vannacht aangemaakt en dus nog niet gefactureerd(/genotificeerd)!
GROUP BY '[' || vf.fin_verkoopfactuur_id || '|' || vf.fin_verkoopfactuur_maand || '|' || vf.prs_debiteur_naam || '] ',
vf.fin_verkoopfactuur_xmlnode,
vf.fin_verkoopfactuur_id, vf.fin_verkoopfactuur_maand, vf.prs_debiteur_naam,
vfk.fin_verkoopfactuurkop_key, vfk.fin_verkoopfactuurkop_id,
b.prs_bedrijf_email
COALESCE (kl.prs_kenmerklink_waarde, b.prs_bedrijf_email)
ORDER BY vf.fin_verkoopfactuur_id;
-- Verwerk reserveringen (in juiste volgorde)! TODO:Kunnen objecten ook worden gefactureerd?
@@ -4526,12 +4497,12 @@ BEGIN
rec.fin_btwtabelwaarde_perc,
rec.fin_btwtabelwaarde_verlegd,
rec.maand,
rec.mld_melding_key, -- n1/correctiemelding
rec.mld_melding_key, -- n1/correctiemelding=NULL
TO_NUMBER (NULL), -- n2
TO_NUMBER (NULL), -- n3
TO_NUMBER (NULL), -- n4
TO_NUMBER (NULL), -- n5
NULL, -- c1
NULL, -- c1/contract_id=NULL
NULL, -- c2
NULL, -- c3
rec.contactpersoon, -- c4
@@ -4802,7 +4773,7 @@ BEGIN
TO_NUMBER (NULL), -- n3
TO_NUMBER (NULL), -- n4
TO_NUMBER (NULL), -- n5
NULL, -- c1
DECODE (rec.xmlnode, 'contract', rec.refid, NULL), -- c1/contract_id
NULL, -- c2
NULL, -- c3
rec.contactpersoon, -- c4
@@ -4972,7 +4943,7 @@ BEGIN
TO_NUMBER (NULL), -- n3
TO_NUMBER (NULL), -- n4
TO_NUMBER (NULL), -- n5
NULL, -- c1
DECODE (rec.xmlnode, 'contract', rec.refid, NULL), -- c1/contract_id
NULL, -- c2
NULL, -- c3
rec.contactpersoon, -- c4
@@ -5584,7 +5555,7 @@ AS
v.debiteur_nr rel_kpl,
NULL prj_activa, -- Hard op NULL
SUM (ROUND (v.mndnet * v.btw, 2)) bedrag, -- Totaalbedrag incl. BTW gegroepeerd over andere kolommen!
'debt' debitcredit,
'debit' debitcredit,
'C' || v.refid || ' Total' omschrijving,
NULL btwcode, -- Hard op NULL
NULL mld_melding_key
@@ -5988,7 +5959,6 @@ AS -- Facturatie huur
WHERE n.fac_srtnotificatie_key = 341 -- CUST02-noti
AND n.fac_notificatie_refkey = vfk.fin_verkoopfactuurkop_key;
CREATE OR REPLACE VIEW bssc_v_noti_cntreminder
(
code,
@@ -6035,6 +6005,49 @@ AS
AND cnt_contract_status = 0
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key));
-- Notificatie naar finance.smartservices@brightlands.com 7 dagen voor datum
-- geregistreerd in CNT-kenmerkveld 'Volgende factuur'.
CREATE OR REPLACE VIEW BSSC_V_NOTI_FACT_MANUAL
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY,
XSENDER,
XEMAIL,
XMOBILE,
ATTACHMENTS
)
AS -- Op 7 dagen voor 'Volgende factuur'!
SELECT DISTINCT
sn.fac_srtnotificatie_code,
NULL,
NULL,
REPLACE (
REPLACE (
REPLACE (sn.fac_srtnotificatie_oms,
'##KEY##',
x.refid),
'##LEV##',
x.prs_debiteur_naam),
'##OMSCH##',
x.beschrijving)
text,
x.refkey key,
NULL xkey,
NULL xsender,
'finance.smartservices@brightlands.com' xemail,
NULL xmobile,
NULL attachments
FROM bssc_v_fact_manual x, cnt_kenmerkcontract kc, fac_srtnotificatie sn
WHERE x.refkey = kc.cnt_contract_key
AND kc.cnt_kenmerkcontract_verwijder IS NULL
AND kc.cnt_kenmerk_key IN (866, 868, 869, 1021) -- Volgende factuur
AND fac.safe_to_date (kc.cnt_kenmerkcontract_waarde, 'dd-mm-yyyy') = TRUNC (SYSDATE + 7)
AND sn.fac_srtnotificatie_code = 'CUST03';
-- BSSC#65191: Koppeling met SPS=Smart ParkingSystem!
CREATE OR REPLACE VIEW bssc_v_rap_sps_24hourinfo
(
@@ -6185,6 +6198,48 @@ AS
AND b.prs_bedrijf_key = cp.prs_bedrijf_key
AND TO_CHAR (COALESCE (cp.prs_contactpersoon_verwijder, b.prs_bedrijf_verwijder, SYSDATE), 'yyyy') >= '2021';
CREATE OR REPLACE VIEW bssc_v_contractref_chv
(
cnt_contract_key,
cnt_contract_id,
cnt_contract_tht
)
AS
SELECT c.cnt_contract_key,
c.cnt_contract_nummer_intern
|| DECODE (c.cnt_contract_versie, NULL, '', '/' || c.cnt_contract_versie)
|| ' - '
|| cd.ins_discipline_omschrijving
|| ' ['
|| b.prs_bedrijf_naam
|| ']',
LAST_DAY (ADD_MONTHS (c.cnt_contract_looptijd_tot, 12))
FROM cnt_v_aanwezigcontract c, cnt_discipline cd, prs_bedrijf b
WHERE c.ins_discipline_key = cd.ins_discipline_key
AND cd.ins_discipline_key IN (2001, 2003) -- Huur CHV/Parkeren CHV
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key;
CREATE OR REPLACE VIEW bssc_v_contractref_cmd
(
cnt_contract_key,
cnt_contract_id,
cnt_contract_tht
)
AS
SELECT c.cnt_contract_key,
c.cnt_contract_nummer_intern
|| DECODE (c.cnt_contract_versie, NULL, '', '/' || c.cnt_contract_versie)
|| ' - '
|| cd.ins_discipline_omschrijving
|| ' ['
|| b.prs_bedrijf_naam
|| ']',
LAST_DAY (ADD_MONTHS (c.cnt_contract_looptijd_tot, 12))
FROM cnt_v_aanwezigcontract c, cnt_discipline cd, prs_bedrijf b
WHERE c.ins_discipline_key = cd.ins_discipline_key
AND cd.ins_discipline_key IN (2004, 2005) -- Parkeren CMD/Deelnemers CMD
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key;
-- Domein met alle facturen in de afgelopen 12 maanden.
CREATE OR REPLACE VIEW bssc_v_verkoopfactuurref
(
@@ -6798,6 +6853,7 @@ AS
ON m.mld_stdmelding_key = sm.mld_stdmelding_key;
-- Rapportage tbv. interne facturatie van CMD aan CHV (betaald door CHV aan CMD)!
/*
CREATE OR REPLACE VIEW BSSC_V_RAP_CMD2CHV
(
maand,
@@ -7008,6 +7064,184 @@ AS
FROM bssc_v_fact_frozen
WHERE regel_key = 983) -- Duty manager
GROUP BY maand, prs_bedrijf_key, prs_debiteur_naam, fin_verkoopfactuur_id);
*/
CREATE OR REPLACE VIEW BSSC_V_RAP_CMD2CHV
(
maand,
van,
tot,
--prs_bedrijf_key,
debiteurnaam,
debiteurnr,
--factuurnr,
contractnr,
autom_fact,
start_fact,
--bvo_scope,
vvo_scope,
vvo_ovkst,
huur,
--verv_toeslag,
maand_tarief,
cmd_fee,
ict,
facilitair,
service,
schoonmaak,
koffie,
duty
)
AS
SELECT TO_CHAR (x.maand, 'yyyymm') maand,
x.van,
x.tot,
--x.prs_bedrijf_key,
x.debiteurnaam,
x.debiteurnr,
--NULL factuurnr,
x.cnt_contract_nummer_intern || '/' || COALESCE (x.cnt_contract_versie, '0') contractnr,
DECODE (gaf.cnt_kenmerkcontract_waarde, NULL, 'Ja', 'Nee') autom_fact,
fac.safe_to_date (start_fact.cnt_kenmerkcontract_waarde, 'dd-mm-yyyy') start_fact, -- fac.safe_to_date (start_fact.cnt_kenmerkcontract_waarde, 'dd-mm-yyyy') <= fac.safe_to_date (x.maand || '01', 'yyyymmdd')
--cp.bvo_scope,
cp.vvo_scope,
fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde) vvo_ovkst,
fac.safe_to_number (mbw1.cnt_kenmerkcontract_waarde) huur,
--verv_toeslag_ud.fac_usrdata_prijs - 1 verv_toeslag, -- verv_toeslag_ud.fac_usrdata_prijs > 1?
CASE
WHEN COALESCE (fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde), 0) = 0 OR COALESCE (vvo_toeslag_ud.fac_usrdata_prijs, 0) = 0
THEN
TO_NUMBER (NULL)
ELSE
ROUND (
--(fac.safe_to_number (mbw1.cnt_kenmerkcontract_waarde) * COALESCE (verv_toeslag_ud.fac_usrdata_prijs, 0))
fac.safe_to_number (mbw1.cnt_kenmerkcontract_waarde)
/ (fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde) * vvo_toeslag_ud.fac_usrdata_prijs),
2)
END
maand_tarief,
CASE
WHEN x.prs_bedrijf_key IN (16781, 16843) -- Accenture B.V./Incompany Real Estate Services B.V.
THEN
ROUND (
--(fac.safe_to_number (mbw1.cnt_kenmerkcontract_waarde) * COALESCE (verv_toeslag_ud.fac_usrdata_prijs, 0))
fac.safe_to_number (mbw1.cnt_kenmerkcontract_waarde)
/ 3
* ((x.tot - x.van + 1) / (LAST_DAY (x.maand) - x.maand + 1)),
2)
WHEN COALESCE (fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde), 0) = 0 OR COALESCE (vvo_toeslag_ud.fac_usrdata_prijs, 0) = 0
THEN
TO_NUMBER (NULL)
ELSE
ROUND (
DECODE (
SIGN ((((fac.safe_to_number (mbw1.cnt_kenmerkcontract_waarde)) -- * COALESCE (verv_toeslag_ud.fac_usrdata_prijs, 0))
/ (fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde) * vvo_toeslag_ud.fac_usrdata_prijs))
- (73.33 / 12))
* (fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde) * vvo_toeslag_ud.fac_usrdata_prijs)),
-1, 0,
(((fac.safe_to_number (mbw1.cnt_kenmerkcontract_waarde)) -- * COALESCE (verv_toeslag_ud.fac_usrdata_prijs, 0))
/ (fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde) * vvo_toeslag_ud.fac_usrdata_prijs))
- (73.33 / 12))
* (fac.safe_to_number (cvvo.cnt_kenmerkcontract_waarde) * vvo_toeslag_ud.fac_usrdata_prijs))
* ((x.tot - x.van + 1) / (LAST_DAY (x.maand) - x.maand + 1)),
2)
END
cmd_fee,
fac.safe_to_number (mbw2.cnt_kenmerkcontract_waarde) ict,
fac.safe_to_number (mbw3.cnt_kenmerkcontract_waarde) facilitair,
fac.safe_to_number (mbw4.cnt_kenmerkcontract_waarde) service,
fac.safe_to_number (mbw5.cnt_kenmerkcontract_waarde) schoonmaak,
fac.safe_to_number (mbw6.cnt_kenmerkcontract_waarde) koffie,
fac.safe_to_number (mbw7.cnt_kenmerkcontract_waarde) duty
FROM (SELECT p.maand,
GREATEST (TRUNC (c.cnt_contract_looptijd_van), p.maand) van,
LEAST (TRUNC (c.cnt_contract_looptijd_tot), LAST_DAY (p.maand)) tot,
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
c.cnt_contract_versie,
--c.cnt_contract_nummer,
--c.cnt_contract_omschrijving,
b.prs_bedrijf_key,
b.prs_bedrijf_naam debiteurnaam,
TRIM (chvnr.prs_kenmerklink_waarde) debiteurnr
FROM ( SELECT ADD_MONTHS (fac.safe_to_date ('01-01-2023', 'dd-mm-yyyy'), LEVEL - 1) maand
FROM DUAL
WHERE ADD_MONTHS (fac.safe_to_date ('01-01-2023', 'dd-mm-yyyy'), LEVEL - 1) BETWEEN fac.safe_to_date ('20230101', 'yyyymmdd') AND TRUNC (ADD_MONTHS (SYSDATE, 2))
CONNECT BY LEVEL <= 240) p,
cnt_v_aanwezigcontract c,
prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1221) chvnr
WHERE c.ins_discipline_key = 2001 -- Huur CHV
AND c.cnt_contract_status = 0 -- Definitief/TODO:Of gesloten???
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = chvnr.prs_link_key(+)
AND TRUNC (c.cnt_contract_looptijd_van) < LAST_DAY (p.maand) -- Van-datum < einde te factureren maand
AND c.cnt_contract_looptijd_tot > p.maand) x
LEFT JOIN cnt_kenmerkcontract gaf
ON x.cnt_contract_key = gaf.cnt_contract_key
AND gaf.cnt_kenmerkcontract_verwijder IS NULL
AND gaf.cnt_kenmerk_key = 1001 -- Geen automatische facturatie
LEFT JOIN cnt_kenmerkcontract start_fact
ON x.cnt_contract_key = start_fact.cnt_contract_key
AND start_fact.cnt_kenmerkcontract_verwijder IS NULL
AND start_fact.cnt_kenmerk_key = 870 -- Start facturatie op
LEFT JOIN cnt_kenmerkcontract oh
ON x.cnt_contract_key = oh.cnt_contract_key
AND oh.cnt_kenmerkcontract_verwijder IS NULL
AND oh.cnt_kenmerk_key = 641 -- Onbelaste huurder
LEFT JOIN ( SELECT cp.cnt_contract_key,
--SUM (COALESCE (r.alg_ruimte_bruto_vloeropp, 0)) bvo_scope,
SUM (COALESCE (r.alg_ruimte_opp_alt1, 0)) vvo_scope
FROM cnt_v_aanwezigcontract_plaats cp, alg_ruimte r -- TODO:Of aanwezig?
WHERE cp.cnt_alg_plaats_code = 'R' -- Alleen Scope-ruimten!
AND cp.cnt_alg_plaats_key = r.alg_ruimte_key
GROUP BY cp.cnt_contract_key) cp
ON x.cnt_contract_key = cp.cnt_contract_key
LEFT JOIN cnt_kenmerkcontract vvo_toeslag
ON x.cnt_contract_key = vvo_toeslag.cnt_contract_key
AND vvo_toeslag.cnt_kenmerkcontract_verwijder IS NULL
AND vvo_toeslag.cnt_kenmerk_key = 402 -- VVO toeslagpercentage
LEFT JOIN fac_v_aanwezigusrdata vvo_toeslag_ud
ON fac.safe_to_number (vvo_toeslag.cnt_kenmerkcontract_waarde) = vvo_toeslag_ud.fac_usrdata_key
LEFT JOIN cnt_kenmerkcontract cvvo
ON x.cnt_contract_key = cvvo.cnt_contract_key
AND cvvo.cnt_kenmerkcontract_verwijder IS NULL
AND cvvo.cnt_kenmerk_key = 1061 -- M2 volgens contract
LEFT JOIN cnt_kenmerkcontract mbw1
ON x.cnt_contract_key = mbw1.cnt_contract_key
AND mbw1.cnt_kenmerkcontract_verwijder IS NULL
AND mbw1.cnt_kenmerk_key = 962 -- Huur
LEFT JOIN cnt_kenmerkcontract mbw2
ON x.cnt_contract_key = mbw2.cnt_contract_key
AND mbw2.cnt_kenmerkcontract_verwijder IS NULL
AND mbw2.cnt_kenmerk_key = 963 -- ICT
LEFT JOIN cnt_kenmerkcontract mbw3
ON x.cnt_contract_key = mbw3.cnt_contract_key
AND mbw3.cnt_kenmerkcontract_verwijder IS NULL
AND mbw3.cnt_kenmerk_key = 964 -- Facilitaire kosten
LEFT JOIN cnt_kenmerkcontract mbw4
ON x.cnt_contract_key = mbw4.cnt_contract_key
AND mbw4.cnt_kenmerkcontract_verwijder IS NULL
AND mbw4.cnt_kenmerk_key = 965 -- Servicekosten
LEFT JOIN cnt_kenmerkcontract mbw5
ON x.cnt_contract_key = mbw5.cnt_contract_key
AND mbw5.cnt_kenmerkcontract_verwijder IS NULL
AND mbw5.cnt_kenmerk_key = 966 -- Schoonmaak
LEFT JOIN cnt_kenmerkcontract mbw6
ON x.cnt_contract_key = mbw6.cnt_contract_key
AND mbw6.cnt_kenmerkcontract_verwijder IS NULL
AND mbw6.cnt_kenmerk_key = 982 -- Koffieautomaten
LEFT JOIN cnt_kenmerkcontract mbw7
ON x.cnt_contract_key = mbw7.cnt_contract_key
AND mbw7.cnt_kenmerkcontract_verwijder IS NULL
AND mbw7.cnt_kenmerk_key = 983 -- Duty manager
--LEFT JOIN cnt_kenmerkcontract verv_toeslag
-- ON x.cnt_contract_key = verv_toeslag.cnt_contract_key
-- AND verv_toeslag.cnt_kenmerkcontract_verwijder IS NULL
-- AND verv_toeslag.cnt_kenmerk_key = 642 -- Vervangende toeslag
--LEFT JOIN fac_v_aanwezigusrdata verv_toeslag_ud
-- ON fac.safe_to_number (verv_toeslag.cnt_kenmerkcontract_waarde) = verv_toeslag_ud.fac_usrdata_key
;
-- Rapportage van contracten die niet automatisch worden gefactureerd!
CREATE OR REPLACE VIEW BSSC_V_RAP_AUTOM_FACT_UIT