1154 lines
46 KiB
SQL
1154 lines
46 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific db-configuration for SVRZ.
|
|
DEFINE thisfile = 'HMOD.SQL'
|
|
DEFINE dbuser = '^HMOD'
|
|
|
|
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 PROCEDURE hmod_import_koffer (p_import_key IN NUMBER)
|
|
AS
|
|
c_fielddelimitor VARCHAR2 (1) := ';';
|
|
v_newline VARCHAR2 (1000); -- Input line
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
header_is_valid NUMBER;
|
|
v_count NUMBER;
|
|
v_ongeldig NUMBER (1);
|
|
v_mode NUMBER (1);
|
|
v_aanduiding VARCHAR2 (200);
|
|
-- v_all_null BOOLEAN;
|
|
v_count_error NUMBER (10);
|
|
v_count_tot NUMBER (10);
|
|
v_count_import NUMBER (10);
|
|
-- De importvelden:
|
|
v_versiedatum VARCHAR2 (15);
|
|
v_omschrijving VARCHAR2 (250);
|
|
v_code VARCHAR2 (30);
|
|
v_token VARCHAR2 (20);
|
|
v_mob VARCHAR2 (20);
|
|
v_hit VARCHAR2 (20);
|
|
v_lap_en_sim VARCHAR2 (20);
|
|
v_lapt VARCHAR2 (20);
|
|
v_tnc VARCHAR2 (20);
|
|
v_tnc_omschrijving VARCHAR2 (100);
|
|
v_facilitor VARCHAR2 (20);
|
|
v_adp VARCHAR2 (20);
|
|
v_absentiemanager VARCHAR2 (20);
|
|
v_regas VARCHAR2 (20);
|
|
v_checks VARCHAR2 (20);
|
|
v_accountview VARCHAR2 (20);
|
|
v_elvy VARCHAR2 (20);
|
|
v_hodnet VARCHAR2 (20);
|
|
v_proactive VARCHAR2 (20);
|
|
v_opmerking VARCHAR2 (1000);
|
|
v_volgnr NUMBER (10);
|
|
|
|
CURSOR c
|
|
IS
|
|
SELECT *
|
|
FROM fac_imp_file
|
|
WHERE fac_import_key = p_import_key
|
|
ORDER BY fac_imp_file_index;
|
|
BEGIN
|
|
-- Vorige inlees eerst verwijderen
|
|
---- Voor hmod_koffersysteem geldt dat je inlezen op dezelfde dag mag/kunt overschrijven. Voorgaande versiedatums blijven staan.
|
|
DELETE FROM hmod_imp_koffersysteem
|
|
WHERE versiedatum = TO_CHAR(TRUNC (SYSDATE),'DD-MM-YYYY');
|
|
COMMIT;
|
|
|
|
header_is_valid := 0;
|
|
v_ongeldig := 0;
|
|
v_count_error := 0;
|
|
header_is_valid := 0;
|
|
v_count_tot := 0;
|
|
v_count_import := 0;
|
|
|
|
FOR rec IN c
|
|
LOOP
|
|
BEGIN
|
|
v_newline := rec.fac_imp_file_line;
|
|
v_errormsg := 'Fout opvragen te importeren rij';
|
|
v_aanduiding := '';
|
|
|
|
-- Lees alle veldwaarden: omschrijving;code;token;mob;hit;lap_en_sim;lapt;tnc;tnc omschrijving;facilitor;adp;absentiemanager;regas;checks;accountview;elvy;hodnet;proactive;opmerking
|
|
v_errormsg := 'Fout opvragen te importeren kolom/rij 1';
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_omschrijving);
|
|
v_errormsg := 'Fout opvragen te importeren kolom/rij 2';
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_code);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_token);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_mob);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_hit);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_lap_en_sim);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_lapt);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_tnc);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_tnc_omschrijving);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_facilitor);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_adp);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_absentiemanager);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_regas);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_checks);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_accountview);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_elvy);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_hodnet);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_proactive);
|
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_opmerking);
|
|
|
|
v_aanduiding :=
|
|
v_versiedatum || '|' || v_omschrijving || '|' || v_code;
|
|
v_count_tot := v_count_tot + 1;
|
|
|
|
-- Skip until the header is found
|
|
IF header_is_valid = 0
|
|
THEN
|
|
IF v_omschrijving = 'omschrijving'
|
|
AND v_code = 'code'
|
|
AND v_token = 'token'
|
|
AND v_mob = 'mob'
|
|
AND v_hit = 'hit'
|
|
AND v_lap_en_sim = 'lap_en_sim'
|
|
AND v_lapt = 'lapt'
|
|
AND v_tnc = 'tnc'
|
|
AND v_tnc_omschrijving = 'tnc omschrijving'
|
|
AND v_facilitor = 'facilitor'
|
|
AND v_adp = 'adp'
|
|
AND v_absentiemanager = 'absentiemanager'
|
|
AND v_regas = 'regas'
|
|
AND v_checks = 'checks'
|
|
AND v_accountview = 'accountview'
|
|
AND v_elvy = 'elvy'
|
|
AND v_hodnet = 'hodnet'
|
|
AND v_proactive = 'proactive'
|
|
AND v_opmerking = 'opmerking'
|
|
THEN
|
|
header_is_valid := 1;
|
|
END IF;
|
|
ELSE -- Header OK. Vanaf hier in de LOOP eventueel variabele vullen.
|
|
|
|
BEGIN
|
|
v_errormsg := 'Versiedatum wordt sysdatum ';
|
|
|
|
SELECT TO_CHAR (TRUNC (SYSDATE), 'DD-MM-YYYY')
|
|
INTO v_versiedatum
|
|
FROM DUAL;
|
|
|
|
-- volgnr vullen - dit numerieke veld gebruiken we voor kenmerkdomein-key..
|
|
---- dit zou ik ook kunnen vullen buiten de LOOP, toch?
|
|
SELECT COALESCE (MAX (volgnr), 0)
|
|
INTO v_volgnr
|
|
FROM hmod_imp_koffersysteem;
|
|
v_volgnr := v_volgnr + 1 ;
|
|
|
|
END;
|
|
|
|
INSERT INTO hmod_imp_koffersysteem (versiedatum,
|
|
omschrijving,
|
|
code,
|
|
token,
|
|
mob,
|
|
hit,
|
|
lap_en_sim,
|
|
lapt,
|
|
tnc,
|
|
tnc_omschrijving,
|
|
facilitor,
|
|
adp,
|
|
absentiemanager,
|
|
regas,
|
|
checks,
|
|
accountview,
|
|
elvy,
|
|
hodnet,
|
|
proactive,
|
|
volgnr,
|
|
opmerking)
|
|
VALUES (v_versiedatum,
|
|
v_omschrijving,
|
|
v_code,
|
|
v_token,
|
|
v_mob,
|
|
v_hit,
|
|
v_lap_en_sim,
|
|
v_lapt,
|
|
v_tnc,
|
|
v_tnc_omschrijving,
|
|
v_facilitor,
|
|
v_adp,
|
|
v_absentiemanager,
|
|
v_regas,
|
|
v_checks,
|
|
v_accountview,
|
|
v_elvy,
|
|
v_hodnet,
|
|
v_proactive,
|
|
v_volgnr,
|
|
v_opmerking);
|
|
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
|
|
-- Afsluiting: Rollback/Delete tabel als er fouten in csv zitten. Initieel voor import koffersysteem nog zonder foutcheck opgezet, dus ook geen v_ongeldig aan het vullen...
|
|
IF v_ongeldig > 0
|
|
THEN
|
|
ROLLBACK;
|
|
-- Met rollback haalt hij ook al mijn errors en waarschuwingen weg!?? Daarom een DELETE
|
|
-- delete from hmod_imp_contractscope where <alleen de ingelzen versiedatum ;
|
|
COMMIT;
|
|
fac.imp_writelog (
|
|
p_import_key,
|
|
'E',
|
|
'Niet ingelezen. Staan aantal ongeldige regels in csv-bestand. Zie bovenstaande ERRORS. Pas deze eerst aan!',
|
|
'');
|
|
ELSE
|
|
COMMIT;
|
|
fac.imp_writelog (
|
|
p_import_key,
|
|
'S',
|
|
'Aantal ingelezen regels: ' || TO_CHAR (v_count_import),
|
|
'');
|
|
END IF;
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
ROLLBACK;
|
|
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_errormsg || ' - Check !!!! : ' || v_aanduiding,
|
|
'');
|
|
END hmod_import_koffer;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE hmod_update_koffer (p_import_key IN NUMBER)
|
|
AS
|
|
v_errormsg VARCHAR (200);
|
|
v_errorhint VARCHAR (200);
|
|
oracle_err_mes VARCHAR2 (150);
|
|
currentversion fac_module.fac_module_version%TYPE;
|
|
v_aanduiding VARCHAR (100);
|
|
v_count NUMBER;
|
|
BEGIN
|
|
-- hmod_update_koffer (p_import_key);
|
|
NULL;
|
|
END hmod_update_koffer;
|
|
/
|
|
|
|
-- Voor UDR-rapportage.
|
|
-- Later stadium nog aanvullen met personen-koppeling zodat men goed overzicht heeft van wat er per persoon is uitgereikt. Bij herziening van de koffer oook direct in beeld heeft waar eventuele vervolgacties gedaan moeten worden.
|
|
CREATE OR REPLACE VIEW hmod_v_koffersysteem
|
|
(
|
|
OMSCHRIJVING_TOTAAL,
|
|
VERSIEDATUM,
|
|
OMSCHRIJVING,
|
|
CODE,
|
|
TOKEN,
|
|
MOB,
|
|
HIT,
|
|
LAP_EN_SIM,
|
|
LAPT,
|
|
TNC,
|
|
TNC_OMSCHRIJVING,
|
|
FACILITOR,
|
|
ADP,
|
|
ABSENTIEMANAGER,
|
|
REGAS,
|
|
CHECKS,
|
|
ACCOUNTVIEW,
|
|
ELVY,
|
|
HODNET,
|
|
PROACTIVE,
|
|
VOLGNR,
|
|
OPMERKING
|
|
)
|
|
AS
|
|
SELECT OMSCHRIJVING || ' (' || code || ')' AS omschrijving_totaal,
|
|
versiedatum,
|
|
omschrijving,
|
|
code,
|
|
token,
|
|
mob,
|
|
hit,
|
|
lap_en_sim,
|
|
lapt,
|
|
tnc,
|
|
tnc_omschrijving,
|
|
facilitor,
|
|
adp,
|
|
absentiemanager,
|
|
regas,
|
|
checks,
|
|
accountview,
|
|
elvy,
|
|
hodnet,
|
|
proactive,
|
|
volgnr,
|
|
opmerking
|
|
FROM hmod_imp_koffersysteem;
|
|
|
|
-- Voor keuzelijst (kenmerk domein)
|
|
CREATE OR REPLACE VIEW hmod_v_koffersysteem_huidig
|
|
(
|
|
VOLGNR,
|
|
OMSCHRIJVING,
|
|
VERSIEDATUM
|
|
)
|
|
AS
|
|
SELECT
|
|
VOLGNR,
|
|
OMSCHRIJVING_TOTAAL,
|
|
VERSIEDATUM
|
|
FROM hmod_v_koffersysteem
|
|
WHERE versiedatum = (select max(versiedatum) from hmod_v_koffersysteem)
|
|
ORDER BY omschrijving, versiedatum DESC
|
|
;
|
|
|
|
-- Basisview en rapportview voor de telefoon-objecten mobiel en vast per persoon
|
|
CREATE OR REPLACE VIEW HMOD_V_TELEFOONNR_KLANTOBJECT
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
PRS_NAAM,
|
|
SOORT,
|
|
NUMMER_OBJECT,
|
|
INS_DEEL_KEY, -- KEY 1
|
|
INS_DEEL_AANMAAK,
|
|
INS_DEEL_KEY2, -- KEY2 voor MOBIEL-SIM-OBJECT
|
|
VASTNR_HUIDIG,
|
|
MOBIELNR_HUIDIG
|
|
)
|
|
AS
|
|
SELECT p.prs_perslid_key,
|
|
prs_perslid_naam || ' (' || prs_perslid_voornaam || ')'
|
|
AS naam_werknemer,
|
|
sd.ins_srtdeel_omschrijving,
|
|
d.ins_deel_upper,
|
|
d.ins_deel_key
|
|
key1,
|
|
d.ins_deel_aanmaak,
|
|
NULL
|
|
key2,
|
|
p.prs_perslid_telefoonnr,
|
|
p.prs_perslid_mobiel
|
|
FROM prs_perslid p,
|
|
ins_deel d,
|
|
ins_srtdeel sd,
|
|
prs_v_aanwezigafdeling v
|
|
WHERE p.prs_perslid_key = d.ins_alg_ruimte_key
|
|
AND d.ins_srtdeel_key = 70 -- Telefooncentralenummers
|
|
AND d.ins_alg_ruimte_type = 'P'
|
|
AND d.ins_deel_verwijder IS NULL
|
|
AND d.ins_deel_actief = 1
|
|
AND ( d.ins_deel_vervaldatum IS NULL
|
|
OR TRUNC (d.ins_deel_vervaldatum) > TRUNC (SYSDATE))
|
|
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
|
AND p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_afdeling_key = v.prs_afdeling_key
|
|
AND v.prs_bedrijf_key = 41 -- Personen binnen bedrijf Humanitas onder Dak
|
|
AND p.prs_perslid_key NOT IN (721) -- M.u.v. perslid voor met nr '999001' (bestemd voor objecten nog uit te lenen...)
|
|
UNION ALL
|
|
SELECT p.prs_perslid_key,
|
|
prs_perslid_naam || ' (' || prs_perslid_voornaam || ')'
|
|
AS Naam_werknemer,
|
|
sd.ins_srtdeel_omschrijving,
|
|
dd.ins_deel_upper,
|
|
d.ins_deel_key
|
|
Key1,
|
|
d.ins_deel_aanmaak,
|
|
dd.ins_deel_key
|
|
Key2,
|
|
p.prs_perslid_telefoonnr,
|
|
p.prs_perslid_mobiel
|
|
FROM prs_perslid p,
|
|
ins_deel d,
|
|
ins_srtdeel sd,
|
|
prs_v_aanwezigafdeling v,
|
|
ins_kenmerkdeel kd,
|
|
ins_deel dd
|
|
WHERE p.prs_perslid_key = d.ins_alg_ruimte_key
|
|
AND d.ins_srtdeel_key = 69 -- Mobieltelefoon
|
|
AND d.ins_alg_ruimte_type = 'P'
|
|
AND d.ins_deel_verwijder IS NULL
|
|
AND d.ins_deel_actief = 1
|
|
AND ( d.ins_deel_vervaldatum IS NULL
|
|
OR TRUNC (d.ins_deel_vervaldatum) > TRUNC (SYSDATE))
|
|
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
|
AND p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_afdeling_key = v.prs_afdeling_key
|
|
AND v.prs_bedrijf_key = 41 -- afdeling binnen bedrijf Humanitas..
|
|
AND p.prs_perslid_key NOT IN (721) -- perslid voor met nr '999001' voor objecten nog uit te lenen...
|
|
AND d.ins_deel_key = kd.ins_deel_key
|
|
AND kd.ins_kenmerk_key = 152
|
|
AND kd.ins_kenmerkdeel_verwijder IS NULL
|
|
AND fac.safe_to_number (kd.ins_kenmerkdeel_waarde) =
|
|
dd.ins_deel_key
|
|
AND dd.ins_srtdeel_key = 341 -- SIM-kaarten en nummers
|
|
AND dd.ins_deel_verwijder IS NULL
|
|
AND dd.ins_deel_actief = 1
|
|
AND ( dd.ins_deel_vervaldatum IS NULL
|
|
OR TRUNC (dd.ins_deel_vervaldatum) > TRUNC (SYSDATE)) ;
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE hmod_prs_telefoonnummers (
|
|
p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2
|
|
)
|
|
AS
|
|
CURSOR c_vast
|
|
IS
|
|
SELECT PRS_PERSLID_KEY, PRS_NAAM, SOORT, NUMMER_OBJECT, INS_DEEL_KEY, INS_DEEL_AANMAAK, INS_DEEL_KEY2, VASTNR_HUIDIG, MOBIELNR_HUIDIG
|
|
FROM HMOD_V_TELEFOONNR_KLANTOBJECT
|
|
WHERE SOORT = 'Telefooncentralenummers' AND (VASTNR_HUIDIG<>NUMMER_OBJECT OR VASTNR_HUIDIG is null) ;
|
|
|
|
CURSOR c_mob
|
|
IS
|
|
SELECT PRS_PERSLID_KEY, PRS_NAAM, SOORT, NUMMER_OBJECT, INS_DEEL_KEY, INS_DEEL_AANMAAK, INS_DEEL_KEY2, VASTNR_HUIDIG, MOBIELNR_HUIDIG
|
|
FROM HMOD_V_TELEFOONNR_KLANTOBJECT
|
|
WHERE SOORT = 'Mobieletelefoon' AND (MOBIELNR_HUIDIG<>NUMMER_OBJECT OR MOBIELNR_HUIDIG is null) ;
|
|
|
|
CURSOR c_delvast
|
|
IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_telefoonnr
|
|
FROM prs_perslid p
|
|
WHERE
|
|
p.prs_perslid_key not in (select v.prs_perslid_key from HMOD_V_TELEFOONNR_KLANTOBJECT v where v.soort = 'Telefooncentralenummers')
|
|
and p.prs_afdeling_key in (select v.prs_afdeling_key from prs_v_aanwezigafdeling v where v.prs_bedrijf_key = 41 and v.prs_afdeling_verwijder is null) -- Onderdeel bedrijf Humanitas...
|
|
and p.prs_perslid_telefoonnr is not null ;
|
|
|
|
CURSOR c_delmob
|
|
IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_mobiel
|
|
FROM prs_perslid p
|
|
WHERE
|
|
p.prs_perslid_key not in (select v.prs_perslid_key from HMOD_V_TELEFOONNR_KLANTOBJECT v where v.soort = 'Mobieletelefoon')
|
|
and p.prs_afdeling_key in (select v.prs_afdeling_key from prs_v_aanwezigafdeling v where v.prs_bedrijf_key = 41 and v.prs_afdeling_verwijder is null) -- Onderdeel bedrijf Humanitas...
|
|
and p.prs_perslid_mobiel is not null ;
|
|
|
|
v_telefoon_vast VARCHAR2(15);
|
|
v_telefoon_mobiel VARCHAR2(15);
|
|
|
|
v_errormsg VARCHAR (200);
|
|
v_errorhint VARCHAR (200);
|
|
oracle_err_mes VARCHAR2 (150);
|
|
currentversion fac_module.fac_module_version%TYPE;
|
|
v_aanduiding VARCHAR (100);
|
|
v_count NUMBER;
|
|
|
|
BEGIN
|
|
v_count:=0;
|
|
|
|
FOR rec IN c_vast
|
|
LOOP
|
|
|
|
v_aanduiding :=
|
|
'Vast nummer gewijzigd, ' || CHR(10)
|
|
|| 'van ' || COALESCE(rec.vastnr_huidig,'<leeg>') || ' naar ' || rec.nummer_object ;
|
|
v_errorhint := 'telefoonnr vast aanpassen';
|
|
|
|
UPDATE prs_perslid p
|
|
SET prs_perslid_telefoonnr = rec.nummer_object
|
|
WHERE p.prs_perslid_key = rec.prs_perslid_key ;
|
|
|
|
fac.trackaction (
|
|
'PRSUPD',
|
|
rec.prs_perslid_key,
|
|
3,
|
|
SYSDATE,
|
|
v_aanduiding);
|
|
|
|
END LOOP;
|
|
|
|
FOR rec IN c_mob
|
|
LOOP
|
|
v_aanduiding :=
|
|
'Mobielnummer gewijzigd, ' || CHR(10)
|
|
|| 'van ' || COALESCE(rec.mobielnr_huidig,'<leeg>') || ' naar ' || rec.nummer_object ;
|
|
v_errorhint := 'telefoonnr mobiel aanpassen';
|
|
|
|
UPDATE prs_perslid p
|
|
SET prs_perslid_mobiel = rec.nummer_object
|
|
WHERE p.prs_perslid_key = rec.prs_perslid_key ;
|
|
|
|
fac.trackaction (
|
|
'PRSUPD',
|
|
rec.prs_perslid_key,
|
|
3,
|
|
SYSDATE,
|
|
v_aanduiding);
|
|
|
|
END LOOP;
|
|
|
|
FOR rec IN c_delvast
|
|
LOOP
|
|
v_aanduiding :=
|
|
'Vast nummer verwijderd ' || CHR(10)
|
|
|| 'Was ' || rec.prs_perslid_telefoonnr ;
|
|
v_errorhint := 'vast nummer verwijderen';
|
|
|
|
UPDATE prs_perslid p
|
|
SET p.prs_perslid_telefoonnr = ''
|
|
WHERE p.prs_perslid_key = rec.prs_perslid_key ;
|
|
|
|
fac.trackaction (
|
|
'PRSUPD',
|
|
rec.prs_perslid_key,
|
|
3,
|
|
SYSDATE,
|
|
v_aanduiding);
|
|
|
|
END LOOP;
|
|
|
|
FOR rec IN c_delmob
|
|
LOOP
|
|
v_aanduiding :=
|
|
'Mobielnummer verwijderd ' || CHR(10)
|
|
|| 'Was ' || rec.prs_perslid_mobiel ;
|
|
v_errorhint := 'mobielnummer verwijderen';
|
|
|
|
UPDATE prs_perslid p
|
|
SET p.prs_perslid_mobiel = ''
|
|
WHERE p.prs_perslid_key = rec.prs_perslid_key ;
|
|
|
|
fac.trackaction (
|
|
'PRSUPD',
|
|
rec.prs_perslid_key,
|
|
3,
|
|
SYSDATE,
|
|
v_aanduiding);
|
|
|
|
END LOOP;
|
|
|
|
END;
|
|
/
|
|
|
|
-- script om dagelijks terugkerende scripts aan te roepen.
|
|
CREATE OR REPLACE PROCEDURE hmod_select_daily_task (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
|
|
AS
|
|
BEGIN
|
|
-- job om de telefoonnummers in persoonkaart te synchroniseren met de eigendommen (gekoppelde telefoonobjecten vast en mobiel)
|
|
hmod_prs_telefoonnummers (p_applname, p_applrun);
|
|
END;
|
|
/
|
|
|
|
-- Rapport van de import-personen ADP.
|
|
---- Zowel te gebruiken bij LEZEN als bij VERWERKEN
|
|
---- Deze view wordt tevens gebruikt als cursor voor de import-proceduren
|
|
CREATE OR REPLACE VIEW hmod_v_prsimport
|
|
(
|
|
PRS_PERSLID_KEY,
|
|
PRS_PERSLID_NR,
|
|
PRS_PERSLID_NAAM,
|
|
PRS_DATUM_UITDIENST,
|
|
PRS_STATUS,
|
|
FORMATIEPLAATS_HUIDIG,
|
|
FORMATIEPLAATS_CSV,
|
|
TOKEN,
|
|
MOB,
|
|
HIT,
|
|
LAP_EN_SIM,
|
|
LAPT,
|
|
TNC,
|
|
TNC_OMSCHRIJVING,
|
|
FACILITOR,
|
|
ADP,
|
|
ABSENTIEMANAGER,
|
|
REGAS,
|
|
CHECKS,
|
|
ACCOUNTVIEW,
|
|
ELVY,
|
|
HODNET,
|
|
PROACTIVE,
|
|
OPMERKING_KOFFERSYSTEEM,
|
|
DATUM_GELEZEN,
|
|
DATUM_VERWERKT
|
|
)
|
|
AS -- Bestaande personen die ook weer in deze PRS-import zitten
|
|
SELECT basis.prs_perslid_key,
|
|
basis.prs_perslid_nr,
|
|
basis.prs_perslid_naam,
|
|
basis.DatumUitDienst,
|
|
CASE
|
|
WHEN d.datum_verwerkt is not null THEN i.prs_perslid_partner_naam -- Deze vul ik tijdens de import met de prs_status
|
|
WHEN d.datum_verwerkt is null and k.code is null THEN 'Basis - Fout'
|
|
ELSE basis.koffersysteem_status
|
|
END as prs_status,
|
|
COALESCE(basis.formatieplaats_huidig,'nvt'),
|
|
COALESCE (k.code, i.prs_kenmerk3 || ' LET OP! formatieplaats uit CSV staat niet in actueel koffersysteem') AS formatieplaats_CSV,
|
|
k.token,
|
|
k.mob,
|
|
k.hit,
|
|
k.lap_en_sim,
|
|
k.lapt,
|
|
k.tnc,
|
|
k.tnc_omschrijving,
|
|
k.facilitor,
|
|
k.adp,
|
|
k.absentiemanager,
|
|
k.regas,
|
|
k.checks,
|
|
k.accountview,
|
|
k.elvy,
|
|
k.hodnet,
|
|
k.proactive,
|
|
k.opmerking,
|
|
d.datum_gelezen,
|
|
d.datum_verwerkt
|
|
FROM (SELECT p.prs_perslid_key,
|
|
p.prs_perslid_nr,
|
|
p.prs_perslid_naam,
|
|
a.prs_bedrijf_key,
|
|
b.prs_bedrijf_naam,
|
|
(SELECT prs_kenmerklink_waarde
|
|
FROM prs_kenmerklink
|
|
WHERE prs_link_key = p.prs_perslid_key
|
|
AND prs_kenmerk_key = 1025
|
|
AND prs_kenmerklink_niveau = 'P'
|
|
AND prs_kenmerklink_verwijder IS NULL)
|
|
AS formatieplaats_huidig,
|
|
(SELECT prs_kenmerklink_waarde
|
|
FROM prs_kenmerklink
|
|
WHERE prs_link_key = p.prs_perslid_key
|
|
AND prs_kenmerk_key = 1100
|
|
AND prs_kenmerklink_niveau = 'P'
|
|
AND prs_kenmerklink_verwijder IS NULL)
|
|
AS DatumUitDienst,
|
|
(SELECT kd.fac_usrdata_omschr
|
|
FROM prs_kenmerklink k, fac_usrdata kd
|
|
WHERE k.prs_link_key = p.prs_perslid_key
|
|
AND k.prs_kenmerk_key = 1081 -- Kenmerkveld Status
|
|
AND k.prs_kenmerklink_niveau = 'P'
|
|
AND k.prs_kenmerklink_verwijder IS NULL
|
|
AND k.prs_kenmerklink_waarde = kd.fac_usrdata_key
|
|
AND kd.fac_usrtab_key = 82) as Koffersysteem_status
|
|
FROM prs_perslid p,
|
|
prs_v_afdeling a,
|
|
prs_bedrijf b
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND p.prs_perslid_verwijder IS NULL) basis,
|
|
fac_imp_perslid i,
|
|
hmod_imp_koffersysteem k,
|
|
(SELECT i.fac_import_key,
|
|
MAX (f.fac_import_datum_gelezen) AS datum_gelezen,
|
|
MAX (f.fac_import_datum_verwerkt) AS datum_verwerkt
|
|
FROM fac_import f, fac_imp_perslid i
|
|
WHERE f.fac_import_key = i.fac_import_key AND f.fac_import_app_key = 41
|
|
GROUP BY i.fac_import_key,
|
|
f.fac_import_datum_gelezen,
|
|
f.fac_import_datum_verwerkt) d
|
|
WHERE basis.prs_perslid_nr = i.prs_perslid_nr
|
|
AND i.prs_kenmerk3 = k.code (+)
|
|
AND basis.prs_bedrijf_key = 41 -- Alleen voor Humanitas onder Dak mensen
|
|
UNION ALL -- NIEUWE PERSONEN die nog niet in BEDRIJF HUMANITAS zitten en die dus bij import toegevoegd gaan worden en met juiste koffersysteem gevuld moet worden...
|
|
---- Nieuwe personen zitten bij INLEZEN aan deze kant (omdat ze nog geen prs_perslid_key hebben). Bij verwerken hebben ze dit wel en dan zitten de NIEUWE personen in bovenstaande union..
|
|
SELECT -1 AS prs_perslid_key,
|
|
i.prs_perslid_nr,
|
|
i.prs_perslid_naam,
|
|
'' as DatumUitDienst,
|
|
CASE
|
|
WHEN k.code is null THEN 'Nieuw - Fout'
|
|
ELSE 'Nieuw'
|
|
END as prs_status,
|
|
'nvt' AS formatieplaats_huidig,
|
|
COALESCE (k.code, i.prs_kenmerk3 || ' LET OP! formatieplaats uit CSV staat niet in actueel koffersysteem') AS formatieplaats_CSV,
|
|
k.token,
|
|
k.mob,
|
|
k.hit,
|
|
k.lap_en_sim,
|
|
k.lapt,
|
|
k.tnc,
|
|
k.tnc_omschrijving,
|
|
k.facilitor,
|
|
k.adp,
|
|
k.absentiemanager,
|
|
k.regas,
|
|
k.checks,
|
|
k.accountview,
|
|
k.elvy,
|
|
k.hodnet,
|
|
k.proactive,
|
|
k.opmerking,
|
|
d.datum_gelezen,
|
|
d.datum_verwerkt
|
|
FROM fac_imp_perslid i, hmod_imp_koffersysteem k,
|
|
(SELECT i.fac_import_key,
|
|
MAX (f.fac_import_datum_gelezen) AS datum_gelezen,
|
|
MAX (f.fac_import_datum_verwerkt) AS datum_verwerkt
|
|
FROM fac_import f, fac_imp_perslid i
|
|
WHERE f.fac_import_key = i.fac_import_key AND f.fac_import_app_key = 41
|
|
GROUP BY i.fac_import_key,
|
|
f.fac_import_datum_gelezen,
|
|
f.fac_import_datum_verwerkt) d
|
|
WHERE i.prs_kenmerk3 = k.code(+)
|
|
AND i.fac_import_key = d.fac_import_key
|
|
AND UPPER(i.prs_perslid_nr) NOT IN
|
|
(SELECT UPPER(p.prs_perslid_nr)
|
|
FROM prs_perslid p,
|
|
prs_bedrijf b,
|
|
prs_v_afdeling a
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND p.prs_perslid_verwijder IS NULL
|
|
AND b.prs_bedrijf_key = 41 -- Humanitas onder Dak
|
|
)
|
|
UNION ALL -- Alle HUMANITAS medewerkers die wel in Facilitor staan, maar niet in CSV-import zitten - Indien nodig handmatig te verwijderen
|
|
SELECT basis.prs_perslid_key,
|
|
basis.prs_perslid_nr,
|
|
basis.prs_perslid_naam,
|
|
basis.DatumUitDienst,
|
|
'Verwijderen' AS prs_status,
|
|
basis.formatieplaats_huidig,
|
|
'nvt' AS formatieplaats_CSV,
|
|
k.token,
|
|
k.mob,
|
|
k.hit,
|
|
k.lap_en_sim,
|
|
k.lapt,
|
|
k.tnc,
|
|
k.tnc_omschrijving,
|
|
k.facilitor,
|
|
k.adp,
|
|
k.absentiemanager,
|
|
k.regas,
|
|
k.checks,
|
|
k.accountview,
|
|
k.elvy,
|
|
k.hodnet,
|
|
k.proactive,
|
|
k.opmerking,
|
|
d.datum_gelezen,
|
|
d.datum_verwerkt
|
|
FROM (SELECT p.prs_perslid_key,
|
|
p.prs_perslid_nr,
|
|
p.prs_perslid_naam,
|
|
a.prs_bedrijf_key,
|
|
b.prs_bedrijf_naam,
|
|
(SELECT prs_kenmerklink_waarde
|
|
FROM prs_kenmerklink
|
|
WHERE prs_link_key = p.prs_perslid_key
|
|
AND prs_kenmerk_key = 1025
|
|
AND prs_kenmerklink_niveau = 'P'
|
|
AND prs_kenmerklink_verwijder IS NULL)
|
|
AS formatieplaats_huidig,
|
|
(SELECT prs_kenmerklink_waarde
|
|
FROM prs_kenmerklink
|
|
WHERE prs_link_key = p.prs_perslid_key
|
|
AND prs_kenmerk_key = 1100
|
|
AND prs_kenmerklink_niveau = 'P'
|
|
AND prs_kenmerklink_verwijder IS NULL)
|
|
AS DatumUitDienst,
|
|
(SELECT kd.fac_usrdata_omschr
|
|
FROM prs_kenmerklink k, fac_usrdata kd
|
|
WHERE k.prs_link_key = p.prs_perslid_key
|
|
AND k.prs_kenmerk_key = 1081 -- Kenmerkveld Status
|
|
AND k.prs_kenmerklink_niveau = 'P'
|
|
AND k.prs_kenmerklink_verwijder IS NULL
|
|
AND k.prs_kenmerklink_waarde = kd.fac_usrdata_key
|
|
AND kd.fac_usrtab_key = 82) as Koffersysteem_status
|
|
FROM prs_perslid p,
|
|
prs_v_afdeling a,
|
|
prs_bedrijf b
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND b.prs_bedrijf_key = 41
|
|
AND p.prs_perslid_verwijder IS NULL) basis,
|
|
hmod_imp_koffersysteem k,
|
|
( SELECT i.fac_import_key,
|
|
MAX (f.fac_import_datum_gelezen) AS datum_gelezen,
|
|
MAX (f.fac_import_datum_verwerkt) AS datum_verwerkt
|
|
FROM fac_import f, fac_imp_perslid i
|
|
WHERE f.fac_import_key = i.fac_import_key
|
|
AND f.fac_import_app_key = 41
|
|
GROUP BY i.fac_import_key,
|
|
f.fac_import_datum_gelezen,
|
|
f.fac_import_datum_verwerkt) d
|
|
WHERE basis.formatieplaats_huidig = k.code(+)
|
|
AND basis.prs_perslid_nr NOT IN (SELECT i.prs_perslid_nr
|
|
FROM fac_imp_perslid i) ;
|
|
|
|
CREATE OR REPLACE PROCEDURE hmod_import_perslid (p_import_key IN NUMBER)
|
|
AS
|
|
v_errormsg VARCHAR2 (1000) := '-';
|
|
v_errorhint VARCHAR2 (1000) := '-';
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_aanduiding VARCHAR2 (1000);
|
|
v_count NUMBER;
|
|
v_count_leeg NUMBER;
|
|
v_count_fout NUMBER;
|
|
v_count_nieuw NUMBER;
|
|
v_count_verwijder NUMBER;
|
|
|
|
CURSOR c -- Alle medewerkers HUMANITAS die in aangeleverde ADP-personen-bestand zitten
|
|
IS
|
|
SELECT prs_perslid_key,
|
|
prs_perslid_nr,
|
|
prs_status,
|
|
formatieplaats_huidig,
|
|
token,
|
|
mob,
|
|
hit,
|
|
lap_en_sim,
|
|
lapt,
|
|
tnc,
|
|
tnc_omschrijving,
|
|
facilitor,
|
|
adp,
|
|
absentiemanager,
|
|
regas,
|
|
checks,
|
|
accountview,
|
|
elvy,
|
|
hodnet,
|
|
proactive
|
|
FROM
|
|
hmod_v_prsimport WHERE instr(prs_status,'Verwijderen') = 0 and prs_status is not null ;
|
|
|
|
BEGIN
|
|
v_errorhint := 'Generieke import';
|
|
|
|
-- Standaard Import. De sequence array staat beschreven in PRS_PAC.SRC bij de import_perslid-PROCEDURE.
|
|
prs.import_perslid (
|
|
p_import_key,
|
|
'1;0;0;0;0;0;2;3;4;6;5;0;0;0;0;0;0;8;0;10;9;11;0;7;0;0;12;13;14;15;16;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0',
|
|
'Locatiecode;Afdelingscode;Achternaam;Tussenvoegsel;Voorletters;Roepnaam;Geslacht;Email;Functie;Personeelsnummer;Loginnaam;Meisjesnaam;Brief aanhef;Formatieplaats;Basiskoffer;Functieomschrijving%');
|
|
|
|
-- DEF: 'Locatiecode;Afdelingscode;Achternaam;Tussenvoegsel;Voorletters;Roepnaam;Geslacht;Email;Functie;Personeelsnummer;Loginnaam;Meisjesnaam;Brief aanhef;Formatieplaats;Basiskoffer;Functieomschrijving'
|
|
----- 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
|
|
|
COMMIT;
|
|
|
|
FOR rec IN c
|
|
LOOP
|
|
BEGIN
|
|
-- Koffersysteem-kenmerken vullen
|
|
IF rec.prs_status = 'Basis' or rec.prs_status = 'Nieuw' -- Dan alle koffersysteemvelden naar personenkaart wegschrijven...
|
|
THEN
|
|
|
|
UPDATE fac_imp_perslid p
|
|
SET prs_kenmerk6 = rec.token, -- Token
|
|
prs_kenmerk7 = rec.mob, -- Mobiel
|
|
prs_kenmerk8 = rec.hit, -- Hit
|
|
prs_kenmerk9 = rec.lap_en_sim, -- Lap+Sim
|
|
prs_kenmerk10 = rec.lapt, -- Lapt
|
|
prs_kenmerk11 = rec.tnc, -- Toegangsniveau
|
|
prs_kenmerk12 = rec.facilitor, -- Facilitor
|
|
prs_kenmerk13 = rec.adp, -- ADP
|
|
prs_kenmerk14 = rec.absentiemanager, -- Absentiemanager
|
|
prs_kenmerk15 = rec.regas, -- Regas
|
|
prs_kenmerk16 = rec.checks, -- Checks
|
|
prs_kenmerk17 = rec.accountview, -- Accountview
|
|
prs_kenmerk18 = rec.elvy, -- Elvy
|
|
prs_kenmerk19 = rec.hodnet, -- HodNet
|
|
prs_kenmerk20 = rec.proactive -- Proactive
|
|
WHERE p.prs_perslid_nr = rec.prs_perslid_nr;
|
|
END IF;
|
|
-- De prs_status (= status voor deze import) ook wegschrijven in fac_imp_perslid.
|
|
---- Om updateprocedure mee te sturen... + om rapport import prs goed mee te vullen..
|
|
---- Omdat er voor koffersysteem al 20 kenmerken gevuld worden, moet ik hier ander veld voor (mis)bruiken.
|
|
UPDATE fac_imp_perslid p
|
|
SET prs_perslid_partner_naam = rec.prs_status -- Partner_naam voor misbruiken. Wordt in standaard update niet gebruikt (omdat PRS_PERSLID_NAAMGEBRUIK_CODE op 0 meegaat..)
|
|
WHERE p.prs_perslid_nr = rec.prs_perslid_nr;
|
|
|
|
END;
|
|
END LOOP;
|
|
|
|
BEGIN
|
|
v_errormsg := 'Checks op importbestand ';
|
|
v_aanduiding := 'Raadpleeg rapport en pas csv-bestand aan en lees opnieuw in';
|
|
v_count := 0;
|
|
v_count_leeg:=0;
|
|
v_count_fout := 0;
|
|
v_count_nieuw := 0;
|
|
v_count_verwijder :=0;
|
|
|
|
-- Nog even alles tellen. NOG NAGAAN/AFSPREKEN wanneer de import moet doorlopen en wanneer men het eerst wil raadplegen..
|
|
SELECT count (*) INTO v_count FROM hmod_v_prsimport;
|
|
SELECT count (*) INTO v_count_nieuw FROM fac_imp_perslid WHERE INSTR (prs_perslid_partner_naam, 'Nieuw') > 0 ;
|
|
SELECT count (*) INTO v_count_fout FROM fac_imp_perslid WHERE INSTR (prs_perslid_partner_naam, 'Fout') > 0 ;
|
|
SELECT count (*) INTO v_count_verwijder FROM hmod_v_prsimport WHERE INSTR (prs_status, 'Verwijderen') > 0 ;
|
|
SELECT count (*) INTO v_count_leeg FROM fac_imp_perslid WHERE prs_perslid_partner_naam is null ;
|
|
|
|
IF v_count_leeg > 0 THEN
|
|
fac.imp_writelog (
|
|
p_import_key, 'W', 'Aantal personen zonder import-status is: ' || v_count_leeg,
|
|
'ACTIE: ' || v_aanduiding);
|
|
END IF;
|
|
|
|
IF v_count_fout > 0 THEN
|
|
fac.imp_writelog (
|
|
p_import_key, 'W', 'Aantal personen zonder gekoppelde formatieplaats is: ' || v_count_fout,
|
|
'ACTIE: ' || v_aanduiding);
|
|
END IF;
|
|
|
|
IF v_count_verwijder > 0 THEN
|
|
fac.imp_writelog (
|
|
p_import_key, 'W', 'Aantal te verwijderen personen is: '|| v_count_verwijder,
|
|
'Ter info');
|
|
END IF;
|
|
|
|
IF v_count_nieuw > 0 THEN
|
|
fac.imp_writelog (
|
|
p_import_key, 'W', 'Aantal nieuw in te lezen personen is: '|| v_count_nieuw,
|
|
'Ter info');
|
|
END IF;
|
|
|
|
IF v_count > 0 THEN
|
|
fac.imp_writelog (
|
|
p_import_key, 'W', 'Aantal totaal te muteren personen is: '|| v_count,
|
|
'Ter info');
|
|
END IF;
|
|
|
|
END;
|
|
|
|
-- Nog wat updates uitvoeren op tussentabel...
|
|
UPDATE fac_imp_perslid
|
|
SET prs_perslid_geslacht =
|
|
CASE
|
|
WHEN prs_perslid_titel = 'Man' THEN 1
|
|
WHEN prs_perslid_titel = 'Vrouw' THEN 0
|
|
ELSE NULL
|
|
END,
|
|
prs_kenmerk1 = -- Meisjesnaam leegmaken indien man
|
|
CASE
|
|
WHEN prs_perslid_titel = 'Man' THEN ''
|
|
ELSE prs_kenmerk1
|
|
END
|
|
;
|
|
|
|
-- Titel kan nu leeggemaakt worden..
|
|
UPDATE fac_imp_perslid
|
|
SET prs_perslid_titel = '' ;
|
|
|
|
-- Nog aanvullen gebouw-string... = standard format die dus zo gehandhaafd moet worden = G, 0 '_'
|
|
UPDATE fac_imp_perslid
|
|
SET alg_gebouw_code = 'G', alg_verdieping_volgnr = '0', alg_ruimte_nr = '_'
|
|
WHERE alg_locatie_code is not null ;
|
|
|
|
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 hmod_import_perslid;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE hmod_update_perslid (p_import_key IN NUMBER)
|
|
IS
|
|
|
|
CURSOR c_flex -- Alle records pakken. O.a. voor updaten van de algemene flex-kenmerkvelden
|
|
IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_nr, i.prs_perslid_partner_naam,i.prs_kenmerk1, i.prs_kenmerk2, i.prs_kenmerk3,i.prs_kenmerk4,i.prs_kenmerk5
|
|
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
|
|
WHERE p.prs_perslid_nr = i.prs_perslid_nr
|
|
ORDER BY 2;
|
|
|
|
|
|
CURSOR c_flex_koffer -- De flexkenmerken koffersysteem - alleen updaten voor die gevuld zijn
|
|
IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_nr, i.prs_perslid_partner_naam, i.prs_kenmerk6,i.prs_kenmerk7,i.prs_kenmerk8,i.prs_kenmerk9,i.prs_kenmerk10,i.prs_kenmerk11,i.prs_kenmerk12,i.prs_kenmerk13,i.prs_kenmerk14,i.prs_kenmerk15,i.prs_kenmerk16,i.prs_kenmerk17,i.prs_kenmerk18,i.prs_kenmerk19,i.prs_kenmerk20
|
|
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
|
|
WHERE p.prs_perslid_nr = i.prs_perslid_nr AND (i.prs_perslid_partner_naam = 'Basis' or i.prs_perslid_partner_naam = 'Nieuw')
|
|
ORDER BY 2;
|
|
|
|
-- CURSOR DELETE
|
|
----- Goed standaard voorbeeld van STANDAARD DELETE bij Vesteda (VEST)
|
|
---- Voor HMOD: <NOG VASTSTELLEN! HOE/WAT !!!>
|
|
---- Indien er clienten in Faciltior zitten, deze sowieso uitsluiten van verwijderactie
|
|
---- Handmatig aangemaakte persoon 'Beumer applicatiebeheer' en 'Claudia ten Cate' + ......?
|
|
---- Omdat er via HRM-workflow wordt gewerkt, beste om dit via kenmerkveld te laten lopen met CHECK ADP-import
|
|
CURSOR c_del -- Alle medewerkers HUMANITAS die niet in aangeleverde ADP-personen-bestand zitten
|
|
IS
|
|
SELECT prs_perslid_key,
|
|
prs_perslid_nr,
|
|
prs_status
|
|
FROM
|
|
hmod_v_prsimport WHERE prs_status = 'Verwijderen' ;
|
|
|
|
|
|
v_errorhint VARCHAR2 (1000) := '';
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_aanduiding VARCHAR2 (1000);
|
|
v_count NUMBER;
|
|
v_count_leeg NUMBER;
|
|
v_count_fout NUMBER;
|
|
v_count_nieuw NUMBER;
|
|
v_count_verwijder NUMBER;
|
|
|
|
BEGIN
|
|
-- Generieke update.
|
|
v_errorhint :='Fout in generieke update';
|
|
|
|
-- Nog even alles tellen. NOG NAGAAN/AFSPREKEN wanneer de import moet doorlopen en wanneer men het eerst wil raadplegen..
|
|
v_aanduiding := 'Import afgebroken (conform afspraak) - Zie rapport voor specificaties';
|
|
SELECT count (*) INTO v_count FROM hmod_v_prsimport;
|
|
SELECT count (*) INTO v_count_nieuw FROM fac_imp_perslid WHERE INSTR (prs_perslid_partner_naam, 'Nieuw') > 0 ;
|
|
SELECT count (*) INTO v_count_fout FROM fac_imp_perslid WHERE INSTR (prs_perslid_partner_naam, 'Fout') > 0 ;
|
|
SELECT count (*) INTO v_count_verwijder FROM hmod_v_prsimport WHERE INSTR (prs_status, 'Verwijderen') > 0 ;
|
|
SELECT count (*) INTO v_count_leeg FROM fac_imp_perslid WHERE prs_perslid_partner_naam is null ;
|
|
|
|
IF v_count < 10
|
|
THEN
|
|
fac.imp_writelog (p_import_key, 'E', 'Het aantal te importeren personen is te klein (' || TO_CHAR (v_count) || ')', v_aanduiding);
|
|
RETURN;
|
|
END IF;
|
|
|
|
IF v_count_fout > 3
|
|
THEN
|
|
fac.imp_writelog (p_import_key, 'E', 'Er zitten in import medewerkers met prs_status FOUT (' || TO_CHAR (v_count_fout) || ')', v_aanduiding);
|
|
RETURN;
|
|
END IF;
|
|
|
|
IF v_count_nieuw > 10 -- Bijvoorbeeld als alle personeelsnr's in csv zonder vooloopnull zijn... (NOG CHECKEN in KPN)
|
|
THEN
|
|
fac.imp_writelog (p_import_key, 'E', 'Er zijn teveel NIEUWE medewerkers in import, kan niet kloppen (' || TO_CHAR (v_count_nieuw) || ')', v_aanduiding);
|
|
RETURN;
|
|
END IF;
|
|
|
|
IF v_count_leeg > 0
|
|
THEN
|
|
fac.imp_writelog (p_import_key, 'E', 'Er zitten in import medewerkers ZONDER prs_status (' || TO_CHAR (v_count_leeg) || ')', v_aanduiding);
|
|
RETURN;
|
|
END IF;
|
|
|
|
-- Generieke update. NR - key personeelsnr - NULL is geen werkplekken verwijderd
|
|
prs.update_perslid (p_import_key, 'NR', 'NULL');
|
|
|
|
-- Update flexvelden algemeen
|
|
FOR rec IN c_flex
|
|
LOOP
|
|
BEGIN
|
|
v_aanduiding := 'Import prs - ' || TO_CHAR(sysdate, 'dd/mm/yyyy - hh:mi:ss') || ' - status: ' || rec.prs_perslid_partner_naam;
|
|
|
|
v_errorhint:='Fout bijwerken meisjes';
|
|
PRS.upsertkenmerk (1023, rec.prs_perslid_key, rec.prs_kenmerk1); -- Meisjesnaam
|
|
v_errorhint:='Fout bijwerken briefaanhef';
|
|
PRS.upsertkenmerk (1024, rec.prs_perslid_key, rec.prs_kenmerk2); -- Brief aanhef
|
|
v_errorhint:='Fout bijwerken formatieplaats';
|
|
PRS.upsertkenmerk (1025, rec.prs_perslid_key, rec.prs_kenmerk3); -- Formatieplaats
|
|
v_errorhint:='Fout bijwerken Basiskoffer';
|
|
PRS.upsertkenmerk (1028, rec.prs_perslid_key, rec.prs_kenmerk4); -- Basiskoffer
|
|
v_errorhint:='Fout bijwerken Functieomschrijving';
|
|
PRS.upsertkenmerk (1040, rec.prs_perslid_key, rec.prs_kenmerk5); -- Functieomschrijving
|
|
|
|
-- Nog paar kenmerkvelden bijwerken
|
|
DELETE FROM prs_kenmerklink
|
|
WHERE prs_link_key = rec.prs_perslid_key
|
|
AND prs_kenmerk_key = 1082 -- Veld om aan te geven dat persoon verwijderd kan worden. Voor de personen die meekomen in de fac_imp_perslid moet deze leeggemaakt worden...
|
|
AND prs_kenmerklink_niveau = 'P'
|
|
AND prs_kenmerklink_verwijder IS NULL;
|
|
|
|
IF rec.prs_perslid_partner_naam = 'Nieuw' -- Ook nog voor NIEUW - FOUT zetten ??
|
|
THEN
|
|
v_errorhint:='Nieuwe personen krijgen altijd basiskoffer mee';
|
|
PRS.upsertkenmerk (1081, rec.prs_perslid_key, '143'); -- Koffersysteem (status) = key 143
|
|
END IF;
|
|
|
|
fac.trackaction ('PRSUPD', rec.prs_perslid_key, 3,sysdate, v_aanduiding) ;
|
|
|
|
END;
|
|
|
|
END LOOP;
|
|
|
|
-- Update flexvelden Koffersysteem
|
|
FOR rec IN c_flex_koffer
|
|
LOOP
|
|
BEGIN
|
|
v_errorhint:='Fout bijwerken Token';
|
|
PRS.upsertkenmerk (1068, rec.prs_perslid_key, rec.prs_kenmerk6); -- Token, 6 , 1068
|
|
v_errorhint:='Fout bijwerken Mobiel';
|
|
PRS.upsertkenmerk (1067, rec.prs_perslid_key, rec.prs_kenmerk7); -- Mobiel 7 , 1067
|
|
v_errorhint:='Fout bijwerken Hit';
|
|
PRS.upsertkenmerk (1069, rec.prs_perslid_key, rec.prs_kenmerk8); -- Hit 8 , 1069
|
|
v_errorhint:='Fout bijwerken Lap+Sim';
|
|
PRS.upsertkenmerk (1063, rec.prs_perslid_key, rec.prs_kenmerk9); -- Lap+Sim 9 , 1063
|
|
v_errorhint:='Fout bijwerken Lapt';
|
|
PRS.upsertkenmerk (1065, rec.prs_perslid_key, rec.prs_kenmerk10); -- Lapt 10, 1065
|
|
v_errorhint:='Fout bijwerken Toegangsniveau';
|
|
PRS.upsertkenmerk (1061, rec.prs_perslid_key, rec.prs_kenmerk11); -- Toegangsniveau 11, 1061
|
|
v_errorhint:='Fout bijwerken Facilitor';
|
|
PRS.upsertkenmerk (1072, rec.prs_perslid_key, rec.prs_kenmerk12); -- Facilitor 12 , 1072
|
|
v_errorhint:='Fout bijwerken ADP';
|
|
PRS.upsertkenmerk (1073, rec.prs_perslid_key, rec.prs_kenmerk13); -- ADP 13 , 1073
|
|
v_errorhint:='Fout bijwerken Absentiemanager';
|
|
PRS.upsertkenmerk (1074, rec.prs_perslid_key, rec.prs_kenmerk14); -- Absentiemanager 14, 1074
|
|
v_errorhint:='Fout bijwerken Regas';
|
|
PRS.upsertkenmerk (1075, rec.prs_perslid_key, rec.prs_kenmerk15); -- Regas 15, 1075
|
|
v_errorhint:='Fout bijwerken Checks';
|
|
PRS.upsertkenmerk (1076, rec.prs_perslid_key, rec.prs_kenmerk16); -- Checks 15, 1076
|
|
v_errorhint:='Fout bijwerken Accountview';
|
|
PRS.upsertkenmerk (1077, rec.prs_perslid_key, rec.prs_kenmerk17); -- Accountview 17, 1077
|
|
v_errorhint:='Fout bijwerken Elvy';
|
|
PRS.upsertkenmerk (1078, rec.prs_perslid_key, rec.prs_kenmerk18); -- Elvy 18, 1078
|
|
v_errorhint:='Fout bijwerken HodNet';
|
|
PRS.upsertkenmerk (1079, rec.prs_perslid_key, rec.prs_kenmerk19); -- HodNet 19, 1079
|
|
v_errorhint:='Fout bijwerken Proactive';
|
|
PRS.upsertkenmerk (1080, rec.prs_perslid_key, rec.prs_kenmerk20); -- Proactive 20, 1080
|
|
END;
|
|
END LOOP;
|
|
|
|
FOR rec IN c_del
|
|
LOOP
|
|
-- prs.delete_perslid (p_import_key, rec.prs_perslid_key); -- Deze niet draaien voor HMOD ivm de workflow HRM die men in Facilitor uitvoert...?
|
|
-- wel vullen van een kenmerkveld ADP-import 1082
|
|
BEGIN
|
|
v_aanduiding := 'Import prs - ' || TO_CHAR(sysdate, 'dd/mm/yyyy - hh:mi:ss') || ' - status: ' || rec.prs_status;
|
|
|
|
v_errorhint:='Bijwerken veld verwijderen';
|
|
PRS.upsertkenmerk (1082, rec.prs_perslid_key,'let op: verwijderen' );
|
|
|
|
fac.trackaction ('PRSUPD', rec.prs_perslid_key, 3,sysdate, v_aanduiding) ;
|
|
|
|
END;
|
|
END LOOP;
|
|
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, 'Importproces personen afgebroken!');
|
|
|
|
END hmod_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
|