FoxPro/Visual FoxPro - Validar numero de cedula Ecuatoriana NO R.U.C. en VFP

hola amigos

Alguien sabe como verificar y autentificar el numero d cedula d identidad d Ecuador (NO el numero R.U.C.)

Saludos

Para validar un numero de cedula debes hacer lo siguiente:

EJ 1706295860

Las posiciones impares se multiplican x 2
Las posiciones pares se multiplican x 1 y cuando es mayor a 10 se resta 9 (menos la posiicion 10 que es el numero verificador)

1 7 0 6 2 9 5 8 6
x x x x x x x x x
2 1 2 1 2 1 2 1 2
2+ 7+ 0+ 6+4+9+1+8+3
=40
se debe restar a este valor hasta que quede en una posicion decimal en este caso es cero que este valor debe ser igual al ultimo numero.


validar=numruc
c2 = 0
for i = 1 to 9
c1 = 0
if(mod(i,2)=0)
c1 = val(substr(validar,i,1))*1
else
c1 = val(substr(validar,i,1))*2
if c1 >= 10
c1 = c1 - 9
endif
endif
c2= c2+ c1
endfor

c3 = val(substr(validar,10,1))
c5 = 10 - MOD(c2,10)
if (c5 = 10)
c4=0
else
c4 = c5
endif

Prueba con tu numero de cedula