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

MNNL#69794 Beheer certificaten (CERT-import+DAILY)+CMDB-import/Verwijderen kolom

Browse Source 
svn path=/Customer/trunk/; revision=63675
This commit is contained in:
Maarten van der Heide
2024-02-22 10:30:12 +00:00
parent 19b3e2d0ef
commit b1ee95c834
1 changed files with 40 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
MNNL/mnnl.sql
View File

@@ -231,6 +231,35 @@ BEGIN
AND UPPER(alg_ruimte_nr) = '_WP')))
WHERE fac_import_key = p_import_key;
COMMIT;
-- Recover PRS_PERSLID_OSLOGIN uit PRS_PERSLID_EXTERNOSLOGIN (waar onzichtbare kopie staat)!
--SELECT p.prs_perslid_key, p.prs_perslid_email, p.prs_perslid_externoslogin, p.prs_perslid_oslogin
-- FROM prs_perslid p
-- WHERE p.prs_perslid_verwijder IS NULL
-- AND p.prs_perslid_externoslogin IS NULL
-- AND p.prs_perslid_oslogin IS NOT NULL
-- AND EXISTS (SELECT 1 FROM prs_v_afdeling_boom WHERE prs_bedrijf_key = 5 AND prs_afdeling_key = p.prs_afdeling_key) -- MN
--;
--UPDATE prs_perslid p
-- SET p.prs_perslid_externoslogin = p.prs_perslid_oslogin
-- WHERE p.prs_perslid_verwijder IS NULL
-- AND p.prs_perslid_externoslogin IS NULL
-- AND p.prs_perslid_oslogin IS NOT NULL
-- AND EXISTS (SELECT 1 FROM prs_v_afdeling_boom WHERE prs_bedrijf_key = 5 AND prs_afdeling_key = p.prs_afdeling_key) -- MN
--;
--SELECT p.prs_perslid_key, p.prs_perslid_email, p.prs_perslid_oslogin, p.prs_perslid_externoslogin
-- FROM prs_perslid p
-- WHERE 1 = 1 --p.prs_perslid_verwijder IS NULL -- Ook voor verwijderde personen!?
-- AND p.prs_perslid_oslogin IS NULL
-- AND EXISTS (SELECT 1 FROM prs_v_afdeling_boom WHERE prs_bedrijf_key = 5 AND prs_afdeling_key = p.prs_afdeling_key) -- MN
-- AND EXISTS (SELECT 1 FROM fac_imp_perslid WHERE prs_perslid_oslogin = p.prs_perslid_externoslogin);
UPDATE prs_perslid p
SET p.prs_perslid_oslogin = p.prs_perslid_externoslogin
WHERE 1 = 1 --p.prs_perslid_verwijder IS NULL -- Ook voor verwijderde personen!?
AND p.prs_perslid_oslogin IS NULL
AND EXISTS (SELECT 1 FROM prs_v_afdeling_boom WHERE prs_bedrijf_key = 5 AND prs_afdeling_key = p.prs_afdeling_key) -- MN
AND EXISTS (SELECT 1 FROM fac_imp_perslid WHERE prs_perslid_oslogin = p.prs_perslid_externoslogin);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
@@ -1958,7 +1987,7 @@ IS
v_ins_srtdeel_code VARCHAR2 (255); -- C10
v_ins_srtdeel_omschrijving VARCHAR2 (255); -- C100
v_ins_deel_omschrijving VARCHAR2 (255); -- C60
v_ins_deel_opmerking VARCHAR2 (2000); -- C2000
--v_ins_deel_opmerking VARCHAR2 (2000); -- C2000
v_prs_afdeling_naam VARCHAR2 (255); -- C15
v_ins_parent_omschrijving VARCHAR2 (255); -- C60
@@ -1982,7 +2011,7 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_ins_srtdeel_code);
fac.imp_getfield (v_newline, c_delim, v_ins_srtdeel_omschrijving);
fac.imp_getfield (v_newline, c_delim, v_ins_deel_omschrijving);
fac.imp_getfield (v_newline, c_delim, v_ins_deel_opmerking);
--fac.imp_getfield (v_newline, c_delim, v_ins_deel_opmerking);
fac.imp_getfield (v_newline, c_delim, v_prs_afdeling_naam);
fac.imp_getfield (v_newline, c_delim, v_ins_parent_omschrijving);
@@ -2011,7 +2040,7 @@ BEGIN
AND UPPER (v_ins_srtdeel_code) = 'OBJECTSOORTCODE'
AND UPPER (v_ins_srtdeel_omschrijving) = 'OBJECTSOORTOMSCHRIJVING'
AND UPPER (v_ins_deel_omschrijving) = 'OBJECTOMSCHRIJVING'
AND UPPER (v_ins_deel_opmerking) = 'OBJECTOPMERKING'
--AND UPPER (v_ins_deel_opmerking) = 'OBJECTOPMERKING'
AND UPPER (v_prs_afdeling_naam) = 'AFDELING'
--AND UPPER (v_ins_parent_omschrijving) = 'PARENT'
THEN
@@ -2071,14 +2100,14 @@ BEGIN
END IF;
--
v_errormsg := 'Objectopmerking te lang';
v_ins_deel_opmerking := TRIM (v_ins_deel_opmerking);
--v_errormsg := 'Objectopmerking te lang';
--v_ins_deel_opmerking := TRIM (v_ins_deel_opmerking);
IF LENGTH (v_ins_deel_opmerking) > 2000
THEN
v_ins_deel_opmerking := SUBSTR (v_ins_deel_opmerking, 1, 2000);
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Opmerking wordt afgekapt!');
END IF;
--IF LENGTH (v_ins_deel_opmerking) > 2000
--THEN
-- v_ins_deel_opmerking := SUBSTR (v_ins_deel_opmerking, 1, 2000);
-- fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Opmerking wordt afgekapt!');
--END IF;
--
v_errormsg := 'Afdelingscode ongeldig; ongedefinieerd of te lang';
@@ -2120,7 +2149,7 @@ BEGIN
v_ins_srtdeel_code,
v_ins_srtdeel_omschrijving,
v_ins_deel_omschrijving,
v_ins_deel_opmerking,
NULL, -- Was v_ins_deel_opmerking!
'A',
v_prs_afdeling_naam,
v_ins_parent_omschrijving);