Importação Do Nfe Pelo Acbr Dando Erro Na Captura

[Alexandre Rodrigues]

Amigos Boa tarde,

 

estou com uma dúvida meio boba aqui de iniciante,

 

estou tentando importar de uma nfe os campos Peso Bruto e Peso líquido, porém quando executo o comando de importação aparece o erro "argument" out of range em tempo de execução

 

Envio os prints da tela de erro do meu código fonte e dos itens da xml que eu quero pegar

 

Aguardo a ajuda dos colegas do fórum

 

 

 

Desde já agradeço a ajuda.

 

 

[Juliomar Marchetti]

Debugando o erro ocorre mesmo na linha dos pesos?

por que o índice dos itens estão no 1 e somente um local está zero?

[André Ferreira de Moraes]

Não use o comando ACBrNFe1.NotasFiscais.Add; antes do LoadFromFile(No demo existe este comando para tentar ler no formato TXT).

Se se os dois campos se referem ao mesmo volume, vc não dever incrementar o índice(vc está usando 0 para o pesoL e 1 para o pesoB, use 0 nos dois).

[Alexandre Rodrigues]

André Ferreira, Boa tarde,

 

Então como eu faço para carregar o xml se não for pelo opendialog?

 

Fiz a implementação trocando o código todos para 1 e o erro continua, como procedo?

 

Grato

[André Ferreira de Moraes]

Então como eu faço para carregar o xml se não for pelo opendialog?

Basta chamar ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); apenas não precisa do comando ACBrNFe1.NotasFiscais.Add;

Fiz a implementação trocando o código todos para 1 e o erro continua, como procedo?

Vc deve trocar todos pra 0 e não pra 1. Estude o demo e veja o botão "Importar TXT/XML"

[Alexandre Rodrigues]

Amigos segue como está o meu código agora...

 

 

//OpenDialogo.FileName := '';
   OpenDialogo.Title := 'Selecione o XML da NFe';
   OpenDialogo.DefaultExt := '*-nfe.xml';
   OpenDialogo.InitialDir := ACBrNFe.Configuracoes.Geral.PathSalvar;
   if OpenDialogo.Execute then
    begin
      ACBrNFe.NotasFiscais.Clear;
      ACBrNFe.NotasFiscais.Add;
      try
        ACBrNFe.NotasFiscais.LoadFromFile(OpenDialogo.FileName);
      Except
        ShowMessage('Arquivo NFe Inválido');
        exit;
      end;

      txtcnpjEmit.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Emit.CNPJCPF;
      txtNomeEmit.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Emit.xNome;
      txtEndEmitente.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Emit.EnderEmit.xLgr;
      txtBairroEmit.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Emit.EnderEmit.xBairro;
      txtCidadeEmit.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Emit.EnderEmit.xMun;
      txtEstadoEmit.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Emit.EnderEmit.UF;
      txtcnpjDest.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Dest.CNPJCPF;
      txtnomeDest.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Dest.xNome;
      txtendDest.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Dest.EnderDest.xLgr;
      txtbairroDest.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Dest.EnderDest.xBairro;
      txtcidadeDest.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Dest.EnderDest.xMun;
      txtestadoDest.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Dest.EnderDest.UF;
      txtPlaca.Text := ACBrNFe.NotasFiscais.Items[1].NFe.Transp.veicTransp.placa;
      txtPesoliquido.Text := CurrToStr(ACBrNFe.NotasFiscais.Items[1].NFe.Transp.Vol.Items[1].pesoL);
      txtPesoBruto.Text := CurrToStr(ACBrNFe.NotasFiscais.Items[1].NFe.Transp.Vol.Items[1].pesoB);

[Alexandre Rodrigues]

André Ferreira, boa tarde,

 

Consegui fazer a importação... era realmente o campo ACBrNFe.NotasFiscais.Add; que não estava deixando efetuar a importação...

 

Como coloco o tópico como resolvido?