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

184
SKAF/skaf.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for SKAF
-- (c) 2009 SG|facilitor bv
-- $Revision: 13 $
-- $Modtime: 29-12-11 16:23 $
-- $Revision: 14 $
-- $Modtime: 20-02-12 13:24 $
--
-- Support: +31 53 4800710
@@ -19,15 +19,11 @@ AS
CREATE OR REPLACE PROCEDURE skaf_import_prs (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
p_import_key IN NUMBER
)
IS
c_fielddelimitor VARCHAR2 (1) := ';';
-- LET OP: moet idem zijn als declaratie bij skaf_UPDATE_PRS
c_first_import VARCHAR2 (30) := 'Initiele import';
v_newline VARCHAR2 (1000); -- Input line
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
@@ -61,30 +57,9 @@ IS
IS
SELECT *
FROM fac_imp_file
WHERE fac_imp_file_applicatie = p_applname
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index;
BEGIN
-- Eerst opruiming
SELECT COUNT (*)
INTO v_count
FROM imp_log
WHERE imp_log_applicatie = p_applname;
IF (v_count = 0)
THEN
fac.imp_writelog
(p_applname,
p_applrun,
'I',
c_first_import,
'Controle importbestand op aantal personen wordt overgeslagen'
);
COMMIT;
ELSE
DELETE FROM imp_log
WHERE imp_log_applicatie = p_applname;
END IF;
DELETE FROM skaf_imp_prs;
COMMIT;
@@ -172,8 +147,7 @@ BEGIN
IF LENGTH (v_prs_perslid_nr) > 16
THEN
v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Personeelsnummer te lang',
'Personeelsnummer wordt afgebroken tot ['
@@ -185,8 +159,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog
(p_applname,
p_applrun,
(p_import_key,
'E',
v_aanduiding || 'Personeelsnummer onbekend',
'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -202,8 +175,7 @@ BEGIN
IF LENGTH (v_prs_perslid_naam) > 30
THEN
v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Naam te lang',
'Naam wordt afgebroken tot ['
@@ -215,8 +187,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog
(p_applname,
p_applrun,
(p_import_key,
'E',
v_aanduiding || 'Naam onbekend',
'Naam is verplicht; regel wordt overgeslagen!'
@@ -233,8 +204,7 @@ BEGIN
THEN
v_prs_perslid_tussenvoegsel :=
SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Tussenvoegsel te lang',
'Tussenvoegsel wordt afgebroken tot ['
@@ -252,8 +222,7 @@ BEGIN
THEN
v_prs_perslid_voorletters :=
SUBSTR (v_prs_perslid_voorletters, 1, 10);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Voorletters te lang',
'Voorletters worden afgebroken tot ['
@@ -271,8 +240,7 @@ BEGIN
THEN
v_prs_perslid_voornaam :=
SUBSTR (v_prs_perslid_voornaam, 1, 30);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Voornaam is te lang',
'Voornaam wordt afgebroken tot ['
@@ -284,8 +252,7 @@ BEGIN
THEN
v_prs_perslid_voornaam := '-';
fac.imp_writelog
(p_applname,
p_applrun,
(p_import_key,
'W',
v_aanduiding || 'Voornaam onbekend',
'Voornaam wordt gezet op [-]'
@@ -301,8 +268,7 @@ BEGIN
IF LENGTH (v_prs_afdeling_naam) > 10
THEN
v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Afdelingscode te lang',
'Afdelingscode wordt afgebroken tot ['
@@ -314,8 +280,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog
(p_applname,
p_applrun,
(p_import_key,
'E',
v_aanduiding || 'Afdelingscode onbekend',
'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -332,8 +297,7 @@ BEGIN
THEN
v_prs_srtperslid_omschrijving :=
SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Functie te lang',
'Functie wordt afgebroken tot ['
@@ -345,8 +309,7 @@ BEGIN
THEN
v_ongeldig := 1;
fac.imp_writelog
(p_applname,
p_applrun,
(p_import_key,
'E',
v_aanduiding || 'Functie onbekend',
'Functie is verplicht; regel wordt overgeslagen!'
@@ -362,8 +325,7 @@ BEGIN
IF LENGTH (v_alg_locatie_code) > 5
THEN
v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Locatiecode te lang',
'Locatiecode wordt afgebroken tot ['
@@ -380,8 +342,7 @@ BEGIN
IF LENGTH (v_alg_gebouw_code) > 10
THEN
v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Gebouwcode te lang',
'Gebouwcode wordt afgebroken tot ['
@@ -399,8 +360,7 @@ BEGIN
THEN
v_prs_perslid_telefoonnr :=
SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Telefoonnummer te lang',
'Telefoonnummer wordt afgebroken tot ['
@@ -417,8 +377,7 @@ BEGIN
IF LENGTH (v_prs_perslid_email) > 50
THEN
v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'E-mailadres te lang',
'E-mailadres wordt afgebroken tot ['
@@ -436,8 +395,7 @@ BEGIN
IF LENGTH (v_prs_perslid_oslogin) > 30
THEN
v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Loginnaam te lang',
'Loginnaam wordt afgebroken tot ['
@@ -454,8 +412,7 @@ BEGIN
IF LENGTH (v_prs_perslid_wachtwoord) > 30
THEN
v_prs_perslid_wachtwoord := SUBSTR (v_prs_perslid_wachtwoord, 1, 30);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || 'Wachtwoord te lang',
'Wachtwoord wordt afgebroken tot ['
@@ -512,8 +469,7 @@ BEGIN
|| oracle_err_mes
|| ')';
fac.imp_writelog
(p_applname,
p_applrun,
(p_import_key,
'E',
v_aanduiding || v_errormsg,
'Ingelezen regel kan niet worden weggeschreven!'
@@ -527,22 +483,19 @@ BEGIN
IF (header_is_valid = 0)
THEN
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
'Ongeldig importbestand',
'Geen header of header niet volgens specificatie!'
);
ELSE
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Persoon: aantal ingelezen regels: '
|| TO_CHAR (v_count_tot),
''
);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Persoon: aantal ongeldige importregels: '
|| TO_CHAR (v_count_tot - v_count_import),
@@ -557,8 +510,7 @@ 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,
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint
@@ -569,12 +521,10 @@ END skaf_import_prs;
CREATE OR REPLACE PROCEDURE skaf_update_prs (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
p_import_key IN NUMBER
)
IS
-- LET OP: moet idem zijn als declaratie bij SKAF_IMPORT_PRS
c_first_import VARCHAR2 (30) := 'Initiele import';
c_persoon_inactief VARCHAR2 (30) := 'INACTIEF: ';
-- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
c_max_delta_percentage NUMBER (10) := 20;
@@ -589,7 +539,6 @@ IS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_first_import_count NUMBER (10);
v_count_prs_actual NUMBER (10);
v_count_prs_import NUMBER (10); -- Matching actual persons!
v_count_tot NUMBER (10);
@@ -669,12 +618,6 @@ IS
BEGIN
SELECT COUNT (*)
INTO v_first_import_count
FROM imp_log
WHERE imp_log_omschrijving = c_first_import
AND imp_log_applicatie = p_applname;
SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
INTO v_count_prs_actual
FROM prs_perslid
@@ -687,8 +630,7 @@ BEGIN
AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_nr = ip.prs_perslid_nr;
IF ( (v_first_import_count = 1)
OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
IF ( (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
(100 - c_max_delta_percentage
)
)
@@ -713,8 +655,7 @@ BEGIN
SET prs_perslid_verwijder = SYSDATE
WHERE prs_perslid_key = recdelprs.prs_perslid_key;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
'Persoon met nummer ['
|| recdelprs.prs_perslid_nr
@@ -748,8 +689,7 @@ BEGIN
prs_perslid_oslogin = NULL
WHERE prs_perslid_key = recdelprs.prs_perslid_key;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
'Persoon met nummer ['
|| recdelprs.prs_perslid_nr
@@ -769,8 +709,7 @@ BEGIN
WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
AND prs_perslid_oslogin IS NOT NULL;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
'Persoon met nummer ['
|| recdelprs.prs_perslid_nr
@@ -795,8 +734,7 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint
@@ -845,8 +783,7 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint
@@ -855,15 +792,13 @@ BEGIN
END;
END LOOP;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Functie: verwerkte regels zonder foutmelding: '
|| TO_CHAR (v_count_tot - v_count_error),
''
);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Functie: verwerkte regels met foutmelding: '
|| TO_CHAR (v_count_error),
@@ -956,8 +891,7 @@ BEGIN
ELSE
IF (v_count > 1)
THEN
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
v_aanduiding
|| ' kan persoon niet 1-duidig bepalen',
@@ -998,8 +932,7 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint
@@ -1008,15 +941,13 @@ BEGIN
END;
END LOOP;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Persoon: verwerkte regels zonder foutmelding: '
|| TO_CHAR (v_count_tot - v_count_error),
''
);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Persoon: verwerkte regels met foutmelding: '
|| TO_CHAR (v_count_error),
@@ -1217,8 +1148,7 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint
@@ -1227,15 +1157,13 @@ BEGIN
END;
END LOOP;
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Werkplek: verwerkte regels zonder foutmelding: '
|| TO_CHAR (v_count_tot - v_count_error),
''
);
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'S',
'Werkplek: verwerkte regels met foutmelding: '
|| TO_CHAR (v_count_error),
@@ -1246,8 +1174,7 @@ BEGIN
FOR recnowp IN cnowp
LOOP
BEGIN
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'I',
'Persoon met nummer ['
|| recnowp.prs_perslid_nr
@@ -1270,8 +1197,7 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint
@@ -1320,8 +1246,7 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_applname,
p_applrun,
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint
@@ -1333,8 +1258,7 @@ BEGIN
ELSE
fac.imp_writelog
(p_applname,
p_applrun,
(p_import_key,
'E',
'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
'- max. verschilpercentage = ['
@@ -2040,24 +1964,20 @@ END;
CREATE OR REPLACE PROCEDURE skaf_import_factuur (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
)
CREATE OR REPLACE PROCEDURE skaf_import_factuur (p_import_key IN NUMBER)
AS
v_seq_of_columns VARCHAR(50);
BEGIN
v_seq_of_columns := '0;1;2;3;0;0;4;0;5;7;6;8';
fac_import_factuur_body(p_applname, p_applrun, p_filedir, p_filename, v_seq_of_columns);
fac_import_factuur_body(p_import_key, p_filedir, p_filename, v_seq_of_columns);
END;
/
CREATE OR REPLACE PROCEDURE skaf_update_factuur (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
CREATE OR REPLACE PROCEDURE skaf_update_factuur (p_import_key IN NUMBER)
AS
BEGIN
fac_update_factuur (p_applname, p_applrun);
fac_update_factuur (p_import_key);
END;
/
@@ -2110,7 +2030,7 @@ AS
BEGIN adm.systrackscript('$Workfile: skaf.sql $', '$Revision: 13 $', 0); END;
BEGIN adm.systrackscript('$Workfile: skaf.sql $', '$Revision: 14 $', 0); END;
/
BEGIN fac.registercustversion('SKAF', 9); END;