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

BLOS#68339 -- Clusterindeling herzien - script voor andere methodiek werkplek-koppelingen voor Locatiemanagers

Browse Source 
svn path=/Customer/; revision=55243
This commit is contained in:
Jos Migo
2022-03-09 12:14:37 +00:00
parent c68196979d
commit bf69cafc49
1 changed files with 119 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
onces/BLOS/BLOS#68339_wp.sql Normal file
View File

@@ -0,0 +1,119 @@
-- Customer specific once-script voor BLOS
-- $Id$
--
-- Oncescript om de werkplekkoppelingen die nu lopen op organisatie_code om te zetten naar de vink-opties in de personenkaart
DEFINE thisfile = 'BLOS#68339_label_mld_hook.SQL'
DEFINE dbuser = '^BLOS'
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 ------
-- Structuur - Cursor-views
---- Prs_perslid in Locatiemanagers met Organisatie_code => eigen_tabel_CODE - eigentabel_NAAM => Kenmerk_naam (vinkbox prs_kenmerk)
---- 1. Voor alle locatiemanagers waar koppeling op LABEL zit
-----2. Voor alle locatiemanagers op CLUSTER BLOS, daar alle prs_kenmerk_keys vullen van BLOS-MIDDEN, NOORD, WEST, OOST (zodat de wp-koppeling gelijk zijn aan huidige inrichting/werkwijze)
-------- keys: 1001, 1002, 1003, 1004)
DECLARE
v_errormsg VARCHAR (200);
v_errorhint VARCHAR (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (150);
currentversion fac_module.fac_module_version%TYPE;
v_aanduiding VARCHAR (100);
v_count NUMBER;
CURSOR c
IS
SELECT p.prs_perslid_key,
v2.prs_kenmerk_key
FROM prs_perslid p,
prs_afdeling a,
(SELECT UPPER (ud.fac_usrdata_omschr) cluster_label,
ud.fac_usrdata_code cluster_label_code,
ud.fac_usrdata_vervaldatum
FROM fac_usrtab ut, fac_usrdata ud
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key
AND ut.fac_usrtab_key = 1
AND fac_usrdata_verwijder IS NULL) v1,
(SELECT prs_kenmerk_key, prs_kenmerk_upper
FROM prs_kenmerk
WHERE prs_kenmerk_niveau = 'P'
AND prs_kenmerk_kenmerktype = 'V'
AND prs_kenmerk_verwijder IS NULL) v2
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_afdeling_upper = v1.cluster_label_code
AND v1.cluster_label = v2.prs_kenmerk_upper
AND p.prs_perslid_verwijder IS NULL
-- AND p.prs_perslid_key = 6101 -- Wendy Beem WONDERLAND-locatiemanager
AND NOT EXISTS (select km.prs_kenmerk_key from prs_kenmerklink km where km.prs_kenmerklink_niveau = 'P' and km.prs_kenmerk_key = v2.prs_kenmerk_key and km.prs_link_key = p.prs_perslid_key and km.prs_kenmerklink_verwijder IS NULL)
UNION ALL
--- Cursor 2 -- treffers 260/4 = 65 locatiemanagers...
SELECT p.prs_perslid_key,
v.prs_kenmerk_key
FROM prs_perslid p,
prs_afdeling a,
(select 1001 prs_kenmerk_key from dual
union
select 1002 prs_kenmerk_key from dual
union
select 1003 prs_kenmerk_key from dual
union
select 1004 prs_kenmerk_key from dual)v
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_afdeling_upper = 'BLOS'
AND p.prs_perslid_verwijder IS NULL
-- AND p.prs_perslid_key = 6961 -- Nina Bakker BLOS-locatiemanager
AND NOT EXISTS (select km.prs_kenmerk_key from prs_kenmerklink km where km.prs_kenmerklink_niveau = 'P' and km.prs_kenmerk_key = v.prs_kenmerk_key and km.prs_link_key = p.prs_perslid_key and km.prs_kenmerklink_verwijder IS NULL)
;
BEGIN
FOR rec IN c
LOOP
BEGIN
-- v_errorhint := 'Kenmerkveld wf_conversie vullen met omzetten - melding: ' || to_char(rec.mld_melding_start_key);
INSERT INTO prs_kenmerklink (prs_link_key,
prs_kenmerk_key,
prs_kenmerklink_waarde,
prs_kenmerklink_niveau)
VALUES (rec.prs_perslid_key,
rec.prs_kenmerk_key,
'1',
'P') ;
BEGIN fac.trackaction('PRSUPD', rec.prs_perslid_key, 3, NULL, NULL); END;
END;
END LOOP;
END;
/
------ 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