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

YFTH#72325 -- Verdwijnen SSO Thales

Browse Source 
YFTH#70087 -- Thales - Werkvergunning proces (offerte)

svn path=/Customer/trunk/; revision=57405
This commit is contained in:
Arthur Egberink
2022-09-27 06:33:53 +00:00
parent fbc1bd559d
commit 5a1cfefaba
1 changed files with 57 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
YFTH/yfth.sql
View File

@@ -86,7 +86,7 @@ BEGIN
-- v_prs_perslid_email 18
-- v_prs_perslid_dienstverband 19
-- v_prs_perslid_nr 20
|| '5;16;0;0;0;0;6;0;0;0;'
|| '5;0;0;0;0;0;6;0;0;0;'
-- v_prs_srtperslid_omschrijving 21
-- v_prs_perslid_oslogin 22
-- v_prs_perslid_wachtwoord 23
@@ -103,34 +103,27 @@ BEGIN
-- Test bestand is aangeleverd met tabs ipv ;
UPDATE fac_imp_file SET fac_imp_file_line = REPLACE(fac_imp_file_line, CHR(9), ';') WHERE fac_import_key = p_import_key;
prs.import_perslid(p_import_key, v_seq_of_columns, 'VESTIGING;GEBOUWCODE;BOUWLAAGVOLGNNR;RUIMTENUMMERWERKPLEKVOLGNR;AFDELINGSCODE;AFDELINGSNAAM;PERSOONACHTERNAAM;TUSSENVOEGSEL;VOORLETTERS;VOORNAAM;TITELAANHEF;TELEFOONNUMMER;MOBIEL;EMAIL;PERSONEELSNUMMER;LOGINNAAM%');
prs.import_perslid(p_import_key, v_seq_of_columns, 'VESTIGING;GEBOUWCODE;BOUWLAAGVOLGNNR;RUIMTENUMMERWERKPLEKVOLGNR;AFDELINGSCODE;AFDELINGSNAAM;PERSOONACHTERNAAM;TUSSENVOEGSEL;VOORLETTERS;VOORNAAM;TITELAANHEF;TELEFOONNUMMER;MOBIEL;EMAIL;PERSONEELSNUMMER%');
-- We maken een platte organistiestructuur aan.
DELETE fac_imp_organisatie;
INSERT into fac_imp_organisatie (prs_bedrijf_naam, prs_afdeling_naam, prs_afdeling_omschrijving)
SELECT DISTINCT 'Thales', prs_afdeling_naam, prs_kenmerk1 FROM fac_imp_perslid;
DELETE fac_imp_perslid WHERE prs_perslid_oslogin = '-----';
DELETE fac_imp_perslid WHERE prs_perslid_email IS NULL;
-- We krijgen geen functie mee. Daarom wordt iedereen een Thales medewerker
-- De locatiecode in de import wijkt af van de locatiecode in Facilitor
-- De Login maken we alvast een upper van. Dan kunnen we straks makkelijker vergelijken bij de delete
-- De Login vullen we met het deel voor het @ teken in het mailadres
-- Het email adres zetten we naar kleine letters. Daarmee wordt het formaat uniform en kunnen we dit in de update makkelijker controleren.
-- Niet alle afdelingen hebben een afdeling omschrijving. Daarom vullen we daar een eigen omschrijving in.
UPDATE fac_imp_perslid
SET prs_srtperslid_omschrijving = 'Thales medewerker',
alg_locatie_code = DECODE(alg_locatie_code, 'Hengelo', 'HGL', NULL),
prs_perslid_oslogin = UPPER(prs_perslid_oslogin),
prs_perslid_oslogin = SUBSTR(SUBSTR(prs_perslid_email, 1, INSTR(prs_perslid_email, '@')-1),1,30),
prs_perslid_email = LOWER(prs_perslid_email),
prs_kenmerk1 = COALESCE(prs_kenmerk1, 'Afdeling ' || prs_afdeling_naam);
-- Sommige mensen hebben een dubbele of nog erger 3-dubbele logincode in het veld OSLOGIN staan.
-- deze gaan we beperken tot de eerste logincode.
UPDATE fac_imp_perslid
SET prs_perslid_oslogin =
SUBSTR (prs_perslid_oslogin,
1,
INSTR (prs_perslid_oslogin, ',') - 1)
WHERE prs_perslid_oslogin LIKE '%,%';
END yfth_import_perslid;
/
@@ -141,17 +134,12 @@ IS
FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf, prs_afdeling a
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = 521 -- Thales
AND p.prs_perslid_oslogin = i.prs_perslid_oslogin(+)
AND p.prs_perslid_email = i.prs_perslid_email(+)
AND pf.prs_perslid_key = p.prs_perslid_key
AND (SUBSTR(p.prs_perslid_oslogin,1,1) <> '_' OR p.prs_perslid_oslogin IS NULL)
AND i.prs_perslid_oslogin IS NULL
AND SUBSTR(p.prs_perslid_oslogin,1,1) <> '_'
AND i.prs_perslid_email IS NULL
AND p.prs_perslid_verwijder IS NULL;
CURSOR c IS
SELECT *
FROM prs_perslid
WHERE prs_perslid_salt IS NULL AND prs_perslid_verwijder IS NULL;
v_bedrijf_key NUMBER (10);
v_afdeling_key1 NUMBER (10);
v_afdeling_key2 NUMBER (10);
@@ -186,17 +174,12 @@ BEGIN
fac_update_organisatie (p_import_key);
prs.update_perslid (p_import_key, 'LOGIN', NULL);
-- nieuwe medewerkers gaan we een wachtwoord geven zodat ze via wachtwoord vergeten kunnen inloggen.
FOR rec IN c
LOOP
v_random := DBMS_RANDOM.STRING ('p', 40);
prs.setpassword (rec.prs_perslid_key, v_random);
END LOOP;
prs.update_perslid (p_import_key, 'EMAIL', NULL);
-- Zorg ervoor dat er geen persoonsgegevens achterblijven in de import tabel.
DELETE fac_imp_perslid;
-- Verwijder ook de persoonsgegevens uit de import file
DELETE fac_imp_file WHERE fac_import_key = p_import_key;
COMMIT;
EXCEPTION
WHEN OTHERS
@@ -679,6 +662,50 @@ AS
TRUNC (SYSDATE);
-- Views tbv werkvergunningen
CREATE OR REPLACE VIEW yfth_v_werkverg_status
AS
SELECT m1.mld_melding_key m1,
u.mld_kenmerkmelding_waarde uitvoerder,
m1.mld_melding_onderwerp,
prs_perslid_naam_full,
m2.mld_melding_key m2,
mld.getmeldingstatusdate (m2.mld_melding_key, 5) afgemeld2,
m3.mld_melding_key m3,
mld.getmeldingstatusdate (m3.mld_melding_key, 5) afgemeld3,
m4.mld_melding_key m4,
mld.getmeldingstatusdate (m4.mld_melding_key, 5) afgemeld4,
s.mld_statuses_omschrijving
FROM (SELECT *
FROM mld_melding m, mld_stdmelding std
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = 584) m1, -- aanvraag werkvergunning
(SELECT *
FROM mld_melding m, mld_stdmelding std
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = 586) m2, -- beoordeling gebouwbeheerder
(SELECT *
FROM mld_melding m, mld_stdmelding std
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = 588) m3, -- beoordeling procesbeheerder
(SELECT *
FROM mld_melding m, mld_stdmelding std
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = 590) m4, -- beoordeling veiligheidsdeskundige
prs_v_perslid_fullnames pf,
(SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding km, mld_kenmerk k
WHERE km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 326 -- uitvoerende firma
) u,
mld_statuses s
WHERE m1.mld_melding_key = m2.mld_melding_start_key(+)
AND m1.mld_melding_key = m3.mld_melding_start_key(+)
AND m1.mld_melding_key = m4.mld_melding_start_key(+)
AND m1.prs_perslid_key = pf.prs_perslid_key
AND m1.mld_melding_key = u.mld_melding_key(+)
AND m1.mld_melding_status = s.mld_statuses_key;
--
-- Reverse billing zoals bij Schiphol
--