SGGR#86561 Bijwerken HR Salaris en Gemak personeelsnummer

svn path=/Customer/; revision=67380

onces/SGGR/SGGR#86561.sql

@@ -0,0 +1,65 @@
+--
+-- $Id$
+--
+-- Aanvullen van het HR nummer aangezien deze nog niet vanuit WD beschikbaar is
+-- SGGR#86561 persoonsgegevensimport vanuit Workday via SOAP API
+--
+DEFINE thisfile = 'SGGR#86561.SQL'
+DEFINE dbuser   = '^SGGR'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+
+SELECT adm.getscriptspoolfile ('&thisfile') AS fcltlogfile FROM DUAL;
+
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+
+SELECT adm.checkscriptcust ('&dbuser') AS fcltcusterr FROM DUAL;
+
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+
+DECLARE
+    v_errormsg       VARCHAR (200);
+    v_errorhint      VARCHAR (200);
+    oracle_err_num   NUMBER;
+    oracle_err_mes   VARCHAR2 (150);
+
+    CURSOR persnr IS
+        SELECT ud.fac_usrdata_code persnr, ud.fac_usrdata_omschr mailadres, p.prs_perslid_key
+          FROM fac_usrdata ud, fac_usrtab ut, prs_perslid p
+         WHERE     ud.fac_usrtab_key = ut.fac_usrtab_key
+               AND UPPER (ut.fac_usrtab_omschrijving) = 'HR NUMMER'
+               AND UPPER (p.prs_perslid_email) = UPPER (ud.fac_usrdata_omschr);
+BEGIN
+    FOR rec IN persnr
+    LOOP
+        BEGIN
+            v_errorhint := 'Fout bijwerken HR nummer' || rec.PRS_PERSLID_KEY;
+            prs.upsertkenmerk (1120, rec.prs_perslid_key, rec.persnr);
+        END;
+    END LOOP;
+END SGGR;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+
+BEGIN
+    adm.systrackscriptId ('$Id$', 1);
+END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile