HMOD#58494 -- Implementatie Humanitas Onder Dak - PRS-import
svn path=/Customer/; revision=45552
This commit is contained in:
Jos Migo
398
onces/HMOD/HMOD#Personen_import.sql
Normal file
398
onces/HMOD/HMOD#Personen_import.sql
Normal file
@@ -0,0 +1,398 @@
|
||||
-- Customer specific once-script voor HMOD
|
||||
|
||||
-- $Id$
|
||||
--
|
||||
-- Import personen ADP naar Facilitor
|
||||
|
||||
DEFINE thisfile = 'HMOD#Personen_import.SQL'
|
||||
DEFINE dbuser = '^HMOD'
|
||||
|
||||
SET ECHO ON
|
||||
SET DEFINE ON
|
||||
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
||||
WHENEVER SQLERROR EXIT;
|
||||
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
|
||||
WHENEVER SQLERROR CONTINUE;
|
||||
SPOOL &fcltlogfile
|
||||
SET DEFINE OFF
|
||||
|
||||
|
||||
------ payload begin ------
|
||||
|
||||
CREATE OR REPLACE PROCEDURE HMOD.hmod_import_perslid (p_import_key IN NUMBER)
|
||||
AS
|
||||
v_errormsg VARCHAR2 (1000) := '-';
|
||||
v_errorhint VARCHAR2 (1000) := '-';
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_aanduiding VARCHAR2 (1000);
|
||||
v_count NUMBER;
|
||||
v_count_leeg NUMBER;
|
||||
v_count_fout NUMBER;
|
||||
v_count_nieuw NUMBER;
|
||||
v_count_verwijder NUMBER;
|
||||
|
||||
CURSOR c -- Alle medewerkers HUMANITAS die in aangeleverde ADP-personen-bestand zitten
|
||||
IS
|
||||
SELECT prs_perslid_key,
|
||||
prs_perslid_nr,
|
||||
prs_status,
|
||||
formatieplaats_huidig,
|
||||
token,
|
||||
mob,
|
||||
hit,
|
||||
lap_en_sim,
|
||||
lapt,
|
||||
tnc,
|
||||
tnc_omschrijving,
|
||||
facilitor,
|
||||
adp,
|
||||
absentiemanager,
|
||||
regas,
|
||||
checks,
|
||||
accountview,
|
||||
elvy,
|
||||
hodnet,
|
||||
proactive
|
||||
FROM
|
||||
hmod_v_prsimport WHERE instr(prs_status,'Verwijderen') = 0 and prs_status is not null ;
|
||||
|
||||
BEGIN
|
||||
v_errorhint := 'Generieke import';
|
||||
|
||||
-- Standaard Import. De sequence array staat beschreven in PRS_PAC.SRC bij de import_perslid-PROCEDURE.
|
||||
prs.import_perslid (
|
||||
p_import_key,
|
||||
'1;0;0;0;0;0;2;3;4;6;5;0;0;0;0;0;0;8;0;10;9;11;0;7;0;0;12;13;14;15;16;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0',
|
||||
'Locatiecode;Afdelingscode;Achternaam;Tussenvoegsel;Voorletters;Roepnaam;Geslacht;Email;Functie;Personeelsnummer;Loginnaam;Meisjesnaam;Brief aanhef;Formatieplaats;Basiskoffer;Functieomschrijving%');
|
||||
|
||||
-- DEF: 'Locatiecode;Afdelingscode;Achternaam;Tussenvoegsel;Voorletters;Roepnaam;Geslacht;Email;Functie;Personeelsnummer;Loginnaam;Meisjesnaam;Brief aanhef;Formatieplaats;Basiskoffer;Functieomschrijving'
|
||||
----- 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
||||
|
||||
COMMIT;
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
-- Koffersysteem-kenmerken vullen
|
||||
IF rec.prs_status = 'Basis' or rec.prs_status = 'Nieuw' -- Dan alle koffersysteemvelden naar personenkaart wegschrijven...
|
||||
THEN
|
||||
|
||||
UPDATE fac_imp_perslid p
|
||||
SET prs_kenmerk6 = rec.token, -- Token
|
||||
prs_kenmerk7 = rec.mob, -- Mobiel
|
||||
prs_kenmerk8 = rec.hit, -- Hit
|
||||
prs_kenmerk9 = rec.lap_en_sim, -- Lap+Sim
|
||||
prs_kenmerk10 = rec.lapt, -- Lapt
|
||||
prs_kenmerk11 = rec.tnc, -- Toegangsniveau
|
||||
prs_kenmerk12 = rec.facilitor, -- Facilitor
|
||||
prs_kenmerk13 = rec.adp, -- ADP
|
||||
prs_kenmerk14 = rec.absentiemanager, -- Absentiemanager
|
||||
prs_kenmerk15 = rec.regas, -- Regas
|
||||
prs_kenmerk16 = rec.checks, -- Checks
|
||||
prs_kenmerk17 = rec.accountview, -- Accountview
|
||||
prs_kenmerk18 = rec.elvy, -- Elvy
|
||||
prs_kenmerk19 = rec.hodnet, -- HodNet
|
||||
prs_kenmerk20 = rec.proactive -- Proactive
|
||||
WHERE p.prs_perslid_nr = rec.prs_perslid_nr;
|
||||
END IF;
|
||||
-- De prs_status (= status voor deze import) ook wegschrijven in fac_imp_perslid.
|
||||
---- Om updateprocedure mee te sturen... + om rapport import prs goed mee te vullen..
|
||||
---- Omdat er voor koffersysteem al 20 kenmerken gevuld worden, moet ik hier ander veld voor (mis)bruiken.
|
||||
UPDATE fac_imp_perslid p
|
||||
SET prs_perslid_partner_naam = rec.prs_status -- Partner_naam voor misbruiken. Wordt in standaard update niet gebruikt (omdat PRS_PERSLID_NAAMGEBRUIK_CODE op 0 meegaat..)
|
||||
WHERE p.prs_perslid_nr = rec.prs_perslid_nr;
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
BEGIN
|
||||
v_errormsg := 'Checks op importbestand ';
|
||||
v_aanduiding := 'Raadpleeg rapport en pas csv-bestand aan en lees opnieuw in';
|
||||
v_count := 0;
|
||||
v_count_leeg:=0;
|
||||
v_count_fout := 0;
|
||||
v_count_nieuw := 0;
|
||||
v_count_verwijder :=0;
|
||||
|
||||
-- Nog even alles tellen. NOG NAGAAN/AFSPREKEN wanneer de import moet doorlopen en wanneer men het eerst wil raadplegen..
|
||||
SELECT count (*) INTO v_count FROM hmod_v_prsimport;
|
||||
SELECT count (*) INTO v_count_nieuw FROM fac_imp_perslid WHERE (prs_perslid_partner_naam = 'Nieuw' or prs_perslid_partner_naam = 'Nieuw - Fout') ;
|
||||
SELECT count (*) INTO v_count_fout FROM fac_imp_perslid WHERE INSTR (prs_perslid_partner_naam, 'Fout') > 0 ;
|
||||
SELECT count (*) INTO v_count_verwijder FROM hmod_v_prsimport WHERE INSTR (prs_status, 'Verwijderen') > 0 ;
|
||||
SELECT count (*) INTO v_count_leeg FROM fac_imp_perslid WHERE prs_perslid_partner_naam is null ;
|
||||
|
||||
IF v_count_leeg > 0 THEN
|
||||
fac.imp_writelog (
|
||||
p_import_key, 'W', 'Aantal personen zonder import-status is: ' || v_count_leeg,
|
||||
'ACTIE: ' || v_aanduiding);
|
||||
END IF;
|
||||
|
||||
IF v_count_fout > 0 THEN
|
||||
fac.imp_writelog (
|
||||
p_import_key, 'W', 'Aantal personen zonder gekoppelde formatieplaats is: ' || v_count_fout,
|
||||
'ACTIE: ' || v_aanduiding);
|
||||
END IF;
|
||||
|
||||
IF v_count_verwijder > 0 THEN
|
||||
fac.imp_writelog (
|
||||
p_import_key, 'W', 'Aantal te verwijderen personen is: '|| v_count_verwijder,
|
||||
'Ter info');
|
||||
END IF;
|
||||
|
||||
IF v_count_nieuw > 0 THEN
|
||||
fac.imp_writelog (
|
||||
p_import_key, 'W', 'Aantal nieuw in te lezen personen is: '|| v_count_nieuw,
|
||||
'Ter info');
|
||||
END IF;
|
||||
|
||||
IF v_count > 0 THEN
|
||||
fac.imp_writelog (
|
||||
p_import_key, 'W', 'Aantal totaal te muteren personen is: '|| v_count,
|
||||
'Ter info');
|
||||
END IF;
|
||||
|
||||
END;
|
||||
|
||||
-- Nog wat updates uitvoeren op tussentabel...
|
||||
UPDATE fac_imp_perslid
|
||||
SET prs_perslid_geslacht =
|
||||
CASE
|
||||
WHEN prs_perslid_titel = 'Man' THEN 1
|
||||
WHEN prs_perslid_titel = 'Vrouw' THEN 0
|
||||
ELSE NULL
|
||||
END,
|
||||
prs_kenmerk1 = -- Meisjesnaam leegmaken indien man
|
||||
CASE
|
||||
WHEN prs_perslid_titel = 'Man' THEN ''
|
||||
ELSE prs_kenmerk1
|
||||
END
|
||||
;
|
||||
|
||||
-- Titel kan nu leeggemaakt worden..
|
||||
UPDATE fac_imp_perslid
|
||||
SET prs_perslid_titel = '' ;
|
||||
|
||||
-- Nog aanvullen gebouw-string... = standard format die dus zo gehandhaafd moet worden = G, 0 '_'
|
||||
UPDATE fac_imp_perslid
|
||||
SET alg_gebouw_code = 'G', alg_verdieping_volgnr = '0', alg_ruimte_nr = '_'
|
||||
WHERE alg_locatie_code is not null ;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ') ';
|
||||
fac.imp_writelog (p_import_key, 'E', v_errormsg || v_errorhint, 'Inleesproces personen afgebroken!');
|
||||
END hmod_import_perslid;
|
||||
/
|
||||
|
||||
-- DE UPDATE
|
||||
CREATE OR REPLACE PROCEDURE HMOD.hmod_update_perslid (p_import_key IN NUMBER)
|
||||
IS
|
||||
|
||||
CURSOR c_flex -- Alle records pakken. O.a. voor updaten van de algemene flex-kenmerkvelden
|
||||
IS
|
||||
SELECT p.prs_perslid_key, p.prs_perslid_nr, i.prs_perslid_partner_naam,i.prs_kenmerk1, i.prs_kenmerk2, i.prs_kenmerk3,i.prs_kenmerk4,i.prs_kenmerk5
|
||||
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
|
||||
WHERE p.prs_perslid_nr = i.prs_perslid_nr
|
||||
ORDER BY 2;
|
||||
|
||||
|
||||
CURSOR c_flex_koffer -- De flexkenmerken koffersysteem - alleen updaten voor die gevuld zijn
|
||||
IS
|
||||
SELECT p.prs_perslid_key, p.prs_perslid_nr, i.prs_perslid_partner_naam, i.prs_kenmerk6,i.prs_kenmerk7,i.prs_kenmerk8,i.prs_kenmerk9,i.prs_kenmerk10,i.prs_kenmerk11,i.prs_kenmerk12,i.prs_kenmerk13,i.prs_kenmerk14,i.prs_kenmerk15,i.prs_kenmerk16,i.prs_kenmerk17,i.prs_kenmerk18,i.prs_kenmerk19,i.prs_kenmerk20
|
||||
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
|
||||
WHERE p.prs_perslid_nr = i.prs_perslid_nr AND (i.prs_perslid_partner_naam = 'Basis' or i.prs_perslid_partner_naam = 'Nieuw')
|
||||
ORDER BY 2;
|
||||
|
||||
-- CURSOR DELETE
|
||||
----- Goed standaard voorbeeld van STANDAARD DELETE bij Vesteda (VEST)
|
||||
---- Voor HMOD: <NOG VASTSTELLEN! HOE/WAT !!!>
|
||||
---- Indien er clienten in Faciltior zitten, deze sowieso uitsluiten van verwijderactie
|
||||
---- Handmatig aangemaakte persoon 'Beumer applicatiebeheer' en 'Claudia ten Cate' + ......?
|
||||
---- Omdat er via HRM-workflow wordt gewerkt, beste om dit via kenmerkveld te laten lopen met CHECK ADP-import
|
||||
CURSOR c_del -- Alle medewerkers van bedrijf HUMANITAS die niet in aangeleverde ADP-personen-bestand zitten
|
||||
IS
|
||||
SELECT prs_perslid_key,
|
||||
prs_perslid_nr,
|
||||
prs_status
|
||||
FROM
|
||||
hmod_v_prsimport WHERE prs_status = 'Verwijderen' ;
|
||||
|
||||
|
||||
v_errorhint VARCHAR2 (1000) := '';
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_aanduiding VARCHAR2 (1000);
|
||||
v_count NUMBER;
|
||||
v_count_leeg NUMBER;
|
||||
v_count_fout NUMBER;
|
||||
v_count_nieuw NUMBER;
|
||||
v_count_verwijder NUMBER;
|
||||
|
||||
BEGIN
|
||||
-- Generieke update.
|
||||
v_errorhint :='Fout in generieke update';
|
||||
|
||||
-- Nog even alles tellen. NOG NAGAAN/AFSPREKEN wanneer de import moet doorlopen en wanneer men het eerst wil raadplegen..
|
||||
v_aanduiding := 'Import afgebroken (conform afspraak) - Zie rapport voor specificaties';
|
||||
SELECT count (*) INTO v_count FROM hmod_v_prsimport;
|
||||
SELECT count (*) INTO v_count_nieuw FROM fac_imp_perslid WHERE (prs_perslid_partner_naam = 'Nieuw' or prs_perslid_partner_naam = 'Nieuw - Fout');
|
||||
SELECT count (*) INTO v_count_fout FROM fac_imp_perslid WHERE INSTR (prs_perslid_partner_naam, 'Fout') > 0 ;
|
||||
SELECT count (*) INTO v_count_verwijder FROM hmod_v_prsimport WHERE INSTR (prs_status, 'Verwijderen') > 0 ;
|
||||
SELECT count (*) INTO v_count_leeg FROM fac_imp_perslid WHERE prs_perslid_partner_naam is null ;
|
||||
|
||||
IF v_count < 10
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key, 'E', 'Het aantal te importeren personen is te klein (' || TO_CHAR (v_count) || ')', v_aanduiding);
|
||||
RETURN;
|
||||
END IF;
|
||||
|
||||
IF v_count_fout > 3
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key, 'E', 'Er zitten in import medewerkers met prs_status FOUT (' || TO_CHAR (v_count_fout) || ')', v_aanduiding);
|
||||
RETURN;
|
||||
END IF;
|
||||
|
||||
IF v_count_nieuw > 10 -- Bijvoorbeeld als alle personeelsnr's in csv zonder vooloopnull zijn... (NOG CHECKEN in KPN)
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key, 'E', 'Er zijn teveel NIEUWE medewerkers in import, kan niet kloppen (' || TO_CHAR (v_count_nieuw) || ')', v_aanduiding);
|
||||
RETURN;
|
||||
END IF;
|
||||
|
||||
IF v_count_leeg > 0
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key, 'E', 'Er zitten in import medewerkers ZONDER prs_status (' || TO_CHAR (v_count_leeg) || ')', v_aanduiding);
|
||||
RETURN;
|
||||
END IF;
|
||||
|
||||
-- Generieke update. NR - key personeelsnr - NULL is geen werkplekken verwijderd
|
||||
prs.update_perslid (p_import_key, 'NR', 'NULL');
|
||||
|
||||
-- Update flexvelden algemeen
|
||||
FOR rec IN c_flex
|
||||
LOOP
|
||||
BEGIN
|
||||
v_aanduiding := 'Import prs - ' || TO_CHAR(sysdate, 'dd/mm/yyyy - hh:mi:ss') || ' - status: ' || rec.prs_perslid_partner_naam;
|
||||
|
||||
v_errorhint:='Fout bijwerken meisjes';
|
||||
PRS.upsertkenmerk (1023, rec.prs_perslid_key, rec.prs_kenmerk1); -- Meisjesnaam
|
||||
v_errorhint:='Fout bijwerken briefaanhef';
|
||||
PRS.upsertkenmerk (1024, rec.prs_perslid_key, rec.prs_kenmerk2); -- Brief aanhef
|
||||
v_errorhint:='Fout bijwerken formatieplaats';
|
||||
PRS.upsertkenmerk (1025, rec.prs_perslid_key, rec.prs_kenmerk3); -- Formatieplaats
|
||||
v_errorhint:='Fout bijwerken Basiskoffer';
|
||||
PRS.upsertkenmerk (1028, rec.prs_perslid_key, rec.prs_kenmerk4); -- Basiskoffer
|
||||
v_errorhint:='Fout bijwerken Functieomschrijving';
|
||||
PRS.upsertkenmerk (1040, rec.prs_perslid_key, rec.prs_kenmerk5); -- Functieomschrijving
|
||||
|
||||
-- Nog paar kenmerkvelden bijwerken
|
||||
DELETE FROM prs_kenmerklink
|
||||
WHERE prs_link_key = rec.prs_perslid_key
|
||||
AND prs_kenmerk_key = 1082 -- Veld om aan te geven dat persoon verwijderd kan worden. Voor de personen die meekomen in de fac_imp_perslid moet deze leeggemaakt worden...
|
||||
AND prs_kenmerklink_niveau = 'P'
|
||||
AND prs_kenmerklink_verwijder IS NULL;
|
||||
|
||||
IF rec.prs_perslid_partner_naam = 'Nieuw' or rec.prs_perslid_partner_naam = 'Nieuw - Fout'
|
||||
THEN
|
||||
v_errorhint:='Nieuwe personen krijgen altijd basiskoffer mee';
|
||||
PRS.upsertkenmerk (1081, rec.prs_perslid_key, '143'); -- Koffersysteem (status) = key 143
|
||||
|
||||
-- Toevoegen nieuwe personen aan de autorisatiegroep Werknemer - key 79
|
||||
INSERT INTO fac_gebruikersgroep (fac_groep_key, fac_gebruikersgroep_aanmaak, prs_perslid_key)
|
||||
VALUES (79, sysdate, rec.prs_perslid_key);
|
||||
|
||||
END IF;
|
||||
|
||||
fac.trackaction ('PRSUPD', rec.prs_perslid_key, 3,sysdate, v_aanduiding) ;
|
||||
|
||||
END;
|
||||
|
||||
END LOOP;
|
||||
|
||||
-- Update flexvelden Koffersysteem
|
||||
FOR rec IN c_flex_koffer
|
||||
LOOP
|
||||
BEGIN
|
||||
v_errorhint:='Fout bijwerken Token';
|
||||
PRS.upsertkenmerk (1068, rec.prs_perslid_key, rec.prs_kenmerk6); -- Token, 6 , 1068
|
||||
v_errorhint:='Fout bijwerken Mobiel';
|
||||
PRS.upsertkenmerk (1067, rec.prs_perslid_key, rec.prs_kenmerk7); -- Mobiel 7 , 1067
|
||||
v_errorhint:='Fout bijwerken Hit';
|
||||
PRS.upsertkenmerk (1069, rec.prs_perslid_key, rec.prs_kenmerk8); -- Hit 8 , 1069
|
||||
v_errorhint:='Fout bijwerken Lap+Sim';
|
||||
PRS.upsertkenmerk (1063, rec.prs_perslid_key, rec.prs_kenmerk9); -- Lap+Sim 9 , 1063
|
||||
v_errorhint:='Fout bijwerken Lapt';
|
||||
PRS.upsertkenmerk (1065, rec.prs_perslid_key, rec.prs_kenmerk10); -- Lapt 10, 1065
|
||||
v_errorhint:='Fout bijwerken Toegangsniveau';
|
||||
PRS.upsertkenmerk (1061, rec.prs_perslid_key, rec.prs_kenmerk11); -- Toegangsniveau 11, 1061
|
||||
v_errorhint:='Fout bijwerken Facilitor';
|
||||
PRS.upsertkenmerk (1072, rec.prs_perslid_key, rec.prs_kenmerk12); -- Facilitor 12 , 1072
|
||||
v_errorhint:='Fout bijwerken ADP';
|
||||
PRS.upsertkenmerk (1073, rec.prs_perslid_key, rec.prs_kenmerk13); -- ADP 13 , 1073
|
||||
v_errorhint:='Fout bijwerken Absentiemanager';
|
||||
PRS.upsertkenmerk (1074, rec.prs_perslid_key, rec.prs_kenmerk14); -- Absentiemanager 14, 1074
|
||||
v_errorhint:='Fout bijwerken Regas';
|
||||
PRS.upsertkenmerk (1075, rec.prs_perslid_key, rec.prs_kenmerk15); -- Regas 15, 1075
|
||||
v_errorhint:='Fout bijwerken Checks';
|
||||
PRS.upsertkenmerk (1076, rec.prs_perslid_key, rec.prs_kenmerk16); -- Checks 15, 1076
|
||||
v_errorhint:='Fout bijwerken Accountview';
|
||||
PRS.upsertkenmerk (1077, rec.prs_perslid_key, rec.prs_kenmerk17); -- Accountview 17, 1077
|
||||
v_errorhint:='Fout bijwerken Elvy';
|
||||
PRS.upsertkenmerk (1078, rec.prs_perslid_key, rec.prs_kenmerk18); -- Elvy 18, 1078
|
||||
v_errorhint:='Fout bijwerken HodNet';
|
||||
PRS.upsertkenmerk (1079, rec.prs_perslid_key, rec.prs_kenmerk19); -- HodNet 19, 1079
|
||||
v_errorhint:='Fout bijwerken Proactive';
|
||||
PRS.upsertkenmerk (1080, rec.prs_perslid_key, rec.prs_kenmerk20); -- Proactive 20, 1080
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
FOR rec IN c_del
|
||||
LOOP
|
||||
-- prs.delete_perslid (p_import_key, rec.prs_perslid_key); -- Deze niet draaien voor HMOD ivm de workflow HRM die men in Facilitor uitvoert...?
|
||||
-- wel vullen van een kenmerkveld ADP-import 1082
|
||||
BEGIN
|
||||
v_aanduiding := 'Import prs - ' || TO_CHAR(sysdate, 'dd/mm/yyyy - hh:mi:ss') || ' - status: ' || rec.prs_status;
|
||||
|
||||
v_errorhint:='Bijwerken veld verwijderen';
|
||||
PRS.upsertkenmerk (1082, rec.prs_perslid_key,'let op: verwijderen' );
|
||||
|
||||
fac.trackaction ('PRSUPD', rec.prs_perslid_key, 3,sysdate, v_aanduiding) ;
|
||||
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
BEGIN
|
||||
-- Telefoongegevens komen niet mee met de ADP-import. Deze velden worden dus bij deze prs-import leeggegooid.
|
||||
-- De telefoonnummers worden gevuld vanuit de aan de persoon gekoppelde telefoonobjecten (vast en mobiel)
|
||||
-- Daarom aan eind van deze prs-import deze telefoonvelden weer vullen door het dagelijks script wat hiervoor 's nachts draait, nogmaals te runnen.
|
||||
hmod_prs_telefoonnummers (null, null);
|
||||
END;
|
||||
|
||||
COMMIT;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ') ';
|
||||
fac.imp_writelog (p_import_key, 'E', v_errormsg || v_errorhint, 'Importproces personen afgebroken!');
|
||||
|
||||
END hmod_update_perslid;
|
||||
/
|
||||
|
||||
------ payload end ------
|
||||
|
||||
SET DEFINE OFF
|
||||
BEGIN adm.systrackscriptId ('$Id$', 1); END;
|
||||
/
|
||||
|
||||
COMMIT;
|
||||
SET ECHO OFF
|
||||
SPOOL OFF
|
||||
SET DEFINE ON
|
||||
PROMPT Logfile of this upgrade is: &fcltlogfile
|
||||
Reference in New Issue
Block a user