PROR#74299 -- Inrichten Prorail omgeving, Eurest export aanpassing

svn path=/Customer/trunk/; revision=62072
This commit is contained in:
Norbert Wassink
2023-10-05 12:53:07 +00:00
parent 31d0111747
commit ca6d765d80

View File

@@ -109,11 +109,35 @@ AS
AND pkl.prs_kenmerklink_waarde='1')
AND p.prs_perslid_nr NOT LIKE 'P%' -- Alle P accounts komen via SCIM koppeling ,die geeft door als account inactief is
GROUP BY p.prs_perslid_key, p.prs_perslid_oslogin;
BEGIN
-- Alle personen die via de SCIM koppeling zijn aangemkaat en die inactief zijn gemaakt.
CURSOR prs_del_scim IS
SELECT p.prs_perslid_key, p.prs_perslid_oslogin
FROM prs_v_aanwezigperslid p
WHERE p.prs_perslid_inactief <
TRUNC (ADD_MONTHS (SYSDATE, -12), 'mm')
AND NOT EXISTS (SELECT * -- alleen de NIET AFAS account moeten worden verwijderd
FROM prs_kenmerklink pkl, prs_kenmerk pk
WHERE pk.prs_kenmerk_upper='AFAS ACCOUNT'
AND pk.prs_kenmerk_key = pkl.prs_kenmerk_key
AND pkl.prs_link_key=p.prs_perslid_key
AND pkl.prs_kenmerklink_waarde='1')
AND p.prs_perslid_nr LIKE 'P%' -- Alle P accounts komen via SCIM koppeling ,die geeft door als account inactief is
GROUP BY p.prs_perslid_key, p.prs_perslid_oslogin;
BEGIN
-- Eerst alle in Facilitro aangemaakt accounts
FOR rec IN prs_del
LOOP
prs.delete_perslid(NULL, rec.prs_perslid_key);
END LOOP;
-- Alle inactive personen die initieel via de scim koppeling zijn aangemaakt
FOR rec2 IN prs_del_scim
LOOP
prs.delete_perslid(NULL, rec2.prs_perslid_key);
END LOOP;
END;
-- Mandateren op alle kostenplaatsen
@@ -1472,10 +1496,10 @@ AS
k.prs_kostenplaats_nr kostenplaats,
k.prs_kostenplaats_omschrijving,
COALESCE (
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_verdieping_code||'-'||alg_ruimte_nr
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_ruimte_nr
FROM alg_v_ruimte_gegevens alg
WHERE alg.alg_ruimte_key=rrr.alg_ruimte_key),
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_verdieping_code||'-'||MIN(alg.alg_ruimte_nr)
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||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
@@ -1533,10 +1557,10 @@ AS
-- b.prs_bedrijf_key,
-- b.prs_overeenkomst_nr,
COALESCE (
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_verdieping_code||'-'||alg_ruimte_nr
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_ruimte_nr
FROM alg_v_ruimte_gegevens alg
WHERE alg.alg_ruimte_key=rrr.alg_ruimte_key),
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_verdieping_code||'-'||MIN(alg.alg_ruimte_nr)
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||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
@@ -1588,10 +1612,10 @@ AS
k.prs_kostenplaats_nr kostenplaats,
k.prs_kostenplaats_omschrijving,
COALESCE (
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_verdieping_code||'-'||alg_ruimte_nr
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_ruimte_nr
FROM alg_v_ruimte_gegevens alg
WHERE alg.alg_ruimte_key=rrr.alg_ruimte_key),
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||alg_verdieping_code||'-'||MIN(alg.alg_ruimte_nr)
(SELECT alg_locatie_code||'-'||alg_gebouw_upper||'-'||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
@@ -1755,7 +1779,7 @@ BEGIN
v_artikelprijs:=0;
IF UPPER(rec_art.catalogus) = 'MAATWERK'
IF UPPER(rec_art.catalogus) LIKE 'MAATWERK%'
THEN
v_artikelprijs := rec_art.totprijs/rec_art.aantal;