Usando TXMLDocument para Ler o Recibo de Envio da NF-e

Código-Fonte dezembro 1st, 2008

No exemplo abaixo usamos o TXMLDocument do Delphi para ler os dados do XML retorno de retorno de envio do lote das NF-e:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var vXMLDoc: TXMLDocument;
    NodeRec: IXMLNode;
    recibo, datahora: WideString;
begin
  vXMLDoc := TXMLDocument.Create(self);
  vXMLDoc.LoadFromFile('0000000000234-rec.xml'); //Le Arquivo Recibo XML');
 
  // Campo memo para o exemplo
  Memo.lines.Add( '-------------------------------------------------');
  Memo.lines.Add( VXMLDoc.XML.Text +#13+#13 );
 
  // Prepara para ler os dados da tag "infRec"
  NodeRec := vXMLDoc.DocumentElement.ChildNodes.FindNode('infRec');
  // Lendo os campos da tag infRec
  recibo := NodeRec.ChildNodes['nRec'].text;     // posso ler assim
  datahora := NodeRec.ChildNodes['dhRecbto'].text;
 
  // adiciona os dados no Memo (apenas exemplo)
  if recibo <> '' then
      begin
      Memo.Lines.Add('-----------------------------------------------');
      Memo.Lines.Add( recibo+' ---- '+datahora );
      end;
 
end;

Tags: , ,