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=58439
This commit is contained in:
Maarten van der Heide
2022-12-22 12:12:10 +00:00
parent 82c950c03e
commit cfbfeeff71
1 changed files with 178 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

259
BSSC/bssc.sql
View File

@@ -693,12 +693,6 @@ AS
AND p.prs_perslid_key = pf.prs_perslid_key;
-- BSSC#55692: Facturatie verhuur (M2 en meer)!
-- V Huur niet op basis van Tarieftabel, maar kenmerk 861=Huurprijs (per jaar)
-- V Geen automatische facturatie op basis van kenmerk 862=Checkbox
-- V Kenmerk 870=Start facturatie huur
-- V Kenmerk 901=Duty manager
-- V Kenmerk 902=Koffieautomaten
-- V Kenmerk 641=Onbelaste huurder???
CREATE OR REPLACE VIEW bssc_v_fact_actual
AS
WITH lopendeperiode AS (SELECT COALESCE (MAX (TO_CHAR (LAST_DAY (fac.safe_to_date (fin_verkoopfactuur_maand, 'yyyymm')) + 1, 'yyyymm')), '202301') maand
@@ -1146,7 +1140,6 @@ AS
'966', '8604', -- Schoonmaak
'982', '7005', -- Koffieautomaten
'983', '7006', -- Duty manager
'985', '9999', -- Gebruik Forum/TODO
'9999')
grtboekrek, -- Hardcoded?
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
@@ -1196,7 +1189,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, 985) -- Overige maandbedragen
AND jbw.cnt_kenmerk_key IN (963, 964, 965, 966, 982, 983) -- 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
@@ -1206,7 +1199,7 @@ AS
UNION ALL -- Parkeren CHV (vooruit)!
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO
'9999' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
'9901' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
COALESCE (ks.prs_kostensoort_refcode, ks.prs_kostensoort_opmerking) regel, -- Parkeren CHV
NULL aanvrager, -- !!!
NULL regel_oms, -- !!!
@@ -1221,9 +1214,9 @@ 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 (x.btw, 0, '0', 'H')) fin_btwtabelwaarde_code,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', DECODE (x.btw, 0, 'Nul', 'Hoog')) fin_btwtabelwaarde_oms,
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (x.btw, 0, 0, 21)) fin_btwtabelwaarde_perc,
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,
@@ -1241,14 +1234,15 @@ AS
fac.safe_to_number (aantal.cnt_kenmerkcontract_waarde) *
fac.safe_to_number (bedrag.cnt_kenmerkcontract_waarde) *
1/12, 2)
mndnet, -- Netto maandbedrag (incl. kortingspercentage)
mndnet, -- Netto maandbedrag
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) *
DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 0.21)) *
1/12, 2)
mndbtw, -- BTW maandbedrag
TRIM (ks.prs_kostensoort_oms) grtboekrek,
--DECODE (oh.cnt_kenmerkcontract_waarde, '921', '9999', '8404') grtboekrek,
TRIM (ks.prs_kostensoort_oms) grtboekrek, -- 8404
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT c.ins_discipline_key,
c.cnt_contract_key,
@@ -1257,7 +1251,6 @@ AS
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 (chvnr.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,
@@ -1294,6 +1287,10 @@ AS
ON x.cnt_contract_key = bedrag.cnt_contract_key
AND bedrag.cnt_kenmerkcontract_verwijder IS NULL
AND bedrag.cnt_kenmerk_key = 416 -- Bedrag
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 = 1041 -- Onbelaste huurder
LEFT JOIN cnt_discipline cd
ON x.ins_discipline_key = cd.ins_discipline_key
LEFT JOIN prs_kostensoort ks
@@ -1301,10 +1298,110 @@ AS
WHERE gaf.cnt_kenmerkcontract_waarde IS NULL -- COALESCE (gaf.cnt_kenmerkcontract_waarde, 0) = 0
AND COALESCE (fac.safe_to_number (aantal.cnt_kenmerkcontract_waarde), 0) > 0
AND COALESCE (fac.safe_to_number (bedrag.cnt_kenmerkcontract_waarde), 0) > 0
UNION ALL -- Vervangende toeslag op Parkeren CHV (vooruit)!
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO
'9902' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
'CHV - Vervangende toeslag' regel, -- Vervangende toeslag
NULL aanvrager, -- !!!
NULL regel_oms, -- !!!
TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum,
'contract' xmlnode,
x.cnt_contract_key refkey, -- !!!
x.cnt_contract_nummer_intern || '/' || COALESCE (x.cnt_contract_versie, '0') refid, -- !!!
x.lv,
x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, x.debiteur_nr,
x.cnt_contract_omschrijving beschrijving,
NULL contactpersoon,
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,
'0' fin_btwtabelwaarde_code,
'Nul' fin_btwtabelwaarde_oms,
0 fin_btwtabelwaarde_perc,
TO_NUMBER (NULL) fin_btwtabelwaarde_verlegd, -- Of 1?
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,
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
fac.safe_to_number (aantal.cnt_kenmerkcontract_waarde) aantal,
fac.safe_to_number (bedrag.cnt_kenmerkcontract_waarde) * (verv_toeslag_ud.fac_usrdata_prijs - 1) bedrag, -- Jaarbedrag * Vervangend toeslagperc.
TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagpercentage
verv_toeslag.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)) *
fac.safe_to_number (aantal.cnt_kenmerkcontract_waarde) *
fac.safe_to_number (bedrag.cnt_kenmerkcontract_waarde) * (verv_toeslag_ud.fac_usrdata_prijs - 1) *
1/12, 2)
mndnet, -- Netto maandbedrag (incl. kortingspercentage)
0 mndbtw, -- BTW maandbedrag
--'9999' grtboekrek,
TRIM (ks.prs_kostensoort_oms) grtboekrek, -- 8404
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (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 (chvnr.prs_kenmerklink_waarde) debiteur_nr,
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 = 1221) chvnr,
prs_kostenplaats kp,
prs_kostenplaatsgrp kpg
WHERE c.ins_discipline_key = 2003 -- Parkeren CHV
AND c.cnt_contract_status = 0 -- Definitief
AND TRUNC (c.cnt_contract_looptijd_van) < LAST_DAY (TO_DATE (lp.maand || '01', 'yyyymmdd')) -- Van-datum < einde te factureren maand
AND c.cnt_contract_looptijd_tot > TO_DATE (lp.maand || '01', 'yyyymmdd') -- Tot-datum > begin te factureren maand
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = chvnr.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
AND btwvl.prs_kenmerklink_verwijder IS NULL
AND btwvl.prs_kenmerk_key = -1 -- BTW verlegd
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 = 864 -- Geen automatische facturatie
LEFT JOIN cnt_kenmerkcontract aantal
ON x.cnt_contract_key = aantal.cnt_contract_key
AND aantal.cnt_kenmerkcontract_verwijder IS NULL
AND aantal.cnt_kenmerk_key = 415 -- Aantal
LEFT JOIN cnt_kenmerkcontract bedrag
ON x.cnt_contract_key = bedrag.cnt_contract_key
AND bedrag.cnt_kenmerkcontract_verwijder IS NULL
AND bedrag.cnt_kenmerk_key = 416 -- Bedrag
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 = 1042 -- 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
LEFT JOIN cnt_discipline cd
ON x.ins_discipline_key = cd.ins_discipline_key
LEFT JOIN prs_kostensoort ks
ON cd.prs_kostensoort_key = ks.prs_kostensoort_key
WHERE gaf.cnt_kenmerkcontract_waarde IS NULL -- COALESCE (gaf.cnt_kenmerkcontract_waarde, 0) = 0
AND COALESCE (fac.safe_to_number (aantal.cnt_kenmerkcontract_waarde), 0) > 0
AND COALESCE (fac.safe_to_number (bedrag.cnt_kenmerkcontract_waarde), 0) > 0
AND verv_toeslag_ud.fac_usrdata_prijs > 1
UNION ALL -- Parkeren CMD (achteraf)!
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
'CMD' || TRIM (x.cnt_contract_nummer) po_nr, -- PO
'9999' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
'9901' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
COALESCE (ks.prs_kostensoort_refcode, ks.prs_kostensoort_opmerking) regel, -- Parkeren CMD
NULL aanvrager, -- !!!
NULL regel_oms, -- !!!
@@ -1346,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,
TRIM (ks.prs_kostensoort_oms) grtboekrek, -- 8415
TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key
FROM (SELECT c.ins_discipline_key,
c.cnt_contract_key,
@@ -1402,7 +1499,7 @@ AS
UNION ALL -- Deelnemers CMD (achteraf)!
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
'CMD' || TRIM (x.cnt_contract_nummer) po_nr, -- PO
'9999' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
'9901' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
'CMD - ' || sd_ud.fac_usrdata_omschr regel, -- Deelnemers CMD
NULL aanvrager, -- !!!
NULL regel_oms, -- !!!
@@ -1605,10 +1702,11 @@ BEGIN
-- IF nacht na 1e werkdag van de maand (<28>n<EFBFBD>geen weekend <20>n<EFBFBD>geen vrije dag)!
-- count_work_days (d1,d2) bepaalt het #werkdagen van d1 tot d2 (als d1=d2,
-- dan return 0); daarom bepalen tov. laatste dag van vorige maand!
--IF TO_CHAR (SYSDATE, 'dd') = '15' -- TODO:Weer terug naar nacht na 1e werkdag van de maand!
--IF FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 1 -- Nacht na 1e werkdag van de maand!
-- AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
-- AND v_holiday = 0
IF TO_CHAR (SYSDATE, 'dd') = '05' -- TODO:Weer terug naar nacht na 1e werkdag van de maand!
IF TO_CHAR (SYSDATE, 'dd') = '15' -- TODO:Weer terug naar nacht na 1e werkdag van de maand!
THEN
v_fact_count := 0;
v_amount_sum := 0;
@@ -1872,7 +1970,7 @@ AS
WHERE mld_kenmerk_key = 745) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
@@ -1962,7 +2060,7 @@ AS
WHERE mld_kenmerk_key = 750) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
@@ -2052,7 +2150,7 @@ AS
WHERE mld_kenmerk_key = 765) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
@@ -2142,7 +2240,7 @@ AS
WHERE mld_kenmerk_key = 770) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
@@ -2232,7 +2330,7 @@ AS
WHERE mld_kenmerk_key = 775) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key
@@ -2335,10 +2433,10 @@ AS
WHERE mld_kenmerk_key = 905) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = deb.mld_melding_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key(+)
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = 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(+)
@@ -2438,10 +2536,10 @@ AS
WHERE mld_kenmerk_key = 910) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = deb.mld_melding_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key(+)
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = 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(+)
@@ -2541,10 +2639,10 @@ AS
WHERE mld_kenmerk_key = 915) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = deb.mld_melding_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key(+)
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = 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(+)
@@ -2644,10 +2742,10 @@ AS
WHERE mld_kenmerk_key = 920) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = deb.mld_melding_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key(+)
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = 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(+)
@@ -2747,10 +2845,10 @@ AS
WHERE mld_kenmerk_key = 925) ks -- Kostensoort
WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD
AND m.prs_perslid_key_voor = pf.prs_perslid_key
AND m.mld_melding_status = 5 -- Afgemeld
AND m.mld_melding_status IN (4, 5) -- In behandeling/Afgemeld
AND m.mld_melding_key = deb.mld_melding_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key
AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key(+)
AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = 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(+)
@@ -3186,6 +3284,7 @@ AS
grtboekrek,
mld_melding_key
FROM bssc_v_addd_correctie
WHERE mld_melding_key > 18833 -- Per 01-12-2022 (18833 laatste melding op 30-11-2022)!
UNION ALL -- Losverkoopmeldingen
SELECT fin_verkoopfactuur_id, po_nr,
sortering, regel, aanvrager, regel_oms,
@@ -3202,6 +3301,7 @@ AS
grtboekrek,
mld_melding_key
FROM bssc_v_addd_losverkoop
WHERE mld_melding_key > 18833 -- Per 01-12-2022 (18833 laatste melding op 30-11-2022)!
;
CREATE OR REPLACE VIEW bssc_v_addd_frozen
@@ -3279,8 +3379,10 @@ AS
SELECT '[' || v.regel_oms || '|' || 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 -- TODO:VRIJGEGEVEN!!!
WHERE v.refkey = m.mld_melding_key -- Dagelijkse correctiefacturatie (na vrijgave)
FROM bssc_v_addd_correctie 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.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,
@@ -3292,8 +3394,10 @@ AS
SELECT '[' || v.regel_oms || '|' || 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 -- TODO:VRIJGEGEVEN!!!
WHERE v.refkey = m.mld_melding_key -- Dagelijkse losverkoopfacturatie (na vrijgave)
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)
ORDER BY v.prs_bedrijf_key,
v.mld_melding_key, -- Factuur per losverkoopmelding
v.sortering;
@@ -3367,7 +3471,7 @@ BEGIN
FROM mld_vrije_dagen
WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1);
IF 1 = 1 -- Vrijgegeven is die nacht factureren!
IF 1 = 0 -- Vrijgegeven is die nacht factureren!
THEN
v_fact_count := 0;
v_amount_sum := 0;
@@ -3534,7 +3638,7 @@ BEGIN
2, -- Prioriteit
TRUNC (SYSDATE) + (7 / 24),
'finance.smartservices@brightlands.com',
'/../../Fplace_A/CUST/BSSC/export/PDF/Backup/' || rec.fin_verkoopfactuurkop_id || '.pdf'); -- TODO
'/../../Fplace5i/CUST/BSSC/export/PDF/Backup/' || rec.fin_verkoopfactuurkop_id || '.pdf');
EXCEPTION
WHEN OTHERS
THEN
@@ -3641,7 +3745,7 @@ BEGIN
-- LET OP: ADDD-export correctie- <20>n losverkoopfacturen (= boekingsgangen)
-- draait dagelijks na middernacht (begin van dag) en de verkoop wordt ook
-- elke nacht doorgezet (mits vrijgegeven!).
IF 1 = 1
IF 1 = 0
THEN
v_fact_count := 0;
v_amount_sum := 0;
@@ -3793,10 +3897,11 @@ BEGIN
-- Overgang van Geaccepteerd naar Verwerkt niet mogelijk, dus dan
-- eerst afmelden (als nog niet Afgemeld)!
IF (rec.mld_melding_status = 4) -- ACP
THEN
MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- AFM
END IF;
--IF (rec.mld_melding_status = 4) -- ACP
--THEN
-- MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- AFM
--END IF;
-- Melding hier altijd Afgemeld!
MLD.setmeldingstatus (rec.mld_melding_key, 6, NULL); -- VER
COMMIT;
EXCEPTION
@@ -3962,10 +4067,11 @@ BEGIN
-- Overgang van Geaccepteerd naar Verwerkt niet mogelijk, dus dan
-- eerst afmelden (als nog niet Afgemeld)!
IF (rec.mld_melding_status = 4) -- ACP
THEN
MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- AFM
END IF;
--IF (rec.mld_melding_status = 4) -- ACP
--THEN
-- MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- AFM
--END IF;
-- Melding hier altijd Afgemeld!
MLD.setmeldingstatus (rec.mld_melding_key, 6, NULL); -- VER
COMMIT;
EXCEPTION
@@ -4007,7 +4113,7 @@ BEGIN
2, -- Prioriteit
TRUNC (SYSDATE) + (7 / 24),
'finance.smartservices@brightlands.com',
'/../../Fplace_A/CUST/BSSC/export/PDF/Backup/' || rec.fin_verkoopfactuurkop_id || '.pdf'); -- TODO
'/../../Fplace5i/CUST/BSSC/export/PDF/Backup/' || rec.fin_verkoopfactuurkop_id || '.pdf');
EXCEPTION
WHEN OTHERS
THEN
@@ -5238,7 +5344,8 @@ AS
-- WHERE fac_srtnotificatie_key = 82 -- RESUPD
-- AND INSTR (UPPER (fac_tracking_oms), 'VRIJGEGEVEN TER FACTURATIE DOOR') > 0) t,
res_status_bo rs
WHERE v.xmlnode = 'reservering'
WHERE 1 = 0 -- TODO:Nog geen facturatie van reserveringen uit Facilitor!
AND v.xmlnode = 'reservering'
AND v.refkey = rrr.res_rsv_ruimte_key
AND rrr.res_rsv_ruimte_key = kw.res_rsv_ruimte_key(+)
--AND kw.res_rsv_ruimte_key = t.fac_tracking_refkey(+)
@@ -5252,11 +5359,11 @@ AS
TO_CHAR (v.mld_melding_key) refid,
v.regel_oms refoms,
ms.mld_statuses_omschrijving status,
fac.gettrackingdate ('MLDAFM', v.mld_melding_key) datum,
fac.gettrackingdate ('MLDACP', v.mld_melding_key) datum,
v.mndnet,
fac.gettrackinguserkey ('MLDAFR', v.mld_melding_key) vrijgever -- Vrijgever is de MLDAFR-user
fac.gettrackinguserkey ('MLDAFM', v.mld_melding_key) vrijgever -- Vrijgever is de MLDAFM-user
--TO_NUMBER (NULL) vrijgave_door,
--fac.gettrackingdate ('MLDAFR', v.mld_melding_key) vrijgave_datum
--fac.gettrackingdate ('MLDAFM', v.mld_melding_key) vrijgave_datum
FROM bssc_v_addd_actual v,
mld_melding m,
mld_statuses ms
@@ -5345,11 +5452,11 @@ AS
v.contactpersoon,
TO_CHAR (v.mld_melding_key) refid,
v.regel_oms refoms,
fac.gettrackingdate ('MLDAFM', v.mld_melding_key) datum,
fac.gettrackingdate ('MLDACP', v.mld_melding_key) datum,
v.mndnet,
fac.gettrackinguserkey ('MLDAFR', v.mld_melding_key) vrijgever -- Vrijgever is de MLDAFR-user
fac.gettrackinguserkey ('MLDAFM', v.mld_melding_key) vrijgever -- Vrijgever is de MLDAFM-user
--TO_NUMBER (NULL) vrijgave_door,
--fac.gettrackingdate ('MLDAFR', v.mld_melding_key) vrijgave_datum
--fac.gettrackingdate ('MLDAFM', v.mld_melding_key) vrijgave_datum
FROM bssc_v_addd_frozen v
WHERE v.mld_melding_key IS NOT NULL) x,
prs_v_perslid_fullnames_all pfi
@@ -5483,11 +5590,11 @@ AS
TO_CHAR (v.mld_melding_key) refid,
v.regel_oms refoms,
ms.mld_statuses_omschrijving status,
fac.gettrackingdate ('MLDAFM', v.mld_melding_key) datum,
fac.gettrackingdate ('MLDACP', v.mld_melding_key) datum,
v.mndnet,
fac.gettrackinguserkey ('MLDAFR', v.mld_melding_key) vrijgever, -- Vrijgever is de MLDAFR-user
fac.gettrackinguserkey ('MLDAFM', v.mld_melding_key) vrijgever, -- Vrijgever is de MLDAFR-user
TO_NUMBER (NULL) vrijgave_door,
fac.gettrackingdate ('MLDAFR', v.mld_melding_key) vrijgave_datum
fac.gettrackingdate ('MLDAFM', v.mld_melding_key) vrijgave_datum
FROM bssc_v_addd_actual v,
mld_melding m,
mld_statuses ms
@@ -5503,11 +5610,11 @@ AS
TO_CHAR (v.mld_melding_key) refid,
v.regel_oms refoms,
'Verwerkt' status,
fac.gettrackingdate ('MLDAFM', v.mld_melding_key) datum,
fac.gettrackingdate ('MLDACP', v.mld_melding_key) datum,
v.mndnet,
fac.gettrackinguserkey ('MLDAFR', v.mld_melding_key) vrijgever, -- Vrijgever is de MLDAFR-user
fac.gettrackinguserkey ('MLDAFM', v.mld_melding_key) vrijgever, -- Vrijgever is de MLDAFM-user
TO_NUMBER (NULL) vrijgave_door,
fac.gettrackingdate ('MLDAFR', v.mld_melding_key) vrijgave_datum
fac.gettrackingdate ('MLDAFM', v.mld_melding_key) vrijgave_datum
FROM bssc_v_addd_frozen v
WHERE v.mld_melding_key IS NOT NULL) x,
prs_v_perslid_fullnames_all pfi,
@@ -5851,12 +5958,7 @@ AS
SELECT maand, prs_bedrijf_key, prs_debiteur_naam, refid,
0 vvo, 0 huur, 0 verv_toeslag, 0 ict, 0 facilitair, 0 service, 0 schoonmaak, 0 koffie, mndnet duty, 0 forum
FROM bssc_v_fact_actual
WHERE regel_key = 983 -- Duty manager
UNION ALL
SELECT maand, prs_bedrijf_key, prs_debiteur_naam, refid,
0 vvo, 0 huur, 0 verv_toeslag, 0 ict, 0 facilitair, 0 service, 0 schoonmaak, 0 koffie, 0 duty, mndnet forum
FROM bssc_v_fact_actual
WHERE regel_key = 985) -- Gebruik Forum
WHERE regel_key = 983) -- Duty manager
GROUP BY maand, prs_bedrijf_key, prs_debiteur_naam, refid)
UNION ALL
SELECT maand,
@@ -5952,12 +6054,7 @@ AS
SELECT maand, prs_bedrijf_key, prs_debiteur_naam, fin_verkoopfactuur_id,
0 vvo, 0 huur, 0 verv_toeslag, 0 ict, 0 facilitair, 0 service, 0 schoonmaak, 0 koffie, mndnet duty, 0 forum
FROM bssc_v_fact_frozen
WHERE regel_key = 983 -- Duty manager
UNION ALL
SELECT maand, prs_bedrijf_key, prs_debiteur_naam, fin_verkoopfactuur_id,
0 vvo, 0 huur, 0 verv_toeslag, 0 ict, 0 facilitair, 0 service, 0 schoonmaak, 0 koffie, 0 duty, mndnet forum
FROM bssc_v_fact_frozen
WHERE regel_key = 985) -- Gebruik Forum
WHERE regel_key = 983) -- Duty manager
GROUP BY maand, prs_bedrijf_key, prs_debiteur_naam, fin_verkoopfactuur_id);
-- Rapportage van contracten die niet automatisch worden gefactureerd!