ValidaCFD

Código: Seleccionar todo

....
          if TimbrarCFD(PChar( 'c:\ecodex.ini' )) = OK then begin

            try

              // Tomamos datos del timbre para guardarlo en factura
              CFD := TCFD.Create(cfdV32);
              CFD.LoadFromFile(RutaXML+tFacturasTIPOMOV.Value+'-'+tFacturasFOLIOFISCAL.AsString+'.xml');

              // Grabamos y Finalizamos
              tFacturas.Edit;
              // AQUI MARCA ERROR AL LEER      -->>  CFD.CadenaOriginalTFD;

              tFacturasFE_CADENAORIGINAL_SAT.Value := CFD.CadenaOriginalTFD;
              tFacturasFE_CADENAORIGINAL.Value     := CFD.CadenaOriginal;
              tFacturasFE_FECHATIMBRADO.Value      := CFD.Timbre.Datos.FechaTimbrado;
              tFacturasFE_CERTIFICADO_SAT.Value    := CFD.Timbre.Datos.NoCertificadoSAT;
              tFacturasFE_CERTIFICADO_CONTRIBUYENTE.Value := CFD.Datos.NoCertificado;

             tFacturasFE_SELLODIGITAL.Value       := CFD.Timbre.Datos.SelloCFD;
             tFacturasFE_SELLODIGITAL_SAT.Value   := CFD.Timbre.Datos.SelloSAT;
             tFacturasFE_FOLIOFISCAL_TIMBRE.Value := CFD.Timbre.Datos.UUID;
             tFacturasFE_VERSIONCFDI.Value        := CFD.Timbre.Datos.Version;

            finally
              CFD.Free;
            end;

Código: Seleccionar todo

procedure TFacturas.btnokClick(Sender: TObject);
begin

    try

      CFD := TCFD.Create(cfdV32);

      if CFD.LoadFromFile('C:\FE-1.xml') then
         ShowMessage(CFD.Timbre.Datos.UUID);

    finally
      CFD.Free;
    end;

end;

Código: Seleccionar todo

..
if CFD.TieneTimbre then
..