UWVA#85616 mld_melding_omschrijving beter afkappen op S("mld_melding_oms_maxlen") als die op 4000 staat

svn path=/Website/branches/v2024.2/; revision=66295

APPL/Shared/save2db.inc

@@ -694,6 +694,8 @@ function _buildFields(fields, params, tabel, where)
                     if (field.typ == 'clob' && val2.length > 4000)
                     {
                         __Log("CLOB field {0} is {1} characters long, switching to bind variables.".format(field.dbs, val2.length))
+                        if (field.len)
+                            val2 = val2.substr(0, field.len);
                         tupel.sql = '? ';
                         bindparams.push({ typ: adLongVarChar, dir: adParamInput, val: val2 });
                     }