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

HSLE#64680 Rap+Notijob/Innemen objecten+HSLE#68515 Rap/Afsplitsen statiegeld

Browse Source 
svn path=/Customer/trunk/; revision=54397
This commit is contained in:
Maarten van der Heide
2022-01-05 10:40:54 +00:00
parent f8d43f688e
commit 0c4d768001
1 changed files with 184 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

278
HSLE/hsle.sql
View File

@@ -1928,8 +1928,8 @@ CREATE OR REPLACE VIEW hsle_v_rap_reservering
grootboekaanwezig
)
AS
SELECT res.res_reservering_key,
res.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr,
SELECT rrr.res_reservering_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_omschrijving,
COALESCE (rrr.res_rsv_ruimte_aanmaak, voorz.van),
COALESCE (rrr.res_rsv_ruimte_van, voorz.van),
@@ -2128,124 +2128,108 @@ AS
fac.safe_to_number (W.RES_KENMERKRESERVERING_WAARDE)
AND w.res_kenmerkwaarde_verwijder IS NULL)
grootboekaanwezig
FROM res_v_aanwezigrsv_ruimte rrr,
res_activiteit ra,
res_srtactiviteit rsa,
res_reservering res,
prs_kostenplaats k,
prs_perslid p,
prs_afdeling a,
( SELECT res_rsv_ruimte_key,
MAX (o.res_opstelling_omschrijving) opstelling,
MAX (ra.alg_ruimte_key) alg_ruimte_key,
MAX (rr.res_ruimte_nr) ruimte_nr
FROM res_rsv_ruimte r,
res_ruimte_opstelling ro,
res_opstelling o,
res_ruimte rr,
res_alg_ruimte ra
WHERE r.res_rsv_ruimte_verwijder IS NULL
AND r.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
FROM res_v_aanwezigrsv_ruimte rrr,
res_activiteit ra,
res_srtactiviteit rsa,
prs_perslid p,
prs_afdeling a,
prs_kostenplaats k,
( SELECT rrr.res_rsv_ruimte_key,
MAX (o.res_opstelling_omschrijving) opstelling,
MAX (ra.alg_ruimte_key) alg_ruimte_key,
MAX (rr.res_ruimte_nr) ruimte_nr
FROM res_rsv_ruimte rrr, res_ruimte_opstelling ro, res_ruimte rr, res_alg_ruimte ra, res_opstelling o
WHERE rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND ro.res_opstelling_key = o.res_opstelling_key
AND rr.res_ruimte_key = ra.res_ruimte_key
AND ro.res_opstelling_key = o.res_opstelling_key
GROUP BY res_rsv_ruimte_key
UNION ALL
SELECT res_rsv_ruimte_key,
'' opstelling,
SELECT rrr.res_rsv_ruimte_key,
'' opstelling,
rrr.alg_ruimte_key,
r.alg_ruimte_nr
FROM res_rsv_ruimte rrr, alg_ruimte r
WHERE rrr.alg_ruimte_key IS NOT NULL
WHERE rrr.alg_ruimte_key IS NOT NULL
AND r.alg_ruimte_key = rrr.alg_ruimte_key) r2a,
(SELECT rrd.res_rsv_ruimte_key
res_rsv_ruimte_key,
-rd.res_deel_key
product_key,
rd.res_deel_omschrijving
product,
(SELECT rrd.res_rsv_ruimte_key res_rsv_ruimte_key,
-rd.res_deel_key product_key,
rd.res_deel_omschrijving product,
DECODE (
rd.res_deel_prijs_vast,
1, NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs),
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
* 24
((rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24)
* NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs))
totaalprijs,
rrd.res_rsv_deel_van
van,
rrd.res_rsv_deel_tot
tot,
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24
aantal,
rrd.res_rsv_deel_van van,
rrd.res_rsv_deel_tot tot,
((rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24) aantal,
NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs)
prijs,
NULL
btw,
c.ins_discipline_key
ins_discipline_key,
c.ins_discipline_omschrijving
catalogus,
c.ins_discipline_min_level
catalogussoort
FROM res_v_aanwezigrsv_deel rrd,
res_deel rd,
ins_deel d,
ins_tab_discipline c
WHERE rrd.res_deel_key = rd.res_deel_key
AND d.ins_deel_key = rd.res_ins_deel_key
AND rrd.res_rsv_ruimte_key IS NOT NULL
AND c.ins_discipline_key = rd.res_discipline_key
NULL btw,
c.ins_discipline_key ins_discipline_key,
c.ins_discipline_omschrijving catalogus,
c.ins_discipline_min_level catalogussoort
FROM res_v_aanwezigrsv_deel rrd, res_deel rd, ins_deel d, ins_tab_discipline c
WHERE rrd.res_rsv_ruimte_key IS NOT NULL
AND rrd.res_deel_key = rd.res_deel_key
AND rd.res_ins_deel_key = d.ins_deel_key
AND rd.res_discipline_key = c.ins_discipline_key
UNION ALL
SELECT rra.res_rsv_ruimte_key
res_rsv_ruimte_key,
ra.res_artikel_key
product_key,
ra.res_artikel_omschrijving
product,
NVL (rra.res_rsv_artikel_prijs,
rra.res_rsv_artikel_aantal * res_artikel_prijs)
SELECT rra.res_rsv_ruimte_key res_rsv_ruimte_key,
ra.res_artikel_key product_key,
ra.res_artikel_omschrijving product,
NVL (rra.res_rsv_artikel_prijs - (rra.res_rsv_artikel_aantal * COALESCE (ra.res_artikel_kostenalgemeen, 0)),
rra.res_rsv_artikel_aantal * (ra.res_artikel_prijs - COALESCE (ra.res_artikel_kostenalgemeen, 0)))
totaalprijs,
rra.res_rsv_artikel_levering
van,
NULL
tot,
rra.res_rsv_artikel_aantal
aantal,
NVL (
rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal,
res_artikel_prijs)
rra.res_rsv_artikel_levering van,
NULL tot,
rra.res_rsv_artikel_aantal aantal,
NVL ((rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal) - COALESCE (ra.res_artikel_kostenalgemeen, 0),
ra.res_artikel_prijs - COALESCE (ra.res_artikel_kostenalgemeen, 0))
prijs,
NVL (rra.res_rsv_artikel_btw, ra.res_artikel_btw)
btw,
c.ins_discipline_key
ins_discipline_key,
c.ins_discipline_omschrijving
catalogus,
c.ins_discipline_min_level
catalogussoort
FROM res_v_aanwezigrsv_artikel rra,
res_artikel ra,
ins_tab_discipline c
WHERE rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key = c.ins_discipline_key) voorz,
NVL (rra.res_rsv_artikel_btw, ra.res_artikel_btw) btw,
c.ins_discipline_key ins_discipline_key,
c.ins_discipline_omschrijving catalogus,
c.ins_discipline_min_level catalogussoort
FROM res_v_aanwezigrsv_artikel rra, res_artikel ra, ins_tab_discipline c
WHERE rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key = c.ins_discipline_key
UNION ALL
SELECT rra.res_rsv_ruimte_key res_rsv_ruimte_key,
ra.res_artikel_key product_key,
ra.res_artikel_omschrijving product,
(rra.res_rsv_artikel_aantal * ra.res_artikel_kostenalgemeen)
totaalprijs,
rra.res_rsv_artikel_levering van,
NULL tot,
rra.res_rsv_artikel_aantal aantal,
ra.res_artikel_kostenalgemeen
prijs,
0 btw,
c.ins_discipline_key ins_discipline_key,
c.ins_discipline_omschrijving catalogus,
c.ins_discipline_min_level catalogussoort
FROM res_v_aanwezigrsv_artikel rra, res_artikel ra, ins_tab_discipline c
WHERE rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key = c.ins_discipline_key
AND ra.res_artikel_kostenalgemeen IS NOT NULL) voorz,
( SELECT pw.prs_perslid_key,
MIN (prs_werkplek_aanduiding)
|| DECODE (COUNT (*), 1, '', '...') prs_werkplek_aanduiding
MIN (prs_werkplek_aanduiding) || DECODE (COUNT (*), 1, '', '...') prs_werkplek_aanduiding
FROM prs_v_werkplek_gegevens wp, prs_perslidwerkplek pw
WHERE wp.prs_werkplek_key = pw.prs_werkplek_key
GROUP BY pw.prs_perslid_key) wp2
WHERE rrr.res_reservering_key = res.res_reservering_key
AND rrr.res_rsv_ruimte_key = r2a.res_rsv_ruimte_key(+)
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_rsv_ruimte_key = voorz.res_rsv_ruimte_key(+)
WHERE rrr.res_rsv_ruimte_van >= TO_DATE ('01-01-2020', 'DD-MM-YYYY')
AND rrr.res_activiteit_key = ra.res_activiteit_key
AND ra.res_srtactiviteit_key = rsa.res_srtactiviteit_key
AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND wp2.prs_perslid_key(+) = p.prs_perslid_key
AND ( rrr.res_ruimte_opstel_key IS NOT NULL
OR voorz.res_rsv_ruimte_key IS NOT NULL)
AND rrr.res_rsv_ruimte_van >= TO_DATE ('01-01-2009', 'DD-MM-YYYY');
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_rsv_ruimte_key = r2a.res_rsv_ruimte_key(+)
AND rrr.res_rsv_ruimte_key = voorz.res_rsv_ruimte_key(+)
AND (rrr.res_ruimte_opstel_key IS NOT NULL OR voorz.res_rsv_ruimte_key IS NOT NULL)
AND p.prs_perslid_key = wp2.prs_perslid_key(+);
-- Copied from ROOT VIEWS for User defined Reports (UDR): ins_v_udr_deel
CREATE OR REPLACE VIEW hsle_v_rap_deel_verwijderd
@@ -5665,6 +5649,112 @@ AS
AND ein.mld_kenmerk_key = 8845 -- Extra informatie (optioneel)
;
-- HSLE#64680: Uitdienstmeldingen x Objecten doorklikbaar naar Object.
CREATE OR REPLACE VIEW HSLE_V_RAP_UITDIENST2OBJECT
(
mld_melding_key,
meldingnummer,
meldingsoort,
uit_dienst_per,
prs_perslid_key,
medewerker,
ins_deel_key,
identificatie,
ins_srtdeel_key,
objectsoort,
beschrijving,
registratiedatum,
vervaldatum,
ingenomen_op,
ingenomen_door,
genotificeerd_op -- Notificatie naar uittreder 2 maanden voor uitdienst?
)
AS
SELECT m.mld_melding_key,
sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) meldingnr,
sm.mld_stdmelding_omschrijving,
TRUNC (m.mld_melding_einddatum),
pfm.prs_perslid_key,
pfm.prs_perslid_naam_full ex_mdw,
d.ins_deel_key,
d.ins_deel_omschrijving,
sd.ins_srtdeel_key,
sd.ins_srtdeel_omschrijving,
d.ins_deel_opmerking,
d.ins_deel_aanmaak,
DECODE (SIGN (d.ins_deel_vervaldatum - SYSDATE), -1, d.ins_deel_vervaldatum, NULL) vervaldatum,
NULL ingenomen_op,
NULL ingenomen_door,
NULL genotificeerd_op
FROM mld_melding m,
prs_v_perslid_fullnames_all pfm, -- Melding-persoon
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
ins_v_aanwezigdeel d,
ins_srtdeel sd
WHERE m.mld_stdmelding_key = 3481 -- HRM/Einde dienstverband.
AND m.mld_melding_status >= 4 -- Vanaf In behandeling
AND m.prs_perslid_key_voor <> 15661 -- _Extern
AND m.prs_perslid_key_voor = pfm.prs_perslid_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.prs_perslid_key_voor = d.ins_alg_ruimte_key
AND d.ins_alg_ruimte_type = 'P'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
UNION -- Matchen persoon uit laatste INSOUT-tracking (garantie tot de deur)!
SELECT m.mld_melding_key,
sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) meldingnr,
sm.mld_stdmelding_omschrijving,
TRUNC (m.mld_melding_einddatum),
pfm.prs_perslid_key,
pfm.prs_perslid_naam_full ex_mdw,
d.ins_deel_key,
d.ins_deel_omschrijving,
sd.ins_srtdeel_key,
sd.ins_srtdeel_omschrijving,
d.ins_deel_opmerking,
d.ins_deel_aanmaak,
DECODE (SIGN (d.ins_deel_vervaldatum - SYSDATE), -1, d.ins_deel_vervaldatum, NULL) vervaldatum,
tinn.fac_tracking_datum ingenomen_op,
pft.prs_perslid_naam_full ingenomen_door,
NULL genotificeerd_op
FROM fac_tracking tinn,
prs_v_perslid_fullnames_all pft, -- Tracking-persoon
(SELECT t.fac_tracking_refkey, -- Laatst uitgegeven aan
t.fac_tracking_oms
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 99 -- INSOUT
AND NOT EXISTS
(SELECT 1
FROM fac_tracking
WHERE fac_srtnotificatie_key = 99 -- INSOUT
AND fac_tracking_refkey = t.fac_tracking_refkey
AND fac_tracking_key > t.fac_tracking_key)) tout,
prs_v_perslid_fullnames_all pfm, -- Melding-persoon
mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
ins_v_aanwezigdeel d,
ins_srtdeel sd
WHERE tinn.fac_srtnotificatie_key = 100 -- INSINN
AND tinn.prs_perslid_key = pft.prs_perslid_key
AND tinn.fac_tracking_refkey = tout.fac_tracking_refkey
AND INSTR (tout.fac_tracking_oms, REPLACE (pfm.prs_perslid_naam_full, 'INACTIEF:', '')) > 0
AND pfm.prs_perslid_key = m.prs_perslid_key_voor
AND m.mld_stdmelding_key = 3481 -- HRM/Einde dienstverband.
AND m.mld_melding_status >= 4 -- Vanaf In behandeling
AND m.prs_perslid_key_voor <> 15661 -- _Extern
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND tinn.fac_tracking_refkey = d.ins_deel_key
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND tinn.fac_tracking_datum > m.mld_melding_datum -- Alleen als Inname > Uitdienst-melding?
;
------ payload end ------
SET DEFINE OFF