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

ASDL#37584 -- Personen raken na import login kwijt.

Browse Source 
svn path=/Customer/trunk/; revision=30521
This commit is contained in:
Arthur Egberink
2016-09-02 08:44:40 +00:00
parent 4873a9e4e8
commit 8ce6b5bd2a
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
ASDL/asdl.sql
View File

@@ -1050,10 +1050,12 @@ BEGIN
UPDATE fac_imp_perslid i
SET prs_perslid_nr = LPAD(prs_perslid_nr, 8, '0'),
prs_kenmerk1 = LPAD(prs_kenmerk1, 8, '0'),
prs_perslid_oslogin = (SELECT prs_perslid_oslogin FROM prs_perslid p WHERE p.prs_perslid_nr = i.prs_perslid_nr),
prs_srtperslid_omschrijving = DECODE (SUBSTR(UPPER(prs_srtperslid_omschrijving),1,10), 'OBJECTLEID', 'Objectleider',
'PROJECTLEI', 'Objectleider',
'Schoonmaker');
prs_perslid_oslogin = (SELECT MAX(prs_perslid_oslogin) FROM prs_perslid p WHERE p.prs_perslid_verwijder IS NULL and p.prs_perslid_nr = LPAD(i.prs_perslid_nr, 8, '0')),
prs_srtperslid_omschrijving = DECODE (SUBSTR(REPLACE(UPPER(prs_srtperslid_omschrijving), 'MEDEWERKER '),1,10),
'OBJECTLEID', 'Objectleider',
'PROJECTLEI', 'Objectleider',
'KWALITEIT ', 'Vestigingsmanager en ondersteuning',
'Schoonmaker');
-- koppel iedereen aan afdeling 2250
-- UPDATE fac_imp_perslid SET prs_afdeling_naam = '2250';
@@ -1145,7 +1147,7 @@ IS
v_errorhint VARCHAR2 (1000);
BEGIN
-- generic update
prs.update_perslid (p_import_key, 'NR', 'A');
prs.update_perslid (p_import_key, 'NR', NULL);
FOR rec IN c_del
LOOP
@@ -1170,6 +1172,11 @@ BEGIN
WHERE prs_perslid_key = rec.prs_perslid_key
AND prs_perslid_naam NOT LIKE 'INACTIEF:%';
IF rec.prs_perslid_naam_full NOT LIKE '%INACTIEF%'
THEN
fac.trackaction ('PRSUPD', rec.prs_perslid_key, NULL, SYSDATE, 'Persoon als INACTIEF gemarkeerd of was al INACTIEF gemarkeerd.' );
END IF;
fac.imp_writelog (
p_import_key,
'I',
@@ -1191,6 +1198,7 @@ BEGIN
|| rec.prs_perslid_naam_full
|| '/'
|| rec.prs_perslid_nr);
fac.trackaction ('PRSDEL', rec.prs_perslid_key, NULL, SYSDATE, NULL );
EXCEPTION
WHEN OTHERS
THEN