Argument out of range

[Rogério Claro]

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]

que tal verificar antes pra ver se tem produtos

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

[Rogério Claro]

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

[Juliomar Marchetti]

e que tal

ACBrNFe1.NotasFiscais.count

[Rogério Claro]

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.

 

 

 

[Juliomar Marchetti]

Viu tu não entendeu o que eu passei!

que tal verificar com o count se tem maior que zero?

[Moises Sistemas]

Isso aconteceu comigo e resolvi.

O tamanho do campo no meu banco de dados estava inferior ao tamanho passado pelo ACBrNfe.

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.