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=66754
This commit is contained in:
Maarten van der Heide
2024-10-23 13:26:24 +00:00
parent 743330d2fd
commit f05bf27eea
1 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
RWSN/rwsn.sql
View File

@@ -3310,10 +3310,10 @@ AS
CURSOR c_cursor
IS
SELECT mld_melding_key, mld_melding_omschrijving
SELECT mld_melding_key, TO_CHAR (SUBSTR (mld_melding_omschrijving, 1, 4000)) mld_melding_omschrijving
FROM mld_melding
WHERE mld_melding_omschrijving IN
( SELECT mld_melding_omschrijving
WHERE TO_CHAR (SUBSTR (mld_melding_omschrijving, 1, 4000)) IN
( SELECT TO_CHAR (SUBSTR (mld_melding_omschrijving, 1, 4000))
FROM mld_melding m,
mld_stdmelding std,
mld_discipline d,
@@ -3324,8 +3324,8 @@ AS
AND d.ins_srtdiscipline_key =
sd.ins_srtdiscipline_key
AND sd.ins_srtdiscipline_prefix = 'KKT'
GROUP BY mld_melding_omschrijving
HAVING COUNT (mld_melding_omschrijving) > 1)
GROUP BY TO_CHAR (SUBSTR (mld_melding_omschrijving, 1, 4000))
HAVING COUNT (TO_CHAR (SUBSTR (mld_melding_omschrijving, 1, 4000))) > 1)
ORDER BY mld_melding_omschrijving, mld_melding_key;
v_aantal_kto NUMBER;
@@ -3490,8 +3490,7 @@ BEGIN
LOOP
BEGIN
-- DBMS_OUTPUT.put_line('melding key:' || rec1.mld_melding_key);
--IF v_omschrijving = rec1.mld_melding_omschrijving
IF v_omschrijving = TO_CHAR (SUBSTR (rec1.mld_melding_omschrijving, 1, 4000))
IF v_omschrijving = rec1.mld_melding_omschrijving
THEN
-- DBMS_OUTPUT.put_line('verwijder melding key:' || rec1.mld_melding_key);
DELETE mld_kenmerkmelding
@@ -3501,8 +3500,7 @@ BEGIN
WHERE mld_melding_key = rec1.mld_melding_key;
ELSE
-- DBMS_OUTPUT.put_line('niet gelijk melding key:' || rec1.mld_melding_key);
--v_omschrijving := rec1.mld_melding_omschrijving;
v_omschrijving := TO_CHAR (SUBSTR (rec1.mld_melding_omschrijving, 1, 4000));
v_omschrijving := rec1.mld_melding_omschrijving;
END IF;
EXCEPTION
WHEN OTHERS