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

FCLT#65380: Implementatie AkzoNobel Sassenheim en A'hem/A'dam naar Saas

Browse Source 
svn path=/Customer/trunk/; revision=50663
This commit is contained in:
Suzan Wiegerinck
2021-04-06 18:20:29 +00:00
parent 882fa6a9cd
commit 4318f8f84e
1 changed files with 8 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
AKZO/AKZO.sql
View File

@@ -289,95 +289,13 @@ AS
v_errormsg := 'Fout aanmaken externe medewerker';
--- voor wie wordt de pas aangevraagd?
--- als het om een tijdelijk pas voor een externe gaat, dan moet eerst de persoon aangemaakt worden
IF v_srtdeel_code NOT LIKE 'AN%'
THEN
SELECT achternaam.mld_kenmerkmelding_waarde,
tussenvoegsel.mld_kenmerkmelding_waarde,
voornaam.mld_kenmerkmelding_waarde,
DECODE (geslacht.fac_usrdata_code,
1, 1,
0, 0,
NULL) geslacht,
telefoonnr.mld_kenmerkmelding_waarde,
email.mld_kenmerkmelding_waarde
INTO v_perslid_naam,
v_perslid_tussenvoegsel,
v_perslid_voornaam,
v_perslid_geslacht,
v_perslid_telefoonnr,
v_perslid_email
FROM mld_melding m,
(SELECT km.mld_kenmerkmelding_waarde,
km.mld_melding_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 101) achternaam,
(SELECT km.mld_kenmerkmelding_waarde,
km.mld_melding_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 102)
tussenvoegsel,
(SELECT km.mld_kenmerkmelding_waarde,
km.mld_melding_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 103) voornaam,
(SELECT ud.fac_usrdata_code,
km.mld_melding_key
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_kenmerk_key = 121
AND ud.fac_usrtab_key = 61
AND ud.fac_usrdata_key =
km.mld_kenmerkmelding_waarde)
geslacht,
(SELECT km.mld_kenmerkmelding_waarde,
km.mld_melding_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 122) telefoonnr,
(SELECT km.mld_kenmerkmelding_waarde,
km.mld_melding_key
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 123) email
WHERE m.mld_melding_key =
achternaam.mld_melding_key
AND m.mld_melding_key =
tussenvoegsel.mld_melding_key(+)
AND m.mld_melding_key =
voornaam.mld_melding_key(+)
AND m.mld_melding_key =
geslacht.mld_melding_key(+)
AND m.mld_melding_key =
telefoonnr.mld_melding_key(+)
AND m.mld_melding_key =
email.mld_melding_key(+)
AND m.mld_melding_key = p_melding_key;
INSERT INTO prs_perslid (prs_perslid_naam,
prs_perslid_voornaam,
prs_perslid_tussenvoegsel,
prs_perslid_geslacht,
prs_perslid_telefoonnr,
prs_perslid_email,
prs_afdeling_key,
prs_srtperslid_key)
VALUES (v_perslid_naam,
v_perslid_voornaam,
v_perslid_tussenvoegsel,
v_perslid_geslacht,
v_perslid_telefoonnr,
v_perslid_email,
222,
1)
RETURNING prs_perslid_key
INTO v_pas_voor;
ELSE
SELECT p.prs_perslid_key
SELECT p.prs_perslid_key
INTO v_pas_voor
FROM mld_kenmerkmelding km, prs_perslid p
WHERE km.mld_kenmerk_key = 61
AND km.mld_kenmerkmelding_waarde =
p.prs_perslid_key
AND km.mld_melding_key = p_melding_key;
END IF;
AND km.mld_melding_key = p_melding_key;
v_errormsg := 'Fout aanmaken pas';
@@ -674,7 +592,7 @@ AS
'' afdeling_akzo_naam,
bedrijf.ins_kenmerkdeel_waarde firmanaam,
'' nevenfunctie_code,
'' nevenfunctie_naam,
nevenfunctie.prs_kenmerklink_waarde nevenfunctie_naam,
werkplek.prs_werkplek_omschrijving werkplek_code,
werkplek.alg_ruimte_omschrijving werkplek_naam,
werkplek.ruimte_nr ruimte_code,
@@ -684,6 +602,10 @@ AS
ins_srtgroep sg,
prs_perslid p,
prs_afdeling a,
(SELECT kl.prs_kenmerklink_waarde, kl.prs_link_key prs_perslid_key
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerk_key = 1040
AND kl.prs_kenmerklink_verwijder IS NULL) nevenfunctie,
(SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
FROM ins_kenmerkdeel kd
WHERE kd.ins_kenmerk_key = 41
@@ -712,6 +634,7 @@ AS
AND d.ins_alg_ruimte_key = p.prs_perslid_key
AND d.ins_deel_actief = 1
AND d.ins_deel_verwijder IS NULL
AND p.prs_perslid_key = nevenfunctie.prs_perslid_key (+)
AND d.ins_deel_key = bedrijf.ins_deel_key(+)
AND p.prs_afdeling_key = a.prs_afdeling_key
AND p.prs_perslid_key = werkplek.prs_perslid_key(+);