CSUN#68556 aanpassingen zijn nog niet getest, dus bij deze teruggedraaid zodat de sql geleverd kan worden.
svn path=/Customer/trunk/; revision=66880
This commit is contained in:
Sander Schepers
@@ -2615,7 +2615,7 @@ AS
|
||||
v_vervallen VARCHAR2 (255);
|
||||
v_rayonl_persnr VARCHAR2 (255); -- 16
|
||||
v_rayonl_naam VARCHAR2 (255); -- 60
|
||||
v_rayonl_mail VARCHAR2 (255); -- 200
|
||||
--v_rayonl_mail VARCHAR2 (255); -- 200
|
||||
v_kenmerk1 VARCHAR2 (255);
|
||||
v_kenmerk2 VARCHAR2 (255);
|
||||
v_kenmerk3 VARCHAR2 (255);
|
||||
@@ -2673,7 +2673,8 @@ BEGIN
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_vervallen); -- FPVERV
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_rayonl_persnr); -- FPGEOK
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_rayonl_naam); -- FPRLNM
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_rayonl_mail);
|
||||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_rayonl_mail);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk1);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk2);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk3);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk4);
|
||||
@@ -2749,7 +2750,8 @@ BEGIN
|
||||
SUBSTR(TRIM(v_locatie_plaats),1,35),
|
||||
SUBSTR(TRIM(v_rayonl_persnr),1,16),
|
||||
SUBSTR(TRIM(v_rayonl_naam),1,60),
|
||||
SUBSTR(TRIM(v_rayonl_mail),1,200),
|
||||
--SUBSTR(TRIM(v_rayonl_mail),1,200),
|
||||
v_kenmerk1,
|
||||
v_kenmerk2,
|
||||
v_kenmerk3,
|
||||
v_kenmerk4,
|
||||
@@ -2892,8 +2894,8 @@ IS
|
||||
voornaam,
|
||||
TRIM (SUBSTR (rayonl_naam, INSTR (rayonl_naam, ' '), 60))
|
||||
achternaam,
|
||||
rayonl_naam,
|
||||
kenmerk1 AS rayonl_mail
|
||||
rayonl_naam--,
|
||||
--kenmerk1 AS rayonl_mail
|
||||
FROM csun_imp_project
|
||||
WHERE rayonl_naam IS NOT NULL;
|
||||
|
||||
@@ -2904,7 +2906,16 @@ IS
|
||||
alg_locatie l,
|
||||
prs_perslid p,
|
||||
alg_v_ruimte_gegevens rg
|
||||
WHERE i.kenmerk1 = p.prs_perslid_email
|
||||
WHERE --i.kenmerk1 = p.prs_perslid_email
|
||||
COALESCE (
|
||||
(SELECT pk.prs_kenmerklink_waarde
|
||||
FROM prs_kenmerklink pk
|
||||
WHERE pk.prs_kenmerklink_verwijder IS NULL
|
||||
AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU
|
||||
AND p.prs_perslid_key = pk.prs_link_key
|
||||
AND pk.prs_kenmerklink_niveau = 'P'),
|
||||
p.prs_perslid_nr) LIKE
|
||||
'%' || i.rayonl_persnr || '%'
|
||||
AND 'P' || i.project = l.alg_locatie_code
|
||||
AND l.alg_locatie_key = rg.alg_locatie_key
|
||||
AND rg.alg_ruimte_nr = '-'
|
||||
@@ -3245,30 +3256,41 @@ BEGIN
|
||||
INTO v_perslid_key
|
||||
FROM prs_perslid p
|
||||
WHERE p.prs_perslid_verwijder IS NULL
|
||||
AND p.prs_perslid_email = rec_ray.rayonl_mail;
|
||||
--AND p.prs_perslid_email = rec_ray.rayonl_mail;
|
||||
AND COALESCE (
|
||||
(SELECT pk.prs_kenmerklink_waarde
|
||||
FROM prs_kenmerklink pk
|
||||
WHERE pk.prs_kenmerklink_verwijder IS NULL
|
||||
AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU
|
||||
AND p.prs_perslid_key = pk.prs_link_key
|
||||
AND pk.prs_kenmerklink_niveau = 'P'),
|
||||
p.prs_perslid_nr) LIKE
|
||||
'%' || rec_ray.rayonl_persnr || '%';
|
||||
|
||||
IF v_perslid_key IS NULL
|
||||
THEN
|
||||
-- nieuwe rayonleider aanmaken tijdelijk onder CSU NA.
|
||||
|
||||
v_error_hint :=
|
||||
'Aanmaken Rayonmanager: '
|
||||
|| rec_ray.voornaam
|
||||
|| ' '
|
||||
|| rec_ray.achternaam;
|
||||
--v_error_hint :=
|
||||
-- 'Aanmaken Rayonmanager: '
|
||||
-- || rec_ray.voornaam
|
||||
-- || ' '
|
||||
-- || rec_ray.achternaam;
|
||||
|
||||
INSERT INTO prs_perslid (prs_srtperslid_key,
|
||||
prs_afdeling_key,
|
||||
prs_perslid_nr,
|
||||
prs_perslid_naam,
|
||||
prs_perslid_voornaam,
|
||||
prs_perslid_email)
|
||||
prs_perslid_voornaam--,
|
||||
--prs_perslid_email
|
||||
)
|
||||
VALUES (50,
|
||||
1,
|
||||
rec_ray.rayonl_persnr,
|
||||
rec_ray.achternaam,
|
||||
rec_ray.voornaam,
|
||||
rec_ray.rayonl_mail)
|
||||
rec_ray.voornaam--,
|
||||
--rec_ray.rayonl_mail
|
||||
)
|
||||
RETURNING prs_perslid_key
|
||||
INTO v_perslid_key;
|
||||
|
||||
@@ -3310,19 +3332,19 @@ BEGIN
|
||||
prs_perslid_tussenvoegsel = v_tussenv
|
||||
WHERE prs_perslid_key = v_perslid_key;
|
||||
|
||||
v_error_hint :=
|
||||
'Notificatie nieuwe Rayonmanager: '
|
||||
|| rec_ray.voornaam
|
||||
|| ' '
|
||||
|| v_tussenvoegsel
|
||||
|| ' '
|
||||
|| rec_ray.achternaam;
|
||||
|
||||
fac.trackaction ('CUST13',
|
||||
v_perslid_key,
|
||||
4, --Facilitor
|
||||
NULL,
|
||||
'Er is voor u een account aangemaakt');
|
||||
-- v_error_hint :=
|
||||
-- 'Notificatie nieuwe Rayonmanager: '
|
||||
-- || rec_ray.voornaam
|
||||
-- || ' '
|
||||
-- || v_tussenv
|
||||
-- || ' '
|
||||
-- || rec_ray.achternaam;
|
||||
--
|
||||
-- fac.trackaction ('CUST13',
|
||||
-- v_perslid_key,
|
||||
-- 4, --Facilitor
|
||||
-- NULL,
|
||||
-- 'Er is voor u een account aangemaakt');
|
||||
|
||||
END IF;
|
||||
END;
|
||||
@@ -3378,7 +3400,15 @@ BEGIN
|
||||
AND NOT EXISTS
|
||||
(SELECT i.project
|
||||
FROM csun_imp_project i, alg_locatie l
|
||||
WHERE i.kenmerk1 = p.prs_perslid_email
|
||||
WHERE COALESCE (
|
||||
(SELECT pk.prs_kenmerklink_waarde
|
||||
FROM prs_kenmerklink pk
|
||||
WHERE pk.prs_kenmerklink_verwijder IS NULL
|
||||
AND pk.prs_kenmerk_key = 1120 -- Kostenplaats CSU
|
||||
AND p.prs_perslid_key = pk.prs_link_key
|
||||
AND pk.prs_kenmerklink_niveau = 'P'),
|
||||
p.prs_perslid_nr) LIKE
|
||||
'%' || i.rayonl_persnr || '%'
|
||||
AND 'P' || i.project =
|
||||
l.alg_locatie_code
|
||||
AND l.alg_locatie_key =
|
||||
|
||||
Reference in New Issue
Block a user