Customer/WEND/wend.sql

--
-- $Id$
--
-- Script containing customer specific sql statements for the FACILITOR database

DEFINE thisfile = 'wend.sql'
DEFINE dbuser   = 'WEND'

SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
WHENEVER SQLERROR CONTINUE;
---------------------------------------
PROMPT &fcltcusttxt
---------------------------------------
SET DEFINE OFF

------ payload begin ------

CREATE OR REPLACE PROCEDURE wend_import_perslid (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
   -- Het aangeleverde bestand heeft de gegevens komma gescheiden ipv ;
   v_errorhint := 'Delimiter goed zetten';
   UPDATE fac_imp_file
      SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';')
    WHERE fac_import_key = p_import_key;

   -- Het aangeleverde bestand heeft aanhalingstekens om de invoervelden.. LOOPT JE DAT VOOR DE VOETEN TIJDENS IMPORT?!?
   UPDATE fac_imp_file
      SET fac_imp_file_line = REPLACE (fac_imp_file_line, '"', '')
    WHERE fac_import_key = p_import_key;


   v_errorhint := 'Generieke update';
   -- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid procedure
   -- Afdeling (nr7) tijdelijk ook gevuld met achternaam (wordt later altijd Wendergroep) - WANT bij import verplicht veld en anders komt dit record dus niet door de IMPORT!
   -- Login (nr 22) wordt bij de import nog wel uit het bestand gehaald 3e kolom, maar later omgezet naar emailadres. 
   prs.import_perslid (
      p_import_key,
         '0;0;0;0;0;0;2;2;0;1;'
      || '0;0;0;0;0;0;0;5;0;0;'
      || '2;3;0;0;0;0;0;0;0;4;'
      || '0;0;0;0;0;0;0;0;0;0;'
      || '0;0;0;0;0;0',
      'GivenName;Surname;UserPrincipalName;Title;EmailAddress%');
      -- WAS bij MARE:  '"Firstname;LastName;Login;JobTitle;EmailAdress;"');
      -- DEF. BESTAND bij WEND : "GivenName","Surname","UserPrincipalName","Title","EmailAddress"

   -- Afdeling bepalen
   UPDATE fac_imp_perslid
      SET prs_afdeling_naam = 'WEND';

   -- Loginnaam afleiden van emailadres
   UPDATE fac_imp_perslid
      SET prs_perslid_oslogin =
             UPPER((SUBSTR (prs_perslid_email,
                      0,
                      INSTR (prs_perslid_email, '@') - 1)))
    WHERE UPPER (prs_perslid_email) LIKE '%WENDER.NL%';
    
    -- Delete uit AD Wender-medewerkers uit oude fusie-organisaties ZIEN en HETKOPLAND
    DELETE fac_imp_perslid
    WHERE UPPER (prs_perslid_email) LIKE '%ZIENN.NL%' or UPPER (prs_perslid_email) LIKE '%HETKOPLAND.NL%' ;
	
   -- Functie is niet altijd gevuld, functie eerst gevuld met achternaam, nu vullen met kenmerk (of 'Onbekend').
   UPDATE fac_imp_perslid
      SET prs_srtperslid_omschrijving =
             DECODE (prs_kenmerk4, NULL, 'Onbekend', prs_kenmerk4);	

   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 wend_import_perslid;
/

CREATE OR REPLACE PROCEDURE wend_update_perslid (p_import_key IN NUMBER)
IS
   -- Alle personen verwijderen die niet meer in het import import bestand voorkomen
   -- Personen in de juiste autorisatiegroep zetten.
   -- Match bij WENDERGROEP is Email.
   -- Geen acties tenzij het aantal records in de importtabel meer dan 50 medewerkers betreft.

   -- HOEFT ALLEEN @WENDER TE ZIJN. ZIENN en HETKOPLAND gaat uitgesloten worden vanuit AD=>SSP-csv
   CURSOR c_del
   IS
      SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
        FROM prs_perslid p, prs_v_perslid_fullnames pf
       WHERE UPPER (p.prs_perslid_email) LIKE '%WENDER.NL%'       
             AND NOT EXISTS (SELECT * FROM fac_imp_perslid WHERE UPPER (prs_perslid_email) = UPPER (p.prs_perslid_email) ) 
             AND pf.prs_perslid_key = p.prs_perslid_key;

   /*
   CURSOR c_flex -- Voor updaten van de algemene flex-kenmerkvelden
   IS
        SELECT p.prs_perslid_key, p.prs_perslid_email, i.prs_perslid_partner_naam, i.prs_kenmerk1, i.prs_kenmerk2, i.prs_kenmerk3
          FROM prs_v_aanwezigperslid p, fac_imp_perslid i
         WHERE p.prs_perslid_email = i.prs_perslid_email
      ORDER BY 2;
   */
             
   v_count          NUMBER;
   oracle_err_num   NUMBER;
   oracle_err_mes   VARCHAR2 (200);
   v_errormsg       VARCHAR2 (400);
   v_errorhint      VARCHAR2 (400);

BEGIN
   v_errorhint := 'Niet genoeg personen in bestand, import afgebroken';

   SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;

   IF v_count >= 50
   THEN
      v_errorhint := 'Verwerken persoonsgegevens';

      -- Geldig importbestand wat betreft aantal personen

      COMMIT;

      -- generic update
      -- 'EMAIL' betekent dat op basis van Email wordt gematched.
      -- 'NULL' betekent altijd geen werkplekken verwijderen
      prs.update_perslid (p_import_key, 'EMAIL', NULL);

      v_errorhint := 'Verwijderen persoonsgegevens';

      -- Verwijder personen die niet meer in de import voorkomen.
      FOR rec IN c_del
      LOOP
         BEGIN
            prs.delete_perslid (p_import_key, rec.prs_perslid_key);
         END;
      END LOOP;
      
      /*
      FOR rec IN c_flex
      LOOP
         BEGIN
            v_errorhint:='Fout bijwerken kenmerkveld1';
            PRS.upsertkenmerk (1000, rec.prs_perslid_key, rec.prs_kenmerk1); -- Pre-Windows 2000 Logon Name
         END;
      END LOOP;
      */
      
   ELSE
      fac.imp_writelog (p_import_key,
                        'E',
                        v_errormsg,
                        v_errorhint);
      COMMIT;
   END IF;

   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 wend_update_perslid;
/

------ payload end   ------

SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 0); END;
/

COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile