supongamos que tienes un caja de texto sle_ruc y un boton para verificar el ruc,
entonces en el codigo del boton colocarias
///*******
sting ls_ruc
Integer li_suma , li_residuo , li_diferencia , li_compara
li_suma = (Integer(mid(ls_ruc,1,1)) * 5) + (Integer(mid(ls_ruc,2,1)) * 4) + (Integer(mid(ls_ruc,3,1)) * 3) + (Integer(mid(ls_ruc,4,1)) * 2) + (Integer(mid(ls_ruc,5,1)) * 7) + (Integer(mid(ls_ruc,6,1)) * 6) + (Integer(mid(ls_ruc,7,1)) * 5) + (Integer(mid(ls_ruc,8,1)) * 4) + (Integer(mid(ls_ruc,9,1)) * 3) + (Integer(mid(ls_ruc,10,1)) * 2)
li_compara = Integer (mid(ls_ruc,11,1))
li_residuo = mod(li_suma ,11)
li_diferencia = int(11 - li_residuo)
IF li_diferencia> 9 then
li_diferencia = li_diferencia - 10
IF li_diferencia <> li_compara THEN
messagebox('ERROR','EL NUMERO DE RUC NO ES VALIDO',STOPSING!)
ELSE
messagebox('EXITO','EL NUMERO DE RUC ES VALIDO',INFORMATION!)
END IF
//*********
Ese es el codigo para validar si un ruc es valido o no.