23 respuestas en este tema

[egostar]

Hola

Ayer platicando con unos amigos vimos la necesidad de calcular el CURP (Clave Única de Registro de Población) y me puse a la tarea de realizar un programita que lo calculara.

Para ello me puse a investigar la forma como se debe de "armar" la cadena y encontré la siguiente información



Enlace

Como pueden observar al final de la cadena hay dos campos.

El campo 17 que corresponde a un digito que evita la duplicidad de registros, este campo es asignado por la Secretaría de Gobernación lo cual nos limita a obtener la clave 100% fiable, sin embargo usaremos el '0' como valor por defecto.

El campo 18 es el dígito verificador el cual es calculado por un algoritmo que encontré navegando en internet.

Pues bien, espero que les sea de utilidad, cualquier comentario y/o bug será bienvenido.

Salud OS


Historial de modificaciones:

******************************************************************************

18-Noviembre-2009

- Valida palabras inconvenientes desde un catálogo, agregando un archivo INI conteniendo estas palabras.

- Valida el año para determinar la homoclave, '0' para antes de 2000 y 'A' para 2000 en adelante.

16-Noviembre-2009

- Asigna el formato de fecha dd/mm/yyyy.

******************************************************************************

Archivos adjuntos

•  1464_5ec0a05a4bd96663754b7ec6fd388289b611211c.zip   14,18KB   60 descargas
•  1463_867eca8dd2509e5143af7886c06c0f676989efcd.zip   249,51KB   38 descargas

[Rolphy Reyes]

Para nosotros (dominicanos) que necesitemos verificar la Cédula o el RNC aquí les dejo:

delphi

  type  TDocumentos = (
      dcPendiente = 0,
      dcCedula,
      dcPasaporte,
      dcRNC,
      dcConducir,
      dcArmaFuego
    );
 
function DocumentoValido(Const Tipo:TDocumentos; Documento:string):boolean;
var
    multiplica,longitud:smallInt;
    resto, digito, valor, suma,  i :integer;
    t:string;
const
    peso    :array[0..7] of integer = (7,9,8,6,5,4,3,2);
    remp    :string='-';
begin
 
    t:=documento;
 
    documento:=trim(StringReplace(documento,remp,'',[rfReplaceAll]));
 
    if documento='' then
    begin
      result  :=  false;
      exit;
    end;
    longitud:=length(documento);
 
    //Inicializar la variable suma
    suma:=0;
    case tipo of
    dcCedula, dcConducir, dcArmaFuego: //Es un numero de cedula o su equivalente
        begin
            {La actual cedula electora dominicana usa un digito verificador
            calculado por modulo 10}
            for i:=0 to longitud-2 do
            begin
                if i mod 2= 0 then
                    multiplica:=1
                else multiplica:=2;
 
                valor:=strtoIntDef(documento[i+1],-1)*multiplica;
 
                //Si el digito que se encontro no es numerico.
                if valor < 0 then break;
 
                if valor>9 then
                    valor:=strToIntDef(copy(intTostr(valor),1,1),0)
                        +strToIntDef(copy(intTostr(valor),2,1),0);
 
                suma:=suma+valor;
            end;
 
            //ahora  la variable Valor toma el digito verificador
            valor:= strToIntDef(copy(documento,longitud,1),0);
 
            //Comprar el resultado
            result:=valor= (10-(suma mod 10)) mod 10;
 
        end;
    dcRNC:  //Asumimos como valor de RNC con 9 caracteres
        begin
            {Calculo del R N C  modulo 11}
            for i:=0 to longitud-2 do
            begin
                multiplica:=peso[i];
 
                valor:=strtoIntDef(documento[i+1],-1)*multiplica;
 
                //Si el digito que se encontro no es numerico.
                if valor < 0 then break;
 
                suma:=suma+valor;
            end;
 
            //ahora  la variable Valor toma el digito verificador
            valor:= strToIntDef(copy(documento,longitud,1),0);
 
            resto   :=  trunc(suma - (integer(trunc(suma / 11)) * 11));
 
            case resto of
            0:digito:=2;
            1:digito:=1;
            else digito:=11-resto;
            end;
 
            //result  :=  valor= (11-(suma mod 11)) mod 11;
            result  :=  valor= digito;
        end;
    else
      result:=documento<>'';
 
    end;
end;

Suerte!

[razadi]

Perfecto amigo, gracias por el aporte, casi salio el mio, solo fallo el último dígito, pero casi, casi
por cierto, al parecer nos vamos a ver más seguido...

recibe un saludo

[egostar]

Perfecto amigo, gracias por el aporte, casi salio el mio, solo fallo el último dígito, pero casi, casi
por cierto, al parecer nos vamos a ver más seguido...

recibe un saludo

Ah  vaya, parece que se cual es el problema, el campo fecha tiene formato MM/DD/AAAA y no lo he avisado, sorry :$.

Espero vernos pronto

Salud OS

[egostar]

Muchas gracias por el aporte amigo Rolphy, voy a modificar el titulo del hilo para no cerrarlo a México.

Salud OS

[egostar]

Perfecto amigo, gracias por el aporte, casi salio el mio, solo fallo el último dígito, pero casi, casi
por cierto, al parecer nos vamos a ver más seguido...

recibe un saludo

Ah  vaya, parece que se cual es el problema, el campo fecha tiene formato MM/DD/AAAA y no lo he avisado, sorry :$.

Espero vernos pronto

Salud OS

Hola, el asunto es por la definición del formato de la fecha en el SO, solo hay que agregar el formato de fecha corta en el programa y los que tenemos el formato "gringo", ya no tendremos ese detalle.

delphi

ShortDateFormat := 'dd/mm/yyyy';

Salud OS

PD, este es un tema de primaria y no lo consideré, lo siento.

[seoane]

En mi web tengo el algoritmo para calcular los dígitos de control que aparecen en los pasaportes, y en el caso de España también en el Dni
http://delphi.jmrds.com/?q=node/3

[enecumene]

He modificado el título para incluir el algoritmo de España, gracias por el aporte seoane

[seoane]

He modificado el título para incluir el algoritmo de España, gracias por el aporte seoane

Pues entonces sera mejor agregar el algoritmo para el calculo del NIF, que es lo que suele interesar mas a la gente:

delphi

function LetraNif(Dni: Integer): Char;
const
  Letras = 'TRWAGMYFPDXBNJZSQVHLCKE';
begin
  Result:= Letras[(Dni mod 23)+1];
end;
 
function ComprobarNif(Nif: String): String;
var
  i: Integer;
begin
  Result:= 'NO VALIDO';
  Nif:= Trim(Uppercase(Nif));
  if Length(Nif) = 9 then
  begin
    if Nif[1] in ['0'..'9'] then
    begin
      if TryStrToInt(Copy(Nif,1,8),i) then
        if LetraNif(i) = Nif[9] then
          Result:= 'CORRECTO';
    end else
    begin
      // Casos especiales
      if TryStrToInt(Copy(Nif,2,7),i) then
        if LetraNif(i) = Nif[9] then
          case Nif[1] of
            'K': Result:= 'CORRECTO'; // Españoles menores de 14 años
            'L': Result:= 'CORRECTO'; // Españoles residentes en el extranjero sin DNI
            'M': Result:= 'CORRECTO'; // NIF que otorga la Agencia Tributaria a extranjeros que no tienen NIE
            'X': Result:= 'CORRECTO'; // Extranjeros identificados por la Policía con un número de identidad de extranjero, NIE, asignado hasta el 15 de julio de 2008
            'Y': Result:= 'CORRECTO'; // Extranjeros identificados por la Policía con un NIE, asignado desde el 16 de julio de 2008 (Orden INT/2058/2008, BOE del 15 de julio )
            'Z': Result:= 'CORRECTO'; // Letra reservada para cuando se agoten los 'Y' para Extranjeros identificados por la Policía con un NIE
          end;
    end;
  end;
end;

Por ejemplo:

delphi

// Comprobar un NIF
ShowMessage(ComprobarNif('12345678Z'))
 
// Comprobar un NIF de un extranjero
ShowMessage(ComprobarNif('X1234567L'))

Para saber mas la wikipedia 
http://es.wikipedia....ficación_fiscal

[enecumene]

Vaya , excelente amigo , modificado de nuevo

[enecumene]

Por cierto Rolphy, ¿de casualidad no tendrás algún algoritmo sobre el NCF?.

Saludos.

[Rolphy Reyes]

Por cierto Rolphy, ¿de casualidad no tendrás algún algoritmo sobre el NCF?.

Saludos.

Saludos.

Enecumene,creo que hasta el momento no hay forma de validar si el NCF es valido o no con un algoritmo.

Recuerda que los primeros números incluyendo el literal están conformados por Tipo NCF, Caja, División y otros datos que no me llegan a la mente ahora mismo, después estaría el número secuencial que la DGI te asigna entonces con ese es que puedes validar que tu número secuencial no sobrepase el dado por la DGI.

Por ahí anda el asunto, pero si requieres de cualquier cosa más sobre el dato, me preguntas.

[egostar]

Ah que bien, ya tenemos mas algoritmos. Muchas gracias amigo seoane.

Salud OS

[egostar]

Hola

He actualizado el programa para obtener el CURP, agregando dos modificaciones al mismo.

1. Valida palabras inconvenientes desde un catálogo, agregando un archivo INI conteniendo estas palabras.
2. Valida el año para determinar la homoclave, '0' para antes de 2000 y 'A' para 2000 en adelante.

Salud OS

[pcicom]

SALUDOS

Te falto un detalle, GENERALMENTE en MEXICO los nombres muy comunes se OMITEN en algunos casos..

Por ejemplo:  Jose Ramon Perez Hernandez 01-01-2000

HEPR-000101-

Si te fijas como JOSE es un NOMBRE Muy COMUN no se agrega en los primera parte del CURP..

lo Mismo sucede con nombres como  JOSE, JUAN, MARIA-...  y no se cuales mas..

Creo que si hay una FORMA de CALCULAR el CURP exacto porque YA EXIETS un PROGRAMA el
cual lo puedes descargar de aqui..  aver si te sirve


http://www.aplicarh....ee/CalcCURP.exe

Encontre un LINK donde esta en VARIOS LENGUAJES.. para el RFC. tal vez te sirva tambien..  ahi si viene lo que te comente de los nombres COMUNES..

http://www.forosdelw...714/index2.html

[egostar]

Muy interesante el asunto de los nombres comunes, investigaré si hay un catálogo de los mismos.

Referente a la exactitud del CURP tengo mis dudas ya que esta información depende de la base de datos que tiene la Secretaría de Gobernación y esa no es pública, hasta donde he investigado, debes estar registrado para poder emitir la cedula del CURP, de otra forma no es posible.

De cualquier forma te agradezco la retroalimentación.

Salud OS

[pcicom]

Al parecer lo que revise son solo JOSE Y MARIA..

[egostar]

Al parecer lo que revise son solo JOSE Y MARIA..

Hola

Veo que son varios criterios de excepción además de los que mencionas.

[Maria] [Ma.] [Ma] [Jose] [J.] [J]

También hay otras excepciones que agregaré en la siguiente version

Salud OS

[angelo2007]

los archivos bajan corruptos

¿los pueden resubir.?

[egostar]

los archivos bajan corruptos

¿los pueden resubir.?

Ya están arriba de nuevo.

Salud OS