PCHW#41132 -- Personenkoppeling inrichten.
svn path=/Customer/trunk/; revision=34476
This commit is contained in:
Arthur Egberink
149
PCHW/pchw.sql
149
PCHW/pchw.sql
@@ -19,6 +19,155 @@ SET DEFINE OFF
|
||||
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE pchw_import_perslid (p_import_key IN NUMBER)
|
||||
AS
|
||||
v_seq_of_columns VARCHAR(255);
|
||||
BEGIN
|
||||
|
||||
v_seq_of_columns := '0;0;0;4;5;6;7;8;9;11;10;0;0;0;0;13;14;15;0;17;16;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46';
|
||||
prs.import_perslid(p_import_key, v_seq_of_columns, 'LOCATIECODE;GEBOUWCODE;BOUWLAAGVOLGNUMMER;RUIMTENUMMER;WERKPLEKVOLGNUMMER;OMSCHRIJVING;AFDELINGSCODE;PERSOONACHTERNAAM;TUSSENVOEGSEL;VOORLETTERS;VOORNAAM;TITEL/AANHEF;TELEFOONNUMMER;MOBIEL;EMAIL;FUNCTIE;PERSONEELSNUMMER;LOGINNAAM;PASSWORD%');
|
||||
|
||||
UPDATE fac_imp_perslid
|
||||
SET prs_perslid_oslogin = prs_perslid_nr;
|
||||
|
||||
END pchw_import_perslid;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE pchw_update_perslid (
|
||||
p_import_key IN NUMBER
|
||||
) IS
|
||||
|
||||
CURSOR c_del
|
||||
IS
|
||||
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
|
||||
FROM fac_imp_perslid i, prs_perslid p, prs_v_perslid_fullnames_all pf
|
||||
WHERE p.prs_perslid_nr = i.prs_perslid_nr(+)
|
||||
AND pf.prs_perslid_key = p.prs_perslid_key
|
||||
AND p.prs_perslid_nr IS NOT NULL
|
||||
AND i.prs_perslid_nr IS NULL
|
||||
AND p.prs_perslid_verwijder IS NULL
|
||||
ORDER BY 2;
|
||||
|
||||
CURSOR c_imp
|
||||
IS
|
||||
SELECT *
|
||||
FROM fac_imp_file
|
||||
WHERE fac_import_key = p_import_key;
|
||||
|
||||
v_perslid_key NUMBER;
|
||||
v_perslid_nr VARCHAR2(100);
|
||||
v_kostenplaats_nr VARCHAR2(100);
|
||||
v_count NUMBER;
|
||||
|
||||
BEGIN
|
||||
-- generic update
|
||||
|
||||
SELECT count(*)
|
||||
INTO v_count
|
||||
FROM fac_imp_perslid;
|
||||
|
||||
IF v_count < 500
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
'Het aantal te importeren personen is te klein ('
|
||||
|| TO_CHAR (v_count) || ')',
|
||||
'Zie Specificatie'
|
||||
);
|
||||
RETURN;
|
||||
END IF;
|
||||
|
||||
prs.update_perslid (p_import_key, 'NR', NULL);
|
||||
|
||||
-- 2 maanden na het zetten van de uitdienst datum worden de medewerkers daadwerkelijk verwijderd.
|
||||
FOR rec IN c_del
|
||||
LOOP
|
||||
BEGIN
|
||||
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
INSERT INTO prs_perslidkostenplaats (prs_perslid_key, prs_perslidkostenplaats_boeken)
|
||||
SELECT prs_perslid_key, 1
|
||||
FROM prs_v_aanwezigperslid p
|
||||
WHERE NOT EXISTS (
|
||||
SELECT pk.prs_perslid_key
|
||||
FROM prs_perslidkostenplaats pk
|
||||
WHERE p.prs_perslid_key = pk.prs_perslid_key);
|
||||
|
||||
END pchw_update_perslid;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE pchw_import_organisatie (p_import_key IN NUMBER)
|
||||
AS
|
||||
BEGIN
|
||||
fac_import_organisatie (p_import_key);
|
||||
END pchw_import_organisatie;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE pchw_update_organisatie (p_import_key IN NUMBER)
|
||||
AS
|
||||
|
||||
CURSOR c_del
|
||||
IS
|
||||
SELECT prs_afdeling_key, prs_afdeling_upper, prs_afdeling_omschrijving
|
||||
FROM prs_v_afdeling
|
||||
WHERE prs_afdeling_verwijder IS NULL
|
||||
AND prs_bedrijf_key = 121
|
||||
AND prs_afdeling_upper NOT IN (SELECT prs_afdeling_naam FROM fac_imp_organisatie)
|
||||
ORDER BY niveau DESC;
|
||||
|
||||
CURSOR c_kpn
|
||||
IS
|
||||
SELECT b.prs_afdeling_key, a1.prs_kostenplaats_key, prs_afdeling_naam, prs_afdeling_omschrijving
|
||||
FROM prs_v_afdeling_boom b, prs_afdeling a1
|
||||
WHERE b.prs_bedrijf_key = 121 -- Gemeente Westland
|
||||
AND b.prs_afdeling_key1 = a1.prs_afdeling_key
|
||||
AND b.niveau <> 1;
|
||||
|
||||
BEGIN
|
||||
fac_update_organisatie (p_import_key);
|
||||
|
||||
-- Vervallen afdeling proberen we te verwijderen
|
||||
FOR rec IN c_del
|
||||
LOOP
|
||||
BEGIN
|
||||
UPDATE prs_afdeling
|
||||
SET prs_afdeling_verwijder = SYSDATE
|
||||
WHERE prs_afdeling_key = rec.prs_afdeling_key;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
'Afdeling kan niet verwijderd worden:' || rec.prs_afdeling_key || ' Code:' || rec.prs_afdeling_upper || ' Omschrijving:' || rec.prs_afdeling_omschrijving,
|
||||
'');
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
-- aanpassen vqan kostenplaatsen bij afdelingen. De kostenplaatsen worden bij het top element vastgelegd.
|
||||
-- De kinderen moeten deze kostenplaats dus erven.
|
||||
FOR rec IN c_kpn
|
||||
LOOP
|
||||
BEGIN
|
||||
UPDATE prs_afdeling
|
||||
SET prs_kostenplaats_key = rec.prs_kostenplaats_key
|
||||
WHERE prs_afdeling_key = rec.prs_afdeling_key;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
'Kostenplaats kan niet aangepast worden: Code:' || rec.prs_afdeling_naam || ' Omschrijving:' || rec.prs_afdeling_omschrijving,
|
||||
'');
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
END pchw_update_organisatie;
|
||||
/
|
||||
|
||||
|
||||
-- Importfuncties onroerendgoed vanaf verdieping.
|
||||
|
||||
Reference in New Issue
Block a user