39 respuestas en este tema

[axesys]

Pues eso aprovechando que voy a estar de vacaciones me dio por hacer un programita en lazarus que me genere un comprobante fiscal digital con las especificaciones del sat.

Bueno para empezar ya descargue e instale lazarus.

Ahora según leo en las páginas del sat tengo que seguir estos pasos

1. Usar este archivo xsd como lo dice aquí para crear un xml el cual después tengo que convertir a una cadena original con este xslt

2. Esa cadena original se convierte a un sello digital usando unos archivos .cer, .key y una contraseña que están aquí

3. El sello digital se obtiene de aplicar el hash md5 en la cadena original, al hash obtenido se encripta con el algoritmo RSA usando el archivo .key y la contraseña del archivo Cer_Sello.zip, los bytes encriptados se deben convertir a letras con una codificación que se llama Base64 por lo que dice aquí.

4. Por último el archivo .cer se abre con el algoritmo x509, se obtiene su serie y se le agrega como un atributo "noCertificado" al xml, luego se codifica en Base64 los bytes y se agrega la cadena obtenida al xml como un atributo "Certificado", al final tambien se agrega otro atributo llamado "sello" que va tener la cadena en base64 obtenida en el paso anterior con lo que nos queda un xml firmado.

Bueno eso es lo que se hasta ahorita así que si alguien sabe algo más haber si lo puede compartir aquí. Mientras tanto yo voy a tratar de hacerlo y voy a ir subiendo lo que me vaya saliendo de los pasos anteriores.

[egostar]

Que interesante amigo axesys, gracias por compartir.

Salud OS

[Héctor Randolph]

Bueno, eso es básicamente lo que se tiene que hacer para crear un comprobante fiscal digital (CFD). De hecho el SAT utiliza el mismo algoritmo que acabas de describir para firmar cualquier documento digitalmente. En el caso particular de los CFD's solamente se sella la cadena original más no todo el documento y en lugar de firma electrónica avanzada se llama certificado para sellos digitales.

Con respecto a los algoritmos de encriptación yo utilicé la biblioteca OpenSSL con una adaptación hecha para Delphi que puedes descargar desde aquí .  Pero como OpenSSL está desarrollada con lenguaje C yo creo que lo podrás utilizar en Lazarus sin problemas.

Con esta bilbioteca tienes funciones para leer certificados x509, tienes los algoritmos RSA, MD5, Base64 y puedes leer las llaves privadas aunque no directamente en el formato que te envía el SAT debes convertirlas antes de abrirlas con OpenSSL.

Veo que vas avanzado con el proyecto ya que una buena parte consiste en documentarse y entender de qué se trata el asunto, ahora solo falta llevarlo al código.

Saludos

[axesys]

Gracias Hector ahora mismo checo haber si puedo hacer jalar la biblioteca que comentas con lazarus.


Saludos

[axesys]

Pues aquí les comparto lo que logre hacer con la biblioteca que recomendo hector.

Primero descargue el openssl para windows de aquí, luego tuve que convertir el archivo .key como comento hector con openssl usando este comando que encontre aquí

delphi

openssl pkcs8 -inform DER -in AAA010101AAA_0408021316S.key -out AAA010101AAA.key.pem

Despues agregue la bioblioteca de la liga que puso hector nomas que no me compilaba hasta que le cambie el modo a delphi en las opciones del compilador y de la misma página copie este ejemplo para usar el hash md5 y el algoritmo rsa además de otras funciones que estan en este otro ejemplo.

Para la parte de codificar en base64 encontre este ejemplo que usa la unidad base64 que ya trae lazarus.

Y para el ejemplo de cadena original use la que se encuentra en esta página del sat.

En el archivo adjunto viene el código de todo esto ya junto que convierte la cadena original siguiente:
||A|1|2005-09-02T16:30:00|1|ISP900909Q88|Industrias del Sur Poniente, S.A. de C.V.|Alvaro Obregón|37|3|Col. Roma Norte|México|Cuauhtémoc|Distrito Federal|México|06700|Pino Suarez|23|Centro|Monterrey|Monterrey|Nuevo Léon|México|95460|CAUR390312S87|Rosa María Calderón Uriegas|Topochico|52|Jardines del Valle|Monterrey|Monterrey|Nuevo León|México|95465|10|Caja|Vasos decorados|20|200|1|pieza|Charola metálica|150|150|IVA|52.5||

En este sello digital:
p7hGSgj1aHWWkibqXWj3PL03HgwqONdjOaWjvH1ayRPx/ZPOuocxXBnLNteNpZBMsw+vjJhT7eElrkdO/+5VOu0Eai/zjwbZgSsOOEhjSzIkL0s35d9w/CcqDDj1zsmlOnQr5y9d+8cOZoPHP07r5jq10IhNQcPw4RhXo+CV71k=

Ahora voy a buscar haber como le hago para manejar los xml así que si alguien tiene alguna información al respecto haber si la puede compartir  .

Archivos adjuntos

•  1374_2e5c30c39f517c9f62e8983ee20d1d5fafd58b9a.zip   1,02MB   61 descargas

[axesys]

Buscando información de como usar los xml para los cfd di con este post que les comparto por si alguien quiere hacerlo en delphi.


Saludos

[Héctor Randolph]

Amigo Axesys debo felicitarte por lo mucho que has avanzado en tan poco tiempo. Estoy algo sorprendido ya que estás a un paso de resolver este asunto de los comprobantes fiscales digitales. Lo mejor de todo es que estás utilizando Lazarus y herramientas OpenSource me alegro mucho.

Debo señalar que en el momento en que a mi me tocó hacer esta investigación encontré poca información en la red y además quienes ya habían logrado echar a andar los comprobantes fiscales se negaban a compartir sus avances e incluso encontré personas que cobran por darte asesoría. Es verdad que el conocimiento tiene su precio yo no digo que no deba ser así, en ocasiones la información pertenece a la empresa para la cual trabajas y no puedes publicarla, por eso siempre es bueno encontrar personas como tú que no teman a compartir con los demás sus experiencias e incluso subir el código fuente por si alguien lo necesita.

Saludos y gracias.

[axesys]

Gracias a ti hector porque sin la liga de la biblioteca para usar openssl a lo mejor y hubiera tardado más.

Ahora estoy probando unas bibliotecas para manipular xml que al igual que openssl estan hechas en c y tambien se pueden acceder desde delphi usando una adaptación que encontre aquí.

Luego les cuento como me fue.


Saludos

[axesys]

Ahora les comparto como generar la cadena original usando la biblioteca para windows de libxslt, el xml a convertir lo copie de aquí porque el archivo de muestra que esta en la página del sat con la cadena original de ejemplo es para la versión 1 y no funciona con el xslt que mencione en el primer post.

Nota: Para que me dejara subir el archivo borre la biblioteca libeay32.dll que ya viene en el primer ejemplo que subi.


Saludos

Archivos adjuntos

•  1378_0456acab423aca0a9c36f0a6d810357a5a16f927.zip   1,43MB   50 descargas

[felipep]

Hey, he estado trabajando en lo mismo, pero en la cadena que colocas, a mi me aparece los siguiente

iCflad7c1gqlRSa1yy507ZtdtJ+WPGmx5duoqHaOkSymecQMJmLBjD6r3G/7isuJKR6QUQXjYteM9ppXcQ3K/
hxAhCFAXYjA9PIjWruqvftyLUobRSxraWdaQw3pH4IFq1MxgThd15P5xxTkmcEz34rM23/fdyTTip8PUJugUTy

Y no me queda el mismo resultado, utlizando el mismo archivo pem...

Para codificar en base64 utilizo el siguiente algoritmo que encontré:

delphi

function TFunciones.Encode64(S: string): string;
const
  Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';
var
  i: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
  begin
    x := Ord(s[i]);
    b := b * 256 + x;
    a := a + 8;
    while a >= 6 do
    begin
      a := a - 6;
      x := b div (1 shl a);
      b := b mod (1 shl a);
      Result := Result + Codes64[x + 1];
    end;
  end;
  if a > 0 then
  begin
    x := b shl (6 - a);
    Result := Result + Codes64[x + 1];
  end;
end;

[egostar]

Hola felipep bienvenido a DelphiAccess

Salud OS

[luk2009]

Bienvenido a DelphiAccess felipep y a este tu foro de Lazarus

[axesys]

Hey, he estado trabajando en lo mismo, pero en la cadena que colocas, a mi me aparece los siguiente

iCflad7c1gqlRSa1yy507ZtdtJ+WPGmx5duoqHaOkSymecQMJmLBjD6r3G/7isuJKR6QUQXjYteM9ppXcQ3K/
hxAhCFAXYjA9PIjWruqvftyLUobRSxraWdaQw3pH4IFq1MxgThd15P5xxTkmcEz34rM23/fdyTTip8PUJugUTy

Y no me queda el mismo resultado, utlizando el mismo archivo pem...

Para codificar en base64 utilizo el siguiente algoritmo que encontré:

Hola felipep, mejor intenta con esta porque usando cadenas de pascal a veces se cortan yo por eso ahora mejor la uso con bytes

delphi

function BinToBase64(const PDat: PBYTE; const DatLen: DWORD): string;
const BaseTable: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var s, s1: string;
	i, p, len, n, Addnum: DWORD;
	PBin: PBYTE;
begin
	result := '';
	S := '';
	addnum := 0;
	PBin := PDat;
	for i := 1 to DatLen do
	begin
		S := S + IntToHex(PBin^, 2);
		PBin := PBYTE(DWORD(PDat) + i);
	end;
	case (length(s) mod 3) of
		0: addnum := 0;
		1: begin
				s := s + '00';
				addnum := 2;
			end;
		2: begin
				s := s + '0';
				addnum := 1;
			end;
	end;
	len := length(s) div 3;
	for i := 1 to len do
	begin
		s1 := midstr(S, i * 3 - 2, 3);
		p := strtoint('$' + s1);
		n := p div 64;
		result := result + basetable[n + 1];
		n := p mod 64;
		result := result + basetable[n + 1];
	end;
	if addnum = 1 then result := result + '==';
	if addnum = 2 then result[length(result)] := '=';
end;       

Saludos

[axesys]

Esta versión incluye varias correcciones, como el que se pueda ejecutar varias veces porque antes no liberaba memoria y marcaba violaciones de acceso. Otra es un cambio para codificar en base64 usando bytes en lugar de cadenas porque sino se me regresaba incompleto el sello. Y uno más cuando se desifra con el algoritmo rsa ahora en lugar de usar arreglos fijos se usan dinamicos ya que si estaban fijos al aumentar los conceptos se regresaba mal el sello.

Tambien incluye para leer y escribir el xml con el sello, el numero y certificado público el cual se puede validar en esta aplicación del sat.


Saludos

Archivos adjuntos

•  1379_4eff78427ae40a08de62fc75c60c1ba25941fbc3.zip   1,43MB   86 descargas

[German]

La FCL incluye por defecto un modulo para codificar/decodificar en base64 orientado a flujos de bytes (packages\fcl-base\src\base64.pp).

Tambien incluye los headers par opssl (packages\openssl\src\openssl.pas).

No olviden pegarle un visazo siempre a la RTL y a la FCL que estan llenas de sorpresas.

Saludos.

[felipep]

Hola, muchas gracias por tu respuesta... He estado estudiando detenidamente los archivos que mandaste y han sido de gran ayuda.

Sólo tengo un problema que espero me puedas ayudar---  La función StrPCopy funciona con arreglos char; sin embargo la tienes con un arreglo de bytes y me marca error ¿Cómo pudiste hacerla jalar así?

Luego, las funciones LoadXMLFile(Doc, xmlOrigen) y WriteXMLFile(Doc, xmlDestino) no jalan en Delphi ¿De qué librería se obtienen?

Yo intenté con Nodo := Doc.DocumentElement.ChildNodes[1], pero no funciona con IDOMNode... De cualquier forma esto se puede resolver escribiendo directo en el XML con XMLDocument.

Y por último, si pudieras ayudarme, te lo agradecería tremendamente: en la función que mandaste para codificar de bin a base64, le debes poner un parámetro PByte, pero GetSello entrega ya sea un array de char o, en tu caso (sea como sea que lo hayas logrado hacer jalar), un arreglo de bytes... De cualquier forma sigo trabajando en esto...

Te agradezco mucho toda la ayuda que haz subido, ya que poca gente publicaría un trabajo así.

Saludos

[axesys]

Hola, muchas gracias por tu respuesta... He estado estudiando detenidamente los archivos que mandaste y han sido de gran ayuda.

Sólo tengo un problema que espero me puedas ayudar---  La función StrPCopy funciona con arreglos char; sin embargo la tienes con un arreglo de bytes y me marca error ¿Cómo pudiste hacerla jalar así?

Luego, las funciones LoadXMLFile(Doc, xmlOrigen) y WriteXMLFile(Doc, xmlDestino) no jalan en Delphi ¿De qué librería se obtienen?

Yo intenté con Nodo := Doc.DocumentElement.ChildNodes[1], pero no funciona con IDOMNode... De cualquier forma esto se puede resolver escribiendo directo en el XML con XMLDocument.

Y por último, si pudieras ayudarme, te lo agradecería tremendamente: en la función que mandaste para codificar de bin a base64, le debes poner un parámetro PByte, pero GetSello entrega ya sea un array de char o, en tu caso (sea como sea que lo hayas logrado hacer jalar), un arreglo de bytes... De cualquier forma sigo trabajando en esto...

Te agradezco mucho toda la ayuda que haz subido, ya que poca gente publicaría un trabajo así.

Saludos

Lo que pasa es que esta hecho para lazarus por eso a mi si me funciona. Si lo quieres para delphi checa este otro ejemplo de aquí de ahí copie el código de la función bin a base64.


Saludos

[egostar]

Yo aún tengo algunas dudas sobre los fundamentos legales para emitir facturas digitales, sería bueno analizar bien esa parte para evitar sorpresitas

Salud OS

[axesys]

Aquí esta toda la información

  1. Entramos a http://www.sat.gob.mx/
  2. Clic en “Comprobantes Fiscales”
  3. Clic en “Comprobantes Fiscales Digitales”
  4. Clic en “Información para contribuyentes que deseen emitir CFD por sus propios medios”
  5. Clic en “Orientación y Aclaraciones”
  6. Clic en “Lo más consultado”
  7. Clic en “Nueva versión del Anexo 20”



Saludos

[axesys]

Encontre un libro interesante Factura Electronica Guia Practica de Implementacion

Y unos blogs con experiencias de quienes ya usan esto
http://technosat.wordpress.com/
http://blog.tufactura.me/
http://www.kauli.info/


Saludos