Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Validación De Numeto RUT De Chile.
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Validación De Numeto RUT De Chile. 
 
Hola, sigo agregando funciones interesantes que encuentro aquí en este foro o que alguno me envía.
En un post que puso Death encontre una función de verificación del numero R.U.T usado en Chile.
La he adaptado a la notación que uso en el proecto GEF y ha quedado así.
Public Function VRUTChile(strRutIn As String, strDigRut As String) As Boolean
'Propuesta por DEATH y modificado por Tincho
'https://www.gambas-es.org/viewtopic.php?f=5&t=85

    Dim intPlus As Integer
    Dim intLen As Integer
    Dim intConstant As Integer
    Dim strRutOut As String
    Dim strRutTmp As String
    Dim intDigit As Integer
    Dim strDigit As String
    Dim bolValid As Boolean

    strDigit = ""
    
    intConstant = 1
    intLen = Len(Trim(strRutIn))
    strRutTmp = Val(Trim(strRutIn))
    Do Until intLen = 0
       intConstant = intConstant + 1
       intPlus = intPlus + Mid(strRutTmp, intLen, 1) * intConstant
       If intConstant = 7 Then
          intConstant = 1
       End If
       intLen = intLen - 1
    Loop
    intDigit = intPlus Mod 11
    strDigit = Str(11 - intDigit)
    If Val(strDigit) = 11 Then
       strDigit = "0"
    End If
    If Val(strDigit) = 10 Then
       strDigit = "K"
    End If

    If Trim(strDigit) <> Trim(strDigRut) Then
       bolValid = False
       Else
       bolValid = True
    End If

Return bolValid

End
 

Si alguno puede verificarla seria interesante así la incorporarla a la colección de funciones.
Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Validación De Numeto RUT De Chile. 
 
sin novedad en el frente.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Validación De Numeto RUT De Chile. 
 
Sí, funciona.

Aunque volví hace unas semanas de las vacaciones no había tenido tiempo de programar... por eso no lo probé antes (justo salí de paseo con una tablet con Windows   ).

El ajuste que yo le haría sería ver cuando el segundo parámetro es la letra "k" y asegurarse que está en mayúsculas cuando se hace la comparación. Al probarla con minúscula da "False" en casos que debe ser todo lo contrario.

Acá un enlace con rut chilenos aleatorios para hacer pruebas:

http://jqueryrut.sourceforge.net/ge...os-validos.html


Saludos a todos...
 



 
vicr - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Validación De Numeto RUT De Chile. 
 
vicr escribió: [Ver mensaje]
Sí, funciona.
Aunque volví hace unas semanas de las vacaciones no había tenido tiempo de programar... por eso no lo probé antes (justo salí de paseo con una tablet con Windows   ).
El ajuste que yo le haría sería ver cuando el segundo parámetro es la letra "k" y asegurarse que está en mayúsculas cuando se hace la comparación. Al probarla con minúscula da "False" en casos que debe ser todo lo contrario.
Acá un enlace con rut chilenos aleatorios para hacer pruebas:
http://jqueryrut.sourceforge.net/ge...os-validos.html
Saludos a todos...

Gracias echare un vistazo.
Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Validación En Un Textbox Miguel1813 General 7 Jueves, 28 Julio 2011, 21:03 Ver último mensaje
RodSanRey
No hay nuevos mensajes Validación De Email Y DNI?? CanihoJR General 5 Domingo, 17 Enero 2010, 19:56 Ver último mensaje
Capa
No hay nuevos mensajes Problema Al Hacer Sencilla Validación[SOL... ersolan General 3 Jueves, 10 Junio 2010, 20:13 Ver último mensaje
ersolan
No hay nuevos mensajes Creación De Una Base De Datos Para Regist... Inna Programación en otros lenguajes 2 Viernes, 12 Enero 2018, 13:28 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario