UBRH#61272 -- Meldingssystematiek Workflows omzetten naar Behandelgroepen - Oncescript voor bulk-omzetting lopende aanvragen 2021

svn path=/Customer/; revision=49966

onces/UBRH/UBRH#61272.sql

@@ -0,0 +1,95 @@
+--
+-- $Id$
+--
+-- De workflow-meldingen die omgezet moeten worden kenmerk meegeven dat ze bij draaien exportfunctie CONVERSIE_WF ook meegaan
+
+DEFINE thisfile = 'UBRH#61272.SQL'
+DEFINE dbuser   = '^UBRH'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+
+DECLARE
+    v_errormsg       VARCHAR (200);
+    v_errorhint      VARCHAR (200);
+    oracle_err_num   NUMBER;
+    oracle_err_mes   VARCHAR2 (150);
+    currentversion   fac_module.fac_module_version%TYPE;
+    v_aanduiding     VARCHAR (100);
+    v_count          NUMBER;
+   
+    -- overige
+    v_wfmld_omgezet_key NUMBER(10) := 481    ;   -- Veld vullen met 'omzetten'   - LOK: 441,  ACP: 481  PROD: 481
+
+    -- Overig1 = Ingericht voor Account(s)
+    CURSOR c_melding
+    IS
+    SELECT mld_melding_start_key,
+           DECODE (traject_type,
+                     'Inkooptraject', 1241, -- Inkoopaanvraag LOK: 1261,   ACP: 1361    PROD: 1241
+                     'Informatietraject', 1242, -- Informatieaanvraag LOK: 1262,   ACP: 1362    PROD: 1242
+                     -1)
+             kenmerk_key
+      FROM ubrh_conversie_wf_bron
+     WHERE mld_melding_status = 4
+       AND wf_conversie IS NULL
+       AND omgezet_aantalkeer = 0
+       AND wf_conversie_datum IS NULL
+       AND mld_melding_datum BETWEEN TO_DATE ('01-01-2021', 'dd-mm-yyyy')
+                                 AND TO_DATE ('19-02-2021 23:59',
+                                              'dd-mm-yyyy hh24:mi') ;
+
+BEGIN
+
+    FOR rec IN c_melding
+    LOOP
+        BEGIN
+
+        v_errorhint := 'Kenmerkveld wf_conversie vullen met omzetten - melding: ' || to_char(rec.mld_melding_start_key);
+        mld.upsertmeldingkenmerk (rec.kenmerk_key,rec.mld_melding_start_key,v_wfmld_omgezet_key);
+
+        END;
+    END LOOP;
+
+/*
+EXCEPTION
+    WHEN OTHERS
+    THEN
+        ROLLBACK;
+        oracle_err_num := SQLCODE;
+        oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+        v_errormsg :=
+            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
+        fac.imp_writelog (p_import_key,
+                          'E',
+                          v_errormsg || ' - Check !!!! : ' || v_aanduiding,
+                          '');
+*/
+
+END;
+/
+
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile