Jump to content

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sign in to follow this  
Antonio Paulo Mangili

ANSWERED Consultar MDFe não encerradas

Recommended Posts

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.

Edited by Antonio Paulo Mangili
erro de escrita

Share this post


Link to post
Share on other sites

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);

 


Consultor SAC ACBr Italo Jurisato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...