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

PZHO#12053

Browse Source 
svn path=/Customer/trunk/; revision=13151
This commit is contained in:
Arthur Egberink
2007-01-04 07:18:28 +00:00
parent 2ca6ad4a2a
commit 1869d1af8a
1 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
PZHO/pzho.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for PZHO: Provincie Zuid HOlland
-- (c) 2006 Facilitor Software Nederland/Dijkoraad IT bv
-- $Revision: 16 $
-- $Modtime: 3-01-07 14:54 $
-- $Revision: 17 $
-- $Modtime: 4-01-07 8:58 $
--
-- Support: +31 53 4800700
@@ -1849,7 +1849,7 @@ BEGIN
INTO currentversion
FROM fac_module;
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Afdelingen import version ' || currentversion, '$Revision: 16 $');
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Afdelingen import version ' || currentversion, '$Revision: 17 $');
-- #Import
SELECT DECODE (COUNT (*), 0, 1, COUNT (*)) -- DECODE ivm vermijden deling door 0
@@ -2864,7 +2864,7 @@ BEGIN
INTO currentversion
FROM fac_module;
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Functies import version ' || currentversion, '$Revision: 16 $');
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Functies import version ' || currentversion, '$Revision: 17 $');
-- -- #Import
SELECT DECODE (COUNT (*), 0, 1, COUNT (*)) -- DECODE ivm vermijden deling door 0
@@ -3103,8 +3103,8 @@ BEGIN
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := ' {' || v_errormsg || '}; functiecode: ' || rec_fun_upd.functie_code;
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;
@@ -3291,7 +3291,7 @@ BEGIN
SELECT MAX (fac_module_version)
INTO currentversion
FROM fac_module;
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Medewerkers import version ' || currentversion, '$Revision: 16 $');
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Medewerkers import version ' || currentversion, '$Revision: 17 $');
COMMIT;
-- #Import
@@ -3577,7 +3577,8 @@ COMMIT;
UPDATE prs_perslid
SET prs_perslid_naam = SUBSTR ('INACTIEF: ' || prs_perslid_naam, 1, 30),
prs_perslid_oslogin = null
prs_perslid_oslogin = null,
prs_perslid_nr = '_' || prs_perslid_nr
WHERE prs_perslid_key = v_perslid_key
AND prs_perslid_naam NOT LIKE 'INACTIEF:%';
COMMIT;
@@ -3865,7 +3866,7 @@ COMMIT;
v_errormsg := 'Persoon kan niet worden gewijzigd';
UPDATE prs_perslid SET prs_perslid_oslogin = NULL WHERE prs_perslid_oslogin = upper(rec_prs_upd.prs_perslid_oslogin)
AND prs_perslid_nr <> rec_prs_upd.prs_perslid_nr;
AND prs_perslid_key <> rec_prs_upd.prs_perslid_key;
UPDATE prs_perslid
SET prs_perslid_nr = rec_prs_upd.prs_perslid_nr,
@@ -3913,8 +3914,8 @@ COMMIT;
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errorhint := ' {' || v_errormsg || '}; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr || ' key:' || rec_prs_upd.prs_perslid_key;
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := ' {' || v_errormsg || '}; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;
@@ -4336,8 +4337,8 @@ COMMIT;
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := ' {' || v_errormsg || '}; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;
@@ -4551,7 +4552,7 @@ BEGIN
SELECT MAX (fac_module_version)
INTO currentversion
FROM fac_module;
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Inzet import version ' || currentversion, '$Revision: 16 $');
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Inzet import version ' || currentversion, '$Revision: 17 $');
COMMIT;
-- #Import
@@ -4778,7 +4779,9 @@ COMMIT;
THEN
IF rec_prs_del.prs_perslid_naam NOT LIKE 'INACTIEF:%' THEN
UPDATE prs_perslid
SET prs_perslid_naam = SUBSTR ('INACTIEF: ' || prs_perslid_naam, 1, 30)
SET prs_perslid_naam = SUBSTR ('INACTIEF: ' || prs_perslid_naam, 1, 30),
prs_perslid_oslogin = null,
prs_perslid_nr = '_' || prs_perslid_nr
WHERE prs_perslid_key = v_perslid_key
AND prs_perslid_naam NOT LIKE 'INACTIEF:%';
COMMIT;
@@ -5252,9 +5255,9 @@ COMMIT;
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := ' {' || v_errormsg || '}; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr
|| ' prs_perslid_key: ' || TO_CHAR(v_perslid_key);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;
@@ -5505,9 +5508,9 @@ COMMIT;
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := ' {' || v_errormsg || '}; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr
|| ' (kenmerken) prs_perslid_key: ' || TO_CHAR(v_perslid_key);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;