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

TDNL#80795 Personen import toegevoegd met toewijzing van werkplek binnen gebouw.

Browse Source 
svn path=/Customer/trunk/; revision=66480
This commit is contained in:
Norbert Wassink
2024-10-07 08:52:02 +00:00
parent 51b6bb24f9
commit f7aa005729
1 changed files with 76 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
TDNL/TDNL.sql
View File

@@ -165,6 +165,21 @@ END;
-- IMPORTS
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_PERSLID_WP(p_import_key IN NUMBER)
AS
BEGIN
fac_import_perslid(p_import_key);
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_PERSLID_WP(p_import_key IN NUMBER)
AS
BEGIN
prs.update_perslid (p_import_key, 'NR', 'G', 1);
END;
/
-- Import KPN aan gebouw koppelen
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_GEBOUW_KPN(p_import_key IN NUMBER)
@@ -572,8 +587,8 @@ AS
IS
SELECT fac_imp_csv_col01 mld_org_melding_key,
fac_imp_csv_col02 alg_onrgoed_niveau,
fac_imp_csv_col03 alg_locatie_code,
fac_imp_csv_col04 alg_gebouw_code,
fac_imp_csv_col04 alg_locatie_code,
fac_imp_csv_col04 alg_gebouw_code, -- DIT DIEN WE EXTRA OMDAT DE locatie_code in de oude omgeviung voor oude gebouw en niet goed is.
fac_imp_csv_col05 alg_verdieping_code,
fac_imp_csv_col06 alg_ruimte_nr,
fac_imp_csv_col07 mld_stdmelding_key,
@@ -686,28 +701,28 @@ BEGIN
v_error:=0;
IF v_aantal=0
THEN
BEGIN
v_aanduiding:='Ophalen aanvrager op naam gaat fout :'|| rec.prs_aanvrager_oslogin;
IF INSTR(rec.prs_aanvrager_oslogin,'@') >0 THEN
v_aanvrager:=UPPER(SUBSTR(rec.prs_aanvrager_oslogin,0,INSTR(rec.prs_aanvrager_oslogin,'@')-1));
ELSE
v_aanvrager:=UPPER(rec.prs_aanvrager_oslogin);
END IF;
SELECT prs_perslid_key
INTO v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin) LIKE v_aanvrager||'%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT prs_perslid_key
INTO v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)= '_MIGRATIE';
END;
BEGIN
v_aanduiding:='Ophalen aanvrager op naam gaat fout :'|| rec.prs_aanvrager_oslogin;
IF INSTR(rec.prs_aanvrager_oslogin,'@') >0 THEN
v_aanvrager:=UPPER(SUBSTR(rec.prs_aanvrager_oslogin,0,INSTR(rec.prs_aanvrager_oslogin,'@')-1));
ELSE
v_aanvrager:=UPPER(rec.prs_aanvrager_oslogin);
END IF;
SELECT prs_perslid_key
INTO v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin) LIKE v_aanvrager||'%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
SELECT prs_perslid_key
INTO v_prs_aanvrager_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)= '_MIGRATIE';
END;
END IF;
v_aanduiding:='Ophalen behandelaar op oslogin gaat fout :'|| rec.prs_behandelaar_oslogin;
v_aanduiding:='Ophalen behandelaar op oslogin gaat fout :'|| rec.prs_behandelaar_oslogin;
v_naam_behandelaar := SUBSTR(rec.prs_behandelaar_oslogin,0, INSTR(rec.prs_behandelaar_oslogin,'@')-1);
SELECT COUNT(*), MAX(prs_perslid_key)
INTO v_aantal, v_prs_behandelaar_key
@@ -728,8 +743,13 @@ BEGIN
WHERE UPPER(prs_perslid_email) LIKE v_behandelaar||'%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_prs_behandelaar_key:=3; -- Nader te bepalen nu even facilitor
THEN
-- v_prs_behandelaar_key:=3; -- Nader te bepalen nu even facilitor
SELECT prs_perslid_key
INTO v_prs_behandelaar_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)= '_MIGRATIE_BEHANDELAAR';
END;
END IF;
@@ -742,7 +762,7 @@ BEGIN
SELECT prs_kostenplaats_key
INTO v_kostenplaats_key
FROM prs_kostenplaats
WHERE prs_KOSTENPLAATS_NR = rec.prs_kostenplaats_code
WHERE prs_kostenplaats_nr = rec.prs_kostenplaats_code
AND prs_kostenplaats_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
@@ -825,12 +845,12 @@ BEGIN
prs_perslid_key,
mld_melding_note_omschrijving,
mld_melding_note_flag)
VALUES (v_mldkey,
fac.safe_to_date(rec.mld_melding_datum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
3, -- Facilitor
'Kenmerken :' ||CHR(10)|| REPLACE(rec.mld_melding_kenmerken,';',CHR(10)),
0);
VALUES (v_mldkey,
fac.safe_to_date(rec.mld_melding_datum,'DD-MM-YYYY HH24:MI.SS'),
SYSDATE,
3, -- Facilitor
'Kenmerken :' ||CHR(10)|| REPLACE(rec.mld_melding_kenmerken,';',CHR(10)),
0);
END IF;
fac.imp_writelog (p_import_key,
'I',
@@ -1004,7 +1024,8 @@ AS
SELECT p.prs_kostenplaats_key
INTO v_prs_kostenplaats_key
FROM prs_kostenplaats p
WHERE p.prs_kostenplaats_nr=rec.prs_kostenplaats_nr;
WHERE p.prs_kostenplaats_nr=rec.prs_kostenplaats_nr
AND p.prs_kostenplaats_verwijder IS NULL;
v_aanduiding:='Ophalen van opdracht type is mislukt.';
@@ -1018,8 +1039,8 @@ AS
THEN
v_error:=1;
END;
END IF;
IF v_error=0 THEN
v_aanduiding:='Ophalen van perslid.';
BEGIN
SELECT p.prs_perslid_key
@@ -1028,10 +1049,15 @@ AS
WHERE UPPER(p.prs_perslid_oslogin)=UPPER(rec.prs_perslid_oslogin);
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_prs_perslid_key:=3;
-- v_prs_behandelaar_key:=3; -- Nader te bepalen nu even facilitor
SELECT prs_perslid_key
INTO v_prs_perslid_key
FROM prs_perslid p
WHERE UPPER(prs_perslid_oslogin)= '_MIGRATIE_BEHANDELAAR';
END;
v_aanduiding:='Ophalen van leverenacier is mislukt.';
END IF;
IF v_error=0 THEN
v_aanduiding:='Ophalen van leverenacier '||rec.prs_leverancier_nr||' is mislukt.';
BEGIN
SElECT prs_bedrijf_key
INTO v_uitvoerende_key
@@ -1040,10 +1066,12 @@ AS
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_aanduiding:='Ophalen van Fall Back leverenacier '||rec.prs_leverancier_nr||' is mislukt.';
SElECT prs_bedrijf_key
INTO v_uitvoerende_key
FROM prs_bedrijf p
WHERE p.prs_leverancier_nr='_999999';
WHERE p.prs_leverancier_nr='999999'
AND p.prs_bedrijf_verwijder IS NULL;
END;
@@ -1053,8 +1081,8 @@ AS
IF v_error=0 AND v_count=0
THEN
INSERT INTO mld_opdr (mld_melding_key,
v_aanduiding:='Aanmaken opdarcht is mislukt.';
INSERT INTO mld_opdr (mld_melding_key,
prs_kostenplaats_key,
mld_statusopdr_key,
mld_typeopdr_key,
@@ -1101,17 +1129,22 @@ AS
'I',
'Opdacht aangemaakt',
'Opdracht '||v_melding_key||'/'||rec.mld_opdr_volgnr||'('||v_mld_opdr_key||') is aangemaakt.');
IF LENGTH(rec.ken_coupa_onderwerp)>0
THEN
NULL;
v_aanduiding:='Aanmaken kenmerk coupa onderwerp is mislukt.';
flx.setflex('OPD',v_coupa_onderwerp_key,v_mld_opdr_key,rec.ken_coupa_onderwerp);
END IF;
IF LENGTH(rec.ken_coupa_id)>0
THEN
NULL;
v_aanduiding:='Aanmaken coupa ID is mislukt.';
flx.setflex('OPD',v_coupa_id_key,v_mld_opdr_key,rec.ken_coupa_id);
END IF;
IF LENGTH(rec.ken_coupa_inkoopnr)>0
THEN
NULL;
v_aanduiding:='Aanmaken inkoopnr is mislukt.';
flx.setflex('OPD',v_coupa_inkoopnr_key,v_mld_opdr_key,rec.ken_coupa_inkoopnr);
END IF;