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

RWSN#85466 RWSN73/CLOB-correcties

Browse Source 
svn path=/Customer/trunk/; revision=66724
This commit is contained in:
Maarten van der Heide
2024-10-22 08:22:19 +00:00
parent a37f331f10
commit 515544d7a7
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
RWSN/rwsn.sql
View File

@@ -3490,7 +3490,8 @@ BEGIN
LOOP LOOP
BEGIN BEGIN
-- DBMS_OUTPUT.put_line('melding key:' || rec1.mld_melding_key); -- DBMS_OUTPUT.put_line('melding key:' || rec1.mld_melding_key);
IF v_omschrijving = rec1.mld_melding_omschrijving --IF v_omschrijving = rec1.mld_melding_omschrijving
IF v_omschrijving = TO_CHAR (SUBSTR (rec1.mld_melding_omschrijving, 1, 4000))
THEN THEN
-- DBMS_OUTPUT.put_line('verwijder melding key:' || rec1.mld_melding_key); -- DBMS_OUTPUT.put_line('verwijder melding key:' || rec1.mld_melding_key);
DELETE mld_kenmerkmelding DELETE mld_kenmerkmelding
@@ -3500,7 +3501,8 @@ BEGIN
WHERE mld_melding_key = rec1.mld_melding_key; WHERE mld_melding_key = rec1.mld_melding_key;
ELSE ELSE
-- DBMS_OUTPUT.put_line('niet gelijk melding key:' || rec1.mld_melding_key); -- DBMS_OUTPUT.put_line('niet gelijk melding key:' || rec1.mld_melding_key);
v_omschrijving := rec1.mld_melding_omschrijving; --v_omschrijving := rec1.mld_melding_omschrijving;
v_omschrijving := TO_CHAR (SUBSTR (rec1.mld_melding_omschrijving, 1, 4000));
END IF; END IF;
EXCEPTION EXCEPTION
WHEN OTHERS WHEN OTHERS
@@ -15700,7 +15702,7 @@ SELECT sd.ins_srtdiscipline_prefix || m.mld_melding_key nummer,
afd3_afm.prs_afdeling_omschrijving afm_org_3, afd3_afm.prs_afdeling_omschrijving afm_org_3,
afd4_afm.prs_afdeling_omschrijving afm_org_4, afd4_afm.prs_afdeling_omschrijving afm_org_4,
afd5_afm.prs_afdeling_omschrijving afm_org_5, afd5_afm.prs_afdeling_omschrijving afm_org_5,
rwsn.format_string_voor_rap (m.mld_melding_omschrijving, 500) omschrijving, rwsn.format_string_voor_rap (TO_CHAR (SUBSTR (m.mld_melding_omschrijving, 1, 4000)), 500) omschrijving,
rwsn.format_string_voor_rap (m.mld_melding_opmerking, 500) afhandeling, rwsn.format_string_voor_rap (m.mld_melding_opmerking, 500) afhandeling,
mg.mld_stdmeldinggroep_naam groep, mg.mld_stdmeldinggroep_naam groep,
b.prs_bedrijf_naam bedrijf, b.prs_bedrijf_naam bedrijf,
@@ -16568,7 +16570,8 @@ AS
meld.prs_perslid_key, meld.prs_perslid_key,
(SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames_all WHERE prs_perslid_key = meld.prs_perslid_key), (SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames_all WHERE prs_perslid_key = meld.prs_perslid_key),
SUBSTR (rwsn.bepaal_dienst (meld.prs_perslid_key), 1, 60) dienst, SUBSTR (rwsn.bepaal_dienst (meld.prs_perslid_key), 1, 60) dienst,
SUBSTR (meld.mld_oms, 1, 1000) mld_oms, --SUBSTR (meld.mld_oms, 1, 1000) mld_oms,
TO_CHAR (SUBSTR (meld.mld_oms, 1, 1000)) mld_oms,
SUBSTR (meld.mld_opm, 1, 1000) mld_opm, SUBSTR (meld.mld_opm, 1, 1000) mld_opm,
meld.status_key, meld.status_key,
meld.begindatum, meld.begindatum,
@@ -28525,7 +28528,7 @@ BEGIN
mld_alg_locatie_key, mld_alg_locatie_key,
mld_alg_onroerendgoed_keys, mld_alg_onroerendgoed_keys,
mld_melding_datum, mld_melding_datum,
mld_melding_omschrijving, mld_melding_omschrijving, -- TODO:TO_CLOB???
mld_stdmelding_key, mld_stdmelding_key,
mld_melding_t_uitvoertijd, mld_melding_t_uitvoertijd,
prs_kostenplaats_key, prs_kostenplaats_key,
@@ -28634,7 +28637,7 @@ BEGIN
mld_alg_locatie_key, mld_alg_locatie_key,
mld_alg_onroerendgoed_keys, mld_alg_onroerendgoed_keys,
mld_melding_datum, mld_melding_datum,
mld_melding_omschrijving, mld_melding_omschrijving, -- TODO:TO_CLOB???
mld_stdmelding_key, mld_stdmelding_key,
mld_melding_t_uitvoertijd, mld_melding_t_uitvoertijd,
prs_kostenplaats_key, prs_kostenplaats_key,
@@ -31675,7 +31678,8 @@ BEGIN
v_errorhint := 'Vullen huidige waarde OPMERKING van lopende melding'; v_errorhint := 'Vullen huidige waarde OPMERKING van lopende melding';
v_mld_melding_omschrijving := ''; v_mld_melding_omschrijving := '';
SELECT max(mld_melding_omschrijving) --SELECT max(mld_melding_omschrijving)
SELECT max(TO_CHAR (SUBSTR (mld_melding_omschrijving, 1, 4000)))
INTO v_mld_melding_omschrijving INTO v_mld_melding_omschrijving
FROM mld_melding FROM mld_melding
WHERE mld_melding_key = v_mld_melding_key ; WHERE mld_melding_key = v_mld_melding_key ;