Customer/BRWN/BRWN.sql

--
-- $Id$
--


DEFINE thisfile = 'BRWN.SQL'
DEFINE dbuser   = 'BRWN'

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 ------

-- Personen import
CREATE OR REPLACE PROCEDURE brwn_import_perslid (p_import_key IN NUMBER)
AS
    v_seq_of_columns   VARCHAR (255);
    oracle_err_num     NUMBER;
    oracle_err_mes     VARCHAR2 (200);
    v_errormsg         VARCHAR2 (200);
    v_errorhint        VARCHAR2 (200);
BEGIN

    -- Verwijder lege records
    DELETE fac_imp_file WHERE SUBSTR(fac_imp_file_line, 1,7) = ';;;;;;;' AND fac_import_key = p_import_key;

    v_seq_of_columns := '0;0;0;0;0;0;1;6;0;5;'
  -- v_alg_locatie_code 1
  -- v_alg_gebouw_code 2
  -- v_alg_verdieping_volgnr 3
  -- v_alg_ruimte_nr 4
  -- v_prs_werkplek_volgnr 5
  -- v_prs_werkplek_omschrijving 6
  -- v_prs_afdeling_naam 7
  -- v_prs_perslid_naam 8
  -- v_prs_perslid_tussenvoegsel 9
  -- v_prs_perslid_voornaam 10
                     || '0;0;0;0;0;9;7;11;0;0;'
  -- v_prs_perslid_voorletters 11
  -- v_prs_perslid_partner_naam 12
  -- v_prs_perslid_partner_tussenv 13
  -- v_prs_naamgebruik_code 14             0 (default) perslid_naam en perslid_tussenvoegsel worden gebruikt
  --                                       1 personen die de geboortenaam van de partner icm de eigen naam willen gebruiken
  --                                       2 personen die de geboortenaam van de partner willen gebruiken
  --                                       3 personen die de eigen naam icm de geboortenaam van de partner willen gebruiken
  -- v_prs_perslid_geslacht 15             Gebruik 'man', 'm' of 1 voor man en 'vrouw', 'v' of 0 voor vrouw case insensitive geen default
  -- v_prs_perslid_telefoonnr 16
  -- v_prs_perslid_mobiel 17
  -- v_prs_perslid_email 18
  -- v_prs_perslid_dienstverband 19
  -- v_prs_perslid_nr 20
                     || '10;0;0;0;0;0;2;3;4;0;'
  -- v_prs_srtperslid_omschrijving 21
  -- v_prs_perslid_oslogin 22
  -- v_prs_perslid_wachtwoord 23
  -- v_prs_perslid_titel 24
  -- v_prs_perslid_apikey 25
  -- v_dummy 26
  -- v_prs_kenmerk1 27
  -- v_prs_kenmerk2 28
  -- v_prs_kenmerk3 29
  -- v_prs_kenmerk4 30
                     || '0;0;0;0;0;0;0;0;0;0;'
                     || '0;0;0;0;0;0';

    prs.import_perslid(p_import_key, v_seq_of_columns, '%"%Referentie blokkeren";"Plaats";"Afdeling";"Weergavenaam";"Voornaam";"Achternaam";"Mobiele telefoon";"Office";"Telefoonnummer";"Titel";"User principal name"%');

    -- De weergave naam in kenmerk3 bevat naast de achternaam ook (indien gewenst) de meisjesnaam
    -- De tussenvoegsels zitten tussen de voornaam en de achternaam
    UPDATE fac_imp_perslid
       SET prs_perslid_naam = SUBSTR(prs_kenmerk3, INSTR(prs_kenmerk3,prs_perslid_naam), 60),
           prs_perslid_tussenvoegsel = substr(prs_kenmerk3, length(prs_perslid_voornaam)+2, INSTR(prs_kenmerk3,prs_perslid_naam) - (length(prs_perslid_voornaam)+3));

    -- We gaan op zoek naar de afdelinsnaam die hoort bij de omschrijving in kenmerk2
    UPDATE fac_imp_perslid
       SET prs_afdeling_naam =
               (SELECT MIN (prs_afdeling_naam)
                  FROM prs_afdeling
                 WHERE UPPER (prs_afdeling_omschrijving) = UPPER (prs_kenmerk2));

    UPDATE fac_imp_perslid
       SET prs_perslid_oslogin =
               SUBSTR (prs_perslid_email, 1, INSTR (prs_perslid_email, '@') - 1);

END brwn_import_perslid;
/

CREATE OR REPLACE PROCEDURE brwn_update_perslid (p_import_key IN NUMBER)
IS
   CURSOR c_del IS
      SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full, p.prs_perslid_oslogin
        FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf, prs_afdeling a
       WHERE p.prs_afdeling_key = a.prs_afdeling_key
         AND a.prs_bedrijf_key = 6 -- Brabant Wonen
         AND p.prs_perslid_oslogin = i.prs_perslid_oslogin(+)
         AND pf.prs_perslid_key = p.prs_perslid_key
         AND (SUBSTR(p.prs_perslid_oslogin,1,1) <> '_' OR p.prs_perslid_oslogin IS NULL)
         AND i.prs_perslid_oslogin IS NULL
         AND p.prs_perslid_verwijder IS NULL;

    v_bedrijf_key        NUMBER (10);
    v_afdeling_key1      NUMBER (10);
    v_afdeling_key2      NUMBER (10);
    v_kostenplaats_key   NUMBER (10);
    v_kpn_nr_prev        VARCHAR2 (20);
    v_count_mandaat      NUMBER (10);
    v_count_man_prs      NUMBER (10) := 0;

    v_aanduiding         VARCHAR2 (100);
    v_errorhint          VARCHAR2 (1000);
    v_errormsg           VARCHAR2 (1000);
    v_count              NUMBER;
    oracle_err_num       NUMBER;
    oracle_err_mes       VARCHAR2 (200);
BEGIN

     SELECT COUNT(*)
       INTO v_count
       FROM fac_imp_perslid
      WHERE fac_import_key = p_import_key;

    IF v_count > 2000
    THEN
       FOR rec IN c_del LOOP
          BEGIN
             v_errorhint := 'Persoon verwijderen: ' || rec.prs_perslid_naam_full || '-' || rec.prs_perslid_nr || '-' || rec.prs_perslid_oslogin;
             prs.delete_perslid (p_import_key, rec.prs_perslid_key);
          END;
       END LOOP;
    END IF;

    prs.update_perslid (p_import_key, 'EMAIL', NULL);

    -- Standaard zetten we de zichtbaarheid aan
    UPDATE prs_perslid SET prs_perslid_visibility = 1 WHERE prs_perslid_aanmaak < SYSDATE - 1;

    -- Zorg ervoor dat er geen persoonsgegevens achterblijven in de import tabel.
    -- DELETE fac_imp_perslid;
    COMMIT;
EXCEPTION
    WHEN OTHERS
    THEN
        oracle_err_num := SQLCODE;
        oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
        v_errormsg :=
               'OTHERS (error '
            || oracle_err_num
            || '/'
            || oracle_err_mes
            || ')';
        fac.imp_writelog (p_import_key,
                          'E',
                          v_aanduiding || v_errormsg,
                          v_errorhint);

END brwn_update_perslid;
/

-- View om via een rapport je collega te vinden die ook een werkplek gereserveerd heeft
CREATE OR REPLACE VIEW brwn_v_rap_find_collega_wp
AS
SELECT rrr.res_rsv_ruimte_van,
       rrr.res_rsv_ruimte_tot,
       DECODE (p.prs_perslid_visibility,
               1, pf.prs_perslid_naam_full,
               a.prs_afdeling_omschrijving)    prs_perslid_naam,
       a.prs_afdeling_omschrijving,
       l.alg_locatie_omschrijving,
       d.alg_gebouw_omschrijving,
       d.alg_verdieping_code,
       d.alg_ruimte_nr,
       rd.res_deel_omschrijving,
       d.ins_deel_omschrijving
  FROM res_rsv_ruimte           rrr,
       res_rsv_deel             rrd,
       res_deel                 rd,
       res_discipline           r,
       ins_v_deel_gegevens      d,
       prs_v_perslid_fullnames  pf,
       prs_afdeling             a,
       prs_perslid              p,
       alg_locatie              l
 WHERE     rrr.res_rsv_ruimte_key = rrd.res_rsv_ruimte_key
       AND rrd.res_deel_key = rd.res_deel_key
       AND rd.res_ins_deel_key = d.ins_deel_key
       AND rrr.res_rsv_ruimte_host_key = pf.prs_perslid_key
       AND p.prs_perslid_key = pf.prs_perslid_key
       AND p.prs_afdeling_key = a.prs_afdeling_key
       AND rd.res_discipline_key = r.ins_discipline_key
       --AND r.ins_discipline_min_level = 5 -- werkplekken
       AND res_activiteit_key = 30 -- Werkplekken
       AND d.alg_locatie_key = l.alg_locatie_key
       AND TRUNC (res_rsv_ruimte_van) < TRUNC (SYSDATE) + 21
       AND res_rsv_ruimte_van > TRUNC (SYSDATE);

------ 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