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

BSSC#55692 Facturatieproces (huur eenmalig nog op 15e)

Browse Source 
svn path=/Customer/trunk/; revision=58670
This commit is contained in:
Maarten van der Heide
2023-01-14 16:14:42 +00:00
parent 69dc233ae0
commit 25067defbb
1 changed files with 69 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
BSSC/bssc.sql
View File

@@ -737,7 +737,7 @@ AS
fac.safe_to_number (jbw.cnt_kenmerkcontract_waarde) *
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 0.21)), 2)
mndbtw, -- BTW maandbedrag
DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8110', '8600') grtboekrek,
DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8417', '8400') grtboekrek,
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT c.ins_discipline_key,
c.cnt_contract_key,
@@ -831,7 +831,7 @@ AS
fac.safe_to_number (jbw.cnt_kenmerkcontract_waarde), 2)
mndnet, -- Netto maandbedrag
0 mndbtw, -- BTW maandbedrag
'8110' grtboekrek,
'8417' grtboekrek,
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT c.ins_discipline_key,
c.cnt_contract_key,
@@ -925,7 +925,7 @@ AS
pa.alg_onroerendgoed_type, pa.alg_onroerendgoed_keys, pa.alg_plaatsaanduiding,
0 mndnet, -- Netto maandbedrag
0 mndbtw, -- BTW maandbedrag
DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8110', '8600') grtboekrek,
DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8417', '8400') grtboekrek,
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT c.ins_discipline_key,
c.cnt_contract_key,
@@ -1026,7 +1026,7 @@ AS
'C' alg_onroerendgoed_type, -1 alg_onroerendgoed_keys, 'Correctie' alg_plaatsaanduiding,
0 mndnet, -- Netto maandbedrag
0 mndbtw, -- BTW maandbedrag
DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8110', '8600') grtboekrek,
DECODE (oh.cnt_kenmerkcontract_waarde, '921', '8417', '8400') grtboekrek,
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT c.ins_discipline_key,
c.cnt_contract_key,
@@ -1134,12 +1134,12 @@ AS
0.21, 2)
mndbtw, -- BTW maandbedrag
DECODE (jbw.cnt_kenmerk_key,
'963', '8603', -- ICT
'964', '8602', -- Facilitaire kosten
'965', '8101', -- Servicekosten
'966', '8604', -- Schoonmaak
'982', '7005', -- Koffieautomaten
'983', '7006', -- Duty manager
'963', '8403', -- ICT
'964', '8402', -- Facilitaire kosten
'965', '8401', -- Servicekosten
'966', '8406', -- Schoonmaak
'982', '8424', -- Koffieautomaten
'983', '8425', -- Duty manager
'9999')
grtboekrek, -- Hardcoded?
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
@@ -1443,7 +1443,7 @@ AS
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, x.btw) *
1/12, 2)
mndbtw, -- BTW maandbedrag
TRIM (ks.prs_kostensoort_oms) grtboekrek, -- 8415
TRIM (ks.prs_kostensoort_oms) grtboekrek, -- 8115
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT c.ins_discipline_key,
c.cnt_contract_key,
@@ -1860,7 +1860,7 @@ BEGIN
DECODE ( -- To-adres
rec.prs_bedrijf_email,
NULL, 'finance.smartservices@brightlands.com',
'finance.smartservices@brightlands.com'), -- TODO:rec.prs_bedrijf_email || ';finance.smartservices@brightlands.com'),
rec.prs_bedrijf_email || ';finance.smartservices@brightlands.com'),
'Factuur ' || rec.fin_verkoopfactuur_id || ' ' || rec.fin_verkoopfactuur_maand || ' ' || rec.prs_debiteur_naam,
rec.fin_verkoopfactuurkop_key,
2, -- Prioriteit
@@ -1906,8 +1906,10 @@ AS
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
NULL lv, -- TODO: Nvt. op correctiefactuur?
--b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
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!
--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?
--TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
DECODE (m.mld_stdmelding_key, 1481, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
--NULL btw_nr,
NULL beschrijving,
--DECODE (vf.fin_verkoopfactuur_xmlnode, 'reservering', vf.fin_verkoopfactuur_c4, NULL) contactpersoon,
@@ -1943,6 +1945,8 @@ AS
mld_v_aanwezigkenmerkmelding km,
fin_verkoopfactuur vf,
prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1220) cmdnr,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1221) chvnr,
--(SELECT prs_link_key, prs_kenmerklink_waarde
-- FROM prs_kenmerklink
-- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL)
@@ -1976,6 +1980,8 @@ AS
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key)
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = cmdnr.prs_link_key(+)
AND b.prs_bedrijf_key = chvnr.prs_link_key(+)
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = cb.mld_melding_key
@@ -1997,8 +2003,10 @@ AS
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
NULL lv, -- TODO: Nvt. op correctiefactuur?
--b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
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!
--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?
--TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
DECODE (m.mld_stdmelding_key, 1481, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
--NULL btw_nr,
NULL beschrijving,
NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES?
@@ -2033,6 +2041,8 @@ AS
mld_v_aanwezigkenmerkmelding km,
fin_verkoopfactuur vf,
prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1220) cmdnr,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1221) chvnr,
--(SELECT prs_link_key, prs_kenmerklink_waarde
-- FROM prs_kenmerklink
-- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL)
@@ -2066,6 +2076,8 @@ AS
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key)
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = cmdnr.prs_link_key(+)
AND b.prs_bedrijf_key = chvnr.prs_link_key(+)
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = cb.mld_melding_key
@@ -2087,8 +2099,10 @@ AS
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
NULL lv, -- TODO: Nvt. op correctiefactuur?
--b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
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!
--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?
--TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
DECODE (m.mld_stdmelding_key, 1481, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
--NULL btw_nr,
NULL beschrijving,
NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES?
@@ -2123,6 +2137,8 @@ AS
mld_v_aanwezigkenmerkmelding km,
fin_verkoopfactuur vf,
prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1220) cmdnr,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1221) chvnr,
--(SELECT prs_link_key, prs_kenmerklink_waarde
-- FROM prs_kenmerklink
-- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL)
@@ -2156,6 +2172,8 @@ AS
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key)
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = cmdnr.prs_link_key(+)
AND b.prs_bedrijf_key = chvnr.prs_link_key(+)
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = cb.mld_melding_key
@@ -2177,8 +2195,10 @@ AS
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
NULL lv, -- TODO: Nvt. op correctiefactuur?
--b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
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!
--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?
--TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
DECODE (m.mld_stdmelding_key, 1481, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
--NULL btw_nr,
NULL beschrijving,
NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES?
@@ -2213,6 +2233,8 @@ AS
mld_v_aanwezigkenmerkmelding km,
fin_verkoopfactuur vf,
prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1220) cmdnr,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1221) chvnr,
--(SELECT prs_link_key, prs_kenmerklink_waarde
-- FROM prs_kenmerklink
-- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL)
@@ -2246,6 +2268,8 @@ AS
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key)
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = cmdnr.prs_link_key(+)
AND b.prs_bedrijf_key = chvnr.prs_link_key(+)
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = cb.mld_melding_key
@@ -2267,8 +2291,10 @@ AS
DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey,
NULL refid, -- TODO: Nvt. op correctiefactuur?
NULL lv, -- TODO: Nvt. op correctiefactuur?
--b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
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!
--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?
--TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
DECODE (m.mld_stdmelding_key, 1481, TRIM (chvnr.prs_kenmerklink_waarde), TRIM (cmdnr.prs_kenmerklink_waarde)) debiteur_nr, -- Niet overnemen van te corrigeren factuur?
--NULL btw_nr,
NULL beschrijving,
NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES?
@@ -2303,6 +2329,8 @@ AS
mld_v_aanwezigkenmerkmelding km,
fin_verkoopfactuur vf,
prs_bedrijf b,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1220) cmdnr,
(SELECT * FROM prs_v_aanwezigkenmerklink WHERE prs_kenmerk_key = 1221) chvnr,
--(SELECT prs_link_key, prs_kenmerklink_waarde
-- FROM prs_kenmerklink
-- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL)
@@ -2336,6 +2364,8 @@ AS
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key)
AND vf.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = cmdnr.prs_link_key(+)
AND b.prs_bedrijf_key = chvnr.prs_link_key(+)
--AND b.prs_bedrijf_key = btwnr.prs_link_key(+)
AND b.prs_bedrijf_key = btwvl.prs_link_key(+)
AND m.mld_melding_key = cb.mld_melding_key
@@ -3368,7 +3398,7 @@ AS
SELECT '[' || v.regel || '|' || v.prs_debiteur_naam || '] ' aanduiding,
v.*
FROM bssc_v_addd_actual v
WHERE v.xmlnode = 'reservering' -- TODO:VRIJGEGEVEN!!!
WHERE v.xmlnode = 'reservering' -- TODO:VRIJGEGEVEN!!!
ORDER BY v.prs_bedrijf_key,
v.po_nr, -- Factuur per vrijgegeven event/po
v.sortering;
@@ -3376,7 +3406,7 @@ AS
-- Factureer/bevries ADDD-correcties en verwerk=AV alle correctiemeldingen!
CURSOR c1c
IS
SELECT '[' || v.regel_oms || '|' || v.prs_debiteur_naam || '|' || REPLACE (REPLACE (REPLACE (v.regel, CHR (10), ''), CHR (13), ' '), '=', '~') || '] ' aanduiding,
SELECT '[' || TO_CHAR (v.mld_melding_key) || '|' || v.prs_debiteur_naam || '|' || REPLACE (REPLACE (REPLACE (v.regel, CHR (10), ''), CHR (13), ' '), '=', '~') || '] ' aanduiding,
v.*,
m.mld_melding_status
FROM bssc_v_addd_correctie v, mld_melding m
@@ -3384,20 +3414,19 @@ AS
AND m.mld_melding_status = 5 -- Afgemeld=VRIJGEGEVEN!!!
AND v.mld_melding_key = m.mld_melding_key -- Dagelijkse correctiefacturatie (na vrijgave)
ORDER BY v.prs_bedrijf_key,
v.regel_oms, -- Factuur per te corrigeren verkoopfactuur
v.mld_melding_key,
v.mld_melding_key, -- Factuur per correctiemelding
v.sortering;
-- Factureer/bevries ADDD-losverkopen en verwerk=AV alle losverkoopmeldingen!
CURSOR c1d
IS
SELECT '[' || v.regel_oms || '|' || v.prs_debiteur_naam || '|' || REPLACE (REPLACE (REPLACE (v.regel, CHR (10), ''), CHR (13), ' '), '=', '~') || '] ' aanduiding,
SELECT '[' || TO_CHAR (v.mld_melding_key) || '|' || v.prs_debiteur_naam || '|' || REPLACE (REPLACE (REPLACE (v.regel, CHR (10), ''), CHR (13), ' '), '=', '~') || '] ' aanduiding,
v.*,
m.mld_melding_status
FROM bssc_v_addd_losverkoop v, mld_melding m
WHERE v.mld_melding_key > 18833 -- Per 01-12-2022 (18833 laatste melding op 30-11-2022)!
AND m.mld_melding_status = 5 -- Afgemeld=VRIJGEGEVEN!!!
AND v.refkey = m.mld_melding_key -- Dagelijkse losverkoopfacturatie (na vrijgave)
AND v.mld_melding_key = m.mld_melding_key -- Dagelijkse losverkoopfacturatie (na vrijgave)
ORDER BY v.prs_bedrijf_key,
v.mld_melding_key, -- Factuur per losverkoopmelding
v.sortering;
@@ -3455,7 +3484,7 @@ AS
v_amount_sum NUMBER (10, 2);
v_old_bedrijf_key NUMBER (10);
v_old_po_nr VARCHAR2 (50);
v_old_melding_oms VARCHAR2 (200); -- Factuur per te corrigeren verkoopfactuur!
v_old_melding_key NUMBER (10); -- Factuur per melding!
v_factuur_id VARCHAR2 (30);
v_factkop_id VARCHAR2 (30);
v_verkoopfactuurkop_key NUMBER (10);
@@ -3749,13 +3778,13 @@ BEGIN
THEN
v_fact_count := 0;
v_amount_sum := 0;
v_old_melding_oms := 'Quqelequ'; -- Factuur per te corrigeren verkoopfactuur!
v_old_melding_key := -1; -- Factuur per melding!
-- Factureer/bevries ADDD-correctiekosten en verwerk=AV correctiemeldingen.
FOR rec IN c1c
LOOP
BEGIN
IF rec.mndnet != 0 AND rec.regel_oms != v_old_melding_oms
IF rec.mndnet != 0 AND rec.mld_melding_key != v_old_melding_key
THEN
IF rec.po_nr LIKE 'CHV%'
THEN
@@ -3773,7 +3802,7 @@ BEGIN
INTO v_verkoopfactuurkop_key;
COMMIT;
v_old_melding_oms := rec.regel_oms;
v_old_melding_key := rec.mld_melding_key;
END IF;
IF rec.mndnet != 0
@@ -3919,13 +3948,13 @@ BEGIN
v_fact_count := 0;
v_amount_sum := 0;
v_old_melding_oms := 'Quqelequ'; -- Factuur per te corrigeren verkoopfactuur!
v_old_melding_key := -1; -- Factuur per melding!
-- Factureer/bevries ADDD-losverkoopkosten en verwerk=AV losverkoopmeldingen.
FOR rec IN c1d
LOOP
BEGIN
IF rec.mndnet != 0 AND rec.regel_oms != v_old_melding_oms
IF rec.mndnet != 0 AND rec.mld_melding_key != v_old_melding_key
THEN
IF rec.po_nr LIKE 'CHV%'
THEN
@@ -3943,7 +3972,7 @@ BEGIN
INTO v_verkoopfactuurkop_key;
COMMIT;
v_old_melding_oms := rec.regel_oms;
v_old_melding_key := rec.mld_melding_key;
END IF;
IF rec.mndnet != 0
@@ -4107,7 +4136,7 @@ BEGIN
DECODE ( -- To-adres
rec.prs_bedrijf_email,
NULL, 'finance.smartservices@brightlands.com',
'finance.smartservices@brightlands.com'), -- TODO:rec.prs_bedrijf_email || ';finance.smartservices@brightlands.com'),
rec.prs_bedrijf_email || ';finance.smartservices@brightlands.com'),
'Factuur ' || rec.fin_verkoopfactuur_id || ' ' || rec.fin_verkoopfactuur_maand || ' ' || rec.prs_debiteur_naam,
rec.fin_verkoopfactuurkop_key,
2, -- Prioriteit
@@ -5189,7 +5218,7 @@ AS
NULL kostensoort_verwijder
FROM fin_verkoopfactuur vf, prs_kostensoort ks
WHERE fac.safe_to_number (vf.prs_kostensoort_oms) IS NOT NULL
AND vf.fin_verkoopfactuur_datum > TO_DATE ('01012021', 'ddmmyyyy')
AND vf.fin_verkoopfactuur_datum > TO_DATE ('01122022', 'ddmmyyyy')
AND vf.prs_kostensoort_oms = ks.prs_kostensoort_oms(+);
-- Domein met alle contractanten (debiteuren).
@@ -5843,7 +5872,9 @@ AS
SELECT maand, refkey, refid, beschrijving, fin_verkoopfactuur_id, SUM (mndnet) mndnet
FROM bssc_v_fact_frozen
GROUP BY maand, refkey, refid, beschrijving, fin_verkoopfactuur_id) f
ON x.maand = f.maand AND x.cnt_contract_key = f.refkey;
ON x.maand = f.maand AND x.cnt_contract_key = f.refkey
WHERE f.mndnet != 0
;
-- Rapportage tbv. interne facturatie van CMD aan CHV (betaald door CHV aan CMD)!
CREATE OR REPLACE VIEW BSSC_V_RAP_CMD2CHV