ccuit=oapp.test_Cuit
nsuma=val(subs(ccuit,1,1))*5+;
val(subs(ccuit,2,1))*4+;
val(subs(ccuit,4,1))*3+;
val(subs(ccuit,5,1))*2+;
val(subs(ccuit,6,1))*7+;
val(subs(ccuit,7,1))*6+;
val(subs(ccuit,8,1))*5+;
val(subs(ccuit,9,1))*4+;
val(subs(ccuit,10,1))*3+;
val(subs(ccuit,11,1))*2
w1=int(nsuma/11)
if 11-(nsuma-w1*11)=10
cdigito="9"
else
if (w1*11)=nsuma
cdigito="0"
else
cdigito=str(11-(nsuma-(w1*11)),1)
endif
endif
if subs(ccuit,13,1)#cdigito
messagebox("Cuit o Cuil incorrrecto, digito verificador correcto:"+cdigito)
endif
               (
geocities.com/ar)