Factura Electronica México

[nuk3zito]

Empezado por edgaronfo

...
Y luego use el TSXLPageProducer para que automáticamente me generara la cadena original (Ejemplo de TSXLPageProducer):

procedure TForm1.bttnCadenaOriginal1Click(Sender: TObject);
var xslt_source : string;
begin
  xslt_source := 'cadenaoriginal_2_0.xslt';
try
   XMLDoc.Active := False; // just in case
   XSLPageProducer1.FileName := xslt_source;
   XSLPageProducer1.XMLData := XMLDoc;
   XMLDoc.Active := True;
   Memo1.Text := XSLPageProducer1.Content; // Transform!!
 except
   on E: Exception do
     Memo1.Text := E.Message
 end;
end;

Y así dejas que delphi se haga bolas por tí, jejeje.
espero que sea de ayuda para alguien como lo fue para mí.
...

Te la rifaste con ese código... yo no sabía como obtener la cadena original en Delphi (en C# no me dio nadita de problemas).

En serio, te agradezco el aporte. Solo me resta probarlo.

[edgaronfo]

Empezado por nuk3zito

Te la rifaste con ese código... yo no sabía como obtener la cadena original en Delphi (en C# no me dio nadita de problemas).

En serio, te agradezco el aporte. Solo me resta probarlo.

Gracias y de nada nuk3zito, sabía que a alguien le iba a ayudar, es mi pequeña aportación al foro que tanto me ha dado, a mí me sirvió muchísimo y te lo hace automático tal como hacienda te lo pide, tú mientras te dedicas a otras cosas, y además tiene la enorme ventaja que con los cambios que está haciendo hacienda, cuando salga la versión nueva del cadenaoriginal_2_0.XSLT nomás le cambias el archivo y listo!!!!

Saludos!

[nuk3zito]

Empezado por edgaronfo

Gracias y de nada nuk3zito, sabía que a alguien le iba a ayudar, es mi pequeña aportación al foro que tanto me ha dado, a mí me sirvió muchísimo y te lo hace automático tal como hacienda te lo pide, tú mientras te dedicas a otras cosas, y además tiene la enorme ventaja que con los cambios que está haciendo hacienda, cuando salga la versión nueva del cadenaoriginal_2_0.XSLT nomás le cambias el archivo y listo!!!!

Saludos!

Así es... conozco las bondades que esto ofrece pues lo uso en C#. En los primeros post que puse en este hilo yo solicitaba que alguien me ayudara a realizar esta "transformación" en Delphi (de hecho está en la primer página) pero no tuve éxito, aunque aún me sirve (y mucho) tu aporte, ya solo me queda probar aunque no tengo dudas de que esto vaya a funcionar bien.

Ahora me estoy metiendo en la onda de CFDI, a ver como me va con eso.

Saludos.

[edgaronfo]

Empezado por nuk3zito

Así es... conozco las bondades que esto ofrece pues lo uso en C#. En los primeros post que puse en este hilo yo solicitaba que alguien me ayudara a realizar esta "transformación" en Delphi (de hecho está en la primer página) pero no tuve éxito, aunque aún me sirve (y mucho) tu aporte, ya solo me queda probar aunque no tengo dudas de que esto vaya a funcionar bien.

Ahora me estoy metiendo en la onda de CFDI, a ver como me va con eso.

Saludos.

No tengo dudas de que te va a funcionar perfectamente nuk3zito!

Por cierto amigos programadores, tengo un problemilla con la unidad Sello.pas que postearon en este hilo, ojalá me puedan ayudar.

Ya había preguntado sobre esto en mi primer post, pero sigo con eso, y es que por más que le muevo y le busco, no doy.

Mi problema esta en la función:

function GetNoCertificado(const AFileName: string): string;
var
  bp:   pBIO;
  fn:   PWideChar;
  x:    pX509;
  x509: pX509;
  bn:   pBIGNUM;
  num:  array [0..19] of char;
begin
  InitOpenSSL;
  fn := PWideChar(AnsiString(AFileName));
  bp := BIO_new(BIO_s_file());
  BIO_read_filename(bp, fn);
  x    := X509_new;
  x509 := PEM_read_bio_X509(bp, x, nil, nil);
  bn   := ASN1_INTEGER_to_BN(X509_get_serialNumber(x509), nil);
  BN_bn2bin(bn, @num[0]);
  BN_free(bn);
  X509_free(x509);
  BIO_free(bp);
  Result := num;
  EVP_cleanup;
end;

como podrán ver, el primer cambio que le tuve que hacer fue cambiar el tipo de la variable fn de PAnsiChar a PWideChar, esto es porque así me lo pide el delphi, pero de ahí en fuera todo esta igual.

Alguna sugerencia?

Gracias!

[edgaronfo]

Corrigiendo mi mensaje anterior (perdón, no se cómo editarlo), al final hablé del primer cambio que le hice, quise decir, el único cambio que le hice, que fue cambiar el tipo de dato, de PAnsiChar a PWideChar o PChar, porque al compilarlo como PAnsiChar, el delphi me dice que no es un tipo compatible:
E2010 Incompatible Types: 'Ansi' and 'Char'

Y si le hago un typecast como:
BIO_read_filename(bp, PChar(fn));

Ya me lo compila pero al correr y asignar el valor que me devuelve esta función al documento XML me marca un error:
EOleException : 'se encontró un carácter no válido en el contenido del texto'

Y he estado cambiándole los tipos de dato y me sigue devolviendo 'carácter no válido' o si le quito el typecast a AnsiString en fn := PAnsiChar(AnsiString(AFileName)); me marca otro error:
access violation at address 10055fd4 in module 'libeay32.dll'

Alguna sugerencia?

será por la versión del libeay32.dll?

Gracias

[edgaronfo]

Hola de nuevo amigos, creo que mi problema es la versión de Delphi, estoy usando:
Embarcadero® Delphi® 2010 Version 14.0.3513.24210

será?...

[ifarias]

edgaronfo.

Supongo que sí es el problema la versión de Delphi, ya que con la versión 7 no hay problema, deberías revisar si los parámetros que le pasas al libeay32.dll son correctos, ya que esto puede ser tu problema.

[Alexis De la Cr]

Estimados compañeros del mismo infortunio . Yo tambiene stoy metido ene sto de la facturacion electronica y he intentado usar la unidad sello.pas que amablemente subieron en un post anterior. es una gran ayuda definitivamente, solo que no he podido compilar dicha unidad ya que requiere otra unidad llamada libeay32 ya sea compilada o en fuente.

La unidad libeay32.pas se puede bajar de la siguiente direccion

http://www.disi.unige.it/person/Ferr...delphiopenssl/

solo que al intentar compilarla me arroja un error en la linea 1262

Código Delphi [-]
function AES_set_decrypt_key(userKey: PCharacter; bits: integer; key: pAES_KEY); cdecl;

el error es el siguiente

[DCC Error] libeay32.pas(1262): E2023 Function needs result type

lei en la unidad que esta desarrollada especificamente para libeay32.dll version 0.9.6b he probado con varias versiones de dicha dll pero en todas me arroja el mismo error.

Lo que me apena es no encontrar a otra persona que le haya pasado lo mismo. Utilizo delphi 2007 sobre xp.

disculpen la pregunta, pero, Que crren ustedes que este haciendo mal? sera la version de la dll que no he encontrado la correcta?

gracias por su atencion.

Alexis de la Cruz

[dado]

Alexis

Mmmh, me iba a echar todo un rollo de que la declaracion esta mal, que esa funcion no aparece en libeay32 y que no depende de la version de la dll.

Pero mejor subo aqui la libay32.pas checalo

[Alexis De la Cr]

Te agradezco la ayuda y el tiempo dedicado a mi duda.

Muchas Gracias

[Alexis De la Cr]

Empezado por dado

Alexis

Mmmh, me iba a echar todo un rollo de que la declaracion esta mal, que esa funcion no aparece en libeay32 y que no depende de la version de la dll.

Pero mejor subo aqui la libay32.pas checalo

Efectivamente esta unidad si compila perfectamente. Muchas Gracias. Ahora a seguir estudiando.

Por cierto que bueno que saca el tema a relucir del CFDI o mejor dicho la version 3.0 de CFD. Porque al final de cuentas todos van a tener que actualizarse a la version 3.0

aqui hay una buena pagina con informacion que me parecio relevante

http://www.facturarenlinea.com.mx/we...d=25&Itemid=23

Me imagino, y conste que no soy experto en la materia, que actualizar a la version 3 no ha de ser muy complicado, salvo por el tema ese de la encriptacion SHA

Saludos