none
VALIDAR RUT CHILENO VB.NET RRS feed

Respuestas

  • master acá te dejo el código para validad el dígito verificador:

    en windows Form por ejemplo llámalo con una caja de textbox que quieras, en mi caso lo hice con TxtRutCliente.Text

    'Codigo validador del rut
        Public Function ValidaRut(ByVal ElNumero As String) As String
            Dim Resultado As String = ""
            Dim Multiplicador As Integer = 2
            Dim iNum As Integer = 0
            Dim Suma As Integer = 0
    
            For i As Integer = 8 To 1 Step -1
                iNum = Mid(ElNumero, i, 1)
                Suma += iNum * Multiplicador
                Multiplicador += 1
                If Multiplicador = 8 Then Multiplicador = 2
            Next
            Resultado = CStr(11 - (Suma Mod 11))
            If Resultado = "10" Then Resultado = "K"
            If Resultado = "11" Then Resultado = "0"
            Return ElNumero & "-" & Resultado
    
        End Function
    
        Private Sub TxtRutCliente_TextChanged(sender As Object, e As EventArgs) Handles TxtRutCliente.TextChanged
            'evita que se caiga al suprimir los numeros
            If TxtRutCliente.TextLength = 8 Then
                TxtRutCliente.Text = ValidaRut(TxtRutCliente.Text)
                My.Computer.Keyboard.SendKeys("{tab}", True)
                cargartextbox()
            End If
            TxtNumeroRut.Text = TxtNumeroRut.Text.Replace("-", "")
            TxtNumeroRut.Text = TxtNumeroRut.Text.Replace("K", "11")
            'If TxtRutCliente.TextLength = 8 Then TxtRutCliente.Text = ValidaRut(TxtRutCliente.Text)
            'CREDITO_DE_CLIENTES.RUTRAZONSOCIAL.Text = Me.TxtRutCliente.Text
            TxtNumeroRut.Text = TxtRutCliente.Text & TxtNumero.Text
        End Sub
    

    PD: otro chileno en esta wea hahahaha

    miércoles, 17 de enero de 2018 19:45

Todas las respuestas

  • master acá te dejo el código para validad el dígito verificador:

    en windows Form por ejemplo llámalo con una caja de textbox que quieras, en mi caso lo hice con TxtRutCliente.Text

    'Codigo validador del rut
        Public Function ValidaRut(ByVal ElNumero As String) As String
            Dim Resultado As String = ""
            Dim Multiplicador As Integer = 2
            Dim iNum As Integer = 0
            Dim Suma As Integer = 0
    
            For i As Integer = 8 To 1 Step -1
                iNum = Mid(ElNumero, i, 1)
                Suma += iNum * Multiplicador
                Multiplicador += 1
                If Multiplicador = 8 Then Multiplicador = 2
            Next
            Resultado = CStr(11 - (Suma Mod 11))
            If Resultado = "10" Then Resultado = "K"
            If Resultado = "11" Then Resultado = "0"
            Return ElNumero & "-" & Resultado
    
        End Function
    
        Private Sub TxtRutCliente_TextChanged(sender As Object, e As EventArgs) Handles TxtRutCliente.TextChanged
            'evita que se caiga al suprimir los numeros
            If TxtRutCliente.TextLength = 8 Then
                TxtRutCliente.Text = ValidaRut(TxtRutCliente.Text)
                My.Computer.Keyboard.SendKeys("{tab}", True)
                cargartextbox()
            End If
            TxtNumeroRut.Text = TxtNumeroRut.Text.Replace("-", "")
            TxtNumeroRut.Text = TxtNumeroRut.Text.Replace("K", "11")
            'If TxtRutCliente.TextLength = 8 Then TxtRutCliente.Text = ValidaRut(TxtRutCliente.Text)
            'CREDITO_DE_CLIENTES.RUTRAZONSOCIAL.Text = Me.TxtRutCliente.Text
            TxtNumeroRut.Text = TxtRutCliente.Text & TxtNumero.Text
        End Sub
    

    PD: otro chileno en esta wea hahahaha

    miércoles, 17 de enero de 2018 19:45
  • Vale bro, voy a probarlo jejejeje, los chilenos estamos everywhere! ahahaha saludos!
    jueves, 18 de enero de 2018 11:23
  • Me salta una duda ¿Qué pasa con el rut si es de 7 dígitos? porque puede que existan RUT con 8 y 7 dígitos!
    jueves, 18 de enero de 2018 20:15
  • A todo ésto si me funcionó, pero no con los rut de 7 dígitos!
    jueves, 18 de enero de 2018 20:16