2025-09-05 1.1.2 Correccion en ValidarDocumentoIdentidad

ValidarDocumentoIdentidad.vb

@@ -123,29 +123,33 @@ Public Class ValidarDocumentoIdentidad
     ''' tal cual lo ha introducido el usuario para su verificación</param>
     Public Sub New(numero As String)
         ' Se eliminan los carácteres sobrantes
-        numero = EliminaCaracteres(numero)
+        Try
+            numero = EliminaCaracteres(numero)
 
 
-        numero = numero.ToUpper()
+            numero = numero.ToUpper()
 
-        ' Comprobación básica de la cadena introducida por el usuario
+            ' Comprobación básica de la cadena introducida por el usuario
-        If numero.Length <> 9 AndAlso numero.Length <> 11 Then
+            If numero.Length <> 9 AndAlso numero.Length <> 11 Then
-            Me.EsCorrecto = False ' Throw New ArgumentException("El NIF no tiene un número de caracteres válidos")
+                Me.EsCorrecto = False ' Throw New ArgumentException("El NIF no tiene un número de caracteres válidos")
-        Else
+            Else
 
-            Me.m_numero = numero
+                Me.m_numero = numero
-            Desglosa()
+                Desglosa()
 
-            Select Case tipo
+                Select Case tipo
-                Case TiposDocumentosEnum.NIF, TiposDocumentosEnum.NIE
+                    Case TiposDocumentosEnum.NIF, TiposDocumentosEnum.NIE
-                    Me.EsCorrecto = CompruebaNif()
+                        Me.EsCorrecto = CompruebaNif()
-                    Exit Select
+                        Exit Select
-                Case TiposDocumentosEnum.CIF
+                    Case TiposDocumentosEnum.CIF
-                    Me.EsCorrecto = validateCif(numero)
+                        Me.EsCorrecto = validateCif(numero)
-                    ' Me.EsCorrecto = CompruebaCif()
+                        ' Me.EsCorrecto = CompruebaCif()
-                    Exit Select
+                        Exit Select
-            End Select
+                End Select
-        End If
+            End If
+        Catch ex As Exception
+            Me.EsCorrecto = False
+        End Try
     End Sub
 
 #Region "Preparación del número (desglose)"

tsUtilidades.vbproj

@@ -16,11 +16,12 @@
 		<TargetFramework>net8.0</TargetFramework>
 		<PackageId>tsUtilidades</PackageId>
 		<PackageTags>net8.0, libreria</PackageTags>
-		<Version>1.1.1</Version>
+		<Version>1.1.2</Version>
 		<Authors>Manuel</Authors>
 		<Company>Tecnosis S.A</Company>
 		<Description>Utilidades Varias</Description>
 		<PackageReleaseNotes>
+			- 2025-09-05 1.1.2 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 elimina función DescomponerCNsuscriptor de la clase crypt