Procedimiento Calculo RFC

[amerika111]

Empezado por guillotmarc

Vaya, pensaba que en Firebird solo concatenaba el operador ||, y que por tanto esa línea había que traducirla como :

T_NOMTOT = APATERNO || ' ' || AMATERNO || ' ' || NOMBRES

Pero si dices que te funciona bien, entonces adelante.



Esta función retorna la primera aparición de una expresión en una cadena. En concreto te retorna la posición del primer espacio en blanco (y por tanto equivale a la longitud del nombre propio).

http://msdn.microsoft.com/en-us/library/ms188395.aspx

Deberías poder sustituirlo por :

NOMBRE1_LONGITUD = position(' ', NOMBRES)

La función POSITION se añadió en Firebird 2.1. Por lo tanto necesitas usar Firebird 2.1 o 2.5, para que esta línea funcione correctamente. Si usas una versión anterior de Firebird, entonces debes buscar una UDF que te brinde esta función (o similar), o bien, escribir un bucle recorriendo NOMBRES, para localizar donde está la primera cadena en blanco.

Saludos.

y encuanto a la udf sobre calcular el rfc... vi que comentaste algo sobre esto

yo la he probado pero no me funciona no se si tenga que realizar un paso o algo asi para que funcione, este es el dll de la funcion

DECLARE EXTERNAL FUNCTION GENRFC
CSTRING(30),
CSTRING(30),
CSTRING(30),
DATE
RETURNS CSTRING(15)
ENTRY_POINT 'GeneraRFC' MODULE_NAME 'Project1.dll';


y la libreria es project1.dll

esa la coloque en la carpeta de firebird
de udf..

[guillotmarc]

Hola.

Empezado por amerika111

y encuanto a la udf sobre calcular el rfc... vi que comentaste algo sobre esto

yo la he probado pero no me funciona no se si tenga que realizar un paso o algo asi para que funcione, este es el dll de la funcion

DECLARE EXTERNAL FUNCTION GENRFC
CSTRING(30),
CSTRING(30),
CSTRING(30),
DATE
RETURNS CSTRING(15)
ENTRY_POINT 'GeneraRFC' MODULE_NAME 'Project1.dll';


y la libreria es project1.dll

esa la coloque en la carpeta de firebird
de udf..

En realidad no he comentado el que definas tu GENRFC en una UDF, sino que en el caso de que no quieras utilizar Firebird 2.1 o 2.5 (que son las que tienen la nueva función POSITION que en cierta manera equivale al PATINDEX de SQL Server), entonces deberás buscar esa función Pos() de alguna DLL (pero las UDF's que incorpora Firebird de serie, no incorporan dicha función). Aunque personalmente te recomiendo lo que ya también te comenté de que simplemente sustituyas el PATINDEX por un bucle para localizar la posición de la cadena en blanco.

Ejplo.

Esta sentencia :

NOMBRE1_LONGITUD = position(' ', NOMBRES);

Equivale a este bucle :

Código SQL [-]
NOMBRE1_LONGITUD = 1;
while substring(NOMBRES from :NOMBRE1_LONGITUD for 1) not in (' ', '') do begin
  NOMBRE1_LONGITUD = NOMBRE1_LONGITUD + 1;
end

if (substring(NOMBRES from :NOMBRE1_LONGITUD for 1) = '') then begin
  NOMBRE1_LONGITUD = 0;    /* No existe ningún espacio en blanco en NOMBRES */
end

Finalmente, respecto a generar toda la función RFC en Delphi y utilizarla en Firebird mediante una UDF, te dejo un ejemplo de como hacer la DLL en Delphi para que pueda ser utilizada en Firebird.

http://www.firebirdfaq.org/faq83/
Traducción automática de Google

Saludos.

[Gallosuarez]

Amerika111:

Ofrezco mi humilde ayuda para codificar dicho procedimiento almacenado, siempre y cuando me hagas llegar el proceso por escrito (lo mas explicito que se pueda, así como también algunos casos típicos para ver que todo funciona correctamente), no quiero estar viendo el código en otros lenguajes y hacer suposiciones que no siempre resultan ciertas, ¿me explico?. Espero tu respuesta.

Saludos,
Gerardo Suárez Trejo

[roman]

Empezado por Gallosuarez

siempre y cuando me hagas llegar el proceso por escrito (lo mas explicito que se pueda, así como también algunos casos típicos para ver que todo funciona correctamente)

¡Uf! El proceso es algo líoso. No sé si Amerika111 ya te lo hizo llegar, pero mientras tanto voy a intentar describirlo aquí.

El RFC es un identificador alfanumérico que se asigna en México a cada persona y se basa en los apellidos, nombre y fecha de nacimiento. Para fijar ideas, vamos a tomar esta persona ficticia:

Apellido paterno: Del Real
Apellido Materno: Anzures
Nombre: José Antonio
Fecha de nacimiento: 14 de abril de 1972

Su RFC será:

REAA 720414 N9 4

Las primeras cuatro letras se forman a partir de apellidos y nombre, sigue la fecha de nacimiento en formato aammdd, luego dos caracteres de homonimia y termina con un dígito verificador.

Veamos por partes, como se calcula cada una:

Letras

Esta parte se forma con:

• Primera letra del apellido paterno
• Primera vocal interna del apellido paterno
• Primera letra del apellido materno
• Primera letra del nombre

Ahora bien, deben tomarse en cuenta estas excepciones:

1. En nombres compuestos se toma la primera palabra siempre y cuando no sea JOSE o MARIA (en el ejemplo se omitió JOSE y se toma ANTONIO)
2. Se omiten artículos, preposiciones, conjunciones y contracciones de apellidos y nombres. La lista oficial es:
   
   

   DE, LA, LAS, MC, VON, DEL, LOS, Y, MAC, VAN, MI

   (en el ejemplo se omitió DEL)
3. Si el apellido paterno consta de una o dos letras (por ejemplo: DE LA O, una vez que se omiten los artículos), se toman la primera letra del apellido paterno, la primera del apellido materno y las dos primeras del nombre.
4. Si sólo hay un apellido se toman las dos primeras letras del apellido y las dos primeras del nombre)
5. Si las cuatro letras resultantes coinciden con una palabra "fea", debe sustituirse la última letra por una X. La lista oficial de palabras "feas" es:
   
   

   BUEI, BUEY, CACA, CACO, CAGA, CAGO, CAKA, CAKO, COGE, COJA, COJE, COJI, COJO, 
   CULO, FETO, GUEY, JOTO, KACA, KACO, KAGA, KAGO, KAKA, KOGE, KOJO, KULO, MAME, 
   MAMO, MEAR, MEAS, MEON, MION, MOCO, MULA, PEDA, PEDO, PENE, PUTA, PUTO, QULO, 
   RUIN, RATA,

Aquí hay que notar, que estas reglas no son absolutas ni completas (pero son las oficiales). Por ejemplo, no indican qué hacer en caso de que el apellido paterno no contenga vocales internas, como ALBY, BYRD, ORMSBY.

En alguna ocasión tuve la oportunidad de analizar los RFC de una base de datos relativamente amplia y observé que la excepción 4 en realidad es así:

Primera letra y primera vocal interna del apellido y primera y segunda letra del nombre.

En resumen, parece que en los casos de excepción, muchas veces depende del criterio del funcionario en turno que asigne el RFC oficial.

Fecha

En formato de seis diígitos: aammdd

Homonimia

1. Se toma el nombre completo de la persona, comenzando por los apellidos:
   
   

   DEL REAL ANZURES JOSE ANTONIO

   En este caso se toma todo el nombre incluyendo lo que se omite en el cálculo de las letras.
   
   
2. A cada letra se le asocia un valor numérico de acuerdo a la siguiente tabla:
   
   

   esp	00	|	I	19
   0	00	|	J	21
   1	01	|	K	22
   2	02	|	L	23
   3	03	|	M	24
   4	04	|	N	25
   5	05	|	O	26
   6	06	|	P	27
   7	07	|	Q	28
   8	08	|	R	29
   9	09	|	S	32
   &	10	|	T	33
   A	11	|	U	34
   B	12	|	V	35
   C	13	|	W	36
   D	14	|	X	37
   E	15	|	Y	38
   F	16	|	Z	39
   G	17	|	Ñ	40
   H	18	|

   Hay que observar que los valores no son consecutivos (hay un salto después de la I y despúés de la R). Cada valor debe incluir el cero inicial y al principio de toda la cadena de números se añade un cero solitario. En el ejemplo quedaría así:
   
   

   	D	E	L		R	E	A	L		A	N	Z	U	R	E	S		J	O	S	E		A	N	T	O	N	I	O
   0	14	15	23	00	29	15	11	23	00	11	25	39	34	29	15	32	00	21	26	32	15	00	11	25	33	26	25	19	26

   quedando la siguiente cadena de dígitos:
   
   

   01415230029151123001125393429153200212632150011253326251926

3. Esta cadena se recorre de izquierda a derecha desde el primero hasta el penúltimo caracter. En la iteración i-ésima se multiplican los dígitos i e i+1.
   
   Se suman todos los productos. En el ejemplo queda: 4756
   
   
4. De este número se toman los tres últimos (el residuo al dividir por 1000), en este caso: 756
   
   
5. Se toman el cociente y el residuo de este número al dividirse por 34:
   
   Cociente: 22
   Residuo: 8
   
   
6. Se buscan los caracteres correspondientes en la siguiente tabla:
   
   

   0	1	|	17	I
   1	2	|	18	J
   2	3	|	19	K
   3	4	|	20	L
   4	5	|	21	M
   5	6	|	22	N
   6	7	|	23	P
   7	8	|	24	Q
   8	9	|	25	R
   9	A	|	26	S
   10	B	|	27	T
   11	C	|	28	U
   12	D	|	29	V
   13	E	|	30	W
   14	F	|	31	X
   15	G	|	32	Y
   16	H	|	33	Z

   Obsérvese que no hay letra O. Al cociente (22) le corresponde N y al residuo (8) le corresponde 9.
   
   
7. Estos dos caracteres forman la homonimia: N9

Dígito verificador

• A cada caracter del RFC ya formado (cuatro letras, fecha y homonimia; 12 en total) se le asigna un valor numérico según la tabla:
  
  

  0	0	|	K	20
  1	1	|	L	21
  2	2	|	M	22
  3	3	|	N	23
  4	4	|	&	24
  5	5	|	O	25
  6	6	|	P	26
  7	7	|	Q	27
  8	8	|	R	28
  9	9	|	S	29
  A	10	|	T	30
  B	11	|	U	31
  C	12	|	V	32
  D	13	|	W	33
  E	14	|	X	34
  F	15	|	Y	35
  G	16	|	Z	36
  H	17	|	ESP	37
  I	18	|	Ñ	38
  J	19	|

  Nótese que hay un espacio y un ampersand intercalados y que la Ñ está fuera de orden.
  
  
• Cada valor se multiplica por la posición del caracter correspondiente en el RFC contada de derecha a izquierda empezando por 2:
  
  

    R	E	A	A	7	2	0	4	1	4	N	9
    28	14	10	10	7	2	0	4	1	4	23	9
  x 13	12	11	10	9	8	7	6	5	4	3	2
  ------------------------------------------------------------------------------------------
   364	168	110	100	63	16	0	24	5	16	69	18

• Se toma la suma de estos productos: Suma=953
  
  
• De esta suma, se toma el residuo al dividirse por 11 y luego su complemento:
  
  DV = 11 - (Suma mod 11) (este número siempre está en el rango 1..11)
  
  Este es el dígito verificador, a menos que sea 11, en cuyo caso se toma 0 (cero).
  
  En el ejemplo, DV = 11 - (953 mod 11) = 11 - 7 = 4.

Algunas observaciones

Como dije antes, el algoritmo en la parte de las letras es confuso. Al implementar hay que decidir qué hacer en los casos especiales (por ejemplo, poner una X en caso de no haber vocal interna del apellido paterno).

Por otra parte, todas las letras de los nombres deben considerarse sin acentos de ningún tipo.

Este algoritmo es únicamente para personas físicas (seres humanos) y no para personas morales (empresas).

Desconozco si hay un documento oficial de Hacienda que describa el algoritmo, pero existe un documento oficial (en el cual yo me basé) en el IFAI (Instituto Federal de Acceso a la Información).

Este documento pueden localizarlo entrando al sitio de INFOMEX buscando el folio: 0610100135506, que corresponde a la solicitud que alguien hizo para obtener esta información. Ahí pueden ver el documento de respuesta. Este documento también describe el algoritmo del RFC para personas morales.

// Saludos

[Gallosuarez]

Román:

Excelente, es justamente lo que necesitaba... de hecho ya empece .... creo que ya llevo la primera parte ... tuve que parar un rato (hay que ganarse el pan de cada día, je, je, je).

Saludos,
Gerardo Suárez Trejo

P.D. Estoy indeciso en liberar la primera parte (de esta forma es más fácil hacer la depuración). ¿Hay alguien que se apunte para hacer las pruebas?

[roman]

Todavía no tengo mucho tiempo para lo del dígito verificador pero aprovecho para comentar que en esta página http://www.aplicarh.com/ pueden descargar una aplicación que calcula el RFC. Con esto pueden probar qué tal funciona su algoritmo.

// Saludos

[roman]

¡Listo! Ya completé la parte del dígito verificador y puse algunas observaciones finales.

// Saludos