Ir para conteúdo
  • Cadastre-se

dev botao

Consulta MDFe Não Encerrados


Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 1820 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Boa tarde

Comando do ACBrMonitorPlus para Consultar MDFe não encerrados retorna apenas 1 MDFe.
Gostaria de saber é possivel arrumar o monitor para retornar todas MDFe não encerradas
Obrigado

 

procedure TACBrObjetoMDFe.RespostaMDFeNaoEnc;
var
  Resp: TNaoEncerradosResposta;
begin
  Resp := TNaoEncerradosResposta.Create(resINI);
  try
    with fACBrMDFe.WebServices.ConsMDFeNaoEnc do
    begin
      Resp.Versao := verAplic;
      Resp.TpAmb := TpAmbToStr(TpAmb);
      Resp.VerAplic := VerAplic;
      Resp.CStat := cStat;
      Resp.XMotivo := XMotivo;
      Resp.CUF := cUF;
      Resp.CNPJ := CNPJCPF;
      if InfMDFe.Count > 0 then
      begin
        Resp.ChMDFe := InfMDFe.Items[0].chMDFe;
        Resp.NProt := InfMDFe.Items[0].nProt;

      end;

      fpCmd.Resposta := Msg + sLineBreak;
      fpCmd.Resposta := fpCmd.Resposta + Resp.Gerar;
    end;
  finally
    Resp.Free;
  end;
end;
 

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Membros Pro

Boa tarde, 

Nessa versão do AcbrMonitorPlus 1.2.0.50 já está arrumada ?

Ele continuou trazendo apenas uma MDFe

Olha a resposta

OK: 
[NAOENCERRADOS002]
CNPJ=60633369000244
CStat=0
CUF=0
ChMDFe=35190460633369000244580010000000111000000112
Msg=
NProt=935190000023263
TpAmb=
VerAplic=
Versao=
XMotivo=
 

Mas mostrou que tem 2 MDFE na palavra NAOENCERRADOS002

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Como está o XML de retorno? Marque a opção para Salvar XMLs enviados e recebidos no menu DFe/WebServices. Se possível anexe o XML e o log.txt do ACBrMonitor para verificação.

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
14 minutos atrás, Amarildo de Matos disse:

bom dia..

Primeiro encerre uma Mdf-e . e depois encerre a outra mdf-e..

 

O metodo de encerramento está correto, não é esse o problema.

Estamos usando o metodo de consulta de MDFe (no AcbrMonitorPlus) não encerradas MDFe.ConsultaMDFeNaoEnc

Nesse caso eu criei de proposito 2 MDFe autorizadas e não encerradas.

Quando faço a consulta das MDFe não encerradas, o monitor me retorna somente a segunda MDFe

Pelos xml dá pra ver que a Sefaz está retornando as duas

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia,

Realmente no Monitor não esta retornando a lista dos MDF-e não encerrados.

Vamos providenciar as alterações.

Consultor SAC ACBr

Italo Giurizzato 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

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

Acredito ter encontrado o problema.

A rotina atual esta desta forma:

procedure TACBrObjetoMDFe.RespostaMDFeNaoEnc(ItemID: integer);
var
  Resp: TNaoEncerradosResposta;
begin
  Resp := TNaoEncerradosResposta.Create('NAOENCERRADOS' + Trim(IntToStrZero(ItemID +1, 3)), resINI);
  try
    with fACBrMDFe.WebServices.ConsMDFeNaoEnc do
    begin
      Resp.CNPJ := CNPJCPF;
      Resp.ChMDFe := InfMDFe.Items[ItemID].chMDFe;
      Resp.NProt := InfMDFe.Items[ItemID].nProt;
      end;

      fpCmd.Resposta := sLineBreak;
      fpCmd.Resposta := fpCmd.Resposta +  Resp.Gerar;

  finally
    Resp.Free;
  end;
end;

Para mostrar todas as chaves, acredito que ela deveria ficar da seguinte forma:

procedure TACBrObjetoMDFe.RespostaMDFeNaoEnc(ItemID: integer);
var
  Resp: TNaoEncerradosResposta;
begin
  Resp := TNaoEncerradosResposta.Create('NAOENCERRADOS' + Trim(IntToStrZero(ItemID +1, 3)), resINI);
  try
    with fACBrMDFe.WebServices.ConsMDFeNaoEnc do
    begin
      Resp.CNPJ := CNPJCPF;
      Resp.ChMDFe := InfMDFe.Items[ItemID].chMDFe;
      Resp.NProt := InfMDFe.Items[ItemID].nProt;
      end;

      fpCmd.Resposta := fpCmd.Resposta + sLineBreak + Resp.Gerar;

  finally
    Resp.Free;
  end;
end;

 

  • Curtir 2
Consultor SAC ACBr

Italo Giurizzato 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

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.