diff --git a/ValidarDocumentoIdentidad.vb b/ValidarDocumentoIdentidad.vb index b9f75b3..9a97720 100644 --- a/ValidarDocumentoIdentidad.vb +++ b/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)" diff --git a/tsUtilidades.vbproj b/tsUtilidades.vbproj index 9c4b233..d1a4478 100644 --- a/tsUtilidades.vbproj +++ b/tsUtilidades.vbproj @@ -16,11 +16,12 @@ net8.0 tsUtilidades net8.0, libreria - 1.1.0 + 1.1.1 Manuel Tecnosis S.A Utilidades Varias + - 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 - 2025-07-28 1.0.11 Se modifica funcion SHA256 para que no use métodos obsoletos y para que admita un encoding diferente a unicode