Comunes/tsUtilidades
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Manuel Moguer
2026-05-29 12:40:36 +02:00
parent 554bd9d8c3
commit 5c286f48de
3 changed files with 4 additions and 1021 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1018
Utilidades.cs
View File

File diff suppressed because it is too large Load Diff

4
bbdd.vb
View File

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

3
tsUtilidades.vbproj
View File

@@ -16,11 +16,12 @@
<TargetFramework>net8.0</TargetFramework> <TargetFramework>net8.0</TargetFramework>
<PackageId>tsUtilidades</PackageId> <PackageId>tsUtilidades</PackageId>
<PackageTags>net8.0, libreria</PackageTags> <PackageTags>net8.0, libreria</PackageTags>
<Version>1.1.16</Version> <Version>1.1.17</Version>
<Authors>Manuel</Authors> <Authors>Manuel</Authors>
<Company>Tecnosis S.A</Company> <Company>Tecnosis S.A</Company>
<Description>Utilidades Varias</Description> <Description>Utilidades Varias</Description>
<PackageReleaseNotes> <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-19 1.1.16 Corrección multiplataforma tsNotificacionesClient
- 2026-05-12 1.1.15 Se corrige tsNotificacionesClient - 2026-05-12 1.1.15 Se corrige tsNotificacionesClient
- 2026-04-10 1.1.14 Se corrige tsNotificacionesClient - 2026-04-10 1.1.14 Se corrige tsNotificacionesClient