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

PROR#74299 -- Inrichten Prorail omgeving

Browse Source 
svn path=/Customer/trunk/; revision=60899
This commit is contained in:
Norbert Wassink
2023-06-22 13:50:23 +00:00
parent d2a789c146
commit 31c18eac41
1 changed files with 60 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

97
PROR/PROR.sql
View File

@@ -468,8 +468,7 @@ AS
AND pk.prs_kenmerk_upper='AFAS ACCOUNT' AND pk.prs_kenmerk_upper='AFAS ACCOUNT'
AND kl.prs_kenmerk_key = pk.prs_kenmerk_key AND kl.prs_kenmerk_key = pk.prs_kenmerk_key
AND kl.prs_link_key=p.prs_perslid_key AND kl.prs_link_key=p.prs_perslid_key
AND kl.prs_kenmerklink_waarde=1 AND kl.prs_kenmerklink_waarde=1
AND p.prs_perslid_oslogin NOT LIKE '_%'
AND p.prs_perslid_nr NOT IN (SELECT prs_perslid_nr AND p.prs_perslid_nr NOT IN (SELECT prs_perslid_nr
FROM fac_imp_perslid); FROM fac_imp_perslid);
@@ -861,7 +860,8 @@ AS
AND md.ins_discipline_key=ms.mld_ins_discipline_key AND md.ins_discipline_key=ms.mld_ins_discipline_key
AND id.ins_srtdiscipline_key = md.ins_srtdiscipline_key AND id.ins_srtdiscipline_key = md.ins_srtdiscipline_key
AND mst.mld_statuses_key=m.mld_melding_status AND mst.mld_statuses_key=m.mld_melding_status
AND p.prs_perslid_email IS NOT NULL; AND p.prs_perslid_email IS NOT NULL
ORDER BY m.mld_melding_datum;
-- --
-- Looplijst Cateraar -- Looplijst Cateraar
@@ -1307,10 +1307,53 @@ AS
SELECT distinct rra.res_rsv_ruimte_key rrr_key, SELECT distinct rra.res_rsv_ruimte_key rrr_key,
rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering, rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering,
rrr.res_rsv_ruimte_opmerking opmerking, rrr.res_rsv_ruimte_opmerking opmerking,
null extra_opmerking, 'Regulier' extra_opmerking,
rrr.res_rsv_ruimte_van van, rrr.res_rsv_ruimte_van van,
rrr.res_rsv_ruimte_tot tot, rrr.res_rsv_ruimte_tot tot,
(SELECT prs_perslid_naam_friendly FROM prs_v_perslid_fullnames WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager, (SELECT prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames
WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager,
p.prs_perslid_telefoonnr telefoon,
p.prs_perslid_email email,
k.prs_kostenplaats_key,
k.prs_kostenplaats_nr kostenplaats,
k.prs_kostenplaats_omschrijving,
COALESCE (
(SELECT alg_ruimte_nr
FROM alg_v_allonrgoed_gegevens alg
WHERE alg.alg_ruimte_key=rrr.alg_ruimte_key),
(SELECT MIN(alg.alg_ruimte_nr)
FROM res_ruimte_opstelling rro, res_ruimte rr, res_alg_ruimte rarm, alg_v_ruimte_gegevens_all alg
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
AND rr.res_ruimte_key = rro.res_ruimte_key
AND rarm.res_ruimte_key = rr.res_ruimte_key
AND rarm.res_alg_ruimte_verwijder IS NULL
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
FROM res_rsv_artikel rra,
res_artikel ra,
res_rsv_ruimte rrr,
prs_kostenplaats k,
prs_v_perslid_gegevens p
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rra.res_artikel_key = ra.res_artikel_key
AND rrr.res_status_bo_key = 2 -- afgemeld
AND rrr.res_status_fo_key = 2
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
AND rra.res_rsv_artikel_verwijder IS NULL
AND rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_rsv_ruimte_externsyncdate IS NULL
UNION -- alle bezrogde reserveringn
SELECT distinct rra.res_rsv_ruimte_key rrr_key,
rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering,
rrr.res_rsv_ruimte_opmerking opmerking,
'Bezorgen' extra_opmerking,
rrr.res_rsv_ruimte_van van,
rrr.res_rsv_ruimte_tot tot,
(SELECT prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames
WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager,
p.prs_perslid_telefoonnr telefoon, p.prs_perslid_telefoonnr telefoon,
p.prs_perslid_email email, p.prs_perslid_email email,
k.prs_kostenplaats_key, k.prs_kostenplaats_key,
@@ -1330,28 +1373,19 @@ AS
AND rarm.res_alg_ruimte_verwijder IS NULL AND rarm.res_alg_ruimte_verwijder IS NULL
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
FROM res_rsv_artikel rra, FROM res_rsv_artikel rra,
res_artikel ra, res_artikel ra,
-- res_discipline rd,
-- res_disc_params rdp,
-- prs_bedrijf b,
res_rsv_ruimte rrr, res_rsv_ruimte rrr,
prs_kostenplaats k, prs_kostenplaats k,
prs_v_perslid_gegevens p prs_v_perslid_gegevens p
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY') WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rra.res_artikel_key = ra.res_artikel_key AND rra.res_artikel_key = ra.res_artikel_key
-- AND ra.res_discipline_key = rd.ins_discipline_key AND rrr.res_status_fo_key = 2 -- vervallen en te laat uit outllok afgemeld
-- AND rd.ins_discipline_key = rdp.res_ins_discipline_key AND rrr.res_rsv_ruimte_cvab_mode IS NOT NULL -- vervallen en te laat uit outllok afgemeld
AND rrr.res_status_bo_key = 2 -- afgemeld AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
AND rrr.RES_STATUS_FO_KEY = 2
--AND rdp.prs_bedrijf_key = b.prs_bedrijf_key
--AND rdp.prs_bedrijf_key = 90501 -- Cirfood algemeen
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
AND rra.res_rsv_artikel_verwijder IS NULL
AND rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_rsv_ruimte_externsyncdate IS NULL AND rrr.res_rsv_ruimte_externsyncdate IS NULL
UNION UNION -- alle te laat verwijderde outlook reservereingen met catering
SELECT distinct rra.res_rsv_ruimte_key rrr_key, SELECT distinct rra.res_rsv_ruimte_key rrr_key,
rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering, rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering,
rrr.res_rsv_ruimte_opmerking opmerking, rrr.res_rsv_ruimte_opmerking opmerking,
@@ -1364,8 +1398,6 @@ AS
k.prs_kostenplaats_key, k.prs_kostenplaats_key,
k.prs_kostenplaats_nr kostenplaats, k.prs_kostenplaats_nr kostenplaats,
k.prs_kostenplaats_omschrijving, k.prs_kostenplaats_omschrijving,
-- b.prs_bedrijf_key,
-- b.prs_overeenkomst_nr,
COALESCE ( COALESCE (
(SELECT alg_ruimte_nr (SELECT alg_ruimte_nr
FROM alg_v_allonrgoed_gegevens alg FROM alg_v_allonrgoed_gegevens alg
@@ -1378,27 +1410,18 @@ AS
AND rarm.res_alg_ruimte_verwijder IS NULL AND rarm.res_alg_ruimte_verwijder IS NULL
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
FROM res_rsv_artikel rra, FROM res_rsv_artikel rra,
res_artikel ra, res_artikel ra,
-- res_discipline rd,
-- res_disc_params rdp,
-- prs_bedrijf b,
res_rsv_ruimte rrr, res_rsv_ruimte rrr,
prs_kostenplaats k, prs_kostenplaats k,
prs_v_perslid_gegevens p prs_v_perslid_gegevens p
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY') WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+) AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rra.res_artikel_key = ra.res_artikel_key AND rra.res_artikel_key = ra.res_artikel_key
-- AND ra.res_discipline_key = rd.ins_discipline_key
-- AND rd.ins_discipline_key = rdp.res_ins_discipline_key
AND rrr.res_status_fo_key = 4 -- vervallen en te laat uit outllok afgemeld AND rrr.res_status_fo_key = 4 -- vervallen en te laat uit outllok afgemeld
AND rrr.res_status_bo_key = 2 -- vervallen en te laat uit outllok afgemeld AND rrr.res_status_bo_key = 2 -- vervallen en te laat uit outllok afgemeld
--AND rdp.prs_bedrijf_key = b.prs_bedrijf_key AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
--AND rdp.prs_bedrijf_key = 90501 -- Cirfood algemeen AND rrr.res_rsv_ruimte_externnr IS NOT NULL
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
--AND rra.res_rsv_artikel_verwijder IS NULL
-- AND rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.RES_RSV_RUIMTE_EXTERNNR IS NOT NULL
AND rrr.res_rsv_ruimte_externsyncdate IS NULL; AND rrr.res_rsv_ruimte_externsyncdate IS NULL;
CREATE OR REPLACE PROCEDURE PROR_SELECT_EUREST_CAT( CREATE OR REPLACE PROCEDURE PROR_SELECT_EUREST_CAT(
@@ -1411,7 +1434,7 @@ AS
IS IS
SELECT * SELECT *
FROM PROR_V_SELECT_EUREST_CAT FROM PROR_V_SELECT_EUREST_CAT
WHERE TO_CHAR(van,'MM')=TO_CHAR(ADD_MONTHS(SYSDATE,-1),'MM'); WHERE TO_CHAR(van,'MM')='12'; --TO_CHAR(ADD_MONTHS(SYSDATE,-1),'MM');
CURSOR sel_art(p_rrr_key NUMBER) CURSOR sel_art(p_rrr_key NUMBER)
IS IS