Ver Mensaje Individual
  #2  
Antiguo 08-03-2017
tmsanchez tmsanchez is offline
Miembro
 
Registrado: mar 2004
Ubicación: Mexico
Posts: 67
Reputación: 21
tmsanchez Va por buen camino
Que tal.

Probablemente esto te sirva:

Código Delphi [-]
procedure TfrmPrincipal.generaPdf(archivo: String);
var
    recibo: IXMLComprobante;
    timbreFiscal: IXMLTimbreFiscalDigital;
    XMLDocument1: TXMLDocument;  
begin
  // cargar el comprogante a partir del nombre del archivo
  recibo := LoadComprobante(archivo);

  // obtener el nodo del timbre fiscal
  XMLDocument1.Xml.Text := recibo.Complemento.ChildNodes.FindNode('tfd:TimbreFiscalDigital', '').Xml;
  XMLDocument1.Active := True;
  timbreFiscal := GetTimbreFiscalDigital(XMLDocument1);

  showMessage(timbreFiscal.UUID);
end;
Responder Con Cita