Codigo Fuente en Delphi para Timbrar

[Doring]

DADO, te mandaste, esta libreria está fabulosa.
Voy a hacer mis pruebas y luego te envio el importe porque vale la pena.
Nuevamente
Muchas gracias.

[poliman]

Hola DADO.

Me marca el siguiente error:

Código: Seleccionar todo

?xml version='1.0' encoding='UTF-8'?><S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"><S:Body><S:Fault xmlns:ns4="http://www.w3.org/2003/05/soap-envelope"><faultcode>S:Client</faultcode><faultstring>Couldn't create SOAP message due to exception: XML reader error: com.ctc.wstx.exc.WstxEOFException: Unexpected EOF in prolog

 at [row,col {unknown-source}]: [1,0]</faultstring></S:Fault></S:Body></S:Envelope>

Te comento como lo hago.

Una vez que tengo generado el CFDI V3 lo cargo.
Utilizo la funcion Solicita. <--Aqui es donde marca el error.

Código: Seleccionar todo

  // Incializamos un CFD al cual le vamos a solicitar el Timbre
  CFD := TCFD.Create(cfdV20);
  if CFD.LoadFromFile('c:\FACTURA No. 1234.xml') then 
  begin
    CFD.Datos.Complemento.ChildNodes.Clear;

    if Solicita(CFD, RespuestaDelPAC) then
    begin

Espero me puedas ayudar.

Muchas gracias.

[Dado]

Hola DADO.

Me marca el siguiente error:

Código: Seleccionar todo

?xml version='1.0' encoding='UTF-8'?><S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"><S:Body><S:Fault xmlns:ns4="http://www.w3.org/2003/05/soap-envelope"><faultcode>S:Client</faultcode><faultstring>Couldn't create SOAP message due to exception: XML reader error: com.ctc.wstx.exc.WstxEOFException: Unexpected EOF in prolog

 at [row,col {unknown-source}]: [1,0]</faultstring></S:Fault></S:Body></S:Envelope>

Estas usando Delphi V2009+ ?

Si es asi, dame un dia mas, ya casi tengo la correccion para Delphi 2009+, de todos modos confirmame que version estas usando.

[poliman]

Hola, gracias por tu pronta respuesta.

Estoy usando Delphi 2010. ¿Entonces es por la version de Delphi?, ¿No tiene que ver con el formato del XML que estoy utilizando ?, ¿No le falta o le sobra nada al XML ?, ¿ No me falta algun paso ?,

Solo hice los pasos que te comente, esto despues de que tengo el CFDI V3 generado, sin el noto complemento.

Al utilizar el Demo que tienes de timbrado siempre timbra, no marca ningun error.


Muchas gracias por tu ayuda.

[Dado]

CORRECCION PARA DELPHI 2010

Hola, gracias por tu pronta respuesta.

Estoy usando Delphi 2010. ¿Entonces es por la version de Delphi?, ¿No tiene que ver con el formato del XML que estoy utilizando ?, ¿No le falta o le sobra nada al XML ?, ¿ No me falta algun paso ?,

Solo hice los pasos que te comente, esto despues de que tengo el CFDI V3 generado, sin el noto complemento.

Al utilizar el Demo que tienes de timbrado siempre timbra, no marca ningun error.


Muchas gracias por tu ayuda.

Si, es por la version de Delphi, pero ya quedo lista, lo revise en Delphi V7, Delphi V2009 y Delphi V2010.

Descargue tu XML para probarlo y lo timbre en D2010 sin problema, claro con la correccion siguiente :

En la unidad TimbreFiscalMX.pas alrededor de la linea 140 agrega dos UTF8String como se muestra :

HTTP.Document.Write(Pointer(UTF8String(SOAPMsg))^, Length(UTF8String(SOAPMsg)));

Ya con eso estas listo para D2009+

[poliman]

CORRECCION PARA DELPHI 2010

Hola, gracias por tu pronta respuesta.

Estoy usando Delphi 2010. ¿Entonces es por la version de Delphi?, ¿No tiene que ver con el formato del XML que estoy utilizando ?, ¿No le falta o le sobra nada al XML ?, ¿ No me falta algun paso ?,

Solo hice los pasos que te comente, esto despues de que tengo el CFDI V3 generado, sin el noto complemento.

Al utilizar el Demo que tienes de timbrado siempre timbra, no marca ningun error.


Muchas gracias por tu ayuda.

Si, es por la version de Delphi, pero ya quedo lista, lo revise en Delphi V7, Delphi V2009 y Delphi V2010.

Descargue tu XML para probarlo y lo timbre en D2010 sin problema, claro con la correccion siguiente :

En la unidad TimbreFiscalMX.pas alrededor de la linea 140 agrega dos UTF8String como se muestra :

HTTP.Document.Write(Pointer(UTF8String(SOAPMsg))^, Length(UTF8String(SOAPMsg)));

Ya con eso estas listo para D2009+

Gracias, ya funciono perfectamente.

[Dado]

Gracias, ya funciono perfectamente.

Si, tan simple como dos instrucciones adicionales y de fallar terriblemente cambia a un Timbrado Perfecto

[moyneh]

Hola
Yo ya tengo un desarrollo de CDFI nada mas necesito el timbrado una pregunta si mando a timbrar con un XML que me regresa?
O puedo timbrar como el demo que baje con un .INI solamente haciendo referencia la XML con el sello.

[Dado]

Hola
Yo ya tengo un desarrollo de CDFI nada mas necesito el timbrado una pregunta si mando a timbrar con un XML que me regresa?
O puedo timbrar como el demo que baje con un .INI solamente haciendo referencia la XML con el sello.

Los datos viajan de la siguiente manera :

Un XML COMPLETO Y SELLADO POR EL EMISOR -> Entra al procedimiento de Timbrado en PASCAL -> Prepara el mensaje SOAP, en ese mensaje va un prologo, el XML y un cierre de mensaje -> este mensaje SOAP se envia a TimbreFiscal.MX -> TimbreFiscal.MX responde con otro mensaje SOAP que puede contener una de dos : 1. un mensaje de error o 2. El nodo <TmbreFiscalDigital> -> analizo el mensaje de respuesta y "busco" el timbre -> El procedimiento de Timbrado en Pascal regresa el Mensaje junto con una boolean, true para indicar que el mensaje es un timbre y false para indicar que el mensaje es un error.

Mas o menos asi trabaja la funcion EN PASCAL

En la DLL entra el nombre de un archivo XML COMPLETO Y SELLADO POR EL EMISOR y EN ESE MISMO ARCHIVO se regresa el XML ya timbrado.

Mi recomendacion, si estas programando en Delphi porsupuesto que te recomendaria el codigo fuente, tienes el control total.

Si no estas en Delphi entonces te recomiendo la DLL

[Dado]

si quieres un trial de VO28
http://www.govulcan.net/portal/TrialVer ... fault.aspx
Moises

MOISES : VOY A PASAR ESTOS MENSAJES AL FORO ADECUADO, EL DEL DLL AQUI