CWTD#38793 -- Personenimport omgehangen naar nieuwe situatie
svn path=/Customer/trunk/; revision=36008
This commit is contained in:
Robin Stoker
154
CWTD/cwtd.sql
154
CWTD/cwtd.sql
@@ -1,8 +1,26 @@
|
||||
-- Script containing customer specific configuration sql statements for CWTD
|
||||
--
|
||||
-- $Id$
|
||||
--
|
||||
-- Script containing customer specific sql statements for the CWTD database
|
||||
|
||||
spool xcwtd.lst
|
||||
set echo on
|
||||
DEFINE thisfile = 'CWTD.SQL'
|
||||
DEFINE dbuser = '^CWTD'
|
||||
DEFINE custid = 'CWTD'
|
||||
|
||||
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 ------
|
||||
|
||||
--
|
||||
-- Personen import
|
||||
--
|
||||
|
||||
CREATE OR REPLACE PROCEDURE cwtd_import_persoon (
|
||||
p_import_key IN NUMBER
|
||||
@@ -103,48 +121,41 @@ BEGIN
|
||||
v_newline := SUBSTR(next_record.FAC_IMP_FILE_LINE,1,c_max_import_str_len);
|
||||
|
||||
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_afdeling_naam); -- Afdeling
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_afdeling_omschr); -- <afdelingomschrijving>
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_nr); -- UP nr
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_voorletters); -- Voorletters
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_tussenvoegsel); -- Voorvoegsels
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_naam); -- Achternaam
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_partn_tussen); -- Voorvoegsels Partner
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_partn_naam); -- Achternaam Partner
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_voornaam); -- Roepnaam
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_fullname); -- Volledige naam
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_dummy); -- Functie
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_srtperslid_omschrijving); -- <functienaam>
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_geslacht); -- Geslacht
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_email); -- E-mailadres
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_telefoonnr); -- Intern nummer
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_mobiel); -- Zakelijk mobiele nummer
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_locatie_omschrijving); -- Vestiging
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_ingangsdatum); -- In Dienst
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_nr); -- Carlson UID
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_voornaam); -- First Name
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_naam); -- Last Name
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_srtperslid_omschrijving); -- Job Name
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_afdeling_omschr); -- Department Name
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_locatie_omschrijving); -- Location Name
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_afdeling_naam); -- Cost Center Numnber
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_email); -- Email Address
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_geslacht); -- Gender
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_telefoonnr); -- Work Phone
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_ingangsdatum);
|
||||
v_perslid_ingangsdatum := '';
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_einddatum); -- Uit Dienst
|
||||
fac.imp_getfield (v_newline, v_fielddelimitor, v_perslid_einddatum);
|
||||
v_perslid_einddatum := '';
|
||||
v_perslid_oslogin := '';
|
||||
|
||||
-- Skip until the header is found
|
||||
IF (v_afdeling_naam = 'Afdeling' AND
|
||||
v_afdeling_omschr IS NULL AND
|
||||
v_perslid_nr = 'UP nr' AND
|
||||
v_perslid_voorletters = 'Voorletters' AND
|
||||
v_perslid_tussenvoegsel = 'Voorvoegsels' AND
|
||||
v_perslid_naam = 'Achternaam' AND
|
||||
v_perslid_partn_tussen = 'Voorvgsl Partner' AND
|
||||
v_perslid_partn_naam = 'Achternaam Partner' AND
|
||||
v_perslid_voornaam = 'Roepnaam' AND
|
||||
v_perslid_fullname = 'Naam' AND
|
||||
v_dummy = 'Functie' AND
|
||||
v_srtperslid_omschrijving IS NULL AND
|
||||
v_perslid_geslacht = 'Geslacht' AND
|
||||
v_perslid_email = 'E-mailadres' AND
|
||||
v_perslid_telefoonnr = 'Intern nummer' AND
|
||||
v_perslid_mobiel = 'Zakelijk mobiele nummer' AND
|
||||
v_locatie_omschrijving = 'Vestiging'
|
||||
)
|
||||
IF (v_perslid_nr = 'Carlson UID' AND
|
||||
v_perslid_voornaam = 'First Name' AND
|
||||
v_perslid_naam = 'Last Name' AND
|
||||
v_srtperslid_omschrijving = 'Job Name' AND
|
||||
v_afdeling_omschr = 'Department Name' AND
|
||||
v_locatie_omschrijving = 'Location Name' AND
|
||||
v_afdeling_naam = 'Cost Center Numnber' AND
|
||||
v_perslid_email = 'Email Address' AND
|
||||
v_perslid_geslacht = 'Gender' AND
|
||||
v_perslid_telefoonnr = 'Work Phone'
|
||||
-- v_perslid_voorletters IS NULL AND
|
||||
-- v_perslid_tussenvoegsel IS NULL AND
|
||||
-- v_perslid_partn_tussen IS NULL AND
|
||||
-- v_perslid_partn_naam IS NULL AND
|
||||
-- v_perslid_fullname IS NULL AND
|
||||
-- v_srtperslid_omschrijving IS NULL AND
|
||||
-- v_perslid_mobiel IS NULL AND
|
||||
)
|
||||
THEN
|
||||
header_found := TRUE;
|
||||
ELSIF (header_found)
|
||||
@@ -194,7 +205,7 @@ BEGIN
|
||||
VALUES(v_perslid_nr
|
||||
,v_perslid_naam
|
||||
,v_perslid_voornaam
|
||||
,v_perslid_geslacht
|
||||
,DECODE (v_perslid_geslacht, 'Male', 1, 0)
|
||||
,v_perslid_partn_tussen
|
||||
,v_perslid_partn_naam
|
||||
,v_perslid_tussenvoegsel
|
||||
@@ -519,37 +530,38 @@ BEGIN
|
||||
|
||||
v_perslid_tussenvoegsel := rec_prs_upd.prs_perslid_tussenvoegsel;
|
||||
v_perslid_naam := rec_prs_upd.prs_perslid_naam;
|
||||
|
||||
|
||||
|
||||
-- partner - eigen
|
||||
IF v_per_indnaamsvoegen = 'J'
|
||||
OR v_per_indnaamsvoegen = 'W'
|
||||
OR v_per_indnaamsvoegen = 'E'
|
||||
OR v_per_indnaamsvoegen = 'P'
|
||||
THEN
|
||||
v_perslid_tussenvoegsel := rec_prs_upd.prs_perslid_partn_tussen;
|
||||
|
||||
IF rec_prs_upd.prs_perslid_tussenvoegsel IS NOT NULL
|
||||
THEN
|
||||
v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_partn_naam || '-' || rec_prs_upd.prs_perslid_tussenvoegsel || ' ' || rec_prs_upd.prs_perslid_naam, 1, 30);
|
||||
ELSE
|
||||
v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_partn_naam || '-' || rec_prs_upd.prs_perslid_naam, 1, 30);
|
||||
END IF;
|
||||
-- partner
|
||||
ELSIF v_per_indnaamsvoegen = 'A'
|
||||
THEN
|
||||
v_perslid_tussenvoegsel := rec_prs_upd.prs_perslid_partn_tussen;
|
||||
v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_partn_naam, 1, 30);
|
||||
-- eigen - partner
|
||||
ELSIF v_per_indnaamsvoegen = 'G'
|
||||
THEN
|
||||
IF rec_prs_upd.prs_perslid_partn_tussen IS NOT NULL
|
||||
THEN
|
||||
v_perslid_naam :=
|
||||
SUBSTR (rec_prs_upd.prs_perslid_naam || '-' || rec_prs_upd.prs_perslid_partn_tussen || ' ' || rec_prs_upd.prs_perslid_partn_naam, 1, 30);
|
||||
ELSE
|
||||
v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_naam || '-' || rec_prs_upd.prs_perslid_partn_naam, 1, 30);
|
||||
END IF;
|
||||
END IF;
|
||||
-- IF v_per_indnaamsvoegen = 'J'
|
||||
-- OR v_per_indnaamsvoegen = 'W'
|
||||
-- OR v_per_indnaamsvoegen = 'E'
|
||||
-- OR v_per_indnaamsvoegen = 'P'
|
||||
-- THEN
|
||||
-- v_perslid_tussenvoegsel := rec_prs_upd.prs_perslid_partn_tussen;
|
||||
--
|
||||
-- IF rec_prs_upd.prs_perslid_tussenvoegsel IS NOT NULL
|
||||
-- THEN
|
||||
-- v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_partn_naam || '-' || rec_prs_upd.prs_perslid_tussenvoegsel || ' ' || rec_prs_upd.prs_perslid_naam, 1, 30);
|
||||
-- ELSE
|
||||
-- v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_partn_naam || '-' || rec_prs_upd.prs_perslid_naam, 1, 30);
|
||||
-- END IF;
|
||||
-- -- partner
|
||||
-- ELSIF v_per_indnaamsvoegen = 'A'
|
||||
-- THEN
|
||||
-- v_perslid_tussenvoegsel := rec_prs_upd.prs_perslid_partn_tussen;
|
||||
-- v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_partn_naam, 1, 30);
|
||||
-- -- eigen - partner
|
||||
-- ELSIF v_per_indnaamsvoegen = 'G'
|
||||
-- THEN
|
||||
-- IF rec_prs_upd.prs_perslid_partn_tussen IS NOT NULL
|
||||
-- THEN
|
||||
-- v_perslid_naam :=
|
||||
-- SUBSTR (rec_prs_upd.prs_perslid_naam || '-' || rec_prs_upd.prs_perslid_partn_tussen || ' ' || rec_prs_upd.prs_perslid_partn_naam, 1, 30);
|
||||
-- ELSE
|
||||
-- v_perslid_naam := SUBSTR (rec_prs_upd.prs_perslid_naam || '-' || rec_prs_upd.prs_perslid_partn_naam, 1, 30);
|
||||
-- END IF;
|
||||
-- END IF;
|
||||
|
||||
-- Controle: PRS_PERSLID_NAAM
|
||||
IF v_update AND v_perslid_naam IS NULL
|
||||
|
||||
Reference in New Issue
Block a user