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

PZEE#75214 Implementatie Provincie Zeeland, aanpassing personen import

Browse Source 
svn path=/Customer/trunk/; revision=58771
This commit is contained in:
Suzan Wiegerinck
2023-01-23 08:58:04 +00:00
parent 558313de62
commit 40342fcaa3
1 changed files with 107 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

190
PZEE/PZEE.sql
View File

@@ -1,8 +1,9 @@
/* Formatted on 23/1/2023 09:55:58 (QP5 v5.336) */
--
-- $Id$
--
-- Script containing customer specific sql statements for the FACILITOR database
--
--
DEFINE thisfile = 'PZEE.SQL'
DEFINE dbuser = 'PZEE'
@@ -12,10 +13,14 @@ SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SELECT adm.getscriptspoolfile ('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
SELECT adm.checkscriptcust ('&dbuser') AS fcltcusttxt FROM DUAL;
WHENEVER SQLERROR CONTINUE;
---------------------------------------
PROMPT &fcltcusttxt
@@ -41,14 +46,19 @@ BEGIN
|| '9;7;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0',
--- Achternaam Voorvoegsel Roepnaam TelefoonnummerVast TelefoonnummerMobiel Netwerknaam Email CodeOrganisatieEenheid
'Personeelsnummer;Achternaam;Voorvoegsel;Roepnaam;TelefoonnummerVast;TelefoonnummerMobiel;Netwerknaam;Email;OrganisatieEenheidCode%');
---"Personeelsnummer";"Achternaam";"Voorvoegsel";"Roepnaam";"TelefoonnummerVast";"TelefoonnummerMobiel";"Netwerknaam";"Email";"OrganisatieEenheidCode"
'"Personeelsnummer";"Achternaam";"Voorvoegsel";"Roepnaam";"TelefoonnummerVast";"TelefoonnummerMobiel";"Netwerknaam";"Email";"OrganisatieEenheidCode"%');
COMMIT;
-- Personeelsleden die op afdelingsniveau <20>ZLD <20> Zeeland<6E> zitten zijn externen
UPDATE fac_imp_perslid p
SET p.prs_afdeling_naam = 'EXT'
WHERE UPPER (p.prs_afdeling_naam) = 'ZLD';
-- functie wordt niet gebruikt, dus deze wordt altijd 'onbekend'
UPDATE fac_imp_perslid
SET prs_srtperslid_omschrijving = 'Onbekend';
SET prs_srtperslid_omschrijving = 'Onbekend';
COMMIT;
EXCEPTION
@@ -66,8 +76,8 @@ END pzee_import_perslid;
CREATE OR REPLACE PROCEDURE pzee_update_perslid (p_import_key IN NUMBER)
IS
v_count NUMBER;
IS
v_count NUMBER;
CURSOR c_perslid IS
SELECT *
@@ -119,49 +129,47 @@ BEGIN
END LOOP;
COMMIT;
END pzee_update_perslid;
/
CREATE OR REPLACE PROCEDURE pzee_import_kpl (p_import_key IN NUMBER)
IS
c_fielddelimitor VARCHAR2 (1) := ';';
c_headerline VARCHAR (1000)
-- := 'Achternaam;E-mail adres;Extern emailadres;My Nyenrode Login;Studentnummer;Geboortedatum;Geslacht;Voorletters;Roepnaam;Voorvoegsels;Mobiel telefoonnummer;Telefoonnummer;Opleiding;Cohort';
:= 'Kostenplaatstype ID;Kostenplaats type;Kostenplaats ID;Kostenplaatsnaam;Kostenplaats ERP ID;Kostenplaats online;Toegangsrecht rol ID;Rol;Gebruiker login;Gebruikernaam;Status gebruiker;Gebruiker verwijderd?';
c_fielddelimitor VARCHAR2 (1) := ';';
c_headerline VARCHAR (1000)
-- := 'Achternaam;E-mail adres;Extern emailadres;My Nyenrode Login;Studentnummer;Geboortedatum;Geslacht;Voorletters;Roepnaam;Voorvoegsels;Mobiel telefoonnummer;Telefoonnummer;Opleiding;Cohort';
:= 'Kostenplaatstype ID;Kostenplaats type;Kostenplaats ID;Kostenplaatsnaam;Kostenplaats ERP ID;Kostenplaats online;Toegangsrecht rol ID;Rol;Gebruiker login;Gebruikernaam;Status gebruiker;Gebruiker verwijderd?';
v_newline VARCHAR2 (1000); -- Input line
v_header VARCHAR2 (1000);
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
header_is_valid NUMBER := 0;
v_ongeldig NUMBER (1);
v_count_tot NUMBER (10);
v_count_import NUMBER (10);
v_count NUMBER;
v_newline VARCHAR2 (1000); -- Input line
v_header VARCHAR2 (1000);
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
header_is_valid NUMBER := 0;
v_ongeldig NUMBER (1);
v_count_tot NUMBER (10);
v_count_import NUMBER (10);
v_count NUMBER;
-- De importvelden:
v_kostenplaatstype_id VARCHAR2 (256);
v_kostenplaats_type VARCHAR2 (256);
v_kostenplaats_id VARCHAR2 (256);
v_kostenplaatsnaam VARCHAR2 (256);
v_kostenplaats_erp_id VARCHAR2 (256);
v_kostenplaats_online VARCHAR2 (256);
v_toegangsrecht_rol_id VARCHAR2 (256);
v_rol VARCHAR2 (256);
v_gebruiker_login VARCHAR2 (256);
v_gebruikernaam VARCHAR2 (256);
v_status_gebruiker VARCHAR2 (256);
v_gebruiker_verwijderd VARCHAR2 (256);
v_kostenplaatstype_id VARCHAR2 (256);
v_kostenplaats_type VARCHAR2 (256);
v_kostenplaats_id VARCHAR2 (256);
v_kostenplaatsnaam VARCHAR2 (256);
v_kostenplaats_erp_id VARCHAR2 (256);
v_kostenplaats_online VARCHAR2 (256);
v_toegangsrecht_rol_id VARCHAR2 (256);
v_rol VARCHAR2 (256);
v_gebruiker_login VARCHAR2 (256);
v_gebruikernaam VARCHAR2 (256);
v_status_gebruiker VARCHAR2 (256);
v_gebruiker_verwijderd VARCHAR2 (256);
CURSOR c1 IS
SELECT *
FROM fac_imp_file
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index;
BEGIN
DELETE FROM fac_imp_kpn;
@@ -177,28 +185,40 @@ BEGIN
v_header := v_newline;
v_aanduiding := '';
v_errorhint := 'Fout bij opvragen te importeren rij';
v_ongeldig := 0;
v_ongeldig := 0;
-- Lees alle veldwaarden
fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaatstype_id);
fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaats_type);
fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaats_id);
fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaatsnaam);
fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaats_erp_id);
fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaats_online);
fac.imp_getfield (v_newline, c_fielddelimitor, v_toegangsrecht_rol_id);
fac.imp_getfield (v_newline, c_fielddelimitor, v_rol);
fac.imp_getfield (v_newline, c_fielddelimitor, v_gebruiker_login);
fac.imp_getfield (v_newline, c_fielddelimitor, v_gebruikernaam);
fac.imp_getfield (v_newline, c_fielddelimitor, v_status_gebruiker);
fac.imp_getfield (v_newline, c_fielddelimitor, v_gebruiker_verwijderd);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_kostenplaatstype_id);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_kostenplaats_type);
fac.imp_getfield (v_newline, c_fielddelimitor, v_kostenplaats_id);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_kostenplaatsnaam);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_kostenplaats_erp_id);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_kostenplaats_online);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_toegangsrecht_rol_id);
fac.imp_getfield (v_newline, c_fielddelimitor, v_rol);
fac.imp_getfield (v_newline, c_fielddelimitor, v_gebruiker_login);
fac.imp_getfield (v_newline, c_fielddelimitor, v_gebruikernaam);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_status_gebruiker);
fac.imp_getfield (v_newline,
c_fielddelimitor,
v_gebruiker_verwijderd);
v_aanduiding :=
'['
|| v_kostenplaats_id
|| '|'
|| v_kostenplaatsnaam
|| '] ';
'[' || v_kostenplaats_id || '|' || v_kostenplaatsnaam || '] ';
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
-- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
@@ -219,23 +239,23 @@ BEGIN
v_errorhint :=
'Fout bij toevoegen regel aan importtabel fac_imp_kpn';
INSERT INTO fac_imp_kpn (prs_kostenplaats_nr,
prs_kostenplaats_omschrijving,
prs_kostenplaats_module,
prs_kostenplaats_externnr ---- deze misbruiken we voor de budgehouder
)
VALUES (v_kostenplaats_id,
INSERT INTO fac_imp_kpn (
prs_kostenplaats_nr,
prs_kostenplaats_omschrijving,
prs_kostenplaats_module,
prs_kostenplaats_externnr ---- deze misbruiken we voor de budgehouder
)
VALUES (
v_kostenplaats_id,
v_kostenplaatsnaam,
DECODE (v_kostenplaats_type, ----ALG = Gebouwkostenplaats, PRS = Afdelingskostenplaats, PRJ = Projectkostenplaats
'IBCF', 'PRJ' ,
'IBTW', 'PRJ' ,
'IKST', 'PRJ' ,
'VB0' , 'PRJ'),
v_gebruiker_login
);
DECODE (v_kostenplaats_type, ----ALG = Gebouwkostenplaats, PRS = Afdelingskostenplaats, PRJ = Projectkostenplaats
'IBCF', 'PRJ',
'IBTW', 'PRJ',
'IKST', 'PRJ',
'VB0', 'PRJ'),
v_gebruiker_login);
COMMIT;
v_count_import := v_count_import + 1;
@@ -265,22 +285,24 @@ BEGIN
--- nu even de juiste budgethouder op basis van het emailadres bepalen
UPDATE fac_imp_kpn k
SET k.prs_perslid_key =
SET k.prs_perslid_key =
(SELECT p.prs_perslid_key
FROM prs_perslid p
WHERE UPPER (k.prs_kostenplaats_externnr) = UPPER (p.prs_perslid_email));
WHERE UPPER (k.prs_kostenplaats_externnr) =
UPPER (p.prs_perslid_email));
--- en de tijdelijke veldwaarde opruimen
UPDATE fac_imp_kpn
SET prs_kostenplaats_externnr = NULL
WHERE prs_kostenplaats_externnr IS NOT NULL;
IF (header_is_valid = 1)
THEN
fac.imp_writelog (
p_import_key,
'S',
'Kostenplaatsen: aantal ingelezen regels: ' || TO_CHAR (v_count_tot),
'Kostenplaatsen: aantal ingelezen regels: '
|| TO_CHAR (v_count_tot),
'');
fac.imp_writelog (
p_import_key,
@@ -316,11 +338,8 @@ END pzee_import_kpl;
CREATE OR REPLACE PROCEDURE pzee_update_kpl (p_import_key IN NUMBER)
AS
BEGIN
fac_update_kpn (p_import_key);
END pzee_update_kpl;
/
@@ -346,15 +365,20 @@ AS
0, 'Normaal',
'Defect') ins_status
FROM ins_v_deel_gegevens d;
------ payload end ------
SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 0); END;
BEGIN
adm.systrackscriptId (
'$Id$',
0);
END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile
PROMPT Logfile of this upgrade is: &fcltlogfile