2066 lines
83 KiB
MySQL
2066 lines
83 KiB
MySQL
-- Script containing customer specific configuration sql statements for ALLI
|
||
-- (c) 2012 SG|facilitor bv
|
||
-- $Revision$
|
||
-- $Modtime: 28-06-12 12:15 $
|
||
--
|
||
-- Support: +31 53 4800700
|
||
|
||
set echo on
|
||
|
||
spool ALLI.lst
|
||
|
||
CREATE OR REPLACE VIEW alli_v_import_log
|
||
AS
|
||
SELECT imp_log_status fclt_f_status,
|
||
imp_log_omschrijving omschrijving,
|
||
imp_log_hint opmerking
|
||
FROM imp_log
|
||
WHERE imp_log_applicatie = 'PRS';
|
||
|
||
|
||
CREATE OR REPLACE PROCEDURE alli_import_prs (
|
||
p_import_key IN NUMBER
|
||
)
|
||
IS
|
||
c_fielddelimitor VARCHAR2 (1) := ';';
|
||
-- LET OP: moet idem zijn als declaratie bij alli_UPDATE_PRS
|
||
v_newline VARCHAR2 (1000); -- Input line
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_errorhint VARCHAR2 (1000);
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
header_is_valid NUMBER := 0;
|
||
v_ongeldig NUMBER (1);
|
||
v_count_tot NUMBER (10);
|
||
v_count_import NUMBER (10);
|
||
v_count NUMBER;
|
||
v_pos NUMBER;
|
||
-- De importvelden:
|
||
v_prs_perslid_nr VARCHAR2 (256);
|
||
v_prs_perslid_naam VARCHAR2 (256);
|
||
v_prs_perslid_tussenvoegsel VARCHAR2 (256);
|
||
v_prs_perslid_voorletters VARCHAR2 (256);
|
||
v_prs_perslid_voornaam VARCHAR2 (256);
|
||
v_prs_afdeling_code VARCHAR2 (256);
|
||
v_prs_afdeling_naam VARCHAR2 (256);
|
||
v_prs_srtperslid_omschrijving VARCHAR2 (256);
|
||
v_prs_perslid_telefoonnr VARCHAR2 (256);
|
||
v_prs_perslid_email VARCHAR2 (256);
|
||
v_prs_perslid_oslogin VARCHAR2 (256);
|
||
|
||
-- Overig:
|
||
v_alg_locatie_code VARCHAR2 (256);
|
||
v_alg_gebouw_code VARCHAR2 (256);
|
||
|
||
|
||
CURSOR c1
|
||
IS
|
||
SELECT *
|
||
FROM fac_imp_file
|
||
WHERE fac_import_key = p_import_key
|
||
ORDER BY fac_imp_file_index;
|
||
BEGIN
|
||
DELETE FROM alli_imp_prs;
|
||
|
||
COMMIT;
|
||
|
||
v_count_tot := 0;
|
||
v_count_import := 0;
|
||
|
||
FOR rec1 IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_newline := rec1.fac_imp_file_line;
|
||
v_aanduiding := '';
|
||
v_errorhint := 'Fout bij opvragen te importeren rij';
|
||
v_ongeldig := 0;
|
||
-- Lees alle veldwaarden
|
||
|
||
-- 01 - Naam van medewerkers = achternaam, voorletters, tussenvoegsels
|
||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_naam);
|
||
|
||
-- xx - Voorletters van medewerker (die zijn niet in een aparte kolom in de Excel, dus uit de naam strippen.
|
||
-- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_voorletters);
|
||
v_prs_perslid_voorletters := NULL;
|
||
|
||
v_pos := INSTR (v_prs_perslid_naam, ',', 1, 1);
|
||
IF (v_pos > 0)
|
||
THEN
|
||
v_prs_perslid_voorletters := TRIM(SUBSTR (v_prs_perslid_naam, v_pos + 1));
|
||
v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, v_pos - 1);
|
||
END IF;
|
||
|
||
-- xx - Tussenvoegsels van medewerker
|
||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_tussenvoegsel);
|
||
v_prs_perslid_tussenvoegsel := NULL;
|
||
|
||
v_pos := INSTR (v_prs_perslid_voorletters, ' ', 1, 1);
|
||
IF (v_pos > 0)
|
||
THEN
|
||
v_prs_perslid_tussenvoegsel := TRIM(SUBSTR (v_prs_perslid_voorletters, v_pos + 1));
|
||
v_prs_perslid_voorletters := SUBSTR (v_prs_perslid_voorletters, 1, v_pos - 1);
|
||
END IF;
|
||
|
||
-- 02 - Peroneelsnr
|
||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_nr);
|
||
|
||
-- 03 - Afdelingscode
|
||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
|
||
|
||
-- 04 - Afdelingsnaam (niet de code!)
|
||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_naam);
|
||
|
||
-- 05 - Functieomschrijving van medewerker
|
||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
|
||
|
||
-- 06 - Email adres van medewerker
|
||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
|
||
|
||
-- xx - Usernaam/login
|
||
-- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
|
||
v_prs_perslid_oslogin := NULL;
|
||
|
||
-- xx - Voornaam van medewerker
|
||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_voornaam);
|
||
v_prs_perslid_voornaam := NULL;
|
||
|
||
|
||
-- xx - Locatiecode werkplek van medewerker
|
||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
|
||
v_alg_locatie_code := NULL;
|
||
|
||
-- xx - Gebouwcode werkplek van medewerker
|
||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_gebouw_code);
|
||
v_alg_gebouw_code := NULL;
|
||
|
||
|
||
-- xx - Telefoonnummer van medewerker
|
||
-- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
|
||
v_prs_perslid_telefoonnr := NULL;
|
||
|
||
|
||
--
|
||
v_aanduiding :=
|
||
'['
|
||
|| v_prs_perslid_nr
|
||
|| '|'
|
||
|| v_prs_perslid_naam
|
||
|| '] ';
|
||
|
||
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
|
||
-- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
|
||
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
|
||
IF (header_is_valid = 0)
|
||
THEN
|
||
-- IF UPPER (v_prs_perslid_naam) = 'NAAM': Deze conditie eruit, want de naam wordt ivm voorletters en tussenvoegsels aangepast/bewerkt.
|
||
IF UPPER (v_prs_perslid_nr) = 'PERSNR.'
|
||
AND UPPER (v_prs_afdeling_code) = 'AFDNR.'
|
||
AND UPPER (v_prs_afdeling_naam) = 'AFDELING'
|
||
AND UPPER (v_prs_srtperslid_omschrijving) = 'FUNCTIE'
|
||
AND UPPER (v_prs_perslid_email) = 'E-MAIL'
|
||
|
||
THEN
|
||
header_is_valid := 1;
|
||
END IF;
|
||
ELSE
|
||
v_count_tot := v_count_tot + 1;
|
||
-- Controleer alle veldwaarden
|
||
|
||
--
|
||
v_errorhint := 'Ongeldige naam';
|
||
v_prs_perslid_naam := TRIM (v_prs_perslid_naam);
|
||
|
||
IF LENGTH (v_prs_perslid_naam) > 30
|
||
THEN
|
||
v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Naam te lang',
|
||
'Naam wordt afgebroken tot ['
|
||
|| v_prs_perslid_naam
|
||
|| ']'
|
||
);
|
||
ELSE
|
||
IF (v_prs_perslid_naam IS NULL)
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
v_aanduiding || 'Naam onbekend',
|
||
'Naam is verplicht; regel wordt overgeslagen!'
|
||
);
|
||
END IF;
|
||
END IF;
|
||
COMMIT;
|
||
|
||
--
|
||
|
||
v_errorhint := 'Ongeldig loginnaam';
|
||
v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_email, 1, INSTR (v_prs_perslid_email, '@', 1, 1) - 1);
|
||
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
|
||
|
||
IF LENGTH (v_prs_perslid_oslogin) > 30
|
||
THEN
|
||
v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Loginnaam te lang',
|
||
'Loginnaam wordt afgebroken tot ['
|
||
|| v_prs_perslid_oslogin
|
||
|| ']'
|
||
);
|
||
ELSE
|
||
IF (v_prs_perslid_oslogin IS NULL)
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
v_aanduiding || 'Usernaam/login onbekend',
|
||
'Usernaam/login is verplicht; regel wordt overgeslagen!'
|
||
);
|
||
END IF;
|
||
END IF;
|
||
COMMIT;
|
||
|
||
--
|
||
v_errorhint := 'Ongeldig e-mailadres';
|
||
v_prs_perslid_email := TRIM (v_prs_perslid_email);
|
||
|
||
IF LENGTH (v_prs_perslid_email) > 200
|
||
THEN
|
||
v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 200);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'E-mailadres te lang',
|
||
'E-mailadres wordt afgebroken tot ['
|
||
|| v_prs_perslid_email
|
||
|| ']'
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
|
||
v_errorhint := 'Ongeldig personeelsnummer';
|
||
v_prs_perslid_nr := TRIM (v_prs_perslid_nr);
|
||
|
||
IF LENGTH (v_prs_perslid_nr) > 16
|
||
THEN
|
||
v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Personeelsnummer te lang',
|
||
'Personeelsnummer wordt afgebroken tot ['
|
||
|| v_prs_perslid_nr
|
||
|| ']'
|
||
);
|
||
END IF;
|
||
COMMIT;
|
||
|
||
|
||
--
|
||
v_errorhint := 'Ongeldig tussenvoegsel';
|
||
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
|
||
|
||
IF LENGTH (v_prs_perslid_tussenvoegsel) > 15
|
||
THEN
|
||
v_prs_perslid_tussenvoegsel :=
|
||
SUBSTR (v_prs_perslid_tussenvoegsel, 1, 15);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Tussenvoegsel te lang',
|
||
'Tussenvoegsel wordt afgebroken tot ['
|
||
|| v_prs_perslid_tussenvoegsel
|
||
|| ']'
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
|
||
--
|
||
v_errorhint := 'Ongeldige voorletters';
|
||
-- Deze regel zou desnoodd kunnen indien ALLI de achternaam, voorletters en tussenvoegsel zelf niet kan splitsen:
|
||
|
||
v_prs_perslid_voorletters := TRIM (v_prs_perslid_voorletters);
|
||
|
||
IF LENGTH (v_prs_perslid_voorletters) > 10
|
||
THEN
|
||
v_prs_perslid_voorletters :=
|
||
SUBSTR (v_prs_perslid_voorletters, 1, 10);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Voorletters te lang',
|
||
'Voorletters worden afgebroken tot ['
|
||
|| v_prs_perslid_voorletters
|
||
|| ']'
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
|
||
--
|
||
v_errorhint := 'Ongeldige voornaam';
|
||
v_prs_perslid_voornaam := TRIM (v_prs_perslid_voornaam);
|
||
|
||
IF LENGTH (v_prs_perslid_voornaam) > 30
|
||
THEN
|
||
v_prs_perslid_voornaam :=
|
||
SUBSTR (v_prs_perslid_voornaam, 1, 30);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Voornaam is te lang',
|
||
'Voornaam wordt afgebroken tot ['
|
||
|| v_prs_perslid_voornaam
|
||
|| ']'
|
||
);
|
||
END IF;
|
||
COMMIT;
|
||
|
||
|
||
|
||
|
||
|
||
v_errorhint := 'Ongeldige afdelingcode';
|
||
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
|
||
|
||
IF LENGTH (v_prs_afdeling_code) > 10
|
||
THEN
|
||
v_prs_afdeling_code := SUBSTR (v_prs_afdeling_code, 1, 60);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Afdelingscode te lang',
|
||
'Afdelingscode wordt afgebroken tot ['
|
||
|| v_prs_afdeling_code
|
||
|| ']'
|
||
);
|
||
ELSE
|
||
IF (v_prs_afdeling_code IS NULL)
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
v_aanduiding || 'Afdelingscode onbekend',
|
||
'Afdelingscode is verplicht; regel wordt overgeslagen!'
|
||
);
|
||
END IF;
|
||
END IF;
|
||
COMMIT;
|
||
|
||
v_errorhint := 'Ongeldige afdelingnaam';
|
||
v_prs_afdeling_naam := TRIM (v_prs_afdeling_naam);
|
||
|
||
IF LENGTH (v_prs_afdeling_naam) > 60
|
||
THEN
|
||
v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 60);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Afdelingsnaam te lang',
|
||
'Afdelingsnaam wordt afgebroken tot ['
|
||
|| v_prs_afdeling_naam
|
||
|| ']'
|
||
);
|
||
ELSE
|
||
IF (v_prs_afdeling_naam IS NULL)
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
v_aanduiding || 'Afdelingsnaam onbekend',
|
||
'Afdelingsnaam is verplicht; regel wordt overgeslagen!'
|
||
);
|
||
END IF;
|
||
END IF;
|
||
COMMIT;
|
||
|
||
--
|
||
v_errorhint := 'Ongeldige functie';
|
||
v_prs_srtperslid_omschrijving := TRIM (v_prs_srtperslid_omschrijving);
|
||
|
||
IF LENGTH (v_prs_srtperslid_omschrijving) > 30
|
||
THEN
|
||
v_prs_srtperslid_omschrijving :=
|
||
SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Functie te lang',
|
||
'Functie wordt afgebroken tot ['
|
||
|| v_prs_srtperslid_omschrijving
|
||
|| ']'
|
||
);
|
||
ELSE
|
||
IF (v_prs_srtperslid_omschrijving IS NULL)
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
v_aanduiding || 'Functie onbekend',
|
||
'Functie is verplicht; regel wordt overgeslagen!'
|
||
);
|
||
END IF;
|
||
END IF;
|
||
COMMIT;
|
||
|
||
--
|
||
v_errorhint := 'Ongeldige plaats/locatiecode';
|
||
v_alg_locatie_code := TRIM(v_alg_locatie_code);
|
||
|
||
IF LENGTH (v_alg_locatie_code) > 5
|
||
THEN
|
||
v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Locatiecode te lang',
|
||
'Locatiecode wordt afgebroken tot ['
|
||
|| v_alg_locatie_code
|
||
|| ']'
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
|
||
--
|
||
v_errorhint := 'Ongeldige plaats/gebouwcode';
|
||
v_alg_gebouw_code := TRIM(v_alg_gebouw_code);
|
||
|
||
IF LENGTH (v_alg_gebouw_code) > 10
|
||
THEN
|
||
v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Gebouwcode te lang',
|
||
'Gebouwcode wordt afgebroken tot ['
|
||
|| v_alg_gebouw_code
|
||
|| ']'
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
|
||
--
|
||
v_errorhint := 'Ongeldig telefoonnummer';
|
||
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
|
||
|
||
IF LENGTH (v_prs_perslid_telefoonnr) > 15
|
||
THEN
|
||
v_prs_perslid_telefoonnr :=
|
||
SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Telefoonnummer te lang',
|
||
'Telefoonnummer wordt afgebroken tot ['
|
||
|| v_prs_perslid_telefoonnr
|
||
|| ']'
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
|
||
|
||
|
||
|
||
|
||
-- Insert geformatteerde import record
|
||
IF v_ongeldig = 0
|
||
THEN
|
||
BEGIN
|
||
v_errorhint :=
|
||
'Fout bij toevoegen regel aan importtabel alli_IMP_PRS';
|
||
|
||
INSERT INTO alli_imp_prs
|
||
(prs_perslid_nr, prs_perslid_naam,
|
||
prs_perslid_tussenvoegsel,
|
||
prs_perslid_voorletters,
|
||
prs_perslid_voornaam,
|
||
prs_afdeling_code, prs_afdeling_naam,
|
||
prs_srtperslid_omschrijving,
|
||
alg_locatie_code, alg_gebouw_code,
|
||
alg_verdieping_volgnr, alg_ruimte_nr,
|
||
prs_perslid_telefoonnr,
|
||
prs_perslid_email,
|
||
prs_perslid_oslogin
|
||
)
|
||
VALUES (v_prs_perslid_nr, v_prs_perslid_naam,
|
||
v_prs_perslid_tussenvoegsel,
|
||
v_prs_perslid_voorletters,
|
||
v_prs_perslid_voornaam,
|
||
v_prs_afdeling_code, v_prs_afdeling_naam,
|
||
v_prs_srtperslid_omschrijving,
|
||
v_alg_locatie_code, v_alg_gebouw_code,
|
||
NULL, NULL,
|
||
v_prs_perslid_telefoonnr,
|
||
v_prs_perslid_email,
|
||
v_prs_perslid_oslogin
|
||
);
|
||
COMMIT;
|
||
v_count_import := v_count_import + 1;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||
v_errormsg :=
|
||
v_errorhint
|
||
|| ' ORACLE (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
'Ingelezen regel kan niet worden weggeschreven!'
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END IF;
|
||
END IF;
|
||
END;
|
||
END LOOP;
|
||
|
||
IF (header_is_valid = 0)
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
'Ongeldig importbestand',
|
||
'Geen header of header niet volgens specificatie!'
|
||
);
|
||
ELSE
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Persoon: aantal ingelezen regels: '
|
||
|| TO_CHAR (v_count_tot),
|
||
''
|
||
);
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Persoon: aantal ongeldige importregels: '
|
||
|| TO_CHAR (v_count_tot - v_count_import),
|
||
''
|
||
);
|
||
END IF;
|
||
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
|
||
);
|
||
COMMIT;
|
||
END alli_import_prs;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE alli_update_prs (
|
||
p_import_key IN NUMBER
|
||
)
|
||
IS
|
||
-- LET OP: moet idem zijn als declaratie bij ALLI_IMPORT_PRS
|
||
c_persoon_inactief VARCHAR2 (30) := 'INACTIEF: ';
|
||
-- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
|
||
c_max_delta_percentage NUMBER (10) := 20;
|
||
-- Ruimte waar personen in geplaatst worden (indien nog geen ruimte in opgegeven gebouw)
|
||
c_ruimte_nr VARCHAR2 (10) := '000';
|
||
-- Groep waar personen in geplaatst worden (indien nog geen groep)
|
||
|
||
c_key_default_rol NUMBER(10) := 1;
|
||
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_errorhint VARCHAR2 (1000);
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_count_prs_actual NUMBER (10);
|
||
v_count_prs_import NUMBER (10); -- Matching actual persons!
|
||
v_count_tot NUMBER (10);
|
||
v_count_error NUMBER (10);
|
||
v_count NUMBER (10);
|
||
--
|
||
v_perslid_key NUMBER (10);
|
||
v_afdeling_key NUMBER (10);
|
||
v_srtperslid_key NUMBER (10);
|
||
v_oslogin VARCHAR2 (30);
|
||
v_wachtwoord VARCHAR2 (30);
|
||
v_locatie_key NUMBER (10);
|
||
v_gebouw_key NUMBER (10);
|
||
v_verdieping_key NUMBER (10);
|
||
v_ruimte_key NUMBER (10);
|
||
v_wp_key NUMBER (10);
|
||
v_wp_volgnr NUMBER (3);
|
||
v_wp_oms VARCHAR2 (30);
|
||
v_groep_defaultnaam VARCHAR2 (30);
|
||
|
||
-- Let op! Met eindatum zijn personen die niet meer in dienst zijn.
|
||
-- Dubbele nummers? Dan wordt iemand mogelijk niet verwijderd/INACTIEF!
|
||
CURSOR cdelprs
|
||
IS
|
||
SELECT p.prs_perslid_key, p.prs_perslid_nr, p.prs_perslid_naam,
|
||
p.prs_perslid_voornaam
|
||
FROM prs_v_aanwezigperslid p
|
||
WHERE p.prs_perslid_nr IS NOT NULL
|
||
AND NOT EXISTS (
|
||
SELECT 1
|
||
FROM alli_imp_prs ip
|
||
WHERE ip.prs_perslid_nr = p.prs_perslid_nr);
|
||
|
||
|
||
CURSOR csperslid
|
||
IS
|
||
SELECT UPPER(prs_srtperslid_omschrijving) prs_srtperslid_omschrijving
|
||
FROM alli_imp_prs
|
||
GROUP BY UPPER (prs_srtperslid_omschrijving);
|
||
|
||
|
||
CURSOR cprsafd
|
||
IS
|
||
SELECT UPPER(prs_afdeling_code) prs_afdeling_code, MIN(prs_afdeling_naam) prs_afdeling_naam
|
||
FROM alli_imp_prs
|
||
GROUP BY UPPER (prs_afdeling_code);
|
||
|
||
|
||
CURSOR cperslid
|
||
IS
|
||
SELECT *
|
||
FROM alli_imp_prs;
|
||
|
||
CURSOR cwp
|
||
IS
|
||
SELECT p.*, ip.alg_locatie_code, ip.alg_gebouw_code
|
||
FROM alli_imp_prs ip, prs_v_aanwezigperslid p
|
||
WHERE ip.alg_locatie_code IS NOT NULL
|
||
AND ip.alg_gebouw_code IS NOT NULL
|
||
AND UPPER (ip.prs_perslid_nr) = UPPER (p.prs_perslid_nr);
|
||
|
||
-- Alle actieve personen met personeelsnummer (ie. de import-doelgroep) zonder een werkplek
|
||
CURSOR cnowp
|
||
IS
|
||
SELECT p.prs_perslid_key, p.prs_perslid_nr, p.prs_perslid_naam,
|
||
p.prs_perslid_voornaam
|
||
FROM prs_v_aanwezigperslid p
|
||
WHERE p.prs_perslid_nr IS NOT NULL
|
||
AND p.prs_perslid_naam NOT LIKE c_persoon_inactief || '%'
|
||
AND NOT EXISTS (SELECT 1
|
||
FROM prs_v_aanwezigperslidwerkplek pw
|
||
WHERE pw.prs_perslid_key = p.prs_perslid_key);
|
||
|
||
-- Alle aanwezige personen met personeelsnummer (ie. de import-doelgroep) niet in een groep
|
||
CURSOR cnogroup
|
||
IS
|
||
SELECT p.prs_perslid_key, p.prs_perslid_nr, p.prs_perslid_naam,
|
||
p.prs_perslid_voornaam
|
||
FROM prs_v_aanwezigperslid p
|
||
WHERE p.prs_perslid_nr IS NOT NULL
|
||
AND NOT EXISTS (SELECT 1
|
||
FROM fac_gebruikersgroep g
|
||
WHERE g.prs_perslid_key = p.prs_perslid_key);
|
||
|
||
|
||
BEGIN
|
||
SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
|
||
INTO v_count_prs_actual
|
||
FROM prs_perslid
|
||
WHERE prs_perslid_verwijder IS NULL AND prs_perslid_nr IS NOT NULL;
|
||
|
||
SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
|
||
INTO v_count_prs_import
|
||
FROM prs_perslid p, alli_imp_prs ip
|
||
WHERE p.prs_perslid_nr IS NOT NULL
|
||
AND p.prs_perslid_verwijder IS NULL
|
||
AND p.prs_perslid_nr = ip.prs_perslid_nr;
|
||
|
||
IF ( (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
|
||
(100 - c_max_delta_percentage
|
||
)
|
||
)
|
||
)
|
||
THEN
|
||
-- Geldig importbestand wat betreft aantal personen
|
||
FOR recdelprs IN cdelprs
|
||
LOOP
|
||
BEGIN
|
||
-- Heeft persoon actuele/toekomstige verplichtingen?
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM prs_perslid p, prs_v_verplichting_keys r
|
||
WHERE p.prs_perslid_key = r.prs_perslid_key
|
||
AND p.prs_perslid_key = recdelprs.prs_perslid_key;
|
||
|
||
IF (v_count = 0)
|
||
THEN
|
||
v_errorhint := 'Fout bij verwijderen persoon';
|
||
|
||
UPDATE prs_perslid
|
||
SET prs_perslid_verwijder = SYSDATE
|
||
WHERE prs_perslid_key = recdelprs.prs_perslid_key;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'I',
|
||
'Persoon met nummer ['
|
||
|| recdelprs.prs_perslid_nr
|
||
|| '] en naam ['
|
||
|| recdelprs.prs_perslid_naam
|
||
|| ', '
|
||
|| recdelprs.prs_perslid_voornaam
|
||
|| '] is verwijderd',
|
||
'Persoon is verwijderd'
|
||
);
|
||
COMMIT;
|
||
ELSE
|
||
-- Staat persoon INACTIEF?
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM prs_perslid p
|
||
WHERE p.prs_perslid_naam LIKE c_persoon_inactief || '%'
|
||
AND p.prs_perslid_key = recdelprs.prs_perslid_key;
|
||
|
||
IF (v_count = 0)
|
||
THEN
|
||
v_errorhint := 'Fout bij INACTIEF zetten persoon';
|
||
|
||
-- Persoon INACTIEF zetten (update naam + reset oslogin)
|
||
UPDATE prs_perslid
|
||
SET prs_perslid_naam =
|
||
SUBSTR (c_persoon_inactief || prs_perslid_naam,
|
||
1,
|
||
30
|
||
),
|
||
prs_perslid_oslogin = NULL
|
||
WHERE prs_perslid_key = recdelprs.prs_perslid_key;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'I',
|
||
'Persoon met nummer ['
|
||
|| recdelprs.prs_perslid_nr
|
||
|| '] en naam ['
|
||
|| recdelprs.prs_perslid_naam
|
||
|| ', '
|
||
|| recdelprs.prs_perslid_voornaam
|
||
|| '] is INACTIEF gezet',
|
||
'Persoon is INACTIEF gezet'
|
||
);
|
||
ELSE
|
||
v_errorhint := 'Fout bij INACTIEF maken persoon';
|
||
|
||
-- Persoon INACTIEF maken (reset oslogin; indien handmatig INACTIEF gezet)
|
||
UPDATE prs_perslid
|
||
SET prs_perslid_oslogin = NULL
|
||
WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
|
||
AND prs_perslid_oslogin IS NOT NULL;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'I',
|
||
'Persoon met nummer ['
|
||
|| recdelprs.prs_perslid_nr
|
||
|| '] en naam ['
|
||
|| recdelprs.prs_perslid_naam
|
||
|| ', '
|
||
|| recdelprs.prs_perslid_voornaam
|
||
|| '] is INACTIEF gemaakt',
|
||
'Persoon is INACTIEF gemaakt'
|
||
);
|
||
END IF;
|
||
COMMIT;
|
||
END IF;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
v_count_tot := 0;
|
||
v_count_error := 0;
|
||
|
||
FOR recsperslid IN csperslid
|
||
LOOP
|
||
BEGIN
|
||
v_count_tot := v_count_tot + 1;
|
||
v_aanduiding := recsperslid.prs_srtperslid_omschrijving || ' - ';
|
||
v_errorhint := 'Fout bij bepalen functie';
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM prs_srtperslid
|
||
WHERE UPPER (prs_srtperslid_omschrijving) =
|
||
UPPER (recsperslid.prs_srtperslid_omschrijving)
|
||
AND prs_srtperslid_verwijder IS NULL;
|
||
|
||
IF (v_count = 0)
|
||
THEN
|
||
v_errorhint := 'Fout bij toevoegen functie';
|
||
|
||
INSERT INTO prs_srtperslid
|
||
(prs_srtperslid_omschrijving
|
||
)
|
||
VALUES (recsperslid.prs_srtperslid_omschrijving
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
v_count_error := v_count_error + 1;
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Functie: verwerkte regels zonder foutmelding: '
|
||
|| TO_CHAR (v_count_tot - v_count_error),
|
||
''
|
||
);
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Functie: verwerkte regels met foutmelding: '
|
||
|| TO_CHAR (v_count_error),
|
||
''
|
||
);
|
||
COMMIT;
|
||
|
||
|
||
v_count_tot := 0;
|
||
v_count_error := 0;
|
||
|
||
FOR recafdeling IN cprsafd
|
||
LOOP
|
||
BEGIN
|
||
v_count_tot := v_count_tot + 1;
|
||
v_aanduiding := recafdeling.prs_afdeling_code || ' - ' || recafdeling.prs_afdeling_naam;
|
||
v_errorhint := 'Fout bij bepalen afdeling';
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM prs_afdeling
|
||
WHERE UPPER (prs_afdeling_naam) = UPPER (recafdeling.prs_afdeling_code)
|
||
AND prs_bedrijf_key = 5
|
||
AND prs_afdeling_verwijder IS NULL;
|
||
|
||
IF (v_count = 0)
|
||
THEN
|
||
v_errorhint := 'Fout bij toevoegen afdeling';
|
||
|
||
INSERT INTO prs_afdeling
|
||
(prs_bedrijf_key, prs_afdeling_naam, prs_afdeling_omschrijving)
|
||
VALUES (5, recafdeling.prs_afdeling_code, recafdeling.prs_afdeling_naam);
|
||
COMMIT;
|
||
ELSE
|
||
v_errorhint := 'Fout bij bijwerken afdeling';
|
||
|
||
UPDATE prs_afdeling
|
||
SET prs_afdeling_omschrijving = recafdeling.prs_afdeling_naam
|
||
WHERE prs_afdeling_naam = recafdeling.prs_afdeling_code
|
||
AND prs_bedrijf_key = 5
|
||
AND prs_afdeling_verwijder IS NULL;
|
||
|
||
COMMIT;
|
||
|
||
END IF;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
v_count_error := v_count_error + 1;
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Afdeling: verwerkte regels zonder foutmelding: '
|
||
|| TO_CHAR (v_count_tot - v_count_error),
|
||
''
|
||
);
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Afdeling: verwerkte regels met foutmelding: '
|
||
|| TO_CHAR (v_count_error),
|
||
''
|
||
);
|
||
COMMIT;
|
||
v_count_tot := 0;
|
||
v_count_error := 0;
|
||
|
||
FOR recperslid IN cperslid
|
||
LOOP
|
||
BEGIN
|
||
v_count_tot := v_count_tot + 1;
|
||
v_aanduiding :=
|
||
recperslid.prs_perslid_nr
|
||
|| '|'
|
||
|| recperslid.prs_perslid_naam
|
||
|| '|'
|
||
|| recperslid.prs_perslid_voornaam
|
||
|| ' - ';
|
||
v_errorhint :=
|
||
'Fout bij bepalen functie ['
|
||
|| recperslid.prs_srtperslid_omschrijving
|
||
|| ']';
|
||
|
||
SELECT prs_srtperslid_key
|
||
INTO v_srtperslid_key
|
||
FROM prs_srtperslid
|
||
WHERE prs_srtperslid_verwijder IS NULL
|
||
AND UPPER (prs_srtperslid_omschrijving) =
|
||
UPPER (recperslid.prs_srtperslid_omschrijving);
|
||
|
||
v_errorhint :=
|
||
'Fout bij bepalen afdeling ['
|
||
|| recperslid.prs_afdeling_naam
|
||
|| ']';
|
||
|
||
SELECT prs_afdeling_key
|
||
INTO v_afdeling_key
|
||
FROM prs_afdeling
|
||
WHERE prs_afdeling_verwijder IS NULL
|
||
AND UPPER (prs_afdeling_naam) = UPPER (recperslid.prs_afdeling_code)
|
||
AND prs_bedrijf_key = 5;
|
||
|
||
v_errorhint := 'Fout bij bepalen persoon';
|
||
|
||
SELECT COUNT (*), MAX (prs_perslid_key)
|
||
INTO v_count, v_perslid_key
|
||
FROM prs_perslid
|
||
WHERE prs_perslid_verwijder IS NULL
|
||
AND UPPER (prs_perslid_nr) = UPPER (recperslid.prs_perslid_nr);
|
||
|
||
|
||
IF (v_count = 0)
|
||
THEN
|
||
v_errorhint := 'Fout bij toevoegen persoon';
|
||
-- Nieuwe persoon uit importbestand, wordt toegevoegd in Facilitor.
|
||
INSERT INTO prs_perslid
|
||
(prs_perslid_module, prs_srtperslid_key,
|
||
prs_afdeling_key, prs_perslid_naam,
|
||
prs_perslid_voorletters,
|
||
prs_perslid_tussenvoegsel,
|
||
prs_perslid_voornaam,
|
||
prs_perslid_telefoonnr,
|
||
prs_perslid_email,
|
||
prs_perslid_nr,
|
||
prs_perslid_oslogin
|
||
)
|
||
VALUES ('PRS', v_srtperslid_key,
|
||
v_afdeling_key, recperslid.prs_perslid_naam,
|
||
recperslid.prs_perslid_voorletters,
|
||
recperslid.prs_perslid_tussenvoegsel,
|
||
recperslid.prs_perslid_voornaam,
|
||
recperslid.prs_perslid_telefoonnr,
|
||
recperslid.prs_perslid_email,
|
||
recperslid.prs_perslid_nr,
|
||
recperslid.prs_perslid_oslogin
|
||
);
|
||
COMMIT;
|
||
ELSE
|
||
|
||
v_errorhint := 'Fout bij wijzigen persoon';
|
||
|
||
-- Functie, Afdeling, Naam, Voorletters, Tuusenvoegsels, Voornaam en Personeelsnummer altijd bijwerken
|
||
-- Telefoonnr: alleen bijwerken indien uit AD-dump gevuld, anders niet bijwerken (dus gewoon laten staan zoals in Facilitor was gereigistreerd).
|
||
-- E-mail: alleen bijwerken indien uit AD-dump gevuld, anders niet bijwerken (dus gewoon laten staan zoals in Facilitor was gereigistreerd).
|
||
-- Personeelsnr: alleen bijwerken indien uit AD-dump gevuld, anders niet bijwerken (dus gewoon laten staan zoals in Facilitor was gereigistreerd).
|
||
-- Login: alleen bijwerken indien uit AD-dump gevuld, anders niet bijwerken (dus gewoon laten staan zoals in Facilitor was gereigistreerd).
|
||
|
||
UPDATE prs_perslid
|
||
SET prs_srtperslid_key = v_srtperslid_key,
|
||
prs_afdeling_key = v_afdeling_key,
|
||
prs_perslid_naam = recperslid.prs_perslid_naam,
|
||
prs_perslid_voorletters = recperslid.prs_perslid_voorletters,
|
||
prs_perslid_tussenvoegsel = recperslid.prs_perslid_tussenvoegsel,
|
||
prs_perslid_voornaam = recperslid.prs_perslid_voornaam,
|
||
prs_perslid_telefoonnr = COALESCE (recperslid.prs_perslid_telefoonnr, prs_perslid_telefoonnr),
|
||
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
|
||
prs_perslid_nr = COALESCE (recperslid.prs_perslid_nr, prs_perslid_nr),
|
||
prs_perslid_oslogin = COALESCE (recperslid.prs_perslid_oslogin, prs_perslid_oslogin)
|
||
WHERE prs_perslid_key = v_perslid_key;
|
||
COMMIT;
|
||
END IF;
|
||
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
v_count_error := v_count_error + 1;
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Persoon: verwerkte regels zonder foutmelding: '
|
||
|| TO_CHAR (v_count_tot - v_count_error),
|
||
''
|
||
);
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Persoon: verwerkte regels met foutmelding: '
|
||
|| TO_CHAR (v_count_error),
|
||
''
|
||
);
|
||
COMMIT;
|
||
|
||
v_count_tot := 0;
|
||
v_count_error := 0;
|
||
|
||
FOR recwp IN cwp
|
||
LOOP
|
||
BEGIN
|
||
v_count_tot := v_count_tot + 1;
|
||
v_aanduiding :=
|
||
recwp.prs_perslid_nr
|
||
|| '|'
|
||
|| recwp.prs_perslid_naam
|
||
|| '|'
|
||
|| recwp.prs_perslid_voornaam
|
||
|| '|'
|
||
|| recwp.alg_locatie_code
|
||
|| '|'
|
||
|| recwp.alg_gebouw_code
|
||
|| ' - ';
|
||
v_errorhint := 'Fout bij bepalen persoon';
|
||
|
||
SELECT prs_perslid_key
|
||
INTO v_perslid_key
|
||
FROM prs_v_aanwezigperslid
|
||
WHERE UPPER (prs_perslid_nr) = UPPER (recwp.prs_perslid_nr);
|
||
|
||
v_errorhint := 'Fout bij bepalen locatie';
|
||
|
||
SELECT alg_locatie_key
|
||
INTO v_locatie_key
|
||
FROM alg_v_aanweziglocatie
|
||
WHERE UPPER (alg_locatie_code) = UPPER (recwp.alg_locatie_code);
|
||
|
||
v_errorhint := 'Fout bij bepalen gebouw';
|
||
|
||
SELECT alg_gebouw_key
|
||
INTO v_gebouw_key
|
||
FROM alg_v_aanweziggebouw
|
||
WHERE alg_locatie_key = v_locatie_key
|
||
AND UPPER (alg_gebouw_code) = UPPER (recwp.alg_gebouw_code);
|
||
|
||
v_errorhint := 'Fout bij bepalen verdieping';
|
||
|
||
SELECT alg_verdieping_key
|
||
INTO v_verdieping_key
|
||
FROM alg_v_aanwezigverdieping
|
||
WHERE alg_gebouw_key = v_gebouw_key
|
||
AND alg_verdieping_volgnr = (SELECT MIN (v.alg_verdieping_volgnr)
|
||
FROM alg_verdieping v
|
||
WHERE v.alg_gebouw_key = v_gebouw_key
|
||
AND v.alg_verdieping_volgnr >= 0);
|
||
|
||
v_errorhint :=
|
||
'Fout bij bepalen of persoon in gebouw een werkplek heeft';
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM prs_v_aanwezigperslidwerkplek pw,
|
||
prs_werkplek wp,
|
||
alg_ruimte r,
|
||
alg_verdieping v
|
||
WHERE pw.prs_perslid_key = v_perslid_key
|
||
AND pw.prs_werkplek_key = wp.prs_werkplek_key
|
||
AND wp.prs_alg_ruimte_key = r.alg_ruimte_key
|
||
AND r.alg_verdieping_key = v.alg_verdieping_key
|
||
AND v.alg_gebouw_key = v_gebouw_key;
|
||
|
||
-- v_count=0 -> persoon verhuist naar/krijgt wp in gebouw.
|
||
IF (v_count = 0)
|
||
THEN
|
||
v_errorhint := 'Fout bij bepalen ruimte';
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM alg_v_aanwezigruimte r
|
||
WHERE r.alg_verdieping_key = v_verdieping_key
|
||
AND r.alg_ruimte_nr = c_ruimte_nr;
|
||
|
||
-- v_count=0 -> ruimte '000' bestaat nog niet.
|
||
IF (v_count = 0)
|
||
THEN
|
||
v_errorhint := 'Fout bij toevoegen ruimte';
|
||
|
||
INSERT INTO alg_ruimte
|
||
(alg_verdieping_key, alg_srtruimte_key,
|
||
alg_ruimte_nr
|
||
)
|
||
VALUES (v_verdieping_key, 21, -- facilitaire ruimte
|
||
c_ruimte_nr
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
|
||
v_errorhint := 'Fout bij bepalen ruimte';
|
||
|
||
SELECT alg_ruimte_key
|
||
INTO v_ruimte_key
|
||
FROM alg_v_aanwezigruimte r
|
||
WHERE r.alg_verdieping_key = v_verdieping_key
|
||
AND r.alg_ruimte_nr = c_ruimte_nr;
|
||
|
||
v_errorhint := 'Fout bij bepalen vrije werkplek';
|
||
|
||
SELECT COUNT (w.prs_werkplek_key)
|
||
INTO v_count
|
||
FROM prs_werkplek w
|
||
WHERE w.prs_alg_ruimte_key = v_ruimte_key
|
||
AND NOT EXISTS (
|
||
SELECT 1
|
||
FROM prs_v_aanwezigperslidwerkplek pw
|
||
WHERE pw.prs_werkplek_key =
|
||
w.prs_werkplek_key);
|
||
|
||
IF (v_count > 0)
|
||
THEN
|
||
SELECT MIN (w.prs_werkplek_key)
|
||
INTO v_wp_key
|
||
FROM prs_werkplek w
|
||
WHERE w.prs_alg_ruimte_key = v_ruimte_key
|
||
AND NOT EXISTS (
|
||
SELECT 1
|
||
FROM prs_v_aanwezigperslidwerkplek pw
|
||
WHERE pw.prs_werkplek_key =
|
||
w.prs_werkplek_key);
|
||
|
||
-- Verwijder (keihard) de mogelijk eerder logisch verwijderde
|
||
-- koppeling tussen dezelfde persoon en werkplek!!!
|
||
DELETE FROM prs_perslidwerkplek pw
|
||
WHERE pw.prs_perslid_key = v_perslid_key
|
||
AND pw.prs_werkplek_key = v_wp_key
|
||
AND pw.prs_perslidwerkplek_verwijder IS NOT NULL;
|
||
|
||
v_errorhint :=
|
||
'Fout bij koppelen persoon aan vrije werkplek';
|
||
|
||
INSERT INTO prs_perslidwerkplek
|
||
(prs_perslid_key, prs_werkplek_key,
|
||
prs_perslidwerkplek_bezetting
|
||
)
|
||
VALUES (v_perslid_key, v_wp_key,
|
||
100
|
||
);
|
||
COMMIT;
|
||
ELSE
|
||
v_errorhint := 'Fout bij bepalen nieuwe werkplek';
|
||
|
||
SELECT prs_s_prs_werkplek_key.NEXTVAL
|
||
INTO v_wp_key
|
||
FROM DUAL;
|
||
|
||
SELECT COALESCE (MAX (w.prs_werkplek_volgnr), 0) + 1
|
||
INTO v_wp_volgnr
|
||
FROM prs_werkplek w
|
||
WHERE w.prs_alg_ruimte_key = v_ruimte_key;
|
||
|
||
v_wp_oms := c_ruimte_nr || '/' || TO_CHAR (v_wp_volgnr);
|
||
|
||
v_errorhint := 'Fout bij aanmaken nieuwe werkplek';
|
||
|
||
INSERT INTO prs_werkplek
|
||
(prs_werkplek_key, prs_werkplek_module,
|
||
prs_werkplek_volgnr,
|
||
prs_werkplek_omschrijving, prs_alg_ruimte_key
|
||
)
|
||
VALUES (v_wp_key, 'PRR',
|
||
v_wp_volgnr,
|
||
v_wp_oms, v_ruimte_key
|
||
);
|
||
|
||
v_errorhint :=
|
||
'Fout bij koppelen persoon aan nieuwe werkplek';
|
||
|
||
INSERT INTO prs_perslidwerkplek
|
||
(prs_perslid_key, prs_werkplek_key,
|
||
prs_perslidwerkplek_bezetting
|
||
)
|
||
VALUES (v_perslid_key, v_wp_key,
|
||
100
|
||
);
|
||
COMMIT;
|
||
END IF;
|
||
END IF;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
v_count_error := v_count_error + 1;
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Werkplek: verwerkte regels zonder foutmelding: '
|
||
|| TO_CHAR (v_count_tot - v_count_error),
|
||
''
|
||
);
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Werkplek: verwerkte regels met foutmelding: '
|
||
|| TO_CHAR (v_count_error),
|
||
''
|
||
);
|
||
COMMIT;
|
||
|
||
FOR recnowp IN cnowp
|
||
LOOP
|
||
BEGIN
|
||
fac.imp_writelog (p_import_key,
|
||
'I',
|
||
'Persoon met nummer ['
|
||
|| recnowp.prs_perslid_nr
|
||
|| '] en naam ['
|
||
|| recnowp.prs_perslid_naam
|
||
|| ', '
|
||
|| recnowp.prs_perslid_voornaam
|
||
|| '] heeft geen werkplek',
|
||
'Geen werkplek'
|
||
);
|
||
COMMIT;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
-- Iedereen krijgt _default-rol die nog geen groep heeft.
|
||
FOR recnogroup IN cnogroup
|
||
LOOP
|
||
BEGIN
|
||
v_aanduiding :=
|
||
recnogroup.prs_perslid_nr
|
||
|| '|'
|
||
|| recnogroup.prs_perslid_naam
|
||
|| '|'
|
||
|| recnogroup.prs_perslid_voornaam
|
||
|| ' - ';
|
||
v_errorhint := 'Fout bij bepalen groep met key [' || c_key_default_rol || ']';
|
||
|
||
SELECT fac_groep_upper
|
||
INTO v_groep_defaultnaam
|
||
FROM fac_groep
|
||
WHERE fac_groep_key = c_key_default_rol;
|
||
|
||
|
||
v_errorhint :=
|
||
'Fout bij koppelen persoon aan groep met key [' || c_key_default_rol || ']';
|
||
|
||
INSERT INTO fac_gebruikersgroep
|
||
(fac_groep_key, prs_perslid_key
|
||
)
|
||
VALUES (c_key_default_rol, recnogroup.prs_perslid_key
|
||
);
|
||
COMMIT;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
|
||
ELSE
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
|
||
'- max. verschilpercentage = ['
|
||
|| TO_CHAR (c_max_delta_percentage)
|
||
|| '%] <br> '
|
||
|| '- #personen importbestand = ['
|
||
|| TO_CHAR (v_count_prs_import)
|
||
|| '] <br> '
|
||
|| '- #personen Facilitor = ['
|
||
|| TO_CHAR (v_count_prs_actual)
|
||
|| ']'
|
||
);
|
||
COMMIT;
|
||
END IF; -- Geldig importbestand wat betreft aantal inserts
|
||
COMMIT;
|
||
END alli_update_prs;
|
||
/
|
||
|
||
|
||
|
||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
|
||
-- Koppeling CYOD serienummers registratie met Misco.
|
||
|
||
CREATE OR REPLACE VIEW ALLI_V_INS_KENMERKDOMEIN_BES (BES_BESTELLING_KEY, BES_BESTELLING_NR)
|
||
AS
|
||
SELECT BES_BESTELLING_KEY, to_char(BES_BESTELLING_KEY)
|
||
FROM BES_BESTELLING;
|
||
|
||
|
||
--select *
|
||
--from bes_bestelopdr_item bo, bes_bestelling_item bi, bes_srtdeel sd
|
||
--where bes_bestelopdr_key = (select bes_bestelopdr_key from bes_bestelopdr where bes_bestelopdr_id = '361/1')
|
||
--and BI.BES_BESTELOPDR_ITEM_KEY = BO.BES_BESTELOPDR_ITEM_KEY
|
||
--and bi.bes_srtdeel_key = sd.bes_srtdeel_key;
|
||
|
||
|
||
CREATE OR REPLACE PROCEDURE alli_import_cyod_serienummers (
|
||
p_import_key IN NUMBER
|
||
)
|
||
IS
|
||
c_fielddelimitor VARCHAR2 (1) := ';';
|
||
v_newline VARCHAR2 (1000); -- Input line
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_errorhint VARCHAR2 (1000);
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
header_is_valid NUMBER := 0;
|
||
v_ongeldig NUMBER (1);
|
||
v_count_tot NUMBER (10);
|
||
v_count_import NUMBER (10);
|
||
v_count NUMBER;
|
||
-- De importvelden:
|
||
|
||
v_bes_bestelopdr_id VARCHAR2 (256);
|
||
v_bes_srtdeel_nr VARCHAR2 (256);
|
||
v_serienummer VARCHAR2 (256);
|
||
v_soort VARCHAR2 (256);
|
||
v_datum VARCHAR2 (256);
|
||
|
||
|
||
|
||
CURSOR c1
|
||
IS
|
||
SELECT *
|
||
FROM fac_imp_file
|
||
WHERE fac_import_key = p_import_key
|
||
ORDER BY fac_imp_file_index;
|
||
BEGIN
|
||
DELETE FROM alli_imp_cyod_serienummers;
|
||
|
||
COMMIT;
|
||
|
||
v_count_tot := 0;
|
||
v_count_import := 0;
|
||
|
||
FOR rec1 IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_newline := rec1.fac_imp_file_line;
|
||
v_aanduiding := '';
|
||
v_errorhint := 'Fout bij opvragen te importeren rij';
|
||
v_ongeldig := 0;
|
||
-- Lees alle veldwaarden
|
||
|
||
|
||
-- v_bes_bestelopdr_id VARCHAR2 (256);
|
||
-- v_bes_srtdeel_nr VARCHAR2 (256);
|
||
-- v_serienummer VARCHAR2 (256);
|
||
-- v_datum VARCHAR2 (256);
|
||
|
||
-- 01 - Bestelopdrachtnummer
|
||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_bes_bestelopdr_id);
|
||
|
||
-- 02 - Artikelnummer
|
||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_bes_srtdeel_nr);
|
||
|
||
-- 03 - Serienummer of IMEI nummer.
|
||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 3, v_serienummer);
|
||
|
||
-- 04 - Soort object: Notebook (N) of Telefoon (T)
|
||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_soort);
|
||
|
||
-- 05 - Verzenddatum cq. Aanschafdatum
|
||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 5, v_datum);
|
||
|
||
|
||
--
|
||
v_aanduiding :=
|
||
'['
|
||
|| v_bes_bestelopdr_id
|
||
|| '|'
|
||
|| v_bes_srtdeel_nr
|
||
|| '|'
|
||
|| v_serienummer
|
||
|| '|'
|
||
|| v_soort
|
||
|| '] ';
|
||
|
||
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
|
||
-- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
|
||
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
|
||
IF (header_is_valid = 0)
|
||
THEN
|
||
IF UPPER (v_bes_bestelopdr_id) = 'BESTELOPDRACHTNR'
|
||
AND UPPER (v_bes_srtdeel_nr) = 'ARTIKELNR'
|
||
AND UPPER (v_serienummer) = 'SERIENR'
|
||
AND UPPER (v_soort) = 'TYPE'
|
||
AND UPPER (v_datum) = 'VERZENDDATUM'
|
||
THEN
|
||
header_is_valid := 1;
|
||
END IF;
|
||
ELSE
|
||
v_count_tot := v_count_tot + 1;
|
||
-- Controleer alle veldwaarden
|
||
|
||
--
|
||
v_errorhint := 'Ongeldig bestelopdrachtnr';
|
||
v_bes_bestelopdr_id := TRIM (v_bes_bestelopdr_id);
|
||
|
||
IF (v_bes_bestelopdr_id IS NOT NULL)
|
||
THEN
|
||
IF LENGTH (v_bes_bestelopdr_id) > 30
|
||
THEN
|
||
v_bes_bestelopdr_id := SUBSTR (v_bes_bestelopdr_id, 1, 30);
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || 'Bestelopdrachtnr te lang', 'Nummer wordt afgebroken tot [' || v_bes_bestelopdr_id || ']' );
|
||
END IF;
|
||
ELSE
|
||
v_ongeldig := 1;
|
||
END IF;
|
||
|
||
v_errorhint := 'Ongeldig artikelnr';
|
||
v_bes_srtdeel_nr := TRIM (v_bes_srtdeel_nr);
|
||
|
||
IF (v_bes_srtdeel_nr IS NOT NULL)
|
||
THEN
|
||
IF LENGTH (v_bes_srtdeel_nr) > 32
|
||
THEN
|
||
v_bes_srtdeel_nr := SUBSTR (v_bes_srtdeel_nr, 1, 32);
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || 'Artikelnummer te lang', 'Nummer wordt afgebroken tot [' || v_bes_srtdeel_nr || ']' );
|
||
END IF;
|
||
ELSE
|
||
v_ongeldig := 1;
|
||
END IF;
|
||
|
||
v_errorhint := 'Ongeldig serienummer';
|
||
v_serienummer := TRIM (v_serienummer);
|
||
IF (v_serienummer IS NOT NULL)
|
||
THEN
|
||
IF LENGTH (v_serienummer) > 50
|
||
THEN
|
||
v_serienummer := SUBSTR (v_serienummer, 1, 50);
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || 'Serienummer te lang', 'Nummer wordt afgebroken tot [' || v_serienummer || ']' );
|
||
END IF;
|
||
END IF;
|
||
|
||
v_errorhint := 'Ongeldig type/soort';
|
||
v_soort := TRIM (v_soort);
|
||
IF (v_soort IS NOT NULL)
|
||
THEN
|
||
IF LENGTH (v_soort) > 1
|
||
THEN
|
||
v_soort := SUBSTR (v_soort, 1, 1);
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || 'Type/soort te lang', 'Type/soort wordt afgebroken tot [' || v_soort || ']' );
|
||
END IF;
|
||
END IF;
|
||
|
||
|
||
v_errorhint := 'Ongeldige verzenddatum';
|
||
v_datum := TRIM (v_datum);
|
||
IF (v_datum IS NOT NULL)
|
||
THEN
|
||
IF LENGTH (v_datum) > 10
|
||
THEN
|
||
v_datum := SUBSTR (v_datum, 1, 10);
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || 'Verzenddatum te lang', 'Datum wordt afgebroken tot [' || v_datum || ']' );
|
||
END IF;
|
||
END IF;
|
||
|
||
-- Insert geformatteerde import record
|
||
IF v_ongeldig = 0
|
||
THEN
|
||
BEGIN
|
||
v_errorhint :=
|
||
'Fout bij toevoegen regel aan importtabel alli_imp_cyod_serienummers';
|
||
|
||
INSERT INTO alli_imp_cyod_serienummers (bes_bestelopdr_id, bes_srtdeel_nr, serienummer, soort, datum)
|
||
VALUES (v_bes_bestelopdr_id, v_bes_srtdeel_nr, v_serienummer, v_soort, v_datum);
|
||
|
||
COMMIT;
|
||
v_count_import := v_count_import + 1;
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||
v_errormsg :=
|
||
v_errorhint
|
||
|| ' ORACLE (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog
|
||
(p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
'Ingelezen regel kan niet worden weggeschreven!'
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END IF;
|
||
END IF;
|
||
END;
|
||
END LOOP;
|
||
|
||
IF (header_is_valid = 0)
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
'Ongeldig importbestand',
|
||
'Geen header of header niet volgens specificatie!'
|
||
);
|
||
ELSE
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'CYOD serienummers: aantal ingelezen regels: '
|
||
|| TO_CHAR (v_count_tot),
|
||
''
|
||
);
|
||
END IF;
|
||
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
|
||
);
|
||
COMMIT;
|
||
END alli_import_cyod_serienummers;
|
||
/
|
||
|
||
|
||
CREATE OR REPLACE PROCEDURE alli_update_cyod_serienummers (
|
||
p_import_key IN NUMBER
|
||
)
|
||
IS
|
||
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_errorhint VARCHAR2 (1000);
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_count_tot NUMBER (10);
|
||
v_count_error NUMBER (10);
|
||
v_count NUMBER (10);
|
||
|
||
v_aantal NUMBER (10);
|
||
|
||
v_bes_bestelling_key NUMBER (10);
|
||
v_prs_perslid_key NUMBER (10);
|
||
v_bes_srtgroep_key NUMBER (10);
|
||
|
||
c_ins_srtgroep_key_temp NUMBER (10) := 1;
|
||
c_ins_kenmerk_key_temp NUMBER (10) := 1;
|
||
|
||
l_ins_srtdeel_key NUMBER (10);
|
||
l_ins_deel_key NUMBER (10);
|
||
l_code_notebook_telefoon VARCHAR2 (100);
|
||
|
||
|
||
c_ins_srtdeel_key_telefoon NUMBER (10) := 9201;
|
||
c_ins_srtdeel_key_notebook NUMBER (10) := 9202;
|
||
|
||
c_notebook_bestelling_key NUMBER (10) := 1;
|
||
c_notebook_artikel_key NUMBER (10) := 2;
|
||
c_notebook_serienr_key NUMBER (10) := 3;
|
||
c_notebook_datum_key NUMBER (10) := 4;
|
||
|
||
c_mobiel_bestelling_key NUMBER (10) := 5;
|
||
c_mobiel_artikel_key NUMBER (10) := 6;
|
||
c_mobiel_serienr_key NUMBER (10) := 7;
|
||
c_mobiel_datum_key NUMBER (10) := 8;
|
||
|
||
|
||
|
||
-- Alle ingelezen CYOD artikelen met serienummers
|
||
CURSOR c_cyod_artikelen
|
||
IS
|
||
SELECT *
|
||
FROM alli_imp_cyod_serienummers;
|
||
|
||
|
||
BEGIN
|
||
v_count_tot := 0;
|
||
v_count_error := 0;
|
||
|
||
|
||
v_aanduiding := '';
|
||
|
||
|
||
-- Alle artikelen verwerken...
|
||
FOR rec_cyod IN c_cyod_artikelen
|
||
LOOP
|
||
BEGIN
|
||
v_count_tot := v_count_tot + 1;
|
||
|
||
v_aanduiding :=
|
||
'['
|
||
|| rec_cyod.bes_bestelopdr_id
|
||
|| '|'
|
||
|| rec_cyod.bes_srtdeel_nr
|
||
|| '|'
|
||
|| rec_cyod.serienummer
|
||
|| '|'
|
||
|| rec_cyod.soort
|
||
|| '|'
|
||
|| rec_cyod.datum
|
||
|| '] ';
|
||
|
||
v_errorhint := 'Fout bij bepalen combi bestelopdracht en artikelnummer';
|
||
|
||
-- Op zoek naar:
|
||
-- 1) de bestelopdracht volgens opdrachtnr: rec_cyod.bes_bestelopdr_id
|
||
-- 2) het artikel dat in die opdracht zit volgens artikelnr: rec_cyod.bes_srtdeel_nr
|
||
-- We vinden dan:
|
||
-- 1) De bestellingaanvraag (bes_bestelling_key)
|
||
-- 2) De besteller (prs_perslid_key)
|
||
-- 3) De soortgroep (bes_srtgroep_key): notebook of telefoon (indien een andere, dan maken we geen serienummer erbij).
|
||
|
||
|
||
SELECT b.bes_bestelling_key, b.prs_perslid_key, sg.bes_srtgroep_key
|
||
INTO v_bes_bestelling_key, v_prs_perslid_key, v_bes_srtgroep_key
|
||
FROM bes_bestelling b, bes_bestelopdr bo, bes_bestelopdr_item boi, bes_bestelling_item bi, bes_srtdeel sd, bes_srtgroep sg
|
||
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
|
||
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
|
||
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
|
||
AND BI.BES_BESTELOPDR_ITEM_KEY = BOI.BES_BESTELOPDR_ITEM_KEY
|
||
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
|
||
AND bo.bes_bestelopdr_id = rec_cyod.bes_bestelopdr_id
|
||
AND sd.bes_srtdeel_nr = rec_cyod.bes_srtdeel_nr ;
|
||
|
||
|
||
-- Hier komt een cruciaal stuk die bepaalt of het artikel een N(notebook) of T(telefoon is).
|
||
-- Mogelijk wordt dat in de XML door Misco meegestuurd, en anders bepalen wie die adhv de groep.
|
||
-- Nu doen we ff een simpele check op groep-key: indien 1623 dan is ie van de telefoon-groep, dus een telefoon.
|
||
|
||
l_code_notebook_telefoon := NULL;
|
||
l_code_notebook_telefoon := NULL;
|
||
|
||
v_errorhint := 'Fout bij bepalen soort object';
|
||
IF rec_cyod.soort = 'T'
|
||
THEN
|
||
-- Ik ben een telefoon, bepaal een nieuwe default naam/code voor het object
|
||
l_ins_srtdeel_key := c_ins_srtdeel_key_telefoon;
|
||
ELSE
|
||
IF rec_cyod.soort = 'N'
|
||
THEN
|
||
-- Ik ben een notebook, bepaal een nieuwe default naam/code voor het object
|
||
l_ins_srtdeel_key := c_ins_srtdeel_key_notebook;
|
||
ELSE
|
||
l_ins_srtdeel_key := NULL;
|
||
END IF;
|
||
END IF;
|
||
|
||
|
||
IF l_ins_srtdeel_key IS NOT NULL
|
||
THEN
|
||
-- Eerst ff kijken of persoon het object al heeft, waarbij serienummer/IMEI nummer dezelfde is.
|
||
-- Dan namelijk NIET toevoegen, anders wordt het object dubbel geregistreerd.
|
||
-- De aanschafdatum mag dan wel/hooguit worden aangepast, maar dat doen we maar even niet. We gaan ervan uit dat er eenmalig een aanlevering van goede gegevens plaatsvindt.
|
||
|
||
SELECT count(*)
|
||
INTO v_aantal
|
||
FROM ins_deel d, ins_kenmerkdeel k
|
||
WHERE ins_deel_module = 'INS'
|
||
AND ins_srtdeel_key = l_ins_srtdeel_key
|
||
AND ins_alg_ruimte_key = v_prs_perslid_key
|
||
AND ins_alg_ruimte_type = 'P'
|
||
AND d.ins_deel_key=k.ins_deel_key
|
||
AND (ins_kenmerk_key = c_notebook_serienr_key OR ins_kenmerk_key = c_mobiel_serienr_key)
|
||
AND ins_kenmerkdeel_waarde = rec_cyod.serienummer;
|
||
|
||
|
||
IF v_aantal = 0
|
||
THEN
|
||
-- Persoon heeft het object met dat serienummer nog niet --> DUS TOEVOEGEN
|
||
|
||
|
||
SELECT ins.get_description('LPN_INS_DEEL',NULL, ins_srtdeel_code_upper, l_ins_srtdeel_key)
|
||
INTO l_code_notebook_telefoon
|
||
FROM ins_srtdeel
|
||
WHERE ins_srtdeel_key= l_ins_srtdeel_key;
|
||
|
||
|
||
-- Insert van persoonsgebonden object.
|
||
v_errorhint := 'Fout bij toevoegen van nieuw object [' || l_code_notebook_telefoon|| ']';
|
||
INSERT INTO ins_deel (ins_deel_module, ins_srtdeel_key, ins_alg_ruimte_key, ins_alg_ruimte_type, ins_deel_omschrijving)
|
||
VALUES ('INS', l_ins_srtdeel_key, v_prs_perslid_key, 'P', l_code_notebook_telefoon);
|
||
|
||
v_errorhint := 'Object is toegevoegd';
|
||
fac.imp_writelog (p_import_key,
|
||
'I',
|
||
v_aanduiding || 'Objectnaam ' || l_code_notebook_telefoon || ' is toegevoegd',
|
||
v_errorhint
|
||
);
|
||
|
||
SELECT MAX(ins_deel_key) INTO l_ins_deel_key FROM ins_deel;
|
||
|
||
IF l_ins_srtdeel_key = c_ins_srtdeel_key_notebook
|
||
THEN
|
||
-- Ik ben een notebook, vul de kenmerken
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk bestelnummer [' || v_bes_bestelling_key || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_notebook_bestelling_key, v_bes_bestelling_key FROM DUAL;
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk artikelnummer [' || rec_cyod.bes_srtdeel_nr || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_notebook_artikel_key, rec_cyod.bes_srtdeel_nr FROM DUAL;
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk serienummer [' || rec_cyod.serienummer || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_notebook_serienr_key, rec_cyod.serienummer FROM DUAL;
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk aanschafdatum [' || rec_cyod.datum || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_notebook_datum_key, TO_CHAR(TO_DATE(rec_cyod.datum,'YYYYMMDD'),'DD-MM-YYYY') FROM DUAL;
|
||
|
||
ELSE
|
||
IF l_ins_srtdeel_key = c_ins_srtdeel_key_telefoon
|
||
THEN
|
||
-- Ik ben een telefoon, vul de kenmerken
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk bestelnummer [' || v_bes_bestelling_key || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_mobiel_bestelling_key, v_bes_bestelling_key FROM DUAL;
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk artikelnummer [' || rec_cyod.bes_srtdeel_nr || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_mobiel_artikel_key, rec_cyod.bes_srtdeel_nr FROM DUAL;
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk serienummer [' || rec_cyod.serienummer || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_mobiel_serienr_key, rec_cyod.serienummer FROM DUAL;
|
||
|
||
v_errorhint := 'Fout bij toevoegen kenmerk aanschafdatum [' || rec_cyod.datum || '] bij object [' || l_code_notebook_telefoon || ']';
|
||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||
SELECT l_ins_deel_key, c_mobiel_datum_key, TO_CHAR(TO_DATE(rec_cyod.datum,'YYYYMMDD'),'DD-MM-YYYY') FROM DUAL;
|
||
END IF;
|
||
END IF;
|
||
|
||
|
||
|
||
ELSE
|
||
-- Persoon heeft het object met dat serienummer al en zou een dubbel voorkomen gaan worden --> DUS NIET TOEVOEGEN
|
||
v_count_error := v_count_error + 1;
|
||
v_errorhint := 'Fout bij toevoegen van object';
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Object met serienummers is al bij persoon geregistreerd: object wordt niet toegevoegd',
|
||
v_errorhint
|
||
);
|
||
END IF;
|
||
ELSE
|
||
-- Type/Soort is geen N en geen T, dus onbekend
|
||
v_count_error := v_count_error + 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Soort object is onbekend: moet N(otebook) of T(elefoon) zijn',
|
||
v_errorhint
|
||
);
|
||
END IF;
|
||
|
||
COMMIT;
|
||
|
||
EXCEPTION
|
||
WHEN OTHERS
|
||
THEN
|
||
v_count_error := v_count_error + 1;
|
||
oracle_err_num := SQLCODE;
|
||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||
v_errormsg :=
|
||
'OTHERS (error '
|
||
|| oracle_err_num
|
||
|| '/'
|
||
|| oracle_err_mes
|
||
|| ')';
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
v_errorhint
|
||
);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'CYOD Serienummers: verwerkte regels zonder foutmelding: '
|
||
|| TO_CHAR (v_count_tot - v_count_error),
|
||
''
|
||
);
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'CYOD Serienummers: verwerkte regels met foutmelding: '
|
||
|| TO_CHAR (v_count_error),
|
||
''
|
||
);
|
||
COMMIT;
|
||
|
||
|
||
|
||
END alli_update_cyod_serienummers;
|
||
/
|
||
|
||
-- View tbv notificatiejob contract-reminder (afgeleid van de FAC-standaard).
|
||
-- 1x per week wordt de job aangeroepen, verschil met de standaard FAC is dat niet alleen de beheerder (voor de UNION),
|
||
-- maar ook andere personen een mailt-notificatie moeten kunnen ontvangen (na UNION).
|
||
-- Deze personen worden in eigen tabel "$SYSTEM" (key = 61) met als waarde-code "CNT_NOTI_REMINDER..." geregistreerd.
|
||
-- In de waarde-kolom staan de prs_perslid_key van de persoon die (ook) een notificatie moet ontvangen.
|
||
|
||
CREATE OR REPLACE VIEW alli_v_noti_cntreminder
|
||
(code, sender, receiver, text, key, par1, par2, xkey)
|
||
AS
|
||
SELECT '', '', c.prs_perslid_key_beh,
|
||
'Rapp<EFBFBD>l: Contract '
|
||
|| c.cnt_contract_nummer_intern
|
||
|| ' ('
|
||
|| c.cnt_contract_omschrijving
|
||
|| ' '
|
||
|| b.prs_bedrijf_naam
|
||
|| ')'
|
||
|| ' moet uiterlijk per '
|
||
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'DD-MM-YYYY')
|
||
|| ' worden verlengd of opgezegd.',
|
||
c.cnt_contract_key, c.cnt_contract_nummer_intern, cnt.cnt_getopzegdatum (c.cnt_contract_key), NULL
|
||
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
|
||
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
|
||
AND cnt_contract_verwijder IS NULL
|
||
AND cnt_contract_status = 0 /* actief */
|
||
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
|
||
UNION
|
||
SELECT '', '', fac.safe_to_number(fac_usrdata_omschr),
|
||
'Rapp<EFBFBD>l: Contract '
|
||
|| c.cnt_contract_nummer_intern
|
||
|| ' ('
|
||
|| c.cnt_contract_omschrijving
|
||
|| ' '
|
||
|| b.prs_bedrijf_naam
|
||
|| ')'
|
||
|| ' moet uiterlijk per '
|
||
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'DD-MM-YYYY')
|
||
|| ' worden verlengd of opgezegd.',
|
||
c.cnt_contract_key, c.cnt_contract_nummer_intern, cnt.cnt_getopzegdatum (c.cnt_contract_key), NULL
|
||
FROM cnt_v_aanwezigcontract c, prs_bedrijf b, fac_usrdata ud
|
||
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
|
||
AND cnt_contract_verwijder IS NULL
|
||
AND cnt_contract_status = 0 /* actief */
|
||
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
|
||
AND fac_usrtab_key = 61
|
||
AND fac_usrdata_code like 'CNT_NOTI_REMINDER%'
|
||
AND fac_usrdata_verwijder IS NULL;
|
||
|
||
|
||
|
||
------ TESTAREA TESTAREA TESTAREA TESTAREA TESTAREA TESTAREA TESTAREA ----------------
|
||
|
||
CREATE OR REPLACE VIEW alli_v_visitekaartje (prs_perslid_key,
|
||
voornaam,
|
||
naam,
|
||
functie,
|
||
gebouwcode,
|
||
adres,
|
||
postcode,
|
||
plaats,
|
||
postadres,
|
||
postpostcode,
|
||
postplaats,
|
||
telefoon1,
|
||
telefoon2,
|
||
mobiel1,
|
||
mobiel2,
|
||
email
|
||
)
|
||
AS
|
||
SELECT p.prs_perslid_key,
|
||
p.prs_perslid_voornaam,
|
||
DECODE (COALESCE (p.prs_perslid_tussenvoegsel, ''),
|
||
'', '',
|
||
p.prs_perslid_tussenvoegsel || ' ')
|
||
|| prs_perslid_naam naam,
|
||
prs_srtperslid_omschrijving functie,
|
||
pgl.alg_gebouw_code,
|
||
l.alg_locatie_adres adres,
|
||
l.alg_locatie_postcode postcode,
|
||
l.alg_locatie_plaats plaats,
|
||
l.alg_locatie_post_adres postadres,
|
||
l.alg_locatie_post_postcode postpostcode,
|
||
l.alg_locatie_post_plaats postplaats,
|
||
TRIM( DECODE (SUBSTR (p.prs_perslid_telefoonnr, 1, 1),
|
||
'(', SUBSTR (p.prs_perslid_telefoonnr, 2,
|
||
INSTR (p.prs_perslid_telefoonnr, ')') - 2),
|
||
SUBSTR (p.prs_perslid_telefoonnr, 1,
|
||
INSTR (p.prs_perslid_telefoonnr, '-') - 1)
|
||
)
|
||
)
|
||
telefoon1,
|
||
TRIM( DECODE (SUBSTR (p.prs_perslid_telefoonnr, 1, 1),
|
||
'(', SUBSTR (p.prs_perslid_telefoonnr,
|
||
INSTR (p.prs_perslid_telefoonnr, ')') + 1),
|
||
SUBSTR (p.prs_perslid_telefoonnr,
|
||
INSTR (p.prs_perslid_telefoonnr, '-') + 1)
|
||
)
|
||
)
|
||
telefoon2,
|
||
TRIM( DECODE (SUBSTR (p.prs_perslid_mobiel, 1, 1),
|
||
'(', SUBSTR (p.prs_perslid_mobiel, 2,
|
||
INSTR (p.prs_perslid_mobiel, ')') - 2),
|
||
SUBSTR (p.prs_perslid_mobiel, 1,
|
||
INSTR (p.prs_perslid_mobiel, '-') - 1)
|
||
)
|
||
)
|
||
mobiel1,
|
||
TRIM( DECODE (SUBSTR (p.prs_perslid_mobiel, 1, 1),
|
||
'(', SUBSTR (p.prs_perslid_mobiel,
|
||
INSTR (p.prs_perslid_mobiel, ')') + 1),
|
||
SUBSTR (p.prs_perslid_mobiel,
|
||
INSTR (p.prs_perslid_mobiel, '-') + 1)
|
||
)
|
||
)
|
||
mobiel2,
|
||
p.prs_perslid_email email
|
||
FROM prs_perslid p,
|
||
prs_srtperslid sp,
|
||
alg_locatie l,
|
||
(SELECT alg_locatie_key,
|
||
g.alg_gebouw_key,
|
||
g.alg_gebouw_code,
|
||
prs_perslid_key
|
||
FROM (SELECT prs_perslid_key,
|
||
(SELECT MAX (alg_ruimte_key)
|
||
FROM prs_v_perslidwerkplek_gegevens pwg
|
||
WHERE pwg.prs_perslid_key = pb.prs_perslid_key
|
||
AND pwg.prs_perslidwerkplek_bezetting =
|
||
pb.prs_perslidwerkplek_bezetting)
|
||
alg_ruimte_key
|
||
FROM ( SELECT prs_perslid_key,
|
||
MAX (prs_perslidwerkplek_bezetting)
|
||
prs_perslidwerkplek_bezetting
|
||
FROM prs_perslidwerkplek pw, prs_werkplek wp
|
||
WHERE pw.prs_werkplek_key = wp.prs_werkplek_key
|
||
AND wp.prs_werkplek_virtueel = 0
|
||
GROUP BY prs_perslid_key) pb) pr,
|
||
alg_gebouw g,
|
||
alg_verdieping v,
|
||
alg_ruimte r
|
||
WHERE pr.alg_ruimte_key = r.alg_ruimte_key
|
||
AND r.alg_verdieping_key = v.alg_verdieping_key
|
||
AND v.alg_gebouw_key = g.alg_gebouw_key) pgl
|
||
WHERE p.prs_srtperslid_key = sp.prs_srtperslid_key
|
||
AND p.prs_perslid_key = pgl.prs_perslid_key(+)
|
||
AND pgl.alg_locatie_key = l.alg_locatie_key(+);
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
BEGIN adm.systrackscript('$Workfile: alli.sql $', '$Revision$', 0); END;
|
||
/
|
||
|
||
BEGIN fac.registercustversion('ALLI', 1); END;
|
||
/
|
||
|
||
commit;
|
||
|
||
spool off
|