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

YKPN#66439 -- aanpassing thema tbv vergaderruimtes

Browse Source 
svn path=/Customer/trunk/; revision=50706
This commit is contained in:
Norbert Wassink
2021-04-08 13:42:18 +00:00
parent 288864cee0
commit 24336fc5c9
1 changed files with 308 additions and 199 deletions
Download Patch File Download Diff File Expand all files Collapse all files

507
YKPN/ykpn.sql
View File

@@ -87,13 +87,20 @@ AS
PROCEDURE cleanup_room_dep_contracts;
PROCEDURE mail_werkplekinrichting (pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER);
PROCEDURE mail_werkplekinrichting(pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER);
PROCEDURE mail_werkpleklocatie (pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER);
PROCEDURE autoorder;
PROCEDURE tsk_bevr_contract(p_applname IN VARCHAR2,
p_applrun IN VARCHAR2);
@@ -1495,7 +1502,8 @@ AS
AND ra.prs_afdeling_key = c.prs_afdeling_key_eig
AND ra.prs_ruimteafdeling_verwijder IS NULL);
END;
-- Ontvangen mailbericht voor goedkeuring werkplek inrichting bestellingen.
-- De mail wordt verstuurd als de medewerker de voorlichting gevolgd heeft.
-- Daarna mag deze een werkplek reserveren.
@@ -1574,6 +1582,74 @@ AS
'Fout bij inlezen mail werkplekinrichting: ' || v_ruisnaam);
END;
-- verwerk email met koppeling objecten aan ruimte
PROCEDURE mail_werkpleklocatie (pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER)
AS
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_body VARCHAR2(4000);
v_line VARCHAR2(1000);
v_param VARCHAR2(100);
v_ruimtestr VARCHAR2(50);
v_ruimteid VARCHAR2(50);
v_objectstr VARCHAR2(50);
v_objectid VARCHAR2(50);
v_rmtcount NUMBER;
v_objcount NUMBER;
BEGIN
v_errorhint:='Fout bij verwerken email';
v_body :=REPLACE (pbody, CHR(13));
WHILE LENGTH(v_body)>2
LOOP
fac.imp_getfield(v_body, CHR(10), v_line);
IF v_line IS NOT NULL
THEN
v_param := SUBSTR(v_line,INSTR(v_line,'?')+1,LENGTH(v_line));
IF INSTR(v_param,'ruimte_key')>0
THEN
v_rmtcount:=0;
v_ruimtestr := SUBSTR(v_param,INSTR(v_param,'&')+1,LENGTH(v_param));
v_ruimteid := SUBSTR(v_ruimtestr,INSTR(v_ruimtestr,'=')+1,LENGTH(v_ruimtestr));
SELECT COUNT(*) into v_rmtcount FROM alg_ruimte r where r.alg_ruimte_key=v_ruimteid;
--dbms_output.put_line ('Ruimte ' || v_ruimteid|| ' aanwezig :'||v_rmtcount);
ELSE
v_objcount:=0;
v_objectstr := SUBSTR(v_param,INSTR(v_param,'&')+1,LENGTH(v_param));
v_objectid := SUBSTR(v_objectstr,INSTR(v_objectstr,'=')+1,LENGTH(v_objectstr));
SELECT COUNT(*) into v_objcount FROM ins_deel i where i.ins_deel_key=v_objectid;
--dbms_output.put_line ('WP ' || v_objectid || ' aanwezig :'||v_objcount);
END IF;
IF v_rmtcount=1 AND v_objcount=1
THEN
UPDATE ins_deel i set i.ins_alg_ruimte_key=v_ruimteid where i.ins_deel_key=v_objectid;
v_objcount:=0;
END IF;
END IF;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('mail_werkpleklocatie',
'E',
'Fout verwerken email!: ' || v_errormsg,
v_errorhint);
COMMIT;
END;
PROCEDURE autoorder
AS
CURSOR c IS
@@ -3483,188 +3559,206 @@ BEGIN
--
-- KPN Retail (winkels) aanpassingen
--
-- Verwijdere KPN Retail winkels uit de _Default groep
DELETE fac_gebruikersgroep
WHERE prs_perslid_key IN (SELECT prs_perslid_key
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0)
AND fac_groep_key = 1;
-- Verwijder de externe retail gebruikers uit de _Default groep
DELETE fac_gebruikersgroep
WHERE prs_perslid_key IN
(SELECT prs_perslid_key
FROM prs_perslid
WHERE REGEXP_SUBSTR (
prs_perslid_oslogin,
'[[:alpha:]]{2}[[:digit:]]{3}V[[:digit:]]{2}')
IS NOT NULL)
AND fac_groep_key = 1;
-- Voeg KPN retail medewerkers toe aan de autorisatiegroep: KPN Retail Winkel (Key = 301)
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT prs_perslid_key, 301
FROM prs_perslid p
WHERE p.prs_perslid_key IN (SELECT prs_perslid_key
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0)
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND fac_groep_key = 301);
-- Vervolgens gaan we de winkels koppelen aan een extra groep voor de verschillende winkels.
-- Hierbij maken we onderscheid tussen:
-- XL winkels - Deze hebben kenmerk 3 (Formule) die gelinkt is aan eigen tabel met key 241. De key 682 is dan een XL winkel
-- 1.0 winkels - Deze hebben kenmerk 4 (Formule aanduiding) die gelinkt is aan eigen tabel met key 242. De key 684 is 1.0
-- 2.0 winkels - Deze hebben kenmerk 4 (Formule aanduiding) die gelinkt is aan eigen tabel met key 242. De key 685 is 2.0 en key 1221 is 2.1 en key 2981 is 2Go
-- Autorisatiegroep voor 1.0 is 2041
-- Autorisatiegroep voor 2.0 is 2042
-- Autorisatiegroep voor XL is 2043
-- Autorisatiegroep voor 2Go is 2801
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT prs_perslid_key, fac_groep_key
FROM (SELECT prs_perslid_key,
DECODE (
ykpn.get_kenmerk ('ALG', 3, l.alg_locatie_key),
'kpn XL winkel', 2043,
BEGIN
-- Verwijdere KPN Retail winkels uit de _Default groep
v_hint := 'Verwijder KPN retail uit _Default groep ';
DELETE fac_gebruikersgroep
WHERE prs_perslid_key IN (SELECT prs_perslid_key
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0)
AND fac_groep_key = 1;
-- Verwijder de externe retail gebruikers uit de _Default groep
v_hint := 'Verwijder externe retail uit _default groep ';
DELETE fac_gebruikersgroep
WHERE prs_perslid_key IN
(SELECT prs_perslid_key
FROM prs_perslid
WHERE REGEXP_SUBSTR (
prs_perslid_oslogin,
'[[:alpha:]]{2}[[:digit:]]{3}V[[:digit:]]{2}')
IS NOT NULL)
AND fac_groep_key = 1;
-- Voeg KPN retail medewerkers toe aan de autorisatiegroep: KPN Retail Winkel (Key = 301)
v_hint := 'Voeg Retail toe aan aut. groep (301)';
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT prs_perslid_key, 301
FROM prs_perslid p
WHERE p.prs_perslid_key IN (SELECT prs_perslid_key
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0)
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND fac_groep_key = 301);
-- Vervolgens gaan we de winkels koppelen aan een extra groep voor de verschillende winkels.
-- Hierbij maken we onderscheid tussen:
-- XL winkels - Deze hebben kenmerk 3 (Formule) die gelinkt is aan eigen tabel met key 241. De key 682 is dan een XL winkel
-- 1.0 winkels - Deze hebben kenmerk 4 (Formule aanduiding) die gelinkt is aan eigen tabel met key 242. De key 684 is 1.0
-- 2.0 winkels - Deze hebben kenmerk 4 (Formule aanduiding) die gelinkt is aan eigen tabel met key 242. De key 685 is 2.0 en key 1221 is 2.1 en key 2981 is 2Go
-- Autorisatiegroep voor 1.0 is 2041
-- Autorisatiegroep voor 2.0 is 2042
-- Autorisatiegroep voor XL is 2043
-- Autorisatiegroep voor 2Go is 2801
v_hint := 'Koppel winkels aan extra groep';
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT prs_perslid_key, fac_groep_key
FROM (SELECT prs_perslid_key,
DECODE (
ykpn.get_kenmerk ('ALG', 4, l.alg_locatie_key),
'1.0', 2041,
'2.0', 2042,
'2.1', 2042,
'2 Go', 2801)) fac_groep_key
FROM prs_v_perslidwerkplek_gegevens wpg,
alg_locatie l,
alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_perslid_key IS NOT NULL
AND wpg.prs_werkplek_virtueel = 0) p
WHERE fac_groep_key IS NOT NULL
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND fac_groep_key IN (2041, 2042, 2043));
-- Maak voor iedere winkel een autorisatiegroep aan zodat alle accounts per winkel vervangers van elkaar zijn.
INSERT INTO fac_groep (fac_groep_omschrijving,
fac_groep_collega,
fac_groep_opmerking)
SELECT DISTINCT
'_Retail_' || alg_locatie_code,
1,
'Retail vervangers voor de winkel '
|| alg_locatie_code
FROM alg_locatie l, alg_district d
WHERE l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND NOT EXISTS
(SELECT fac_groep_key
FROM fac_groep
WHERE fac_groep_omschrijving =
'_Retail_' || alg_locatie_code);
-- Koppel vervolgens de medewerkers aan deze vervangers groep
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT wpg.prs_perslid_key,
(SELECT fac_groep_key
FROM fac_groep g
WHERE fac_groep_omschrijving =
'_Retail_' || l.alg_locatie_code)
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0
AND wpg.prs_perslid_key IS NOT NULL
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg, fac_groep g
WHERE g.fac_groep_key = gg.fac_groep_key
AND gg.prs_perslid_key = wpg.prs_perslid_key
AND fac_groep_omschrijving =
'_Retail_'
|| l.alg_locatie_code);
-- Voeg de clustermanagers toe aan de autorisatiegroep KPN Retail Cluster Manager (key 1561)
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT DISTINCT FAC.safe_to_number(alg_onrgoedkenmerk_waarde),
1561
FROM alg_onrgoedkenmerk aog
WHERE aog.alg_kenmerk_key = 1360 -- Cluster manager
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = FAC.safe_to_number(alg_onrgoedkenmerk_waarde)
AND gg.fac_groep_key = 1561);
DELETE fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 1561
AND NOT EXISTS (SELECT aog.alg_onrgoedkenmerk_key
FROM alg_onrgoedkenmerk aog
WHERE aog.alg_kenmerk_key = 1360 -- Cluster manager
AND gg.prs_perslid_key = FAC.safe_to_number(alg_onrgoedkenmerk_waarde));
-- De gebruikers uit de winkels willen graag MLDUPD notificaties ontvangen via de mail
-- De KPN Res (_default) gebruikers willen dat niet.
-- MLDUPD is dus te overrullen en hier wordt de juiste instelling bij de personen gemaakt.
UPDATE prs_perslid p
SET prs_perslid_srtnoti_mode = 1 -- noti in portal
WHERE EXISTS
(SELECT prs_perslid_key
FROM fac_gebruikersgroep gg
WHERE fac_groep_key = 1 -- default
AND gg.prs_perslid_key = p.prs_perslid_key);
UPDATE prs_perslid p
SET prs_perslid_srtnoti_mode = 3 -- noti in portal + mail
WHERE EXISTS
(SELECT prs_perslid_key
FROM fac_gebruikersgroep gg
WHERE fac_groep_key = 301 -- KPN Retail winkel
AND gg.prs_perslid_key = p.prs_perslid_key);
-- Voeg KPN retail backoffice medewerkers toe aan de autorisatiegroep: KPN Retail Winkel Backoffice (Key = 1461)
-- Dit zijn medewerkers die op de backoffice PC achterin de winkel inloggen.
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT prs_perslid_key, 1461
FROM prs_perslid p
WHERE
-- De lengte van de digits in de loginnaam = 3
LENGTH(REGEXP_SUBSTR (prs_perslid_oslogin, '[[:digit:]]{3}.*')) = 3
-- En de prefix van de loginnaam is KPN of PMF, in dat geval zijn de drie digits account de bo medewerker
-- Of de login eindigt op '600', dit wordt soms voor de XL winkels gebruikt.
AND (SUBSTR(prs_perslid_oslogin,1,3) IN ('KPN', 'PMF')
OR REGEXP_SUBSTR (prs_perslid_oslogin, '[[:digit:]]{3}.*') = '600')
-- We hebben een werkplek onder een Retail regio.
AND p.prs_perslid_key IN (SELECT prs_perslid_key
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0)
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND fac_groep_key = 1461);
FOR rec_mob IN c_upd_retail_mob_clusterm
LOOP
ALG.upsertkenmerk (1440, rec_mob.alg_onrgoed_key, rec_mob.mob); -- mobiel nummer clustermanager
END LOOP;
ykpn.get_kenmerk ('ALG', 3, l.alg_locatie_key),
'kpn XL winkel', 2043,
DECODE (
ykpn.get_kenmerk ('ALG', 4, l.alg_locatie_key),
'1.0', 2041,
'2.0', 2042,
'2.1', 2042,
'2 Go', 2801)) fac_groep_key
FROM prs_v_perslidwerkplek_gegevens wpg,
alg_locatie l,
alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_perslid_key IS NOT NULL
AND wpg.prs_werkplek_virtueel = 0) p
WHERE fac_groep_key IS NOT NULL
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND fac_groep_key IN (2041, 2042, 2043, 2801));
-- Maak voor iedere winkel een autorisatiegroep aan zodat alle accounts per winkel vervangers van elkaar zijn.
v_hint := 'Maak auto. groep per winkel';
INSERT INTO fac_groep (fac_groep_omschrijving,
fac_groep_collega,
fac_groep_opmerking)
SELECT DISTINCT
'_Retail_' || alg_locatie_code,
1,
'Retail vervangers voor de winkel '
|| alg_locatie_code
FROM alg_locatie l, alg_district d
WHERE l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND NOT EXISTS
(SELECT fac_groep_key
FROM fac_groep
WHERE fac_groep_omschrijving =
'_Retail_' || alg_locatie_code);
-- Koppel vervolgens de medewerkers aan deze vervangers groep
v_hint := 'Koppel medew. aan winkel auto. groep';
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT wpg.prs_perslid_key,
(SELECT fac_groep_key
FROM fac_groep g
WHERE fac_groep_omschrijving =
'_Retail_' || l.alg_locatie_code)
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0
AND wpg.prs_perslid_key IS NOT NULL
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg, fac_groep g
WHERE g.fac_groep_key = gg.fac_groep_key
AND gg.prs_perslid_key = wpg.prs_perslid_key
AND fac_groep_omschrijving =
'_Retail_'
|| l.alg_locatie_code);
-- Voeg de clustermanagers toe aan de autorisatiegroep KPN Retail Cluster Manager (key 1561)
v_hint := 'Voeg clusterm. toe auto. groep (1561)';
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT DISTINCT FAC.safe_to_number(alg_onrgoedkenmerk_waarde),
1561
FROM alg_onrgoedkenmerk aog
WHERE aog.alg_kenmerk_key = 1360 -- Cluster manager
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = FAC.safe_to_number(alg_onrgoedkenmerk_waarde)
AND gg.fac_groep_key = 1561);
v_hint := 'Verwijder uit auto. groep 1561';
DELETE fac_gebruikersgroep gg
WHERE gg.fac_groep_key = 1561
AND NOT EXISTS (SELECT aog.alg_onrgoedkenmerk_key
FROM alg_onrgoedkenmerk aog
WHERE aog.alg_kenmerk_key = 1360 -- Cluster manager
AND gg.prs_perslid_key = FAC.safe_to_number(alg_onrgoedkenmerk_waarde));
-- De gebruikers uit de winkels willen graag MLDUPD notificaties ontvangen via de mail
-- De KPN Res (_default) gebruikers willen dat niet.
-- MLDUPD is dus te overrullen en hier wordt de juiste instelling bij de personen gemaakt.
v_hint := 'Update notificatie voor KPN Res';
UPDATE prs_perslid p
SET prs_perslid_srtnoti_mode = 1 -- noti in portal
WHERE EXISTS
(SELECT prs_perslid_key
FROM fac_gebruikersgroep gg
WHERE fac_groep_key = 1 -- default
AND gg.prs_perslid_key = p.prs_perslid_key);
v_hint := 'Update notificatie voor KPN Retail';
UPDATE prs_perslid p
SET prs_perslid_srtnoti_mode = 3 -- noti in portal + mail
WHERE EXISTS
(SELECT prs_perslid_key
FROM fac_gebruikersgroep gg
WHERE fac_groep_key = 301 -- KPN Retail winkel
AND gg.prs_perslid_key = p.prs_perslid_key);
-- Voeg KPN retail backoffice medewerkers toe aan de autorisatiegroep: KPN Retail Winkel Backoffice (Key = 1461)
-- Dit zijn medewerkers die op de backoffice PC achterin de winkel inloggen.
v_hint := 'Voeg KPN Retail BO toe auto. groep (1461)';
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
SELECT prs_perslid_key, 1461
FROM prs_perslid p
WHERE
-- De lengte van de digits in de loginnaam = 3
LENGTH(REGEXP_SUBSTR (prs_perslid_oslogin, '[[:digit:]]{3}.*')) = 3
-- En de prefix van de loginnaam is KPN of PMF, in dat geval zijn de drie digits account de bo medewerker
-- Of de login eindigt op '600', dit wordt soms voor de XL winkels gebruikt.
AND (SUBSTR(prs_perslid_oslogin,1,3) IN ('KPN', 'PMF')
OR REGEXP_SUBSTR (prs_perslid_oslogin, '[[:digit:]]{3}.*') = '600')
-- We hebben een werkplek onder een Retail regio.
AND p.prs_perslid_key IN (SELECT prs_perslid_key
FROM prs_v_perslidwerkplek_gegevens wpg, alg_locatie l, alg_district d
WHERE wpg.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = 21 -- KPN Retail
AND wpg.prs_werkplek_virtueel = 0)
AND NOT EXISTS
(SELECT fac_gebruikersgroep_key
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND fac_groep_key = 1461);
FOR rec_mob IN c_upd_retail_mob_clusterm
LOOP
ALG.upsertkenmerk (1440, rec_mob.alg_onrgoed_key, rec_mob.mob); -- mobiel nummer clustermanager
END LOOP;
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_hint);
END;
END ykpn_update_perslid_sched;
/
@@ -6475,16 +6569,13 @@ AS
MAX (res_rsv_ruimte_tot)
max_tot,
CASE WHEN MAX (res_rsv_ruimte_tot) IS NULL
THEN 0
ELSE 3 -- Bezet
THEN res_ruimte_nr
ELSE 'bezet' -- Bezet
END waarde1,
CASE
WHEN MAX (res_rsv_ruimte_tot) IS NULL THEN 0 -- vrij
WHEN TO_CHAR (MAX (res_rsv_ruimte_tot), 'HH24') <= 18 THEN 1 -- dag bezet (flex cn)
WHEN TO_CHAR (MIN (res_rsv_ruimte_van), 'HH24') >= 16 THEN 2 -- avond bezet (flex cn)
ELSE 3 -- hele dag bezet
END
waarde,
CASE WHEN MAX (res_rsv_ruimte_tot) IS NULL
THEN res_ruimte_nr
ELSE 'bezet' -- Bezet
END waarde,
COUNT (res_rsv_ruimte_tot) -- aantal reservering deze dag
waarde3
FROM
@@ -6515,7 +6606,7 @@ AS
AND res_discipline_key = 72 --Vergader zalen
AND (rr.res_ruimte_vervaldatum IS NULL
OR rr.res_ruimte_vervaldatum > datums.datum))
GROUP BY datum, alg_ruimte_key, res_discipline_key
GROUP BY datum, alg_ruimte_key, res_ruimte_nr, res_discipline_key
ORDER BY datum, alg_ruimte_key;
@@ -6655,6 +6746,10 @@ AS
res_ruimte_key,
res_ruimte_nr;
-- View om inzicht in het aantal omruil acties incl kenmerken
CREATE OR REPLACE VIEW ykpn_v_rap_omruilactie
AS
@@ -14698,6 +14793,20 @@ WHERE ins.ins_discipline_key=3281 -- Discipline KPN_Iot DEV=3123,
AND ins.ins_deel_verwijder IS NULL;
CREATE OR REPLACE VIEW ykpn_v_wp_qrcodes
AS
SELECT loc.alg_locatie_omschrijving locatie,
av.alg_verdieping_code verdieping,
av.alg_ruimte_nr ruimteNr,
i.ins_deel_key,
i.ins_deel_omschrijving soort,
'N-IVzS7k3BMQNFkt' bookmark
FROM ins_deel i,alg_v_allonrgoed_gegevens av, alg_v_aanweziglocatie loc
WHERE i.ins_discipline_key=2301
AND i.ins_deel_omschrijving like 'BUR%'
AND i.ins_alg_ruimte_key= av.alg_ruimte_key
AND av.alg_locatie_key=loc.alg_locatie_key;
------ payload end ------
SET DEFINE OFF