Visual Basic - Generador de CUIT

Life is soft - evento anual de software empresarial
   
Vista:

Generador de CUIT

Publicado por Santi (4 intervenciones) el 03/04/2010 02:17:22
Hice esto:

Dim Y As Integer
Private Sub cmdCUIT_Click()
If OpMasc = True Then
XX.Text = 20
Else
XX.Text = 27
End If
If OpEmp = True Then
XX.Text = 30
End If
If DNI.Text = " " Then
MsgBox "Ingrese sus datos personales.", vbOK, "Error"
End If
CUIT.Text = XX.Text & DNI.Text
Y = Val(XX.Text & DNI.Text * 5432765432#)
YY.Text = Y / 11
YY.Text = Y Mod 11
YY.Text = 11 - Y
If YY.Text < 0 Then
YY.Text = YY.Text * YY.Text
CUIT.Text = XX.Text & "-" & DNI.Text & "-" & YY.Text
End If

End Sub

Diganme porqué anda mal..
Se supone que debe calcular el último número de CUIT, pero lo hace mal. Lo se porque ya hice los calculos manualmente en un papel con unos CUIT existentes.
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