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

YKPN#65254 -- Werkplek koppelen aan ruimte via QR code, email

Browse Source 
svn path=/Customer/trunk/; revision=50861
This commit is contained in:
Norbert Wassink
2021-04-15 11:54:48 +00:00
parent 33ffb27676
commit 294f437cba
1 changed files with 33 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
YKPN/ykpn.sql
View File

@@ -1583,7 +1583,16 @@ AS
END;
-- verwerk email met koppeling objecten aan ruimte
-- Update procdure van de werkplek objecten naar de juiste ruimteNr
-- Er wordt op basis van QR code een email body gemaakt met
-- Key van de ruimte en daarop volgend de key van de objecten die in deze ruimte staan
-- https://ykpn.facilitor.nl/?u=Pu3JoBgoXxydA5Jv&ruimte_key=16653
-- https://ykpn.facilitor.nl/?u=123489289832&ins_deel_key=9366
-- https://ykpn.facilitor.nl/?u=123489289832&ins_deel_key=9367
-- https://ykpn.facilitor.nl/?u=Pu3JoBgoXxydA5Jv&ruimte_key=16634
-- https://ykpn.facilitor.nl/?u=123489289832&ins_deel_key=9368
-- https://ykpn.facilitor.nl/?u=123489289832&ins_deel_key=9369
PROCEDURE mail_werkpleklocatie (pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
@@ -1615,21 +1624,37 @@ AS
v_param := SUBSTR(v_line,INSTR(v_line,'?')+1,LENGTH(v_line));
IF INSTR(v_param,'ruimte_key')>0
THEN
v_errorhint:='Fout bij controle ruimte';
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;
SELECT COUNT(*)
INTO v_rmtcount
FROM alg_ruimte r
WHERE r.alg_ruimte_key=v_ruimteid
AND r.alg_ruimte_verwijder IS NULL;
--dbms_output.put_line ('Ruimte ' || v_ruimteid|| ' aanwezig :'||v_rmtcount);
ELSE
v_errorhint:='Fout bij controle Werkplek';
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;
SELECT COUNT(*)
INTO v_objcount
FROM ins_deel i
WHERE i.ins_deel_key=v_objectid
AND i.ins_deel_verwijder IS NULL;
--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_errorhint:='Fout bij update werkplek';
UPDATE ins_deel i
SET i.ins_alg_ruimte_key=v_ruimteid
WHERE i.ins_deel_key=v_objectid
AND i.ins_deel_verwijder IS NULL;
v_objcount:=0;
END IF;
END IF;
@@ -12776,6 +12801,10 @@ BEGIN
END;
/
--
-- Importprocedure om mail berichten van de storelocator in Facilitor in te lezen
-- Andere imports zijn ook mogelijk zo is er een specifieke koppeling met Qyn