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

DHLD#84268 Implementatie gemeente Den Helder, behandelteams moesten omgezet, via was-wordt lijst, aangeleverd door Marcella

Browse Source 
svn path=/Customer/; revision=67242
This commit is contained in:
Sander Schepers
2024-11-29 18:16:07 +00:00
parent 2a23b6eedc
commit 371cb870c1
2 changed files with 264 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

132
onces/DHLD/DHLD#84268_ConversieMLD_omzettenbehandelteam_PROD.sql Normal file
View File

@@ -0,0 +1,132 @@
/* Formatted on 29/11/2024 19:10:50 (QP5 v5.396) */
--
-- $Id$
--
-- Customer specific once-script ConversieMLD.sql.
DEFINE thisfile = 'DHLD#84268_ConversieMLD_omzettenbehandelteam.sql'
DEFINE dbuser = '^DHLD'
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 &fcltcusttxt
---------------------------------------
SET DEFINE OFF
------ payload begin ------
--col01 col02 col03 col04 col05 col06 col07 col08 col09 xcol10 xcol11 xcol12 col13 col14 col15
--Referentienr Datum Naam Email Soort_melding Categorie Subcategorie Korte_omschrijving Status Behandelaarsgroep Behandelaar Datum_gereed Datum_afgemeld Verzoek Actie
DECLARE
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_mldkey NUMBER (10);
CURSOR mld IS
SELECT m.mld_melding_key,
TRIM (UPPER (km.mld_kenmerkmelding_waarde)),
(SELECT d.ins_discipline_key
FROM ins_tab_discipline d
WHERE TRIM (UPPER (d.ins_discipline_omschrijving)) =
TRIM (UPPER (fac_imp_csv_col04))) behandelteam_new
FROM mld_melding m, mld_kenmerkmelding km, fac_imp_csv imp
WHERE m.mld_meldbron_nr IS NOT NULL
AND km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerk_key = 581 --categorie topdesk
AND (SELECT d.ins_discipline_key
FROM ins_tab_discipline d
WHERE TRIM (UPPER (d.ins_discipline_omschrijving)) =
TRIM (UPPER (fac_imp_csv_col04)))
IS NOT NULL
AND TRIM (UPPER (km.mld_kenmerkmelding_waarde)) =
TRIM (UPPER (imp.fac_imp_csv_col01));
BEGIN
fac.writelog (
'OMZETTEN_TEAMS',
'S',
'Meldingen/INIT: ' || TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS'),
'');
COMMIT;
FOR rec IN mld
LOOP
BEGIN
v_aanduiding := '[' || rec.mld_melding_key || ']';
v_errormsg := 'Fout omzetten behandelteam.';
UPDATE mld_melding
SET mld_ins_discipline_key = TO_NUMBER (rec.behandelteam_new)
WHERE rec.mld_melding_key = mld_melding_key
RETURNING mld_melding_key
INTO v_mldkey;
v_errormsg := 'Fout mutaties omzetten behandelteam';
fac.trackaction ('MLDUPD',
v_mldkey,
NULL,
SYSDATE,
'Behandelteam omgezet');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog ('MIGRATIE_MLD',
'E',
v_errormsg,
v_aanduiding);
END;
END LOOP;
fac.writelog (
'OMZETTEN_TEAMS',
'S',
'Meldingen/Omgezet: ' || TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS'),
'');
COMMIT;
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

132
onces/DHLD/DHLD#84268_ConversieMLD_omzettenbehandelteam_TEST.sql Normal file
View File

@@ -0,0 +1,132 @@
/* Formatted on 29/11/2024 19:10:50 (QP5 v5.396) */
--
-- $Id$
--
-- Customer specific once-script ConversieMLD.sql.
DEFINE thisfile = 'DHLD#84268_ConversieMLD_omzettenbehandelteam.sql'
DEFINE dbuser = '^DHLD_TEST'
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 &fcltcusttxt
---------------------------------------
SET DEFINE OFF
------ payload begin ------
--col01 col02 col03 col04 col05 col06 col07 col08 col09 xcol10 xcol11 xcol12 col13 col14 col15
--Referentienr Datum Naam Email Soort_melding Categorie Subcategorie Korte_omschrijving Status Behandelaarsgroep Behandelaar Datum_gereed Datum_afgemeld Verzoek Actie
DECLARE
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_mldkey NUMBER (10);
CURSOR mld IS
SELECT m.mld_melding_key,
TRIM (UPPER (km.mld_kenmerkmelding_waarde)),
(SELECT d.ins_discipline_key
FROM ins_tab_discipline d
WHERE TRIM (UPPER (d.ins_discipline_omschrijving)) =
TRIM (UPPER (fac_imp_csv_col04))) behandelteam_new
FROM mld_melding m, mld_kenmerkmelding km, fac_imp_csv imp
WHERE m.mld_meldbron_nr IS NOT NULL
AND km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerk_key = 581 --categorie topdesk
AND (SELECT d.ins_discipline_key
FROM ins_tab_discipline d
WHERE TRIM (UPPER (d.ins_discipline_omschrijving)) =
TRIM (UPPER (fac_imp_csv_col04)))
IS NOT NULL
AND TRIM (UPPER (km.mld_kenmerkmelding_waarde)) =
TRIM (UPPER (imp.fac_imp_csv_col01));
BEGIN
fac.writelog (
'OMZETTEN_TEAMS',
'S',
'Meldingen/INIT: ' || TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS'),
'');
COMMIT;
FOR rec IN mld
LOOP
BEGIN
v_aanduiding := '[' || rec.mld_melding_key || ']';
v_errormsg := 'Fout omzetten behandelteam.';
UPDATE mld_melding
SET mld_ins_discipline_key = TO_NUMBER (rec.behandelteam_new)
WHERE rec.mld_melding_key = mld_melding_key
RETURNING mld_melding_key
INTO v_mldkey;
v_errormsg := 'Fout mutaties omzetten behandelteam';
fac.trackaction ('MLDUPD',
v_mldkey,
NULL,
SYSDATE,
'Behandelteam omgezet');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog ('MIGRATIE_MLD',
'E',
v_errormsg,
v_aanduiding);
END;
END LOOP;
fac.writelog (
'OMZETTEN_TEAMS',
'S',
'Meldingen/Omgezet: ' || TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS'),
'');
COMMIT;
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