Argument out of range

Rogério Claro · 10 Setembro, 2015

Pessoal, boa tarde!

Estou pupilando no delphi e no acbr, estou fazendo o importe do xml de nfe para o um sistema, o cabeçalho está indo de boa, show de bola, porém os itens está dando um trabalho.. mas vamos lá.

ao importar os itens se não tiver o produto ele vai retornar o if

          dm.cdsProduto.Close;
          dm.cdsProduto.Open;
                  if (dm.cdsProdutoCOD_PROD.AsString <>  '123') then

                    showmessage('Produto não cadastrado!');

                    frmProdutoNF := TfrmProdutoNF.Create(nil);
...
             begin                            
               frmProdutoNF.edtCod_Prod.Text := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.cEAN;  //puxar as informações para o form de cadastro
......

porém ele retorna que está fora da faixa...

Argument out of range

Alguem pode me ajudar?

Desde já obrigado.

Juliomar Marchetti · 10 Setembro, 2015

que tal verificar antes pra ver se tem produtos

ACBrNFe1.NotasFiscais.Items[0].NFe.Det.count

Rogério Claro · 11 Setembro, 2015

Obrigado pela dica, porém ainda a mensagem persiste..

Juliomar Marchetti · 11 Setembro, 2015

e que tal

ACBrNFe1.NotasFiscais.count

Rogério Claro · 11 Setembro, 2015

e que tal

ACBrNFe1.NotasFiscais.count

Juliomar, novamente muito obrigado pela resposta, mas deu o mesmo mensagem vou tentar passar pra vocês com faco no sistema.

Ao clicar para importar a NFe inicialmente ele puxa somente o cabeçalho da nota(Funcionando perfeitamente), depois disso o usuário vai no group box de produtos, e clicar em importar produtos, e ai ele vai e importar os itens da nota, se não existir o produto, ele da a mensagem, e abre a tela de cadastro já com as informações nos edits do form. porem nessa função ele da essa mensagem que lhe citei.

debugando, verifiquei que aparece que o valor está inacessível, como a imagem em anexo.

Desde já meu muito obrigado, e mais uma vez digo a vocês, estou pupilando ainda ehehehe

Forte abraço.