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

CAPG#116

Browse Source 
svn path=/Customer/trunk/; revision=12686
This commit is contained in:
Arthur Egberink
2005-01-20 08:58:50 +00:00
parent c93e91a79b
commit afc828d111
1 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
CAPG/Sap2FCLT/Fip_perslid_sap.sql
View File

@@ -75,6 +75,7 @@ DECLARE
update_action varchar2(3);
werkplek_new boolean;
update_msg varchar2(1024);
prs_perslid_tussenvoegsel_old varchar2(15);
afdeling_naam_old varchar2(10);
afdeling_naam_new varchar2(10);
prs_perslid_naam_old varchar2(30);
@@ -424,11 +425,11 @@ commit;
-- commit;
IF rec.TUSSENVOEGSEL IS NULL THEN
-- CAPG#116 IF rec.TUSSENVOEGSEL IS NULL THEN
PERSLID_NAAM := SUBSTR(rec.PRS_PERSLID_NAAM,1,30);
ELSE
PERSLID_NAAM := SUBSTR(rec.PRS_PERSLID_NAAM || ', ' || rec.TUSSENVOEGSEL,1,30);
END IF;
-- CAPG#116 ELSE
-- CAPG#116 PERSLID_NAAM := SUBSTR(rec.PRS_PERSLID_NAAM || ', ' || rec.TUSSENVOEGSEL,1,30);
-- CAPG#116 END IF;
IF perslid_key = 0 THEN
prs_perslid_naam_old := '';
@@ -461,6 +462,7 @@ commit;
,PRS_PERSLID_NAAM
,PRS_PERSLID_VOORLETTERS
,PRS_PERSLID_VOORNAAM
,PRS_PERSLID_TUSSENVOEGSEL
,PRS_PERSLID_INITIALEN
,PRS_PERSLID_TELEFOONNR
,PRS_PERSLID_NR
@@ -475,6 +477,7 @@ commit;
,PERSLID_NAAM
,rec.PRS_PERSLID_VOORLETTERS
,rec.PRS_PERSLID_VOORNAAM
,SUBSTR(rec.TUSSENVOEGSEL,1,15)
,rec.PRS_PERSLID_INITIALEN
,rec.PRS_PERSLID_TELEFOONNR
,rec.PRS_PERSLID_NR
@@ -494,8 +497,8 @@ commit;
errorMsg := ' (error : daadwerkelijk wijzigen {update} persoon)';
SELECT prs_perslid_naam, prs_perslid_voorletters, prs_perslid_voornaam, prs_perslid_telefoonnr, prs_perslid_oslogin
INTO prs_perslid_naam_old, prs_perslid_voorletters_old, prs_perslid_voornaam_old, prs_perslid_telefoonnr_old, prs_perslid_oslogin_old
SELECT prs_perslid_naam, prs_perslid_tussenvoegsel, prs_perslid_voorletters, prs_perslid_voornaam, prs_perslid_telefoonnr, prs_perslid_oslogin
INTO prs_perslid_naam_old, prs_perslid_tussenvoegsel_old, prs_perslid_voorletters_old, prs_perslid_voornaam_old, prs_perslid_telefoonnr_old, prs_perslid_oslogin_old
FROM PRS_V_AANWEZIGPERSLID
WHERE prs_perslid_key = perslid_key;
@@ -506,6 +509,7 @@ commit;
,PRS_PERSLID_NAAM = PERSLID_NAAM
,PRS_PERSLID_VOORLETTERS = rec.PRS_PERSLID_VOORLETTERS
,PRS_PERSLID_VOORNAAM = rec.PRS_PERSLID_VOORNAAM
,PRS_PERSLID_TUSSENVOEGSEL = SUBSTR(rec.TUSSENVOEGSEL,1,15)
,PRS_PERSLID_INITIALEN = rec.PRS_PERSLID_INITIALEN
,PRS_PERSLID_TELEFOONNR = rec.PRS_PERSLID_TELEFOONNR
,PRS_PERSLID_NR = rec.PRS_PERSLID_NR
@@ -522,7 +526,11 @@ commit;
errorMsg := ' (error : aanmaken gedeelte logging)';
IF upper(prs_perslid_naam_old) <> upper(PERSLID_NAAM) THEN
update_msg := update_msg || ' ***Achternaam+Tussenvoegsel:<' || prs_perslid_naam_old || '> wordt <' || PERSLID_NAAM || '>';
update_msg := update_msg || ' ***Achternaam:<' || prs_perslid_naam_old || '> wordt <' || PERSLID_NAAM || '>';
END IF;
IF upper(prs_perslid_tussenvoegsel_old) <> upper(SUBSTR(rec.TUSSENVOEGSEL,1,15)) THEN
update_msg := update_msg || ' ***Tussenvoegsel:<' || prs_perslid_tussenvoegsel_old || '> wordt <' || SUBSTR(rec.TUSSENVOEGSEL,1,15) || '>';
END IF;
IF upper(prs_perslid_voorletters_old) <> upper(rec.PRS_PERSLID_VOORLETTERS) THEN