Como percorrer XML da NFS-e com ACBrNFSeX e exibir valores no Memo?

[Gabryel Frk]

Olá!

Preciso carregar um XML da NFS-e (modelo nacional) usando o ACBrNFSeX e depois percorrer todas as tags para jogar os valores em um TMemo.

Alguém teria um exemplo simples de como:

1. carregar o XML no ACBrNFSeX;

2. acessar os dados das notas (InfNFSe, Serviço, Prestador, Tomador etc.);

3. adicionar os valores no Memo (Memo1.Lines.Add(...))?

Obrigado!

[IMATECH]

Veja em:

..\ACBr\Exemplos\ACBrDFe\ACBrNFSeX\
Alimentar_Componente_...

Com a velha pog !

Memo.Text := ACBrNFSeX1.NotasFiscais.GerarIni;

 

 

[Gabryel Frk]

Olá!

Agradeço a resposta.

Fiz este pequeno trecho para fins de teste. porém está me retornando o erro "Nenhum provedor selecionado." .. não entendi o que pode ser. Segue o código:
 

procedure TForm1.BtnCarregarXMLClick(Sender: TObject);
begin
  ACBrNFSeX1.Configuracoes.Geral.Provedor := proPadraoNacional;

  Memo1.Clear;

  if not OpenDialog1.Execute then
    Exit;

  ACBrNFSeX1.NotasFiscais.Clear;
  ACBrNFSeX1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

  if ACBrNFSeX1.NotasFiscais.Count = 0 then
  begin
    Memo1.Lines.Add('Nenhuma nota encontrada.');
    Exit;
  end;

  Memo1.Text := ACBrNFSeX1.NotasFiscais.GerarIni;
end;

[Juliomar Marchetti]

é que tu não configura o provedor. tu seta a cidade o código ibge da cidade e o componente sabe o provedor