Consulta MDFe Não Encerrados

[sgeinformatica]

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;
 

[Felipe E. Resende Mesquita]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[José M. S. Junior]

Bom dia

Correto... da forma que está realmente está errado para este método, vamos verificar e ajustar. Obrigado.

[José M. S. Junior]

Bom dia, favor atualizar para ultima versão e realizar os testes...

[sgeinformatica]

bom dia

Vou testar, obrigado

[sgeinformatica]

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

[José M. S. Junior]

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.

[sgeinformatica]

Bom dia

Segue os xml da pasta Logs

No arquivo 20190403085502-cons.xml   retornou 2 MDFe não encerradas

Mas o retorno do AcbrMonitorPlus está trazendo apenas uma como na msg acima

Logs.rar

[Amarildo de Matos]

bom dia..

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

 

[sgeinformatica]

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

 

[Italo Giurizzato Junior]

Bom dia,

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

Vamos providenciar as alterações.

[Italo Giurizzato Junior]

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;

 

[sgeinformatica]

Que ótimo, vou aguarda a próxima versão do AbcrMonitorPlus

Obrigado

[José M. S. Junior]

Correto... Estará disponível na próxima versão.