From a24749765e44f10bb3bf294744f91c1b588bc248 Mon Sep 17 00:00:00 2001 From: Maarten van der Heide Date: Fri, 10 Jan 2025 17:40:48 +0000 Subject: [PATCH] KFHT#86988 CUST05-notijob/Bij sluiten WVG voor HTC09/10 naar Bewaking+Twice svn path=/Customer/trunk/; revision=67565 --- KFHT/kfht.sql | 53 ++------------------------------------------------- 1 file changed, 2 insertions(+), 51 deletions(-) diff --git a/KFHT/kfht.sql b/KFHT/kfht.sql index e9729e175..635df3941 100644 --- a/KFHT/kfht.sql +++ b/KFHT/kfht.sql @@ -1469,57 +1469,8 @@ AS --4281 Foodlab Strip --36 HTC42 (KFHT#83603) --68 Terrein (KFHT#83753) - --13 (KFHT#86446) - --14 (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 + --13 HTC09 (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