BSSC#55692 Facturatieproces (Parkeren CMD eenmalig op 3e (want gemist op 2/2)

)

svn path=/Customer/trunk/; revision=58953
This commit is contained in:
Maarten van der Heide
2023-02-02 19:54:43 +00:00
parent 4b9746cb00
commit bd9327cdb2

View File

@@ -1398,7 +1398,7 @@ AS
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)!
UNION ALL -- Parkeren CMD (vooruit)!
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
'CMD' || TRIM (x.cnt_contract_nummer) po_nr, -- PO
'9901' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities!
@@ -1421,10 +1421,14 @@ 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,
--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, 1524, '01-02-2023', 1542, '01-02-2023', '01-01-2023') mndbegin, -- TODO:Eenmalige tweak!
'28-02-2023' mndeinde, -- TODO:Eenmalige tweak!
DECODE (x.cnt_contract_key, 1524, '01-02-2023', 1542, '01-02-2023', '01-01-2023') dagbegin, -- TODO:Eenmalige tweak!
'28-02-2023' dageinde, -- TODO:Eenmalige tweak!
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,
@@ -1432,11 +1436,13 @@ 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,
DECODE (x.cnt_contract_key, 1524, 1, 1542, 1, 2) * -- TODO:Eenmalige tweak!
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)
DECODE (x.cnt_contract_key, 1524, 1, 1542, 1, 2) * -- TODO:Eenmalige tweak!
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) *
@@ -1458,7 +1464,8 @@ AS
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,
TO_CHAR (ADD_MONTHS (TO_DATE (lp.maand || '01', 'yyyymmdd'), -2), 'yyyymm') maand
--lp.maand
'202303' maand -- TODO:Eenmalige tweak!
FROM lopendeperiode lp,
cnt_v_aanwezigcontract c,
prs_bedrijf b,
@@ -1467,8 +1474,10 @@ AS
prs_kostenplaatsgrp kpg
WHERE c.ins_discipline_key = 2004 -- Parkeren CMD
AND c.cnt_contract_status = 0 -- Definitief
AND TRUNC (c.cnt_contract_looptijd_van) < ADD_MONTHS (LAST_DAY (TO_DATE (lp.maand || '01', 'yyyymmdd')), -2) -- Van-datum < einde te factureren maand
AND c.cnt_contract_looptijd_tot > ADD_MONTHS (TO_DATE (lp.maand || '01', 'yyyymmdd'), -2) -- Tot-datum > begin te factureren maand
--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 TRUNC (c.cnt_contract_looptijd_van) < LAST_DAY (TO_DATE ('202303' || '01', 'yyyymmdd')) -- Van-datum < einde te factureren maand/TODO:Eenmalige tweak!
AND c.cnt_contract_looptijd_tot > TO_DATE ('202303' || '01', 'yyyymmdd') -- Tot-datum > begin te factureren maand/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(+)
@@ -1658,6 +1667,7 @@ AS
SELECT '[' || v.refid || '|' || v.prs_debiteur_naam || '|' || v.regel || '] ' aanduiding,
v.*
FROM bssc_v_fact_actual v
WHERE v.grtboekrek = '8115' -- TODO:Eenmalige tweak!
ORDER BY v.prs_bedrijf_key, v.po_nr, v.sortering, v.regel, v.alg_plaatsaanduiding;
-- Verstuur verkoopfactuur naar huurder.
@@ -1702,9 +1712,10 @@ BEGIN
-- 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 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') = '03' -- TODO:Eenmalige tweak en weer terug naar nacht na 1e werkdag van de maand!
THEN
v_fact_count := 0;
v_amount_sum := 0;