Página 5 de 18

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mar Feb 22, 2011 2:21 pm
por 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.

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mar Feb 22, 2011 8:43 pm
por 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.

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mar Feb 22, 2011 8:53 pm
por Dado
poliman escribió: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.

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mar Feb 22, 2011 9:15 pm
por 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.

:(

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mar Feb 22, 2011 11:28 pm
por Dado
CORRECCION PARA DELPHI 2010
poliman escribió: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+

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mié Feb 23, 2011 10:31 am
por poliman
DADO escribió:CORRECCION PARA DELPHI 2010
poliman escribió: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.
:)

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mié Feb 23, 2011 10:40 am
por Dado
poliman escribió:Gracias, ya funciono perfectamente.
:)
Si, tan simple como dos instrucciones adicionales y de fallar terriblemente cambia a un Timbrado Perfecto :D :D

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mié Feb 23, 2011 3:22 pm
por 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.

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mié Feb 23, 2011 4:12 pm
por Dado
moyneh escribió: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

Re: Codigo Fuente en Delphi para Timbrar (TimbreFiscal.mx)

Publicado: Mié Feb 23, 2011 5:51 pm
por Dado
moyneh escribió: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