ValidaCFD

ganimidesmx escribió:Dado: El error lo da en esta linea:

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

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;

buhosw escribió:Saludos Dado.. Puedo acceder a tus rutinas en Delphi desde Vb6?

ganimidesmx escribió: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

ganimidesmx escribió: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