BLOS#73409 -- De eigen Facilitor Opdrachten visueel in beeld krijgen in kalenderweergave

BLOS#66419 -- Graphics & Gebouwketen - inrichting doorgezet naar productie

svn path=/Customer/trunk/; revision=57090
This commit is contained in:
Jos Migo
2022-09-05 06:50:39 +00:00
parent 1873df4b18
commit 82cfb1d070

View File

@@ -514,6 +514,442 @@ BEGIN
END;
/
CREATE OR REPLACE PROCEDURE blos_import_perslid (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
v_aantal_in_fclt NUMBER;
-- overige variabelen
v_prs_afdeling_key1 NUMBER(10);
v_prs_afdeling_upper2 VARCHAR2(15);
c_prs_afdeling_key NUMBER(10) := 251 ; -- Fallback-afdeling 'ONBEKEND'
v_alg_locatie_key NUMBER(10);
v_alg_locatie_afas VARCHAR(60);
v_alg_locatie_code VARCHAR2(10);
v_alg_gebouw_key NUMBER(10);
v_alg_gebouw_code VARCHAR2(12);
v_alg_verdieping_key NUMBER(10);
v_alg_verdieping_volgnr NUMBER(3);
v_alg_ruimte_key NUMBER(10);
v_alg_ruimte_nr VARCHAR2(20);
CURSOR c_email
IS
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_email
FROM fac_imp_perslid i, prs_perslid p
WHERE fac_import_key = p_import_key
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_email IS NOT NULL
ORDER BY 1 ;
CURSOR c_login
IS
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_oslogin
FROM fac_imp_perslid i, prs_perslid p
WHERE fac_import_key = p_import_key
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_oslogin IS NOT NULL
ORDER BY 1 ;
CURSOR c_afd
IS
SELECT fac_imp_file_index, prs_kenmerk3, prs_srtperslid_omschrijving
FROM fac_imp_perslid
WHERE fac_import_key = p_import_key ;
CURSOR c_loc
IS
SELECT fac_imp_file_index, prs_kenmerk2
FROM fac_imp_perslid
WHERE fac_import_key = p_import_key ;
BEGIN
-- Het aangeleverde bestand heeft de gegevens komma gescheiden ipv ;
v_errorhint := 'Delimiter goed zetten';
-- UPDATE fac_imp_file
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';')
-- WHERE fac_import_key = p_import_key;
-- Het aangeleverde bestand heeft aanhalingstekens om de invoervelden..
-- UPDATE fac_imp_file
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, '"', '')
-- WHERE fac_import_key = p_import_key;
v_errorhint := 'Generieke update';
-- De sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid procedure
---
prs.import_perslid (
p_import_key,
'0;0;0;0;0;0;1;2;0;0;'
|| '0;0;0;0;0;0;4;3;0;1;'
|| '7;0;0;0;0;0;2;5;6;0;'
|| '0;0;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0',
'Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving%');
-- 1 2 3 4 5 6 7
-- BESTAND BIJ BLOS: Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving
v_errorhint := 'Functie goed vullen';
-- Functie is niet altijd gevuld, eerst gevuld met Persoonsnr, nu vullen met kenmerk1 (of 'Onbekend').
/*
UPDATE fac_imp_perslid
SET prs_srtperslid_omschrijving =
DECODE (prs_kenmerk1, NULL, 'Onbekend', prs_kenmerk1);
*/
v_errorhint := 'Bestaande EMAIL uit Facilitor handhaven';
-- Facilitor is leading qua emailadressen. => OPEN: Uiteindelijk via IT-objecten vullen/sturen
FOR rec IN c_email
LOOP
BEGIN
UPDATE fac_imp_perslid
SET prs_perslid_email = rec.prs_perslid_email
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END;
END LOOP;
v_errorhint := 'Records uit AFAS nog uitsluiten van import';
-- <nog nader te bepalen>
-- UPDATE fac_imp_perslid
-- SET prs_kenmerk7 = NULL
-- WHERE prs_kenmerk7 IS NOT NULL AND INSTR(UPPER(prs_kenmerk7),'@BLOS.NL')=0 ;
FOR rec IN c_login
LOOP
BEGIN
v_errorhint := 'Bestaande OSLOGIN uit Facilitor handhaven';
UPDATE fac_imp_perslid
SET prs_perslid_oslogin = rec.prs_perslid_oslogin
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END;
END LOOP;
v_errorhint := 'Login afleiden van emailadres (voor locatieleiders)';
-- Voor de locatieleiders de oslogin vullen in geval nog niet gevuld in Facilitor (vanuit vorige cursor)
/*
UPDATE fac_imp_perslid
SET prs_perslid_oslogin =
UPPER((SUBSTR (prs_perslid_email,
0,
INSTR (prs_perslid_email, '@') - 1)))
WHERE
UPPER (prs_perslid_email) LIKE '%BLOS.NL'
AND prs_perslid_email IS NOT NULL
AND INSTR(UPPER(prs_srtperslid_omschrijving),'LOCATIEMANAGER')>0
AND prs_perslid_oslogin IS NULL
AND LENGTH((SUBSTR (prs_perslid_email,
0,
INSTR (prs_perslid_email, '@') - 1))) <=30 ;
*/
v_errorhint := 'Afdeling bepalen en vullen';
-- Afdeling bepalen waar persoon onder komt te vallen. <NOG GOED UITDENKEN en WERKEN>
-- Afdeling komt niet mee, dus vullen hem eerst met Personeelsnummer en gaan daarna de juiste afdelingscode bepalen.
-- Voor locatiemanagers geldt dat deze altijd op organisatie 'LOCATIEMANAGERS' moeten komen (onder dit organisatieonderdeel zitten op niveau 2 de team/afdelingen/kostenplaatsen)
FOR rec IN c_afd
LOOP
BEGIN
v_errorhint := 'Persoon aan Afdeling koppelen';
-- Business Unit vinden
SELECT prs_afdeling_key
INTO v_prs_afdeling_key1
FROM prs_afdeling
WHERE prs_bedrijf_key = 21 AND SUBSTR(prs_afdeling_omschrijving,8) = rec.prs_kenmerk3 ;
-- Alle medewerkers, locatieleiders en pedagogisch medewerkers op onder juiste LOC_MAN koppelen..
IF v_prs_afdeling_key1 IS NOT NULL
THEN
-- Afdelingsniveau 2 bepalen voor Managers...
SELECT a.prs_afdeling_upper
INTO v_prs_afdeling_upper2
FROM prs_v_afdeling_boom v, prs_afdeling a
WHERE niveau = 2
AND prs_afdeling_key1 = v_prs_afdeling_key1
AND v.prs_afdeling_key = a.prs_afdeling_key AND INSTR(a.prs_afdeling_upper,'LOC_MAN')>0 ;
UPDATE fac_imp_perslid
SET prs_afdeling_naam = v_prs_afdeling_upper2
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
ELSE
-- Als werkgever onbekend dan op fallback laten landen...
UPDATE fac_imp_perslid
SET prs_afdeling_naam = (SELECT prs_afdeling_upper FROM prs_afdeling WHERE prs_afdeling_key = c_prs_afdeling_key)
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
END;
END LOOP;
v_errorhint := 'Locatie bepalen en vullen';
-- Op basis van kostenplaatsomschrijving gaan we kijken of we de locatie en werkplekkoppeling kunnen maken
FOR rec IN c_loc
LOOP
BEGIN
v_errorhint := 'Persoon aan Locatie-Ruimte koppelen adhv de kostenplaats - ' || TO_CHAR(rec.fac_imp_file_index) ;
v_alg_locatie_key := NULL;
v_alg_gebouw_key := NULL;
v_alg_verdieping_key := NULL;
v_alg_ruimte_key := NULL;
v_alg_locatie_afas := replace(replace(rec.prs_kenmerk2,' BSO', ''),' KDV', '') ; -- In AFAS wordt opvangsoort ook in kp-omschrijving meegenomen..
IF rec.prs_kenmerk2 IS NULL
THEN
UPDATE fac_imp_perslid
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
ELSE
SELECT MAX(alg_locatie_key)
INTO v_alg_locatie_key
FROM alg_locatie
WHERE INSTR(alg_locatie_upper, UPPER(v_alg_locatie_afas)) > 0
AND alg_locatie_verwijder IS NULL
AND (alg_locatie_vervaldatum IS NULL OR TRUNC(alg_locatie_vervaldatum) > TRUNC(SYSDATE) ) ;
END IF;
IF v_alg_locatie_key IS NOT NULL THEN
-- Locatie_code ophalen
SELECT alg_locatie_code
INTO v_alg_locatie_code
FROM alg_locatie
WHERE alg_locatie_key = v_alg_locatie_key ;
-- Gebouw_key ophalen
SELECT min(alg_gebouw_key)
INTO v_alg_gebouw_key
FROM alg_gebouw
WHERE alg_locatie_key = v_alg_locatie_key
AND alg_gebouw_verwijder IS NULL
AND (TRUNC(alg_gebouw_vervaldatum) > TRUNC(sysdate) OR alg_gebouw_vervaldatum IS NULL ) ;
-- Om bij update dit kenmerkveld weg te kunnen schrijven naar kenmerkveld 'Default standplaats'
UPDATE fac_imp_perslid
SET prs_kenmerk20 = (SELECT UPPER(alg_locatie_code) || ' - ' || alg_locatie_omschrijving FROM alg_locatie WHERE alg_locatie_key = v_alg_locatie_key)
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
IF v_alg_gebouw_key IS NOT NULL THEN
-- Gebouw_code ophalen
SELECT alg_gebouw_code
INTO v_alg_gebouw_code
FROM alg_gebouw
WHERE alg_gebouw_key = v_alg_gebouw_key ;
-- Verdiepings_key ophalen
SELECT min(alg_verdieping_key)
INTO v_alg_verdieping_key
FROM alg_verdieping
WHERE alg_gebouw_key = v_alg_gebouw_key
AND alg_verdieping_verwijder IS NULL ;
END IF;
IF v_alg_verdieping_key IS NOT NULL THEN
-- Verdieping_volgnr ophalen
SELECT alg_verdieping_volgnr
INTO v_alg_verdieping_volgnr
FROM alg_verdieping
WHERE alg_verdieping_key = v_alg_verdieping_key ;
-- Ruimte_key ophalen
SELECT min(alg_ruimte_key)
INTO v_alg_ruimte_key
FROM alg_ruimte
WHERE alg_verdieping_key = v_alg_verdieping_key
AND alg_ruimte_verwijder IS NULL ;
END IF;
IF v_alg_ruimte_key IS NOT NULL THEN
-- Ruimte_nr ophalen
SELECT alg_ruimte_nr
INTO v_alg_ruimte_nr
FROM alg_ruimte
WHERE alg_ruimte_key = v_alg_ruimte_key ;
-- Vullen vastgoed-keten in import-tabel
UPDATE fac_imp_perslid
SET alg_locatie_code = v_alg_locatie_code,
alg_gebouw_code = v_alg_gebouw_code,
alg_verdieping_volgnr = v_alg_verdieping_volgnr,
alg_ruimte_nr = v_alg_ruimte_nr
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
ELSE
-- Geen Locatie/Vastgoedketen kunnen vinden
UPDATE fac_imp_perslid
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
END;
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END blos_import_perslid;
/
CREATE OR REPLACE PROCEDURE blos_update_perslid (p_import_key IN NUMBER)
IS
-- Alle personen verwijderen die niet meer in het import bestand voorkomen
-- Personen in de juiste autorisatiegroep zetten.
-- Match bij BLOS KINDEROPVANG is Personeelsnummer.
-- Geen acties tenzij het aantal records in de importtabel meer dan 100 medewerkers betreft.
CURSOR c_del
IS
SELECT p.prs_perslid_key, p.prs_perslid_naam, p.prs_perslid_email, p.prs_perslid_nr, sp.prs_srtperslid_omschrijving
FROM prs_perslid p, prs_srtperslid sp, prs_v_afdeling_boom a
WHERE p.prs_perslid_verwijder IS NULL
AND p.prs_afdeling_key = a.prs_afdeling_key AND a.prs_bedrijf_key = 21 -- GO Kinderopvang
AND p.prs_srtperslid_key = sp.prs_srtperslid_key -- AND sp.prs_srtperslid_upper NOT IN ('TEAMACCOUNT','INTERNE AFDELING','UITZENDKRACHT')
-- VOOR BLOS_TEST de huidige personen onder Business Unit Blos-Groep (UNIT) NIET verwijderen (afd_key=21 en afd_niveau=1)
AND a.prs_afdeling_key1 NOT IN (21)
AND NOT EXISTS (SELECT 1
FROM fac_imp_perslid
WHERE p.prs_perslid_nr = prs_perslid_nr
)
ORDER BY 1 ;
CURSOR c_flex -- Voor updaten van de algemene flex-kenmerkvelden op actuele medewerkers
IS
SELECT p.prs_perslid_key, i.prs_kenmerk2, i.prs_kenmerk3, i.prs_kenmerk20
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
WHERE p.prs_perslid_key = i.prs_perslid_key
ORDER BY 1;
v_count NUMBER;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
/*v_fac_gebruikersgroep_key NUMBER(10);
v_alg_ruimte_key NUMBER;
v_prs_werkplek_key NUMBER;
v_waarnemer_overrule VARCHAR2 (12);
v_prs_perslid_key NUMBER(10); -- budgethouder op kp
v_prs_perslidkostenplaats_key NUMBER(10) ;
v_fac_profiel_key NUMBER(10);
*/
BEGIN
v_errorhint := 'Niet genoeg personen in bestand, import afgebroken';
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
IF v_count >= 100
THEN
v_errorhint := 'Verwerken persoonsgegevens';
-- Geldig importbestand wat betreft aantal personen
COMMIT;
-- generic update
-- 'EMAIL' betekent dat op basis van Email wordt gematched. 'NR' op basis van personeelsnummer.
-- 'NULL' betekent altijd geen werkplekken verwijderen
-- Voor BLOS / AFAS geldt:
---- Op NR gaan matchen.
prs.update_perslid (p_import_key, 'NR', NULL);
v_errorhint := 'Verwijderen persoonsgegevens';
-- Verwijder personen die niet meer in de import voorkomen.
FOR rec IN c_del
LOOP
BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
FOR rec IN c_flex
LOOP
BEGIN
v_errorhint:='Fout bijwerken kenmerkveld Regio';
PRS.upsertkenmerk (1120, rec.prs_perslid_key, rec.prs_kenmerk3);
v_errorhint:='Fout bijwerken kenmerkveld Locatie';
PRS.upsertkenmerk (1121, rec.prs_perslid_key, rec.prs_kenmerk2);
v_errorhint:='Fout bijwerken kenmerkveld Inzet locatie';
PRS.upsertkenmerk (1122, rec.prs_perslid_key, rec.prs_kenmerk20);
END;
END LOOP;
-- Te weinig personen in bestand om import uit te voeren
ELSE
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
COMMIT;
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END blos_update_perslid;
/
-- Ivm clusterkoppeling is het belangrijk dat locaties goed zijn vastgelegd.
-- Omdat in de praktijk dit paar keer niet goed is gegaan een noti-job om applicatiebeheer hierop netjes te attenderen
CREATE OR REPLACE VIEW blos_v_noti_locatiebeheer
@@ -785,6 +1221,36 @@ AS
AND os.mld_statusopdr_key = o.mld_statusopdr_key
AND mu.intern = 1;
CREATE OR REPLACE VIEW blos_v_cal_opdrachten_intern
(
USER_KEY,
TITLE,
TOT,
VAN,
ITEM_KEY,
COLOR,
TEXTCOLOR
)
AS
SELECT mld_uitvoerende_key,
type || ' - ' || opdrachtnr || ' - ' || locatie_plaats,
geplande_aanvang,
geplande_aanvang - 1/24,
mld_opdr_key,
DECODE (status,
'Afgewezen', '#C0C0C0', -- Afgewezen grijs
'Toegekend', '#0000FF', -- Toegekend blauw
'Afgemeld', '#C0C0C0', -- Afgemeld grijs
'Geaccepteerd', '#008000') color, -- Geaccepteerd groen
DECODE (status,
'Afgewezen', '#FFFFFF', -- Afgewezen
'Toegekend', '#FFFFFF', -- Toegekend
'Afgemeld', '#000000', -- Afgemeld
'Geaccepteerd', '#FFFFFF') textcolor -- Geaccepteerd
FROM blos_v_rap_opdrachten_intern
;
-- Notificactiejob voor BLOS vanuit Opdrachten Notities met bepaalde notitie-classificatie voor servicedesk...
-- Flag = 16 (en geen +1 xemail, xmobile)
CREATE OR REPLACE VIEW BLOS_V_NOTI_SERVICEDESK_ORD -- ORD = Orders/Opdrachten
@@ -846,6 +1312,36 @@ AS
WHERE fac_notificatie_job_view = 'BLOS_V_NOTI_SERVICEDESK_ORD' )
) ;
CREATE OR REPLACE VIEW blos_v_thema_vloersoort
(
ALG_RUIMTE_KEY,
WAARDE,
WAARDE_KEY
)
AS
SELECT r.alg_ruimte_key,
COALESCE (va.fac_usrdata_omschr, 'Onbekend'),
va.fac_usrdata_key
FROM alg_ruimte r,
(SELECT rr.alg_ruimte_key,
ud.fac_usrdata_omschr,
ud.fac_usrdata_key
FROM alg_onrgoedkenmerk ok,
fac_usrdata ud,
fac_kenmerkdomein rk,
alg_kenmerk k,
alg_v_aanwezigruimte rr
WHERE rk.fac_usrtab_key = ud.fac_usrtab_key
AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
AND TO_CHAR (ud.fac_usrdata_key) =
ok.alg_onrgoedkenmerk_waarde
AND ok.alg_kenmerk_key = 1080
AND k.alg_kenmerk_niveau = 'R'
AND k.alg_kenmerk_verwijder IS NULL
AND rr.alg_ruimte_key = ok.alg_onrgoed_key) va
WHERE r.alg_ruimte_key = va.alg_ruimte_key(+);
------ payload end ------
SET DEFINE OFF