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

FCLT#58339: Implementatie Nouryon (split AkzoNobel / Nouryon)

Browse Source 
svn path=/Customer/trunk/; revision=44025
This commit is contained in:
Suzan Wiegerinck
2019-08-31 12:42:15 +00:00
parent 865dea7da0
commit de1afe218b
1 changed files with 0 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
AKZA/AKZA.SQL
View File

@@ -11442,67 +11442,8 @@ AS
AND ( fac_usrdata_vervaldatum > SYSDATE
OR fac_usrdata_vervaldatum IS NULL);
--------------------------------------------------------------------------------------------------
-- TBV het opschonen van Nouryon medewerkers
--------------------------------------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE akza_import_nouryon (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
v_aantal_in_FCLT NUMBER;
BEGIN
v_errorhint := 'Generieke update';
-- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
prs.import_perslid (
p_import_key,
'1;2;3;4;5;6;7;8;9;11;'
|| '10;0;0;0;0;13;14;15;0;17;'
|| '16;18;0;12;0;0;0;0;0;0;'
|| '0;0;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0',
'LOCATIECODE;GEBOUWCODE;BOUWLAAGVOLGNUMMER;RUIMTENUMMER;WERKPLEKVOLGNUMMER;OMSCHRIJVING;AFDELINGSCODE;PERSOONACHTERNAAM;TUSSENVOEGSEL;VOORLETTERS;VOORNAAM;TITEL_AANHEF;TELEFOONNUMMER;MOBIEL;EMAIL;FUNCTIE;PERSONEELSNUMMER;LOGINNAAM%');
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END akza_import_nouryon;
/
CREATE OR REPLACE PROCEDURE akza_update_nouryon (p_import_key IN NUMBER)
IS
CURSOR c_del IS
SELECT *
FROM fac_imp_perslid
WHERE prs_perslid_key IS NOT NULL
ORDER BY 2;
v_count NUMBER;
BEGIN
-- Verwijder personen die in de import tabel staan eneen perslid key hebben, dit zijn actieve Nouryon medewerkerd.
FOR rec IN c_del
LOOP
BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
COMMIT;
END akza_update_nouryon;
/
------ payload end ------