Esta OCX la bajé de la AFIP. Está buena. Y un pequeñiiiisimo programa hecho por mi, para chequearla. Le faltan algunas validaciones, pero es una punta.
Lic. Diego A. Montero TE : 02337-452272 - Cel.: 02392-15-635176 Email: [EMAIL PROTECTED] MSN : [EMAIL PROTECTED] Belgrano 140 America (Bs.As.) Skpye: diegoamontero -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of G.Asato Sent: Thursday, 28 de September de 2006 18:05 To: vbusers List Member Subject: [vbusers] Validacion de CUIT Te lo paso Public Function VerificarCuit(strCuit As String) As Boolean Dim intVerifArry(1 To 10) As Integer Dim intSuma As Integer Dim intDig As Integer Dim i As Long intVerifArry(1) = 5 intVerifArry(2) = 4 intVerifArry(3) = 3 intVerifArry(4) = 2 intVerifArry(5) = 7 intVerifArry(6) = 6 intVerifArry(7) = 5 intVerifArry(8) = 4 intVerifArry(9) = 3 intVerifArry(10) = 2 strCuit = Replace(strCuit, "-", "") If Len(strCuit) < 11 Then VerificarCuit = False Exit Function End If For i = 1 To 10 intSuma = intSuma + Val(Mid(strCuit, i, 1)) * intVerifArry(i) Next i intDig = 11 - (intSuma Mod 11) If intDig = 11 Then intDig = 0 ElseIf intDig = 10 Then intDig = 9 End If VerificarCuit = IIf(intDig = Val(Right(strCuit, 1)), True, False) End Function Espero que te sirva Saludos Gabriel ----- Original Message ----- From: "Carlos Bernardo Maggiotti" <[EMAIL PROTECTED]> To: "vbusers List Member" <[email protected]> Sent: Thursday, September 28, 2006 4:09 PM Subject: [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
Cuit.rar
Description: Binary data
