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

2025-09-05 1.1.2 Correccion en ValidarDocumentoIdentidad

Browse Source
This commit is contained in:
Manuel Moguer
2025-09-16 20:23:57 +02:00
parent 5ec00cc402
commit 9014867985
2 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
ValidarDocumentoIdentidad.vb
View File

@@ -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
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")
Else
' Comprobación básica de la cadena introducida por el usuario
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")
Else
Me.m_numero = numero
Desglosa()
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
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
Catch ex As Exception
Me.EsCorrecto = False
End Try
End Sub
#Region "Preparación del número (desglose)"