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

AASA#84855 -- Wijzigingen bundel-catering nav sessie 30-12 doorgevoerd (std_mld en rapportages)

Browse Source 
svn path=/Customer/trunk/; revision=67479
This commit is contained in:
Jos Migo
2024-12-30 14:29:20 +00:00
parent e8ae0356c2
commit 3b3d2c1dde
1 changed files with 157 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

253
AA/AASA/aasa.sql
View File

@@ -144,87 +144,141 @@ CREATE OR REPLACE VIEW aasa_v_catering_kpn
prs_bedrijf_naam,
prs_kostenplaats_omschrijving, -- kostenplaats in reservering
bu_kostenplaats_key, -- de vertaalde bu_kostenplaats waar de bundel-opdracht op komt..
bu_kostenplaats_omschrijving,
alg_ruimte_key,
alg_gebouw_key,
alg_locatie_key
alg_gebouw_omschrijving,
alg_locatie_key,
alg_locatie_omschrijving
)
AS
SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
res_reservering_nr,
res_rsv_artikel_key,
res_rsv_artikel_prijs,
ra.res_artikel_kostenalgemeen * rra.res_rsv_artikel_aantal
res_artikel_kostenalgemeen_tot,
res_rsv_artikel_levering,
rdp.prs_bedrijf_key,
b.prs_bedrijf_naam,
k.prs_kostenplaats_nr || ' - ' || k.prs_kostenplaats_omschrijving
prs_kostenplaats_omschrijving,
DECODE(SUBSTR(k.prs_kostenplaats_nr, 1,2)
, '77', DECODE(rdp.prs_bedrijf_key, 66700, 4270 -- Compass Group NL h.o.d.n. Eurest (913910)
, 247) -- App<70>l (101025)
, (SELECT DISTINCT ta.prs_kostenplaats_key
FROM prs_afdeling a, prs_v_afdeling_boom ab, prs_afdeling ta
WHERE rrr.prs_kostenplaats_key = a.prs_kostenplaats_key
AND a.prs_afdeling_key = ab.prs_afdeling_key
AND ta.prs_bedrijf_key IS NOT NULL
AND ta.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_verwijder IS NULL
AND ab.prs_afdeling_key1 = ta.prs_afdeling_key))
bukpn,
r.alg_ruimte_key,
(SELECT g.alg_gebouw_key
FROM alg_v_onroerendgoed v, alg_gebouw g, alg_locatie l
WHERE v.alg_ruimte_key = r.alg_ruimte_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key)
alg_gebouw_key,
(SELECT l.alg_locatie_key
FROM alg_v_onroerendgoed v, alg_gebouw g, alg_locatie l
WHERE v.alg_ruimte_key = r.alg_ruimte_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key)
alg_locatie_key
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
res_artikel ra,
res_disc_params rdp,
prs_bedrijf b,
prs_kostenplaats k,
(SELECT rrr.res_rsv_ruimte_key,
CASE
WHEN rrr.alg_ruimte_key IS NULL
AND rrr.res_ruimte_opstel_key IS NOT NULL
THEN
(SELECT MAX (rar.alg_ruimte_key)
FROM res_v_ruimte_opstel_gegevens rog,
res_alg_ruimte rar
WHERE rog.res_ruimte_opstel_key =
rrr.res_ruimte_opstel_key
AND rog.res_ruimte_key = rar.res_ruimte_key
AND rar.res_alg_ruimte_verwijder IS NULL)
WHEN rrr.alg_ruimte_key IS NOT NULL
AND rrr.res_ruimte_opstel_key IS NULL
THEN
(SELECT avrg.alg_ruimte_key
FROM alg_v_ruimte_gegevens avrg
WHERE avrg.alg_ruimte_key = rrr.alg_ruimte_key)
ELSE
NULL
END
AS alg_ruimte_key
FROM res_rsv_ruimte rrr) r
WHERE rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key = rdp.res_ins_discipline_key
AND rrr.res_rsv_ruimte_verwijder IS NULL
AND rra.res_rsv_artikel_verwijder IS NULL
AND rra.res_status_bo_key = 5
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND rdp.prs_bedrijf_key = b.prs_bedrijf_key
ORDER BY rra.res_rsv_artikel_levering DESC;
SELECT v.res_rsv_ruimte_key,
v.res_reservering_nr,
v.res_rsv_artikel_key,
v.res_rsv_artikel_prijs,
v.res_artikel_kostenalgemeen_tot,
v.res_rsv_artikel_levering,
v.prs_bedrijf_key,
v.prs_bedrijf_naam,
v.prs_kostenplaats_omschrijving, -- kostenplaats in reservering
v.bu_kostenplaats_key, -- de vertaalde bu_kostenplaats waar de bundel-opdracht op komt..
CASE
WHEN v.bu_kostenplaats_key IS NOT NULL
THEN
(SELECT kp.prs_kostenplaats_nr
|| ' - '
|| kp.prs_kostenplaats_omschrijving
FROM prs_kostenplaats kp
WHERE prs_kostenplaats_key = v.bu_kostenplaats_key)
ELSE
NULL
END bu_kostenplaats_omschrijving,
v.alg_ruimte_key,
v.alg_gebouw_key,
CASE
WHEN v.alg_gebouw_key IS NOT NULL
THEN
(SELECT g.alg_gebouw_omschrijving
FROM alg_gebouw g
WHERE g.alg_gebouw_key = v.alg_gebouw_key)
ELSE
NULL
END alg_gebouw_omschrijving,
v.alg_locatie_key,
CASE
WHEN v.alg_locatie_key IS NOT NULL
THEN
(SELECT l.alg_locatie_omschrijving
FROM alg_locatie l
WHERE l.alg_locatie_key = v.alg_locatie_key)
ELSE
NULL
END alg_locatie_naam
FROM ( SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
res_reservering_nr,
res_rsv_artikel_key,
res_rsv_artikel_prijs,
ra.res_artikel_kostenalgemeen * rra.res_rsv_artikel_aantal
res_artikel_kostenalgemeen_tot,
res_rsv_artikel_levering,
rdp.prs_bedrijf_key,
b.prs_bedrijf_naam,
k.prs_kostenplaats_nr
|| ' - '
|| k.prs_kostenplaats_omschrijving
prs_kostenplaats_omschrijving,
DECODE (
SUBSTR (k.prs_kostenplaats_nr, 1, 2),
'77', DECODE (rdp.prs_bedrijf_key, 66700, 4270 -- Compass Group NL h.o.d.n. Eurest (913910)
, 247) -- App<70>l (101025)
,
(SELECT DISTINCT ta.prs_kostenplaats_key
FROM prs_afdeling a,
prs_v_afdeling_boom ab,
prs_afdeling ta
WHERE rrr.prs_kostenplaats_key =
a.prs_kostenplaats_key
AND a.prs_afdeling_key = ab.prs_afdeling_key
AND ta.prs_bedrijf_key IS NOT NULL
AND ta.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_verwijder IS NULL
AND ab.prs_afdeling_key1 = ta.prs_afdeling_key))
bu_kostenplaats_key,
r.alg_ruimte_key,
(SELECT g.alg_gebouw_key
FROM alg_v_onroerendgoed v, alg_gebouw g, alg_locatie l
WHERE v.alg_ruimte_key = r.alg_ruimte_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key)
alg_gebouw_key,
(SELECT l.alg_locatie_key
FROM alg_v_onroerendgoed v, alg_gebouw g, alg_locatie l
WHERE v.alg_ruimte_key = r.alg_ruimte_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key)
alg_locatie_key
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
res_artikel ra,
res_disc_params rdp,
prs_bedrijf b,
prs_kostenplaats k,
(SELECT rrr.res_rsv_ruimte_key,
CASE
WHEN rrr.alg_ruimte_key IS NULL
AND rrr.res_ruimte_opstel_key IS NOT NULL
THEN
(SELECT MAX (rar.alg_ruimte_key)
FROM res_v_ruimte_opstel_gegevens rog,
res_alg_ruimte rar
WHERE rog.res_ruimte_opstel_key =
rrr.res_ruimte_opstel_key
AND rog.res_ruimte_key =
rar.res_ruimte_key
AND rar.res_alg_ruimte_verwijder
IS NULL)
WHEN rrr.alg_ruimte_key IS NOT NULL
AND rrr.res_ruimte_opstel_key IS NULL
THEN
(SELECT avrg.alg_ruimte_key
FROM alg_v_ruimte_gegevens avrg
WHERE avrg.alg_ruimte_key =
rrr.alg_ruimte_key)
ELSE
NULL
END AS alg_ruimte_key
FROM res_rsv_ruimte rrr) r
WHERE rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key = rdp.res_ins_discipline_key
AND rrr.res_rsv_ruimte_verwijder IS NULL
AND rra.res_rsv_artikel_verwijder IS NULL
AND rra.res_status_bo_key = 5
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND rdp.prs_bedrijf_key = b.prs_bedrijf_key
ORDER BY rra.res_rsv_artikel_levering DESC) v;
CREATE OR REPLACE VIEW aasa_v_export_bundel_catering
@@ -342,26 +396,21 @@ BEGIN
v_alg_gebouw_key := NULL ;
IF rec1.prs_bedrijf_key = 66700 -- Compass Group NL h.o.d.n. Eurest
IF rec.alg_locatie_key = 101 -- BERGEN OP ZOOM
THEN
-- stdmelding key voor recharge
v_mld_stdmelding_key := 2161; -- SA IP-Catering (int) Recharge
-- key van gebouw waar catering op geboekt mag worden voor Eurest
IF rec.alg_locatie_key = 63 THEN v_alg_gebouw_key := 1823; END IF; -- GELEEN - 000-NGD
IF rec.alg_locatie_key = 64 THEN v_alg_gebouw_key := 1945; END IF; -- SITTARD - 000-907
IF rec.alg_locatie_key = 101 THEN v_alg_gebouw_key := 3441; END IF; -- BERGEN OP ZOOM - ADC
END IF; -- BoZ
IF rec1.prs_bedrijf_key = 37081 -- Appel
THEN
-- stdmelding key voor recharge
v_mld_stdmelding_key := 2001;
-- key van gebouwen waar catering op geboekt mag worden voor Appel
IF rec.alg_locatie_key = 63 THEN v_alg_gebouw_key := 1823; END IF; -- GELEEN - 000-NGD
IF rec.alg_locatie_key = 64 THEN v_alg_gebouw_key := 1945; END IF; -- SITTARD - 000-907
IF rec.alg_locatie_key = 101 THEN v_alg_gebouw_key := 3441; END IF; -- BERGEN OP ZOOM - ADC
v_mld_stdmelding_key := 2161;
v_alg_gebouw_key := 3441; -- BERGEN OP ZOOM - ADC
END IF;
IF rec.alg_locatie_key <> 101 -- AFWIJKEND VAN BERGEN OP ZOOM
THEN
v_mld_stdmelding_key := 2001;
IF rec.alg_locatie_key = 63 THEN v_alg_gebouw_key := 1823; END IF; -- GELEEN - 000-NGD
IF rec.alg_locatie_key = 64 THEN v_alg_gebouw_key := 1945; END IF; -- SITTARD - 000-907
END IF;
IF rec.bu_kostenplaats_key IS NOT NULL AND rec.alg_locatie_key IS NOT NULL AND v_alg_gebouw_key IS NOT NULL
@@ -529,7 +578,10 @@ CREATE OR REPLACE VIEW aasa_v_rap_catering_inkoop
(
fclt_f_exportjob,
opdrachtnr,
bu_kostenplaats,
dienst_kostensoort,
fclt_f_bedrijf,
locatie,
afleveradres,
fclt_f_afleverdatum,
tijdstip,
@@ -549,7 +601,14 @@ AS
SELECT TO_CHAR (rra.res_rsv_artikel_verwerkt, 'yyyy-mm-dd'),
o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr
opdrachtnr,
okp.prs_kostenplaats_nr || ' - ' || okp.prs_kostenplaats_omschrijving
bu_kostenplaats,
(SELECT ks.prs_kostensoort_oms
FROM mld_melding m, mld_stdmelding sm, prs_kostensoort ks
WHERE m.mld_melding_key = o.mld_melding_key AND m.mld_stdmelding_key = sm.mld_stdmelding_key AND sm.prs_kostensoort_key = ks.prs_kostensoort_key)
dienst_kostensoort,
prs_bedrijf_naam,
l.alg_locatie_omschrijving,
alg_locatie_code
|| '-'
|| alg_gebouw_code
@@ -600,6 +659,7 @@ AS
prs_kostenplaats k,
res_artikel ra,
mld_opdr o,
prs_kostenplaats okp,
( SELECT COALESCE (MAX (ir2a.alg_ruimte_key), irrr.alg_ruimte_key)
alg_ruimte_key,
irrr.res_rsv_ruimte_key
@@ -622,7 +682,8 @@ AS
TO_DATE ('20110901', 'yyyymmdd')
AND rra.res_rsv_artikel_key = bu.res_rsv_artikel_key(+)
AND bu.mld_opdr_key = o.mld_opdr_key(+)
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+);
AND o.prs_kostenplaats_key = okp.prs_kostenplaats_key(+)
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+) ;
CREATE OR REPLACE VIEW aasa_v_rap_catering_verkoop