KFHT#82282 DAILY/Automatisch sluiten Laatste WVG-stap voor CSM-gebouwen

svn path=/Customer/trunk/; revision=64292
2024-04-17 20:42:07 +00:00
parent c874b15b63
commit b5fb2b8fe4
1 changed files with 128 additions and 0 deletions
--- a/KFHT/kfht.sql
+++ b/KFHT/kfht.sql
@@ -1343,6 +1343,134 @@ AS                        -- Voor 'Vebego Opdrachtgoedk. 500 Hard'-vakgroepen!
          AND nj.fac_notificatie_job_view = 'KFHT_V_NOTI_ORDGOE'
          AND t.fac_tracking_datum > nj.fac_notificatie_job_lastrun;

+CREATE OR REPLACE PACKAGE KFHT
+AS
+   PROCEDURE sluiten_wvg_wf_csm;
+END;
+/
+
+CREATE OR REPLACE PACKAGE BODY KFHT
+AS
+   -- KFHT#82282: Sluiten van - de laatste - Veiligheidskundige-stap igv. CSM-
+   --             gebouwen (in beheer van Vebego) en daarmee sluiten van WF.
+   PROCEDURE sluiten_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 HTC01 The Strip
+      --1 t/m 5 HTC01a-b-c-d-e
+      --10 HTC05
+      --12581 HTC05v
+      --11981 HTC06
+      --12301 HTC06A
+      --12 HTC08
+      --17 HTC12
+      --19 HTC18
+      --20 HTC21
+      --4361 HTC25 HUB
+      --12381 HTC25 h1
+      --12401 HTC25 h2
+      --12421 HTC25 h3
+      --12441 HTC25 h4
+      --12442 HTC25 h5
+      --12443 HTC25 h6
+      --? HTC25 h6 3de
+      --22 HTC27
+      --23 HTC27a
+      --24 HTC29
+      --25 HTC31
+      --27 HTC32
+      --8 HTC32b
+      --33 HTC37
+      --? HTC37v
+      --? HTC37w
+      --35 HTC41
+      --37 HTC43
+      --39 HTC45
+      --42 HTC47a
+      --48 HTC68
+      --49 HTC69
+      --50 HTC83
+      --51 HTC84
+      --12541 HTC85
+      --13221 HTC91
+      --4381 HTC96
+      --53 HTC97
+      --54 P0
+      --55 P1
+      --56 P2
+      --57 P3E
+      --58 P3W
+      --59 P4E
+      --60 P4S
+      --61 P4W
+      --62 P5
+      --63 P6
+      --64 P7-KWO
+      --66 P9
+      --67 P9-KWO
+      --4281 Foodlab Strip
+      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_gebouw
+                        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)
+                              AND alg_gebouw_key = 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;
+END;
+/
+
+-- KFHT#82282: Sluiten van - de laatste - Veiligheidskundige-stap igv. CSM-
+--             gebouwen (in beheer van Vebego) en daarmee sluiten van WF.
+CREATE OR REPLACE PROCEDURE KFHT_DAILY
+AS
+   v_errormsg          VARCHAR2 (1000);
+   oracle_err_num      NUMBER;
+   oracle_err_mes      VARCHAR2 (200);
+BEGIN
+   kfht.sluiten_wvg_wf_csm;
+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 ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
+END KFHT_DAILY;
+/
+
 ------ payload end   ------

 SET DEFINE OFF