Consultar MDFe não encerradas

[Antonio Paulo Mangili]

bom dia a todos.

estou necessitando de uma orientação. provavelmente estou usando a função errada. tenho no projeto exemplo a consulta de MDFe não encerradas. peguei exemplo e apliquei em meu aplicativo, mas o que me chama a atenção é que quando faço essa consulta ele me traz somente um MDFe não encerrado, mas quando consulto no portal da MDFe ele me traz todas que estão sem encerrar. eu estou usando a função idêntica ao exemplo:

     try
        ACBrMDFe1.WebServices.ConsultaMDFeNaoEnc( edtEmitCNPJ.Text );
     finally
            MemoResp.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetWS);
            memoRespWS.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetornoWS);
     end;

     LoadXML(MemoResp, WBResposta);

     pgRespostas.ActivePageIndex := 5;

     MemoDados.Clear;
     MemoDados.Lines.Add('');
     MemoDados.Lines.Add('Consulta MDF-e Não Encerradas');
     MemoDados.Lines.Add('');
     MemoDados.Lines.Add('Ambiente     : ' + TpAmbToStr(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.TpAmb));
     MemoDados.Lines.Add('Status       : ' + IntToStr(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.cStat));
     MemoDados.Lines.Add('UF           : ' + IntToStr(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.cUF));
     MemoDados.Lines.Add('Motivo       : ' + ACBrMDFe1.WebServices.ConsMDFeNaoEnc.xMotivo);
     MemoDados.Lines.Add('Chave MDF-e  : ' + ACBrMDFe1.WebServices.ConsMDFeNaoEnc.InfMDFe.Items[0].chMDFe);
 

Como faço para aparecer todas, ou é isso mesmo só aparece uma?

desde já agradeço.

Editado 15 Maio, 2019 por Antonio Paulo Mangili
erro de escrita

[Italo Giurizzato Junior]

Bom dia Antônio,

Veja esta linha:

MemoDados.Lines.Add('Chave MDF-e  : ' + ACBrMDFe1.WebServices.ConsMDFeNaoEnc.InfMDFe.Items[0].chMDFe);

Já tentou fazer algo do tipo:

for x := 0 to ACBrMDFe1.WebServices.ConsMDFeNaoEnc.InfMDFe.Count -1 do
  MemoDados.Lines.Add('Chave MDF-e  : ' + ACBrMDFe1.WebServices.ConsMDFeNaoEnc.InfMDFe.Items[ x ].chMDFe);

 

[Antonio Paulo Mangili]

Italo obrigado pelo retorno

vou implementar isso, e depois retorno.

obrigado mesmo.

[Antonio Paulo Mangili]

Italo deu certo. por favor feche o topico.

obrigado

[Italo Giurizzato Junior]

Obrigado por reportar.

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