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

FCLT#88173 Spoed-indicatie Facilitor naar Mareon

Browse Source 
svn path=/Mareon/trunk/; revision=68872
This commit is contained in:
Marcel Bourseau
2025-04-28 11:00:56 +00:00
parent 035a9838d3
commit 4ce85e86b8
1 changed files with 74 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
sql/mareon.sql
View File

@@ -2688,7 +2688,8 @@ SET DEFINE OFF
v_mld_opdr_id VARCHAR2 (30);
v_mld_melding_key NUMBER (10);
v_mld_melding_spoed VARCHAR2 (1000);
v_mld_melding_huurder VARCHAR2 (1000);
v_mld_melding_imp_huurder VARCHAR2 (1000);
@@ -2703,6 +2704,7 @@ SET DEFINE OFF
v_mld_melding_loc_aanduiding VARCHAR2 (1000);
v_mld_opdr_omschrijving mld_opdr.mld_opdr_omschrijving%TYPE;
l_new_mld_opdr_omschrijving mld_opdr.mld_opdr_omschrijving%TYPE;
v_flexsummary mld_opdr.mld_opdr_omschrijving%TYPE;
v_uitvoeringslocatie VARCHAR2 (1000);
@@ -3016,7 +3018,8 @@ SET DEFINE OFF
|| v_mld_opdr_id
|| ')';
SELECT mld_melding_huurder,
SELECT mld_melding_spoed,
mld_melding_huurder,
mld_melding_straatnaam,
mld_melding_huisnr,
mld_melding_huisnr2,
@@ -3044,7 +3047,8 @@ SET DEFINE OFF
mld_opdr_adres_eigenaar,
mld_opdr_postcode_eigenaar,
mld_opdr_plaats_eigenaar
INTO v_mld_melding_huurder,
INTO v_mld_melding_spoed,
v_mld_melding_huurder,
v_mld_melding_straatnaam,
v_mld_melding_huisnr,
v_mld_melding_huisnr2,
@@ -3271,14 +3275,6 @@ SET DEFINE OFF
'Uiterste uitvoerdatum',
'#ORDUPD');
v_errorhint := 'Fout bij check verschil van opdrachtomschrijving opdracht(key)' || p_mld_opdr_key || '(' || v_mld_opdr_id || ')';
v_count_differences := v_count_differences
+ mar_diff_varchar (v_mld_opdr_omschrijving,
rec_ax.mld_melding_omschrijving,
p_mld_opdr_key,
v_prs_perslid_key,
'Opdrachtomschrijving');
-- Tenslotte nog de update's van datumvelden van mld_opdr, en ook een start maken met update van opdracht_omschrijving (in de loop van c_ax_opdrachten_1_inkooporder volgen de anderen, vergelijkbaar met add opdracht voor de 1e keer)
UPDATE mld_opdr
@@ -3418,7 +3414,39 @@ SET DEFINE OFF
mld.upsertopdrachtkenmerk (c_kenmerkopdr_key_bouwjaar,
p_mld_opdr_key,
SUBSTR(rec_vervolg_ax.mld_opdr_datumbegin,1,4));
--FCLT#88173 Spoed-indicatie
-- 1= Kritiek, 2=Hoog, 3=Normaal, 4=Laag
v_errorhint :=
'Fout bij check verschil van Spoed indicatie bij opdracht(key)'
|| p_mld_opdr_key
|| '('
|| v_mld_opdr_id
|| ')';
v_count_differences :=
v_count_differences
+ mar_diff_varchar (v_mld_melding_spoed,
COALESCE(rec_vervolg_ax.mld_opdr_typering,3),
p_mld_opdr_key,
v_prs_perslid_key,
'Spoedindicatie');
IF (rec_vervolg_ax.mld_opdr_typering = '1' OR rec_vervolg_ax.mld_opdr_typering = '2' OR rec_vervolg_ax.mld_opdr_typering = '3' OR rec_vervolg_ax.mld_opdr_typering = '4')
THEN
-- We maken de melding evt. spoed, d.w.z. we nemen rec_vervolg_ax.mld_opdr_typering over, en zetten voor de opdrachtomschrijving het woord volgens Label 'lcl_mld_spoed' als dat het geval is.
UPDATE mld_melding
SET mld_melding_spoed = rec_vervolg_ax.mld_opdr_typering
WHERE mld_melding_key = v_mld_melding_key;
IF (rec_vervolg_ax.mld_opdr_typering = '1' OR rec_vervolg_ax.mld_opdr_typering = '2')
THEN --mbmb
UPDATE mld_opdr
SET mld_opdr_omschrijving = safe_concat(safe_concat(LCL.L('lcl_mld_spoed'),':'), mld_opdr_omschrijving)
WHERE mld_opdr_key = p_mld_opdr_key;
END IF;
END IF;
-- MARX#84378 Eigenaar gegevens vanuit REMS365
-- GLN Eigenaar
v_errorhint :=
@@ -3557,6 +3585,20 @@ SET DEFINE OFF
COMMIT;
END;
END LOOP;
-- Omdat hierboven mld_opdr_omschrijving op diverse plekken wordt geconstrueerd, wordt hier op het eind / ten slotte gekeken of hier een verschil is ontstaan.
SELECT mld_opdr_omschrijving
INTO l_new_mld_opdr_omschrijving
FROM mld_opdr
WHERE mld_opdr_key = p_mld_opdr_key;
v_errorhint := 'Fout bij check verschil van opdrachtomschrijving opdracht(key)' || p_mld_opdr_key || '(' || v_mld_opdr_id || ')';
v_count_differences := v_count_differences
+ mar_diff_varchar (v_mld_opdr_omschrijving,
l_new_mld_opdr_omschrijving,
p_mld_opdr_key,
v_prs_perslid_key,
'Opdrachtomschrijving');
-- En tenslotte gaan we de nieuwe materiaalregels checken tegen de materiaalregels in de database:
@@ -6614,6 +6656,24 @@ SET DEFINE OFF
mld.upsertopdrachtkenmerk (c_kenmerkopdr_key_URL,
v_mld_opdr_key,
rec_vervolg_ax.mld_opdr_kenmerk_url);
--FCLT#88173 Spoed-indicatie
-- 1= Kritiek, 2=Hoog, 3=Normaal, 4=Laag
IF (rec_vervolg_ax.mld_opdr_typering = '1' OR rec_vervolg_ax.mld_opdr_typering = '2' OR rec_vervolg_ax.mld_opdr_typering = '3' OR rec_vervolg_ax.mld_opdr_typering = '4')
THEN
-- We maken de melding evt. spoed, d.w.z. we nemen rec_vervolg_ax.mld_opdr_typering over, en zetten voor de opdrachtomschrijving het woord volgens Label 'lcl_mld_spoed' als dat het geval is.
UPDATE mld_melding
SET mld_melding_spoed = rec_vervolg_ax.mld_opdr_typering
WHERE mld_melding_key = v_mld_melding_key;
IF (rec_vervolg_ax.mld_opdr_typering = '1' OR rec_vervolg_ax.mld_opdr_typering = '2')
THEN --mbmb
UPDATE mld_opdr
SET mld_opdr_omschrijving = safe_concat(safe_concat(LCL.L('lcl_mld_spoed'),':'), mld_opdr_omschrijving)
WHERE mld_opdr_key = v_mld_opdr_key;
END IF;
END IF;
EXCEPTION
WHEN OTHERS
THEN
@@ -18474,7 +18534,8 @@ AND t.fac_tracking_datum >= SYSDATE-30;
CREATE OR REPLACE VIEW mar_v_tmp_opdr_woco_x_lev
AS
SELECT m.mld_melding_key,
SELECT m.mld_melding_key,
m.mld_melding_spoed,
o.mld_opdr_key,
so.mld_statusopdr_key,
o.mld_opdr_halted,