Visual Basic Foro
Programación => Visual Basic .NET / C# => Mensaje iniciado por: Bazooka en Septiembre 02, 2014, 06:49:16 pm
-
Hola amigos estoy por empezar a migrar una aplicacion echa en VB6 y comenzar a dar mis primeros pasos en esta plataforma, asi que me tendrán mas seguido por aca!!
En esta oportunidad necesito un control o algo para validar un cuit , En VB6 tenia un ocx pero anque creo lo puedo usar quiero evitarlo.
Gracias por su ayuda
-
Hola
Private Function mkf_validacuit(ByVal mk_p_nro As String) As Boolean
Dim mk_suma As Integer
Dim mk_valido As String
mk_p_nro = mk_p_nro.Replace("-", "")
If IsNumeric(mk_p_nro) Then
If mk_p_nro.Length <> 11 Then
mk_valido = False
Else
mk_suma = 0
mk_suma += CInt(mk_p_nro.Substring(0, 1)) * 5
mk_suma += CInt(mk_p_nro.Substring(1, 1)) * 4
mk_suma += CInt(mk_p_nro.Substring(2, 1)) * 3
mk_suma += CInt(mk_p_nro.Substring(3, 1)) * 2
mk_suma += CInt(mk_p_nro.Substring(4, 1)) * 7
mk_suma += CInt(mk_p_nro.Substring(5, 1)) * 6
mk_suma += CInt(mk_p_nro.Substring(6, 1)) * 5
mk_suma += CInt(mk_p_nro.Substring(7, 1)) * 4
mk_suma += CInt(mk_p_nro.Substring(8, 1)) * 3
mk_suma += CInt(mk_p_nro.Substring(9, 1)) * 2
mk_suma += CInt(mk_p_nro.Substring(10, 1)) * 1
End If
If Math.Round(mk_suma / 11, 0) = (mk_suma / 11) Then
mk_valido = True
Else
mk_valido = False
End If
Else
mk_valido = False
End If
Return (mk_valido)
End Function
Private Function VerfCuit(ByVal e As String) As Boolean
Dim numconst As String = 5432765432
Dim x As Integer
Dim valor1 As Integer
Dim valor2 As Integer
Dim valor3 As Integer
Dim comprobante As Integer = CInt(e.ToArray.GetValue(e.ToArray.Length - 1).ToString)
For x = 0 To CInt(CInt(e.ToArray.Length).ToString - 2)
valor1 += CInt(e.ToArray.GetValue(x).ToString) * CInt(numconst.ToArray.GetValue(x).ToString)
Next
valor2 = valor1 Mod 11
valor3 = 11 - valor2
If valor3 = comprobante Then
Return True
Else
Return False
End If
End Function
Fuente: http://www.taringa.net/posts/info/2604880/Funcion-Para-Validar-CUIT-en-VB-NET.html (http://www.taringa.net/posts/info/2604880/Funcion-Para-Validar-CUIT-en-VB-NET.html)
Saludos..
-
Gracias amigo Enter