Error en el 1er Timbrado de Producción ECODEX

[agag4]

Estoy usando la misma estructura del XML que usaba para timbreFiscal v3.2, sólo que ahora el timbrado es para ecodex, creo el xml y le paso la ruta del .ini para el timbrado y me arroja el error que viene en la imagen, les adjunto el xml.

[Dado]

Valida tu XML para que veas el error que tienes en tu XML

[agag4]

Ya me timbro, solo porque no tenia el C.P. del emisor ???

Ahora el problema que tengo es el siguiente, la toma de los datos del timbrado en el CFD, me fui por este camino y me marca error, como si accesaras a algo que no esta creado.

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;

[Dado]

SIEMPRE asegurate que todas las operaciones esten verificadas :

IF CFD.LoadFromFile(RutaXML+tFacturasTIPOMOV.Value+'-'+tFacturasFOLIOFISCAL.AsString+'.xml') then

IF CFD.TieneTimbre then

[agag4]

DADO, estoy haciendo una prueba del XML que me timbro, le meti un boton y puse el siguiente codigo:

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;

MUESTRA EL MENSAJE, pero VACIO, segun alli te debe mostrar el folio fiscal del timbrado, lo muestra vacio .... adjunto XML timbrado.

[agag4]

Sorry, me falto esto

Código: Seleccionar todo

..
if CFD.TieneTimbre then
..

Dije, es una condicion booleana jajajajajajaja

En fin, ya quedo mi chavo... gracias....

[Dado]

Es mas, mucho mas que una condicion booleana, "TieneTimbre" es un metodo del objeto TCFD

[agag4]

Como dijo el chapulin colorado, LO SOSPECHE DESDE UN PRINCIPIO