Visual Basic.NET - Para P.J

   
Vista:

Para P.J

Publicado por Valentin (6 intervenciones) el 03/10/2008 21:40:38
Hola de nuevo P.J, ya se estoy un poco pesado pero necesito tu ayuda y desde ya te lo agradesco mucho. Hace unos dias me pasaste un link de un verificador de CUIT de 6.0
ya lo migre a Net y no hubo muchos cambios y quedo como te detallo a continuacion.
Ahora mi pregunta, este codigo lo agregue a un modulo, ahora que tengo q poner para declarar las variables en el Form y como hago para que la funcion se aplique en un TextBox (Ej CUIT_TextBox)
Una vez mas te lo agradesco mucho

Function verifica_cuit(cuit As String) As String
Dim coeficiente(1 To 10) As Integer ----- ACA TUVE Q PONER 0 TO 10 EN VEZ DE 1 TO 10
Dim i, sumador, veri_nro, resultado As Integer EN ESTA LINEA AGREGUE Verificador NO SE SI ESTA BIEN, EL TEMA QUE SI NO LO AGREGO ME LO MANCHA COMO ERROR
Dim cuit_rearmado As String
coeficiente(1) = 5 ENTONCES AGREGUE UN COEFICIENTE MAS coeficiente(0) =0
coeficiente(2) = 4
coeficiente(3) = 3
coeficiente(4) = 2
coeficiente(5) = 7
coeficiente(6) = 6
coeficiente(7) = 5
coeficiente(8) = 4
coeficiente(9) = 3
coeficiente(10) = 2
cuit = Trim(cuit)
cuit_rearmado = ""
For i = 1 To Len(cuit) 'separo cualquier caracter que no tenga que ver con numeros
If Asc(Mid(cuit, i, 1)) >= 48 And Asc(Mid(cuit, i, 1)) <= 57 Then
cuit_rearmado = cuit_rearmado & Mid(cuit, i, 1)
End If
Next
cuit_rearmado = Trim(cuit_rearmado)
If Len(cuit_rearmado) <> 11 Then ' si to estan todos los digitos
MsgBox "No estan todos los digitos. ", vbDefaultButton1, "Error en el C.U.I.T."
Else
sumador = 0
verificador = Val(Mid(cuit_rearmado, 11, 1)) 'tomo el digito verificador
For i = 1 To 10
sumador = sumador + Val(Mid(cuit_rearmado, i, 1)) * coeficiente(i)
'separo cada digito y lo multiplico por el coeficiente
Next
resultado = sumador Mod 11
resultado = 11 - resultado 'saco el digito verificador
veri_nro = Val(verificador)
If veri_nro <> resultado Then
MsgBox "No coincide el digito verificador. " & Str(verificador), vbDefaultButton1, "Error en el C.U.I.T."
Else
cuit_rearmado = Mid(cuit_rearmado, 1, 2) & "-" & Mid(cuit_rearmado, 3, 8) & "-" & Mid(cuit_rearmado, 11, 1)
End If
End If
verifica_cuit = cuit_rearmado
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Para P.J

Publicado por P. J. (706 intervenciones) el 03/10/2008 23:33:10
Saludos,

El ejemplo no es mio, y si lo migraste y anda todo bien solo deberias poner lo sgte en tu formulario.

En un boton, por ejem: VERIFICAR

Text1.Text = verifica_cuit(Text1.Text)

Asi esta en el proyecto del vb, suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar