Private Sub Verificar_Click()
Dim Sen As Integer, S As Integer
Dim Coef As String, CUIT As String
Dim R%
Coef = "5432765432" ' Destinado a la verificación del CUIT
CUIT = Left(numero_documento.Text, 2) + Mid(numero_documento.Text, 4, 8) +
Right(numero_documento.Text, 1)
S = 0
' Efectuo suma en S de los productos de cada dígito del Coeficiente (COEF) *
los del CUIT
For I = 1 To 10
S = S + Val(Mid(CUIT, I, 1)) * Val(Mid(Coef, I, 1))
Next
R = S Mod 11 ' Averiguo el remanente de dividir S / 11
If R > 1 Then ' Si el remanente es > 1 divido en R 11/R
R = 11 - R
End If
If R = Right(CUIT, 1) Then ' Si R=Código de verificación (dígito derecho del
CUIT)
MsgBox "CUIT Correcto", vbInformation + vbOKOnly, ""
Else
MsgBox "CUIT Incorrecto", vbInformation + vbOKOnly, ""
End If
-- Mensaje Original --
Enviado por: Carlos Bernardo Maggiotti <[EMAIL PROTECTED]>
Fecha: 28/09/2006 19:09:25
Para: vbusers List Member<[email protected]>
Título: [vbusers] Validacion de CUIT
Buenas...
Ya se que esto se posteo como mil veces, pero mil una no deberia ser molestia...
Alguien tiene a mano el codigo VB (o link) para verificar CUITs?
Saludos y gracias de antemano...
CarlosMag
_________________________________________________________________
Consigue el nuevo Windows Live Messenger
http://get.live.com/messenger/overview
El mail recibido, fue verificado por el Servicio de Antivirus para mail de
Fullzero
y se encuentra libre de virus
__________________________________________________
Internet gratis. Siempre.
http://www.fullzero.com.ar
