2025-09-04 1.1.1 Correccion en ValidarDocumentoIdentidad

ValidarDocumentoIdentidad.vb

@@ -130,21 +130,22 @@ Public Class ValidarDocumentoIdentidad
 
         ' Comprobación básica de la cadena introducida por el usuario
         If numero.Length <> 9 AndAlso numero.Length <> 11 Then
-            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
+
+            Me.m_numero = numero
+            Desglosa()
+
+            Select Case tipo
+                Case TiposDocumentosEnum.NIF, TiposDocumentosEnum.NIE
+                    Me.EsCorrecto = CompruebaNif()
+                    Exit Select
+                Case TiposDocumentosEnum.CIF
+                    Me.EsCorrecto = validateCif(numero)
+                    ' Me.EsCorrecto = CompruebaCif()
+                    Exit Select
+            End Select
         End If
-
-        Me.m_numero = numero
-        Desglosa()
-
-        Select Case tipo
-            Case TiposDocumentosEnum.NIF, TiposDocumentosEnum.NIE
-                Me.EsCorrecto = CompruebaNif()
-                Exit Select
-            Case TiposDocumentosEnum.CIF
-                Me.EsCorrecto = validateCif(numero)
-                ' Me.EsCorrecto = CompruebaCif()
-                Exit Select
-        End Select
     End Sub
 
 #Region "Preparación del número (desglose)"