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
 
      

    Source: geocities.com/ar/pgualda

               ( geocities.com/ar)