Ler um XML via ACBR e recuperar seu CABEÇALHO

[carlosmuzambinho]

Boa noite... fiquei por mais de 2 horas, mas sem sucesso, tentando 

recuperar informações de um XML após "carrega-lo" no componente.

A única informação que consegui recuperar foi a CHAVE da NFe

Comandos :

1)  Lendo/CARREGANDO o XML no COMPONENTE :

ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName) 

 

2) Recuperando CHAVE do XML :

Lb_Chave_NFe.Caption                  := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44);

 

3) O que mais necessito recuperar no meu sistema :

CNPJ do DESTINATÁRIO, CNPJ DO REMETENTE, RAZÃO SOCIAL DO DESTINATÁRIO,  NÚMERO DA NF, VALOR TOTAL DA NF, PROTOCOLO DE AUTORIZAÇÃO da NFe

 

Obrigado a todos! este componente é MARAVILHOSO

Editado 14 Dezembro, 2016 por carlosmuzambinho

[Leandro Vignoto]

Bom Dia !

   Acredito que seria algo nesse sentido como fazer, não necessariamente os campos que você falou.

For nQtdReg := 0 to itemAcbrNfe.NotasFiscais.Count - 1 do
Begin
  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Emit.CNPJCPF;
  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Emit.xNome;
  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Emit.EnderEmit.xLgr;
  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Emit.EnderEmit.nro;

  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Dest.CNPJCPF;
  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Dest.xNome;
  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Dest.EnderDest.xLgr;
  AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Dest.EnderDest.nro;

  // percorre os produtos do xml
  For i := 0 to AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Det.Count - 1 do
  Begin
    AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Det.Items.Prod.cProd;
    AcbrNfe1.NotasFiscais.Items[nQtdReg].NFe.Det.Items.Prod.xProd;
  End;    
End;

Att

Leandro