2026-05-29 1.1.17 Corrección rutina LeeMysql para que como maximo se admitan 2048 caracteres string

bbdd.vb

@@ -77,7 +77,7 @@ Public Class bbdd
                 Select Case dc.DataType
                     Case GetType(String)
                         Tipo = "X"
-                        Tamaño = dc.MaxLength
+                        Tamaño = System.Math.Min(2048, dc.MaxLength)
                     Case GetType(DateTime), GetType(Date)
                         Tipo = "F"
                         Tamaño = 20
@@ -99,7 +99,7 @@ Public Class bbdd
                             If Not dr(dc) Is DBNull.Value Then
                                 sLinea &= dr(dc).ToString.PadRight(dc.MaxLength, " ")
                             Else
-                                sLinea &= "".PadRight(dc.MaxLength, " ")
+                                sLinea &= "".PadRight(System.Math.Min(2048, dc.MaxLength), " ")
                             End If
                         Case GetType(DateTime), GetType(Date)
                             Dim sFecha As String = "null"

tsUtilidades.vbproj

@@ -16,11 +16,12 @@
 		<TargetFramework>net8.0</TargetFramework>
 		<PackageId>tsUtilidades</PackageId>
 		<PackageTags>net8.0, libreria</PackageTags>
-		<Version>1.1.16</Version>
+		<Version>1.1.17</Version>
 		<Authors>Manuel</Authors>
 		<Company>Tecnosis S.A</Company>
 		<Description>Utilidades Varias</Description>
 		<PackageReleaseNotes>
+			- 2026-05-29 1.1.17 Corrección rutina LeeMysql para que como maximo se admitan 2048 caracteres string
 			- 2026-05-19 1.1.16 Corrección multiplataforma tsNotificacionesClient
 			- 2026-05-12 1.1.15 Se corrige tsNotificacionesClient
 			- 2026-04-10 1.1.14 Se corrige tsNotificacionesClient