125 lines
3.6 KiB
SQL
125 lines
3.6 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific sql statements for the FACILITOR database
|
|
--
|
|
--
|
|
--
|
|
--
|
|
--
|
|
|
|
|
|
DEFINE thisfile = 'ZLMV.SQL'
|
|
DEFINE dbuser = 'ZLMV'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
|
SPOOL &fcltlogfile
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
---------------------------------------
|
|
PROMPT &fcltcusttxt
|
|
---------------------------------------
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
CREATE OR REPLACE PROCEDURE ZLMV_IMPORT_IMPPERSLID(p_import_key IN NUMBER)
|
|
AS
|
|
CURSOR c1 is
|
|
SELECT fac_imp_csv_col01 prs_voornaam,
|
|
fac_imp_csv_col02 prs_tussenvoegsel,
|
|
fac_imp_csv_col03 prs_achternaam,
|
|
fac_imp_csv_col04 prs_email,
|
|
fac_imp_csv_col05 prs_titel,
|
|
fac_imp_csv_col06 prs_afdeling
|
|
FROM fac_imp_csv
|
|
WHERE fac_import_key=p_import_key
|
|
ORDER BY fac_imp_csv_key;
|
|
|
|
v_header NUMBER:=0;
|
|
v_afdeling_code VARCHAR2(15);
|
|
BEGIN
|
|
v_header :=0;
|
|
DELETE FROM fac_imp_perslid;
|
|
DELETE FROM fac_imp_organisatie;
|
|
|
|
-- Eerst de csv inlezen naar standaard csv imp tabel
|
|
fac_import_genericcsv(p_import_key);
|
|
FOR rec in C1
|
|
LOOP
|
|
IF rec.prs_voornaam='GivenName' AND v_header=0
|
|
THEN
|
|
v_header:=1;
|
|
ELSE
|
|
BEGIN
|
|
SELECT prs_afdeling_naam
|
|
INTO v_afdeling_code
|
|
FROM prs_afdeling
|
|
WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling);
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND THEN
|
|
v_afdeling_code:='Onbekend';
|
|
|
|
END;
|
|
INSERT INTO fac_imp_perslid(fac_import_key,
|
|
prs_afdeling_naam,
|
|
prs_perslid_voornaam,
|
|
prs_perslid_tussenvoegsel,
|
|
prs_perslid_naam,
|
|
prs_perslid_email,
|
|
prs_srtperslid_omschrijving,
|
|
prs_perslid_oslogin)
|
|
VALUES(p_import_key,
|
|
v_afdeling_code,
|
|
rec.prs_voornaam,
|
|
rec.prs_tussenvoegsel,
|
|
rec.prs_achternaam,
|
|
rec.prs_email,
|
|
rec.prs_titel,
|
|
rec.prs_email);
|
|
END IF;
|
|
END LOOP;
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE ZLMV_UPDATE_IMPPERSLID(p_import_key IN NUMBER)
|
|
AS
|
|
CURSOR p_del
|
|
IS
|
|
SELECT *
|
|
FROM prs_perslid p
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email
|
|
FROM fac_imp_perslid);
|
|
|
|
BEGIN
|
|
prs.update_perslid (p_import_key, 'EMAIL', 'A', 1);
|
|
|
|
FOR rec IN p_del
|
|
LOOP
|
|
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
|
END LOOP;
|
|
|
|
END;
|
|
/
|
|
|
|
------ 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
|