From 515544d7a7b83f590fd043496732d01cdefc7903 Mon Sep 17 00:00:00 2001
From: Maarten van der Heide <maarten.vanderheide@aareon.nl>
Date: Tue, 22 Oct 2024 08:22:19 +0000
Subject: [PATCH] RWSN#85466 RWSN73/CLOB-correcties

svn path=/Customer/trunk/; revision=66724
---
 RWSN/rwsn.sql | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/RWSN/rwsn.sql b/RWSN/rwsn.sql
index 3dbd7dc3d..1a404d561 100644
--- a/RWSN/rwsn.sql
+++ b/RWSN/rwsn.sql
@@ -3490,7 +3490,8 @@ BEGIN
    LOOP
       BEGIN
          -- 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
             -- DBMS_OUTPUT.put_line('verwijder melding key:' || rec1.mld_melding_key);
             DELETE   mld_kenmerkmelding
@@ -3500,7 +3501,8 @@ 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 := rec1.mld_melding_omschrijving;
+            v_omschrijving := TO_CHAR (SUBSTR (rec1.mld_melding_omschrijving, 1, 4000));
          END IF;
       EXCEPTION
          WHEN OTHERS
@@ -15700,7 +15702,7 @@ SELECT sd.ins_srtdiscipline_prefix || m.mld_melding_key nummer,
        afd3_afm.prs_afdeling_omschrijving afm_org_3,
        afd4_afm.prs_afdeling_omschrijving afm_org_4,
        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,
        mg.mld_stdmeldinggroep_naam groep,
        b.prs_bedrijf_naam bedrijf,
@@ -16568,7 +16570,8 @@ AS
           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 (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,
           meld.status_key,
           meld.begindatum,
@@ -28525,7 +28528,7 @@ BEGIN
                                   mld_alg_locatie_key,
                                   mld_alg_onroerendgoed_keys,
                                   mld_melding_datum,
-                                  mld_melding_omschrijving,
+                                  mld_melding_omschrijving, -- TODO:TO_CLOB???
                                   mld_stdmelding_key,
                                   mld_melding_t_uitvoertijd,
                                   prs_kostenplaats_key,
@@ -28634,7 +28637,7 @@ BEGIN
                                      mld_alg_locatie_key,
                                      mld_alg_onroerendgoed_keys,
                                      mld_melding_datum,
-                                     mld_melding_omschrijving,
+                                     mld_melding_omschrijving, -- TODO:TO_CLOB???
                                      mld_stdmelding_key,
                                      mld_melding_t_uitvoertijd,
                                      prs_kostenplaats_key,
@@ -31675,7 +31678,8 @@ BEGIN
             v_errorhint := 'Vullen huidige waarde OPMERKING van lopende melding';
             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
             FROM mld_melding
             WHERE      mld_melding_key = v_mld_melding_key ;