admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#22517

Browse Source 
svn path=/Customer/trunk/; revision=15124
This commit is contained in:
Maykel Geerdink
2012-02-21 08:21:04 +00:00
parent 05bcf9562a
commit e30838cc3c
42 changed files with 1905 additions and 3799 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
CWTD/cwtd.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CWTD
-- (c) 2008 Facilitor
-- $Revision: 8 $
-- $Modtime: 6-12-11 11:57 $
-- $Revision: 9 $
-- $Modtime: 16-02-12 14:57 $
--
-- Support: +31 53 4800700
@@ -9,10 +9,7 @@ spool xcwtd.lst
set echo on
CREATE OR REPLACE PROCEDURE cwtd_import_persoon (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
p_import_key IN NUMBER
)
AS
c_max_import_str_len NUMBER(10) := 1000;
@@ -20,7 +17,7 @@ AS
CURSOR c_cursor IS
SELECT *
FROM fac_imp_file
WHERE fac_imp_file_applicatie = 'PERSOON'
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index;
next_record c_cursor%ROWTYPE;
@@ -96,13 +93,12 @@ BEGIN
IF (v_controle_res IS NULL) THEN
v_errormsg := 'Ongeldig importbestand';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
ELSE
-- Clear my previous imported rows
DELETE FROM cwtd_imp_persoon;
DELETE FROM IMP_LOG where imp_log_applicatie = p_applname;
commit;
FOR next_record IN c_cursor LOOP
@@ -230,7 +226,7 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := v_errormsg || 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'personeelsnummer:'||v_perslid_nr);
fac.imp_writelog (p_import_key, 'E', v_errormsg, 'personeelsnummer:'||v_perslid_nr);
commit; -- logging
END;
@@ -242,7 +238,7 @@ BEGIN
END LOOP;
IF header_found = FALSE THEN
fac.imp_writelog (p_applname, p_applrun, 'E', 'Geen geldige header gevonden', '');
fac.imp_writelog (p_import_key, 'E', 'Geen geldige header gevonden', '');
END IF;
END IF;
@@ -253,14 +249,14 @@ EXCEPTION
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
END;
/
SHOW ERRORS;
CREATE OR REPLACE PROCEDURE cwtd_update_persoon (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
CREATE OR REPLACE PROCEDURE cwtd_update_persoon (p_import_key IN NUMBER)
AS
-- Constanten (LET OP: deze waarden moeten letterlijk in de DB aabwezig zijn!)
@@ -373,11 +369,6 @@ AS
v_werkplek_oms VARCHAR2 (60);
BEGIN
--TODO
DELETE FROM imp_log
WHERE imp_log_applicatie = 'PERSOON';
-- Constanten:
SELECT SYSDATE, SYSDATE, SYSDATE
INTO c_perslid_aanmaak, c_perslid_verwijder, c_perslid_ingangsdatum
@@ -396,7 +387,7 @@ BEGIN
FROM cwtd_imp_persoon;
IF v_perslid_count_imp < 10 THEN
fac.imp_writelog (p_applname, p_applrun, 'E', 'Geen records gevonden om te importeren.', '');
fac.imp_writelog (p_import_key, 'E', 'Geen records gevonden om te importeren.', '');
COMMIT;
RETURN;
END IF;
@@ -421,8 +412,7 @@ BEGIN
DELETE FROM prs_perslid
WHERE prs_perslid_key = v_perslid_key;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
'Persoon verwijderd met personeelsnummer ['||rec_prs_del.prs_perslid_nr||']',
''
@@ -443,8 +433,7 @@ BEGIN
WHERE prs_perslid_key = v_perslid_key
AND prs_perslid_naam NOT LIKE c_inactief||'%';
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
'Persoon als ['||c_inactief||'] gemarkeerd met personeelsnummer ['||rec_prs_del.prs_perslid_nr||']',
''
@@ -456,8 +445,7 @@ BEGIN
SET prs_perslid_verwijder = c_perslid_verwijder
WHERE prs_perslid_key = v_perslid_key;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
'Persoon verwijderd met personeelsnummer ['||rec_prs_del.prs_perslid_nr||']',
''
@@ -472,7 +460,7 @@ BEGIN
|| TO_CHAR (v_count)
|| ') verplichtingen; personeelsnummer: '
|| rec_prs_del.prs_perslid_nr;
fac.imp_writelog (p_applname, p_applrun, 'I', 'Inactiveren persoon is niet gelukt', v_errorhint);
fac.imp_writelog (p_import_key, 'I', 'Inactiveren persoon is niet gelukt', v_errorhint);
END;
@@ -484,7 +472,7 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := v_errormsg||'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END;
END LOOP;
@@ -518,7 +506,7 @@ BEGIN
IF rec_prs_upd.prs_perslid_nr IS NULL
THEN
v_errormsg := 'Persoon met achternaam ['||rec_prs_upd.prs_perslid_naam||' heeft geen personeelsnummer ';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
v_update := FALSE;
END IF;
@@ -571,7 +559,7 @@ BEGIN
IF v_update AND v_perslid_naam IS NULL
THEN
v_errormsg := 'Persoon met personeelsnummer [' || rec_prs_upd.prs_perslid_nr||'] heeft geen achternaam';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
v_update := FALSE;
END IF;
@@ -593,7 +581,7 @@ BEGIN
-- Waarde(n) gevonden: Er is al een actieve persoon met dezelfde prs_perslid_nr gevonden: Niet updaten!!!
--v_errormsg := 'Persoon hoeft niet gereactiveerd te worden; prs_perslid_nr: ' || rec_prs_upd.prs_perslid_nr;
--v_errorhint := 'Er bestaat al een persoon met dezelfde persooneelsnummer die actief is, GEEN ACTIE NODIG; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
--fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
--fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
v_update := FALSE;
ELSE
-- Kennelijk is er geen persoon gevonden met dezelfde prs_perslid_nr
@@ -601,7 +589,7 @@ BEGIN
-- v_update := TRUE;
v_errormsg := 'Persoon reactiveren; prs_perslid_nr: ' || rec_prs_upd.prs_perslid_nr;
v_errorhint := 'ACTIE wordt ondernomen; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
END IF;
EXCEPTION
WHEN OTHERS
@@ -706,8 +694,7 @@ BEGIN
rec_prs_upd.prs_perslid_titel, v_srtperslid_key, v_afdeling_key, c_perslid_aanmaak, 21
);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'C',
'Nieuw persoon toegevoegd',
'Naam/persoonsnr: '
@@ -751,7 +738,7 @@ BEGIN
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := to_char(v_afdeling_key)||'|'||rec_prs_upd.prs_afdeling_naam||'|xxx {' || v_errormsg || '}; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END;
END IF;
@@ -770,7 +757,7 @@ BEGIN
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_applname, p_applrun,
fac.imp_writelog (p_import_key,
'I',
v_errormsg,
'Het aantal werkplekken kan niet bepaald worden?! personeelsnummer: '
@@ -808,7 +795,7 @@ BEGIN
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_applname, p_applrun,
fac.imp_writelog (p_import_key,
'I',
v_errormsg,
'huidige of nieuwe alg_gebouw_key kan niet bepaald worden?! personeelsnummer: '
@@ -839,8 +826,7 @@ BEGIN
EXCEPTION
WHEN TOO_MANY_ROWS
THEN
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
v_errormsg,
'Het personeelsnummer is niet uniek: ' || rec_prs_upd.prs_perslid_nr
@@ -849,8 +835,7 @@ BEGIN
v_update := FALSE;
WHEN OTHERS
THEN
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
v_errormsg,
'De persoon kan niet bepaald worden?! personeelsnummer: '
@@ -884,7 +869,7 @@ BEGIN
|| rec_prs_upd.prs_afdeling_naam
|| '; personeelsnummer: '
|| rec_prs_upd.prs_perslid_nr;
fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
ELSE
BEGIN
@@ -1083,7 +1068,7 @@ BEGIN
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errorhint := 'perslid_nr:' || rec_prs_upd.prs_perslid_nr || ' gebouw:' || rec_prs_upd.prs_afdeling_naam || ' ' || v_errorhint || ' {' || v_errormsg || '}';
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END;
END LOOP;
@@ -1092,8 +1077,7 @@ BEGIN
FROM prs_perslid
WHERE prs_perslid_nr IS NOT NULL AND prs_perslid_verwijder IS NULL;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Aantal actieve personen (met personeelsnr) vooraf: '
|| TO_CHAR (v_perslid_count_fclt)
@@ -1107,8 +1091,7 @@ BEGIN
FROM prs_perslid
WHERE prs_perslid_nr IS NULL AND prs_perslid_verwijder IS NULL;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Aantal actieve personen zonder personeelsnr: ' || TO_CHAR (v_perslid_newcount_fclt),
''
@@ -1134,7 +1117,7 @@ EXCEPTION
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errorhint := v_errorhint || ' {' || v_errormsg || '}';
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END;
/