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

BLCC#77430 Security module+BLCC#77765 ADDD-export/Wijzigen kostenplaats+BLCC#77776 Thema+BLCC#77790 Rap/Toevoegen kolommen én conditie

Browse Source 
svn path=/Customer/trunk/; revision=60003
This commit is contained in:
Maarten van der Heide
2023-04-13 17:12:18 +00:00
parent fd19721f12
commit 8096170857
1 changed files with 31 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
BLCC/blcc.sql
View File

@@ -7307,7 +7307,6 @@ AS
CREATE OR REPLACE VIEW blcc_v_addd_actual
AS
SELECT '*CONCEPT*' fin_verkoopfactuur_id,
--TRIM (COALESCE (x.cnt_contract_nummer, '-')) po_nr,
TRIM (COALESCE (x.res_kenmerkreservering_waarde, x.cnt_contract_nummer, '-')) po_nr,
x.cnt_contract_nummer_intern || '.' || COALESCE (x.cnt_contract_versie, '0') contract_id,
'1' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening sortering,
@@ -7325,14 +7324,12 @@ AS
x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms,
DECODE (x.btw_vl, '1', 'V', DECODE (x.btw, 'VL', 'L', 'H')) fin_btwtabelwaarde_code,
DECODE (x.btw_vl, '1', 'Verlegd', DECODE (x.btw, 'VL', 'Laag', 'Hoog')) fin_btwtabelwaarde_oms,
--DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', 6, 21)) fin_btwtabelwaarde_perc,
DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', DECODE (TO_CHAR (x.reslev, 'yyyy'), '2018', 6, 9), 21)) fin_btwtabelwaarde_perc, -- Bah!
DECODE (x.btw_vl, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd,
TO_CHAR (SYSDATE, 'yyyymm') maand,
TO_CHAR (TRUNC (SYSDATE, 'mm'), 'dd-mm-yyyy') mndbegin,
TO_CHAR (LAST_DAY (SYSDATE), 'dd-mm-yyyy') mndeinde,
SUM (COALESCE (verw_prijs, prijs, 0)) mndnet, -- Netto bedrag
--SUM (ROUND (DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', 0.06, 0.21)) * COALESCE (verw_prijs, prijs, 0), 2)) mndbtw, -- BTW bedrag
SUM (ROUND (DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', DECODE (TO_CHAR (x.reslev, 'yyyy'), '2018', 0.06, 0.09), 0.21)) * COALESCE (verw_prijs, prijs, 0), 2)) mndbtw, -- BTW bedrag
0 crf, -- CV=0 en CRF=1
x.prs_kostensoort_refcode grtboekrek,
@@ -7447,11 +7444,9 @@ AS
AND rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key IN (821, 822)) rra,
res_discipline rd,
--res_disc_params dp,
--prs_bedrijf b,
prs_kostensoort ks,
prs_kostenplaats kp,
prs_kostenplaatsgrp kpg,
prs_kostensoort ks,
(SELECT kw.res_rsv_ruimte_key, kw.res_kenmerkreservering_waarde
FROM res_v_aanwezigkenmerkwaarde kw, res_kenmerk k
WHERE kw.res_kenmerk_key = k.res_kenmerk_key AND k.res_srtkenmerk_key = 1) kw -- Refnr. aanvrager
@@ -7477,17 +7472,15 @@ AS
AND h.prs_bedrijf_key = btwvl.prs_link_key(+)
AND h.prs_bedrijf_key = cp.prs_bedrijf_key(+)
AND p.prs_perslid_key = pf.prs_perslid_key
--AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaats_key = 4321 -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902!
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rra.res_discipline_key = rd.ins_discipline_key
--AND rd.ins_discipline_key = dp.res_ins_discipline_key
--AND dp.prs_bedrijf_key = b.prs_bedrijf_key
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
--AND kp.prs_kostenplaats_key = 4321 -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902!
--AND DECODE (ks.prs_kostensoort_refcode, '8132', 521, 4321) = kp.prs_kostenplaats_key(+) -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902! BLCC#77765:Behalve als kostensoort=8132, dan 50900!
AND DECODE (ks.prs_kostensoort_refcode, '8132', rrr.prs_kostenplaats_key, 4321) = kp.prs_kostenplaats_key(+) -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902! BLCC#77765:Behalve als kostensoort=8132, dan 50900!
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND rrr.res_rsv_ruimte_key = kw.res_rsv_ruimte_key(+)) x
GROUP BY '*CONCEPT*',
--TRIM (COALESCE (x.cnt_contract_nummer, '-')),
TRIM (COALESCE (x.res_kenmerkreservering_waarde, x.cnt_contract_nummer, '-')),
x.cnt_contract_nummer_intern || '.' || COALESCE (x.cnt_contract_versie, '0'),
'1' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening,
@@ -7518,8 +7511,6 @@ AS
TRIM (COALESCE (x.res_kenmerkreservering_waarde, '-')) po_nr,
NULL contract_id,
'2' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening sortering,
--'Event ' || x.res_id regel,
--'E' || x.res_id regel_id,
DECODE (x.res_activiteit_key, 130, 'Event ' || x.res_id, 'Vergadering ' || x.res_id) regel,
DECODE (x.res_activiteit_key, 130, 'E' || x.res_id, 'V' || x.res_id) regel,
DECODE (x.volgnr, 0, x.res_voorziening || ' [' || TO_CHAR (ROUND (x.aantal, 2)) || ' uur]', 2, TO_CHAR (x.aantal) || 'x ' || x.res_voorziening, x.res_voorziening) regel_oms,
@@ -7534,14 +7525,12 @@ AS
x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms,
DECODE (x.btw_vl, '1', 'V', DECODE (x.btw, 'VL', 'L', 'H')) fin_btwtabelwaarde_code,
DECODE (x.btw_vl, '1', 'Verlegd', DECODE (x.btw, 'VL', 'Laag', 'Hoog')) fin_btwtabelwaarde_oms,
--DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', 6, 21)) fin_btwtabelwaarde_perc,
DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', DECODE (TO_CHAR (x.reslev, 'yyyy'), '2018', 6, 9), 21)) fin_btwtabelwaarde_perc, -- Bah!
DECODE (x.btw_vl, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd,
TO_CHAR (SYSDATE, 'yyyymm') maand,
TO_CHAR (TRUNC (SYSDATE, 'mm'), 'dd-mm-yyyy') mndbegin,
TO_CHAR (LAST_DAY (SYSDATE), 'dd-mm-yyyy') mndeinde,
SUM (COALESCE (verw_prijs, prijs, 0)) mndnet, -- Netto bedrag
--SUM (ROUND (DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', 0.06, 0.21)) * COALESCE (verw_prijs, prijs, 0), 2)) mndbtw, -- BTW bedrag
SUM (ROUND (DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', DECODE (TO_CHAR (x.reslev, 'yyyy'), '2018', 0.06, 0.09), 0.21)) * COALESCE (verw_prijs, prijs, 0), 2)) mndbtw, -- BTW bedrag
0 crf, -- CV=0 en CRF=1
x.prs_kostensoort_refcode grtboekrek,
@@ -7601,17 +7590,14 @@ AS
prs_v_perslid_fullnames_all pf,
res_ruimte rr,
res_discipline rd,
prs_kostensoort ks,
prs_kostenplaats kp,
prs_kostenplaatsgrp kpg,
prs_kostensoort ks,
(SELECT kw.res_rsv_ruimte_key, kw.res_kenmerkreservering_waarde
FROM res_v_aanwezigkenmerkwaarde kw, res_kenmerk k
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
AND k.res_srtkenmerk_key = 1) kw -- Refnr. aanvrager
WHERE --rrr.res_activiteit_key = 130 -- Evenement
--rrr.res_activiteit_key IN (130, 10) -- Evenement/Vergadering
--AND EXISTS (SELECT 1 FROM prs_kostenplaats WHERE prs_kostenplaats_extern = 1 AND prs_kostenplaats_key = rrr.prs_kostenplaats_key)
(rrr.res_activiteit_key = 130
WHERE (rrr.res_activiteit_key = 130
OR (rrr.res_activiteit_key = 10 AND EXISTS (SELECT 1 FROM prs_kostenplaats WHERE prs_kostenplaats_extern = 1 AND prs_kostenplaats_key = rrr.prs_kostenplaats_key)))
AND rrr.res_rsv_ruimte_van > TO_DATE ('20221001', 'yyyymmdd')
AND rrr.res_rsv_ruimte_van < TRUNC (SYSDATE)
@@ -7638,11 +7624,11 @@ AS
AND h.prs_bedrijf_key = btwvl.prs_link_key(+)
AND h.prs_bedrijf_key = cp.prs_bedrijf_key(+)
AND p.prs_perslid_key = pf.prs_perslid_key
AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND COALESCE (rar1.res_ruimte_key, rar2.res_ruimte_key) = rr.res_ruimte_key
AND rr.res_discipline_key = rd.ins_discipline_key
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND rrr.res_rsv_ruimte_key = kw.res_rsv_ruimte_key(+)
UNION ALL -- Korting-regel
SELECT rrr.res_rsv_ruimte_key,
@@ -7699,17 +7685,14 @@ AS
prs_v_perslid_fullnames_all pf,
res_ruimte rr,
res_discipline rd,
prs_kostensoort ks,
prs_kostenplaats kp,
prs_kostenplaatsgrp kpg,
prs_kostensoort ks,
(SELECT kw.res_rsv_ruimte_key, kw.res_kenmerkreservering_waarde
FROM res_v_aanwezigkenmerkwaarde kw, res_kenmerk k
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
AND k.res_srtkenmerk_key = 1) kw -- Refnr. aanvrager
WHERE --rrr.res_activiteit_key = 130 -- Evenement
--rrr.res_activiteit_key IN (130, 10) -- Evenement/Vergadering
--AND EXISTS (SELECT 1 FROM prs_kostenplaats WHERE prs_kostenplaats_extern = 1 AND prs_kostenplaats_key = rrr.prs_kostenplaats_key)
(rrr.res_activiteit_key = 130
WHERE (rrr.res_activiteit_key = 130
OR (rrr.res_activiteit_key = 10 AND EXISTS (SELECT 1 FROM prs_kostenplaats WHERE prs_kostenplaats_extern = 1 AND prs_kostenplaats_key = rrr.prs_kostenplaats_key)))
AND rrr.res_rsv_ruimte_van > TO_DATE ('20221001', 'yyyymmdd')
AND rrr.res_rsv_ruimte_van < TRUNC (SYSDATE)
@@ -7737,11 +7720,11 @@ AS
AND h.prs_bedrijf_key = btwvl.prs_link_key(+)
AND h.prs_bedrijf_key = cp.prs_bedrijf_key(+)
AND p.prs_perslid_key = pf.prs_perslid_key
AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND COALESCE (rar1.res_ruimte_key, rar2.res_ruimte_key) = rr.res_ruimte_key
AND rr.res_discipline_key = rd.ins_discipline_key
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND rrr.res_rsv_ruimte_key = kw.res_rsv_ruimte_key(+)
UNION ALL -- Catering-regels
SELECT rrr.res_rsv_ruimte_key,
@@ -7850,18 +7833,13 @@ AS
AND rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key IN (821, 822)) rra,
res_discipline rd,
--res_disc_params dp,
--prs_bedrijf b,
prs_kostensoort ks,
prs_kostenplaats kp,
prs_kostenplaatsgrp kpg,
prs_kostensoort ks,
(SELECT kw.res_rsv_ruimte_key, kw.res_kenmerkreservering_waarde
FROM res_v_aanwezigkenmerkwaarde kw, res_kenmerk k
WHERE kw.res_kenmerk_key = k.res_kenmerk_key AND k.res_srtkenmerk_key = 1) kw -- Refnr. aanvrager
WHERE --rrr.res_activiteit_key = 130 -- Evenement
--rrr.res_activiteit_key IN (130, 10) -- Evenement/Vergadering
--AND EXISTS (SELECT 1 FROM prs_kostenplaats WHERE prs_kostenplaats_extern = 1 AND prs_kostenplaats_key = rrr.prs_kostenplaats_key)
(rrr.res_activiteit_key = 130
WHERE (rrr.res_activiteit_key = 130
OR (rrr.res_activiteit_key = 10 AND EXISTS (SELECT 1 FROM prs_kostenplaats WHERE prs_kostenplaats_extern = 1 AND prs_kostenplaats_key = rrr.prs_kostenplaats_key)))
AND rrr.res_rsv_ruimte_dirtlevel = 0
AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key(+)
@@ -7885,21 +7863,18 @@ AS
AND h.prs_bedrijf_key = btwvl.prs_link_key(+)
AND h.prs_bedrijf_key = cp.prs_bedrijf_key(+)
AND p.prs_perslid_key = pf.prs_perslid_key
--AND rrr.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_kostenplaats_key = 4321 -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902!
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rra.res_discipline_key = rd.ins_discipline_key
--AND rd.ins_discipline_key = dp.res_ins_discipline_key
--AND dp.prs_bedrijf_key = b.prs_bedrijf_key
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
--AND kp.prs_kostenplaats_key = 4321 -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902!
--AND DECODE (ks.prs_kostensoort_refcode, '8132', 521, 4321) = kp.prs_kostenplaats_key(+) -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902! BLCC#77765:Behalve als kostensoort=8132, dan 50900!
AND DECODE (ks.prs_kostensoort_refcode, '8132', rrr.prs_kostenplaats_key, 4321) = kp.prs_kostenplaats_key(+) -- BLCC#69994:Banqueting per 1/1/2022 hard op 50902! BLCC#77765:Behalve als kostensoort=8132, dan 50900!
AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND rrr.res_rsv_ruimte_key = kw.res_rsv_ruimte_key(+)) x
GROUP BY '*CONCEPT*',
TRIM (COALESCE (x.res_kenmerkreservering_waarde, '-')),
NULL,
'2' || TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) || x.prs_kostensoort_refcode || x.res_voorziening,
--'Event ' || x.res_id,
--'E' || x.res_id,
DECODE (x.res_activiteit_key, 130, 'Event ' || x.res_id, 'Vergadering ' || x.res_id),
DECODE (x.res_activiteit_key, 130, 'E' || x.res_id, 'V' || x.res_id),
DECODE (x.volgnr, 0, x.res_voorziening || ' [' || TO_CHAR (ROUND (x.aantal, 2)) || ' uur]', 2, TO_CHAR (x.aantal) || 'x ' || x.res_voorziening, x.res_voorziening),
@@ -23348,22 +23323,26 @@ AS
'C', '[Collectieve ruimte]',
'A', '[Algemene ruimte]',
'N', '[N - Foutief leegstand]',
'V', '[Verdiepinggebonden Algemene ruimte]',
'[Leegstand]'), -- Ook als [Niet verhuurbaar]!
1, DECODE (lhkotc.fac_usrdata_code,
'C', '[C - Foutief verhuurd]',
'A', '[A - Foutief verhuurd]',
'V', '[V - Foutief verhuurd]',
rh.prs_bedrijf_naam),
'[Dubbel verhuurd]') -- Ook als C- of A-ruimte (zal nooit voorkomen)!
'[Dubbel verhuurd]') -- Ook als C-, A- of V-ruimte (zal nooit voorkomen)!
waarde,
DECODE (rh.aantal, -- Ongebruikte keys 11, 12, 13, 14, 15, 16, 17 en 18!
DECODE (rh.aantal, -- Ongebruikte keys 11, 12, 13, 14, 15, 16, 17, 18, 19 en 20!
NULL, DECODE (lhkotc.fac_usrdata_code,
'C', 14,
'A', 16,
'N', 18,
'V', 19,
11),
1, DECODE (lhkotc.fac_usrdata_code,
'C', 15,
'A', 17,
'V', 20,
rh.prs_bedrijf_key),
13)
waarde_key
@@ -27640,6 +27619,8 @@ AS
utmach.cnt_kenmerkcontract_waarde uurtariefmachine,
urmens.mld_kenmerkmelding_waarde urenramingmens,
urmach.mld_kenmerkmelding_waarde urenramingmachine,
TO_CHAR (m.mld_melding_key) meldingnr,
m.mld_melding_onderwerp meldingonderwerp,
TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) opdrachtnr,
ot.mld_typeopdr_omschrijving opdrachttype,
o.mld_opdr_omschrijving omschrijving,
@@ -27654,7 +27635,8 @@ AS
ouk.mld_opdruren_kosten_besteed machineurenafgenomen
FROM (SELECT *
FROM mld_melding
WHERE mld_stdmelding_key IN (2261)) m -- Research aanvraag
WHERE mld_stdmelding_key IN (2261) -- Research aanvraag
AND mld_melding_key > 47811) m -- BLCC#77790: Uitsluiten test-meldingen!
LEFT JOIN mld_v_aanwezigkenmerkmelding urmens
ON m.mld_melding_key = urmens.mld_melding_key
--AND urmens.mld_kenmerk_key = 6821 -- Raming mensuren
@@ -27963,7 +27945,8 @@ AS
FROM prs_v_perslid_fullnames pf
WHERE pf.prs_perslid_key = m.prs_perslid_key)
FROM mld_melding m
WHERE mld_stdmelding_key = 2481;
WHERE mld_stdmelding_key = 2481
ORDER BY TO_CHAR (mld_melding_datum, 'yyyymmddhh24');
CREATE OR REPLACE PROCEDURE blcc_processemail (pfrom IN VARCHAR2,
pto IN VARCHAR2,