Rutina para calcular el dígito verificador de la CURP (México) a partir de los 17 caracteres iniciales de la misma.
* Dígito Verificador CURP
Function _Curp(cCurp)
cCaracteres='0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ'
nFactor=19
nSuma=0
FOR nIndice=1 TO LEN(cCaracteres)
cCaracter=SUBSTR(cCurp,nIndice,1)
nPos=AT(cCaracter,cCaracteres)
nFactor=nFactor-1
nSuma=nSuma+nPos*nFactor
ENDFOR
nDigito=10-MOD(nSuma,10)
nDigito=IIF(nDigito=10,0,nDigito)
cCurp=cCurp+TRANSFORM(nDigito)
RETURN cCurp
ENDFUNC
Jesus Caro V
Es interesante ver cómo Visual FoxPro puede utilizarse para automatizar el cálculo del dígito verificador de la CURP. Este tipo de rutina resulta útil para validar datos y detectar posibles errores en una clave. Para quienes también necesitan revisar sus datos de CURP, consulta CURP puede servir como recurso adicional.
ResponderBorrar