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

Se marcan como obsoletas las clases de zip correos y la función validateNIF dentro de utilidades

Browse Source
This commit is contained in:
Manuel Moguer
2025-09-19 08:38:27 +02:00
parent 9014867985
commit 1698948dc2
5 changed files with 1024 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Correo.vb
View File

@@ -9,6 +9,7 @@ Imports System.IO.Compression
Imports tsUtilidades.Extensiones Imports tsUtilidades.Extensiones
Namespace Correo Namespace Correo
<Obsolete("Esta clase es Obsoleta. Utilizar la librería tsCorreos.")>
Public Class ConfCuentaCorreo Public Class ConfCuentaCorreo
Property Puerto As Integer Property Puerto As Integer
Property SSL As Boolean Property SSL As Boolean
@@ -17,6 +18,7 @@ Namespace Correo
Property Contraseña As String Property Contraseña As String
Property Remitente As String Property Remitente As String
End Class End Class
<Obsolete("Esta clase es Obsoleta. Utilizar la librería tsCorreos.")>
Public Class Funciones Public Class Funciones
Public Shared Sub EnviaCorreoCompruebaHTML(ByVal ServidorSMTP As String, Public Shared Sub EnviaCorreoCompruebaHTML(ByVal ServidorSMTP As String,
ByVal Remitente As String, ByVal Remitente As String,

1018
Utilidades.cs Normal file
View File

File diff suppressed because it is too large Load Diff

1
Utilidades.vb
View File

@@ -380,6 +380,7 @@ Public Class Utilidades
If V1.Length < 9 Then V1 = V1.PadLeft(8, "0") If V1.Length < 9 Then V1 = V1.PadLeft(8, "0")
Return V1 & Mid(sLetrasNif, Val(V1) Mod 23 + 1, 1) Return V1 & Mid(sLetrasNif, Val(V1) Mod 23 + 1, 1)
End Function End Function
<Obsolete("Esta clase es Obsoleta. Utilizar la clase ValidarDocumentoIdentidad.")>
Public Shared Function ValidateNif(ByRef nif As String) As Boolean Public Shared Function ValidateNif(ByRef nif As String) As Boolean
'******************************************************************* '*******************************************************************

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.2</Version> <Version>1.1.3</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>
- 2025-09-05 1.1.2 Se marcan como obsoletas las clases de zip correos y la función validateNIF dentro de utilidades
- 2025-09-05 1.1.2 Correccion en ValidarDocumentoIdentidad - 2025-09-05 1.1.2 Correccion en ValidarDocumentoIdentidad
- 2025-09-04 1.1.1 Correccion en ValidarDocumentoIdentidad - 2025-09-04 1.1.1 Correccion en ValidarDocumentoIdentidad
- 2025-07-29 1.1.0 Se añade UtilsCert para manejo de certificados - 2025-07-29 1.1.0 Se añade UtilsCert para manejo de certificados

1
zip.vb
View File

@@ -1,6 +1,7 @@
Imports System.IO Imports System.IO
Imports System.IO.Compression Imports System.IO.Compression
<Obsolete("Esta clase es Obsoleta. Utilizar la librería tsZip.")>
Public Class zip Public Class zip
Shared Sub ExtraeTodoDeZip(FicheroZIP As IO.MemoryStream, RutaDestino As String, Optional EliminaDirectorioDestino As Boolean = False) Shared Sub ExtraeTodoDeZip(FicheroZIP As IO.MemoryStream, RutaDestino As String, Optional EliminaDirectorioDestino As Boolean = False)
If RutaDestino.EndsWith("\") = False Then RutaDestino &= "\" If RutaDestino.EndsWith("\") = False Then RutaDestino &= "\"