ValidaCFD

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=
" />';

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);
....