none
Validar CUIT Argentina RRS feed

  • Pregunta

  • Hola, escribo para saber si existe alguien que tenga la rutina para validar el numero de cuit en argentina, yo estoy programando en vb 2005, y em seria de gran ayuda si me pasan la rutina, muchas gracias, saludos.
    lunes, 25 de agosto de 2008 13:10

Respuestas

  • Hola!, la rutina que utilizo para validar CUIT en argentina es la siguiente:
    Code Snippet

    Private Function validarCuit(ByVal _Cuit As String) As Boolean
    Dim CodigoVerificacion As Integer = CType(_Cuit(12).ToString(), Integer)
    Dim NumerosCuit() As Char = _Cuit.Replace("-", "").ToCharArray()
    Dim NumerosCuitValid() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
    Dim valor1 As Integer = 0
    NumerosCuitValid(0) = Convert.ToInt16(NumerosCuit(0), 10) * 5
    NumerosCuitValid(1) = Convert.ToInt16(NumerosCuit(1), 10) * 4
    NumerosCuitValid(2) = Convert.ToInt16(NumerosCuit(2), 10) * 3
    NumerosCuitValid(3) = Convert.ToInt16(NumerosCuit(3), 10) * 2
    NumerosCuitValid(4) = Convert.ToInt16(NumerosCuit(4), 10) * 7
    NumerosCuitValid(5) = Convert.ToInt16(NumerosCuit(5), 10) * 6
    NumerosCuitValid(6) = Convert.ToInt16(NumerosCuit(6), 10) * 5
    NumerosCuitValid(7) = Convert.ToInt16(NumerosCuit(7), 10) * 4
    NumerosCuitValid(8) = Convert.ToInt16(NumerosCuit(8), 10) * 3
    NumerosCuitValid(9) = Convert.ToInt16(NumerosCuit(9), 10) * 2
    For i As Integer = 0 To 9
    valor1 = valor1 + NumerosCuitValid(i)
    Next
    Dim valor2 As Integer = valor1 Mod 11
    Dim valor3 As Integer = 11 - valor2

    If valor3 = CodigoVerificacion Then
    Return True
    Else
    Return False
    End If

    End Function


    donde el formato del cuit que se pasa como parametro es xx - xxxxxxxx - x .

    Saludos!
    martes, 26 de agosto de 2008 15:07