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

TMGP#77597 -- Inrichten omgeving voor de Tomin groep

Browse Source 
svn path=/Customer/trunk/; revision=62249
This commit is contained in:
Norbert Wassink
2023-10-18 11:18:26 +00:00
parent 95ce2ce993
commit 830045ff4f
1 changed files with 32 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
TMGP/TMGP.sql
View File

@@ -45,26 +45,27 @@ AS
FROM fac_imp_perslid
WHERE fac_import_key=v_import_key;
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
v_aanduiding VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
v_aanduiding VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_date DATE;
v_count NUMBER;
v_insert_count NUMBER:=0;
v_update_count NUMBER:=0;
v_ongw_count NUMBER:=0;
v_prs_perslid_key NUMBER;
v_functie NUMBER;
v_afdeling_key NUMBER;
v_action VARCHAR2(10);
v_afdeling_code PRS_afdeling.prs_afdeling_naam%TYPE;
v_prs_perslid_naam PRS_PERSLID.PRS_PERSLID_NAAM%TYPE;
v_prs_perslid_email PRS_PERSLID.PRS_PERSLID_EMAIL%TYPE;
v_prs_perslid_nr PRS_PERSLID.PRS_PERSLID_NR%TYPE;
v_prs_perslid_externid PRS_PERSLID.PRS_PERSLID_EXTERNID%TYPE;
v_date DATE;
v_count NUMBER;
v_insert_count NUMBER:=0;
v_update_count NUMBER:=0;
v_ongw_count NUMBER:=0;
v_prs_perslid_key NUMBER;
v_functie NUMBER;
v_afdeling_key NUMBER;
v_action VARCHAR2(10);
v_afdeling_code PRS_afdeling.prs_afdeling_naam%TYPE;
v_prs_perslid_naam PRS_PERSLID.PRS_PERSLID_NAAM%TYPE;
v_prs_perslid_email PRS_PERSLID.PRS_PERSLID_EMAIL%TYPE;
v_prs_perslid_nr PRS_PERSLID.PRS_PERSLID_NR%TYPE;
v_prs_perslid_externid PRS_PERSLID.PRS_PERSLID_EXTERNID%TYPE;
v_prs_oslogin PRS_PERSLID.PRS_PERSLID_OSLOGIN%TYPE;
BEGIN
BEGIN
SELECT prs_srtperslid_key
@@ -84,7 +85,7 @@ BEGIN
BEGIN
SELECT prs_perslid_key INTO v_prs_perslid_key
from prs_perslid
where prs_perslid_oslogin=UPPER(rec.prs_kenmerk1)
where prs_perslid_externID=UPPER(rec.prs_kenmerk1)
AND prs_perslid_verwijder IS NULL;
v_action:='UPDATE';
EXCEPTION
@@ -138,12 +139,18 @@ BEGIN
THEN
-- We kennen de persoon echt niet dus gaan we hem toevoegen
v_errormsg:='Fout bij toevoegen van perslid '|| rec.prs_perslid_naam;
IF INSTR(rec.prs_perslid_email,'@')> 1 THEN
v_prs_oslogin := SUBSTR(rec.prs_perslid_email,1,INSTR(rec.prs_perslid_email,'@')-1); -- Die persoon die een email adres hebben moeten onderdeel worden van de _Default groep
ELSE
v_prs_oslogin:=NULL;
END IF;
INSERT INTO prs_perslid
(prs_perslid_naam,
prs_perslid_voornaam,
prs_perslid_tussenvoegsel,
prs_perslid_email,
prs_perslid_oslogin,
prs_perslid_externid,
prs_perslid_nr,
prs_afdeling_key,
prs_srtperslid_key)
@@ -151,6 +158,7 @@ BEGIN
rec.prs_perslid_voornaam,
rec.prs_perslid_tussenvoegsel,
rec.prs_perslid_email,
v_prs_oslogin,
rec.prs_kenmerk1,
rec.prs_perslid_nr,
v_afdeling_key,
@@ -162,15 +170,16 @@ BEGIN
SET prs_perslid_naam=rec.prs_perslid_naam,
prs_perslid_voornaam=rec.prs_perslid_voornaam,
prs_perslid_tussenvoegsel=rec.prs_perslid_tussenvoegsel,
prs_perslid_email=rec.prs_perslid_email,
prs_perslid_email=rec.prs_perslid_email,
prs_perslid_oslogin=SUBSTR(rec.prs_perslid_email,1,INSTR(rec.prs_perslid_email,'@')-1),
prs_perslid_nr=rec.prs_perslid_nr,
prs_perslid_oslogin=rec.prs_kenmerk1,
prs_perslid_externid=rec.prs_kenmerk1,
prs_afdeling_key=v_afdeling_key
WHERE prs_perslid_key=v_prs_perslid_key
AND (prs_perslid_nr != rec.prs_perslid_nr
OR prs_perslid_naam != rec.prs_perslid_naam
OR prs_perslid_email != rec.prs_perslid_email
OR prs_perslid_oslogin != rec.prs_kenmerk1
-- OR prs_perslid_oslogin != rec.prs_kenmerk1
OR prs_afdeling_key != v_afdeling_key);
v_update_count:=v_update_count+1;