Codigo Fuente en Delphi para Timbrar

[ganimidesmx]

Dado: El error al terminar de timbrar con EDICOM lo da en esta linea, sera que hay cambiar algo en el objeto timbre ?
porque para timbrefiscal no da ningun error.

//Le enviamos el texto al Objeto Timbre
Timbre.SetTimbre(RespuestaDelPAC);

DanielK

[Dado]

Dado: El error lo da en esta linea:

//Le enviamos el texto al Objeto Timbre
Timbre.SetTimbre(RespuestaDelPAC);

OK, hay "algo" en el timbre que no le gusta a mi rutina.

En la unidad Timbre_Obj, funcion SetTimbre agrega esta linea :

Código: Seleccionar todo

procedure TTimbre.SetTimbre(XML : string);
begin
	XMLDoc.XML.Text := UTF8Encode(XML);
	XMLDoc.Active := true;
	XMLDoc.XML.SaveToFile('c:timbre.xml'); //AGREGAR ESTA LINEA
	Datos := GetTimbreFiscalDigital(XMLDoc);
end;

Publica aqui el timbre.xml, de todos modos sigue ejecutando linea por linea DENTRO DE SETTIMBRE para ver en que linea falla.

........... "hace falta cambiar algo?" EN ESO ESTAMOS! porfavor sigue las instrucciones que te doy............ya tambien tengo presente que "en TimbreFiscalMx" no lo hace..........

[ganimidesmx]

Dado: el error lo da exactamente al activar el XMLDoc

linea que dice: XMLDoc.Active := true;


procedure TTimbre.SetTimbre(XML : string);
begin
XMLDoc.XML.Text := UTF8Encode(XML);
XMLDoc.Active := true;
XMLDoc.XML.SaveToFile('c:timbre.xml'); //AGREGAR ESTA LINEA
Datos := GetTimbreFiscalDigital(XMLDoc);
end;

DanielK

[buhosw]

Saludos Dado.. Puedo acceder a tus rutinas en Delphi desde Vb6?

[ganimidesmx]

DADO: YA ENCONTRE LA CAUSA DEL ERROR EN EL TIMBRADO CON EDICOM, Resulta que en la rutina de timbrado especificamente en la FUNCTION EdicomEngine(..... , al terminar de timbrar, se asigna el valor de "Timbrado!" a la variable llamada "Respuestadelpac" , es por eso manda el error al asignarlo al objeto timbre.

La rutina dice:

CFD.LoadFromFile(RecvXMLFile);

RespuestaDelPAC := 'Timbrado!'; /////AQUI ESTA EL ERROR
Result := True;
except
on e:exception do RespuestaDelPAC := e.Message;
end;


Cual seria la correcion entonces ? Gracias de antemano.

DanielK

[Dado]

Saludos Dado.. Puedo acceder a tus rutinas en Delphi desde Vb6?

No, es como tratar de mezclar agua y aceite.

[Dado]

DADO: YA ENCONTRE LA CAUSA DEL ERROR EN EL TIMBRADO CON EDICOM, Resulta que en la rutina de timbrado especificamente en la FUNCTION EdicomEngine(..... , al terminar de timbrar, se asigna el valor de "Timbrado!" a la variable llamada "Respuestadelpac" , es por eso manda el error al asignarlo al objeto timbre.

La rutina dice:

CFD.LoadFromFile(RecvXMLFile);

RespuestaDelPAC := 'Timbrado!'; /////AQUI ESTA EL ERROR
Result := True;
except
on e:exception do RespuestaDelPAC := e.Message;
end;


Cual seria la correcion entonces ? Gracias de antemano.

DanielK

Aaaah! ya caigo en el error.

No, Edicom NO REGRESA EL TIMBRE dentro de "RespuestaDelPAC".

Edicom regresa EL XML YA TIMBRADO ya no es necesario que lo pegues "manualmente"

[ganimidesmx]

PERFECTO: YA pude Timbrar con EDICOM, Gracias al Sr. Dado por su valiosa ayuda y apoyo, les recomiendo ampliamente a todos los desarrolladores (de delphi) que adquieran las rutinas para Timbrado, ya las probe y estan funcionando al 100% tanto en modo de prueba como en produccion. Tal vez esto suene a promocion y asi es, soy un cliente satisfecho y no tengo ningun inconveniente en recomendar ampliemente las rutinas del SR. DADO.

Actualmente nuestra solucion ya Timbra con TimbreFiscal y Edicom

Si tienen alguna duda, pueden escribirme a mi correo privado: informes@grupoms.net

Saludos.

DanielK

[Dado]

PERFECTO: YA pude Timbrar con EDICOM, Gracias al Sr. Dado por su valiosa ayuda y apoyo, les recomiendo ampliamente a todos los desarrolladores (de delphi) que adquieran las rutinas para Timbrado, ya las probe y estan funcionando al 100% tanto en modo de prueba como en produccion. Tal vez esto suene a promocion y asi es, soy un cliente satisfecho y no tengo ningun inconveniente en recomendar ampliemente las rutinas del SR. DADO.

Actualmente nuestra solucion ya Timbra con TimbreFiscal y Edicom

Si tienen alguna duda, pueden escribirme a mi correo privado: informes[]grupoms.net

Saludos.

DanielK

gracias a ti.......

[Dado]

Abri un foro ESPECIALMENTE PARA SOPORTE del Codigo Fuente Delphi, por favor ABRAN UN TEMA NUEVO con su duda en ese foro

Esto con la finalidad de organizar mejor los mensajes e incluso para dar soporte mas personalizado y que no se nos anden "cruzando" los mensajes de una persona con la de otra. Gracias por su atencion