Duda sobre Paso #3 ( 3.3 Crea Factura CFDI V3.0 )

[agag4]

En el Paso #3, viene el llenado del CFDi, todo va bien hasta que me encontre con el siguiente paso:

Código: Seleccionar todo

	//DESPUES DE SELLAR SE HACE LA CONEXION CON UN PAC PARA QUE NOS DEVUELVA EL SELLO DEL SAT
	//Suponiendo que nos regresa el timbre en una cadena como la de este ejemplo :
	TimbreDelPAC :='<tfd:TimbreFiscalDigital xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital" xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital TimbreFiscalDigital.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" '+
	'selloCFD="ll858RRUo3RHkdawp5Jy/TENtijth0TXEizBRwiCZhkanijbNH8Hh6C2XRk1wUsR
T0q+3HrO2bNgMS7cPr4p2ee+2N/6zVPzhjt0hfK8r3rF+VLArhGKQaBynlzMpL/A
up1Oc4fDjZA1MbtbZblLxFNG8/TeCJjQogo7+uYBMB4=
" '+
	'FechaTimbrado="2011-03-06T20:40:10" UUID="ad662d33-6934-459c-a128-bdf0393e0f44" noCertificadoSAT="30001000000100000801" version="1.0" '+
	'selloSAT="j2gGwF26lCgiMEj7IlVTDaQrAsOtVU7yO6idRZrSXYnarFQ5cbUE79WER4O8g+TZ
pYnyeOoH7DskvzeSMlCG67Tp/+Rx74CSTvzLtfDjEK6mmzKHylcWMn9SizIGWRDB
RrxOv5P2BPLIwTY1/HUQ7I46/eBzAuTLHsiDhsNJCMk=
" />';

Mi duda es como hago la CONEXION con el PAC para tomar el valor de la variable "TimbreDelPAC", me tengo que pasar al paso del boton del envio del timbre ?? en mi caso el contenido del boton TimbreFiscalMX ??

[agag4]

//DESPUES DE SELLAR SE HACE LA CONEXION CON UN PAC PARA QUE NOS DEVUELVA EL SELLO DEL SAT

Código: Seleccionar todo

  //Incializamos un CFD al cual le vamos a solicitar el Timbre
  CFD := TCFD.Create(cfdV20);

  //Cargamos el CFD previamente creado
  if CFD.LoadFromFile(ExtractFilePath(Application.ExeName)+'FACTURA No. 1234.xml') then //usamos un if, para validar que si se haya cargado correctamente
  begin
    CFD.Datos.Complemento.ChildNodes.Clear; //Quitamos el timbre que tenia anteriormente
   if TimbreEngine.Solicita(tstfPrueba,CFD,ExtractFilePath(Application.ExeName)+'CertificadoDemoTimbreFiscalMx.pem',ExtractFilePath(Application.ExeName)+'CertificadoDemoTimbreFiscalMx.pem',RespuestaDelPAC) then  //if true entonces tenemos timbre
   begin
      //Le enviamos el texto al Objeto Timbre
      Timbre.SetTimbre(RespuestaDelPAC);

      //E Insertamos el timbre en el CFD
      Timbre.InsertaComplemento(CFD);
....

Esto es lo que llevaría para obtener el valor de la variable "TimbreDelPAC" ??

[Dado]

Revisa la funcion que esta en el evento OnClic de cada boton de cada PAC para que analices como debe enviarse

[agag4]

ok, gracias....