ASTE#33954 ASTE0
svn path=/Customer/trunk/; revision=27722
This commit is contained in:
Maarten van der Heide
173
ASTE/aste.sql
Normal file
173
ASTE/aste.sql
Normal file
@@ -0,0 +1,173 @@
|
||||
-- Script containing customer specific db-configuration for ASTE.
|
||||
-- (c) 2015 Facilitor B.V.
|
||||
--
|
||||
-- Support: +31 53 4800700
|
||||
set echo on
|
||||
spool xaste.lst
|
||||
|
||||
CREATE OR REPLACE VIEW aste_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);
|
||||
|
||||
/* Formatted on 11-12-2015 10:32:28 (QP5 v5.136.908.31019) */
|
||||
CREATE OR REPLACE PROCEDURE aste_import_prs (p_import_key IN NUMBER)
|
||||
AS
|
||||
v_errormsg VARCHAR2 (1000) := '-';
|
||||
v_errorhint VARCHAR2 (1000) := '-';
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
BEGIN
|
||||
v_errorhint := 'Generieke import';
|
||||
|
||||
-- Functie-kolom toevoegen als 7e kolom en zetten op 'Employee' (want verplicht)!
|
||||
UPDATE fac_imp_file i
|
||||
SET i.fac_imp_file_line =
|
||||
SUBSTR (fac_imp_file_line, 1, INSTR (fac_imp_file_line || ';', ';', 1, 6))
|
||||
|| ';Employee'
|
||||
WHERE fac_import_key = p_import_key AND fac_imp_file_index > 1;
|
||||
|
||||
-- Als Last Name = 'NULL', dan First Name = '-' en Last Name = First Name!
|
||||
UPDATE fac_imp_file i
|
||||
SET i.fac_imp_file_line =
|
||||
'-;'
|
||||
|| SUBSTR (fac_imp_file_line, 1, INSTR (fac_imp_file_line, ';', 1, 1) - 1)
|
||||
|| SUBSTR (fac_imp_file_line, INSTR (fac_imp_file_line, ';', 1, 2))
|
||||
WHERE fac_import_key = p_import_key
|
||||
AND fac_imp_file_index > 1
|
||||
AND SUBSTR (fac_imp_file_line, INSTR (fac_imp_file_line, ';', 1, 1)
|
||||
+ 1, INSTR (fac_imp_file_line, ';', 1, 2)
|
||||
- INSTR (fac_imp_file_line, ';', 1, 1)
|
||||
- 1) = 'NULL';
|
||||
|
||||
-- De sequence array staat beschreven in PRS_PAC.SRC bij de import_perslid-PROCEDURE.
|
||||
--"First Name;Last Name;E-mail address;Windows ID;Organisation;Department"
|
||||
prs.import_perslid (
|
||||
p_import_key,
|
||||
'0;0;0;0;0;0;5;2;0;1;'
|
||||
|| '0;0;0;0;0;0;0;3;0;0;'
|
||||
|| '7;4;0;0;0;0;6;0;0;0;'
|
||||
|| '0;0;0;0;0;0;0;0;0;0;'
|
||||
|| '0;0;0;0;0;0',
|
||||
'%First Name;Last Name;E-mail address;Windows ID;Organisation;Department%');
|
||||
|
||||
-- Klantspecifieke aanpassingen.
|
||||
|
||||
COMMIT;
|
||||
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 || v_errorhint,
|
||||
'Inleesproces personen afgebroken!');
|
||||
END aste_import_prs;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE aste_update_prs (p_import_key IN NUMBER)
|
||||
AS
|
||||
-- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
|
||||
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!
|
||||
|
||||
-- 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 2, 1;
|
||||
BEGIN
|
||||
-- Bepaal oslogin-match tussen FACILITOR en RECENT importbestand ofwel het aantal
|
||||
-- actieve personen na import.
|
||||
-- RECENT betekent niet meer dan een kwartiertje oud (14,4 minuten); dit voorkomt
|
||||
-- dat - als er geen nieuw importbestand is aangeleverd - telkens dezelfde fouten
|
||||
-- worden gerapporteerd (nl. op basis van een oud bestand in FAC_IMP_PERSLID).
|
||||
--SELECT COUNT ( * )
|
||||
-- INTO v_count_prs_import
|
||||
-- FROM prs_v_aanwezigperslid p, fac_imp_perslid i
|
||||
-- WHERE p.prs_perslid_oslogin IS NOT NULL
|
||||
-- AND UPPER (p.prs_perslid_oslogin) = UPPER (i.prs_perslid_oslogin);
|
||||
SELECT COUNT (DISTINCT prs_perslid_oslogin)
|
||||
INTO v_count_prs_import
|
||||
FROM fac_imp_perslid;
|
||||
|
||||
-- Bepaal huidig aantal actieve personen in FACILITOR.
|
||||
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.
|
||||
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 aste_update_prs;
|
||||
/
|
||||
|
||||
BEGIN adm.systrackscriptId('$Id$', 0); END;
|
||||
/
|
||||
BEGIN fac.registercustversion('ASTE', 0); END;
|
||||
/
|
||||
commit;
|
||||
spool off
|
||||
Reference in New Issue
Block a user