OFWD#52086 AD-koppeling/PRS-import
svn path=/Customer/trunk/; revision=37211
This commit is contained in:
Maarten van der Heide
150
OFWD/ofwd.sql
Normal file
150
OFWD/ofwd.sql
Normal file
@@ -0,0 +1,150 @@
|
||||
--
|
||||
-- $Id$
|
||||
--
|
||||
-- Script containing customer specific db-configuration for OFWD.
|
||||
DEFINE thisfile = 'OFWD.SQL'
|
||||
DEFINE dbuser = '^OFWD'
|
||||
|
||||
SET ECHO ON
|
||||
SET DEFINE ON
|
||||
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
||||
WHENEVER SQLERROR EXIT;
|
||||
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
|
||||
WHENEVER SQLERROR CONTINUE;
|
||||
SPOOL &fcltlogfile
|
||||
SET DEFINE OFF
|
||||
|
||||
------ payload begin ------
|
||||
|
||||
CREATE OR REPLACE VIEW ofwd_v_rap_import_log
|
||||
(
|
||||
fclt_f_applicatie,
|
||||
datum,
|
||||
fclt_f_status,
|
||||
omschrijving,
|
||||
hint
|
||||
)
|
||||
AS
|
||||
SELECT COALESCE (fac_import_app_code, imp_log_applicatie),
|
||||
TO_CHAR (imp_log_datum, 'dd-mm-yyyy hh24:mi'),
|
||||
imp_log_status,
|
||||
imp_log_omschrijving,
|
||||
imp_log_hint
|
||||
FROM imp_log il1, fac_import fi1, fac_import_app fia1
|
||||
WHERE il1.fac_import_key = fi1.fac_import_key(+)
|
||||
AND fi1.fac_import_app_key = fia1.fac_import_app_key(+)
|
||||
AND NOT EXISTS
|
||||
(SELECT 1
|
||||
FROM imp_log il2, fac_import fi2
|
||||
WHERE il2.fac_import_key = fi2.fac_import_key
|
||||
AND fi2.fac_import_app_key = fi1.fac_import_app_key
|
||||
AND il2.fac_import_key > il1.fac_import_key);
|
||||
|
||||
-- OFWD#52086: PRS-import uit AD.
|
||||
CREATE OR REPLACE PROCEDURE ofwd_import_prs (p_import_key IN NUMBER)
|
||||
AS
|
||||
v_errormsg VARCHAR2 (1000) := '-';
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
BEGIN
|
||||
-- Generieke import.
|
||||
-- De sequence array staat beschreven in PRS_PAC.SRC bij de import_perslid-PROCEDURE.
|
||||
--'%"Loginnaam";"Achternaam";"Voorletters";"Voornaam";"Afdelingscode";"Functie";"Email"%');
|
||||
--'%Loginnaam;Achternaam;Voorletters;Voornaam;Afdelingscode;Functie;Email%');
|
||||
prs.import_perslid (
|
||||
p_import_key,
|
||||
'0;0;0;0;0;0;5;2;0;4;'
|
||||
|| '3;0;0;0;0;0;0;7;0;0;'
|
||||
|| '6;1;0;0;0;0;0;0;0;0;'
|
||||
|| '0;0;0;0;0;0;0;0;0;0;'
|
||||
|| '0;0;0;0;0;0',
|
||||
'%Loginnaam;Achternaam;Voorletters;Voornaam;Afdelingscode;Functie;Email%');
|
||||
|
||||
-- Klantspecifieke aanpassingen.
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ') ';
|
||||
fac.imp_writelog (p_import_key, 'E', v_errormsg, 'Inleesproces personen afgebroken!');
|
||||
END ofwd_import_prs;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE ofwd_update_prs (p_import_key IN NUMBER)
|
||||
AS
|
||||
-- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers (met
|
||||
-- een loginnaam).
|
||||
c_max_delta_percentage NUMBER (10) := 25; -- 25%!
|
||||
v_count_prs_import NUMBER (10); -- #actieve personen na import!
|
||||
v_count_prs_actual NUMBER (10); -- #actieve personen voor import!
|
||||
|
||||
-- Verwijderen personen niet in import!
|
||||
-- Let op! Personen die niet meer in dienst zijn -> niet in fac_imp_perslid!
|
||||
-- Dubbele oslogins? Dan wordt iemand mogelijk niet verwijderd/INACTIEF!
|
||||
CURSOR c_del
|
||||
IS
|
||||
SELECT p.prs_perslid_key, p.prs_perslid_oslogin
|
||||
FROM prs_v_aanwezigperslid p
|
||||
WHERE (p.prs_perslid_oslogin IS NULL
|
||||
OR p.prs_perslid_oslogin NOT LIKE '\_%' ESCAPE '\') -- ' tbv. opmaak
|
||||
AND p.prs_perslid_oslogin2 IS NULL
|
||||
AND NOT EXISTS
|
||||
(SELECT 1
|
||||
FROM fac_imp_perslid i
|
||||
WHERE UPPER (i.prs_perslid_oslogin) = UPPER (p.prs_perslid_oslogin))
|
||||
ORDER BY 1;
|
||||
BEGIN
|
||||
-- Bepaal aantal actieve personen in FACILITOR na import!
|
||||
SELECT COUNT (DISTINCT prs_perslid_oslogin)
|
||||
INTO v_count_prs_import
|
||||
FROM fac_imp_perslid;
|
||||
|
||||
-- Bepaal aantal actieve personen in FACILITOR voor import!
|
||||
SELECT DECODE (COUNT ( * ), 0, 1, COUNT ( * ))
|
||||
INTO v_count_prs_actual
|
||||
FROM prs_v_aanwezigperslid
|
||||
WHERE prs_perslid_oslogin IS NOT NULL;
|
||||
|
||||
IF (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) < (100 - c_max_delta_percentage))
|
||||
THEN
|
||||
fac.imp_writelog (
|
||||
p_import_key,
|
||||
'E',
|
||||
'Verschil tussen huidig aantal en te importeren aantal personen te groot; zie specificatie!',
|
||||
'- max. verschilpercentage = ['
|
||||
|| TO_CHAR (c_max_delta_percentage)
|
||||
|| '%]'
|
||||
|| CHR (13) || CHR (10)
|
||||
|| '- #personen/import = ['
|
||||
|| TO_CHAR (v_count_prs_import)
|
||||
|| ']'
|
||||
|| CHR (13) || CHR (10)
|
||||
|| '- #personen/huidig = ['
|
||||
|| TO_CHAR (v_count_prs_actual)
|
||||
|| ']');
|
||||
RETURN;
|
||||
END IF;
|
||||
|
||||
-- Generieke update (op loginnaam).
|
||||
prs.update_perslid (p_import_key, 'LOGIN', NULL);
|
||||
|
||||
-- Verwijder personen die niet meer in de import voorkomen.
|
||||
FOR rec IN c_del
|
||||
LOOP
|
||||
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
||||
END LOOP;
|
||||
END ofwd_update_prs;
|
||||
/
|
||||
|
||||
------ 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
|
||||
Reference in New Issue
Block a user