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

KFHT#86988 CUST05-notijob/Bij sluiten WVG voor HTC09/10 naar Bewaking+Twice

Browse Source 
svn path=/Customer/trunk/; revision=67565
This commit is contained in:
Maarten van der Heide
2025-01-10 17:40:48 +00:00
parent 88e0113a9e
commit a24749765e
1 changed files with 2 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
KFHT/kfht.sql
View File

@@ -1469,57 +1469,8 @@ AS
--4281 Foodlab Strip --4281 Foodlab Strip
--36 HTC42 (KFHT#83603) --36 HTC42 (KFHT#83603)
--68 Terrein (KFHT#83753) --68 Terrein (KFHT#83753)
--13 (KFHT#86446) --13 HTC09 (KFHT#86446)
--14 (KFHT#86446) --14 HTC10 (KFHT#86446)
CURSOR c_wf_csm
IS
SELECT m.mld_melding_start_key, m.mld_melding_key, m.mld_melding_onderwerp, m.mld_melding_status
FROM mld_melding m, mld_stdmelding sm, mld_discipline md
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = 21 -- Werkvergunning
AND md.ins_discipline_key = 202 -- Beoordeling veiligheidskundige
AND m.mld_melding_status IN (2, 3, 4) -- Nieuw/Te accepteren/In behandeling (zou Nieuw moeten zijn)
AND m.mld_melding_key != m.mld_melding_start_key -- Vervolgmelding en niet de startmelding zelf (zou zo moeten zijn)!
AND EXISTS -- Betreft CSM-gebouw
(SELECT 1
FROM alg_v_onroerendgoed_gegevens
WHERE alg_gebouw_key IN (12101,1,2,3,4,5,10,12581,11981,12301,12,17,19,20,4361,12381,12401,12421,12441,12442,12443,22,23,24,25,27,8,33,35,37,39,42,48,49,50,51,12541,13221,4381,53,54,55,56,57,58,59,60,61,62,63,64,66,67,4281,36,68,13,14)
AND alg_onroerendgoed_keys = m.mld_alg_onroerendgoed_keys);
BEGIN
FOR rec IN c_wf_csm
LOOP
v_aanduiding := '[' || TO_CHAR (rec.mld_melding_key) || '|' || rec.mld_melding_onderwerp || '] ';
v_count_tot := v_count_tot + 1;
MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL); -- Afgemeld (incl. tracking)
MLD.mld_nextworkflowstep (rec.mld_melding_key, 1); -- 1=Completed
IF MOD (v_count_tot, 500) = 0 THEN COMMIT; END IF;
END LOOP;
fac.writelog (c_applname, 'S', '#WFs gesloten: ' || TO_CHAR (v_count_tot), '');
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (c_applname, 'E', v_aanduiding || v_errormsg, 'Daily achtergrond taak afgebroken!');
END;
-- KFHT#86988: Bij sluiten van WF igv. HTC09+HTC10 CUSTxx-notificatie naar
-- meldpunt.security@hightechcampus.com & office.htce@twice.nl.
PROCEDURE sluiten_wvg_wf_csm
PROCEDURE noti_wvg_wf_csm
AS
c_applname VARCHAR2 (50) := 'SLUITEN_WF_CSM';
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_count_tot NUMBER (10) := 0;
--12101 HTC09
-- HTC10
CURSOR c_wf_csm CURSOR c_wf_csm
IS IS
SELECT m.mld_melding_start_key, m.mld_melding_key, m.mld_melding_onderwerp, m.mld_melding_status SELECT m.mld_melding_start_key, m.mld_melding_key, m.mld_melding_onderwerp, m.mld_melding_status