Erro ao encerrar MDFe

[Robson DAvila]

Bom dia, estou tentando encerrar um MDFe que está autorizado a mais de 05 dias.

E no fim do processo, está retornando essa mensagem:

------------------------------------------------------------
Erro no Manifesto Eletrônico. List index out of bounds (0)
------------------------------------------------------------
Não consegui encontrar onde está ocorrendo essa Exception, estou em modo de homologação. 

Estou utilizando Delphi 7 e com o processo de envio para encerramento, através destes comandos:

    WMdfe.EventoMDFe.Evento.Clear;
    with WMdfe.EventoMDFe.Evento.Add do
      begin
        infEvento.chMDFe               := PChave;
        infEvento.CNPJ                    := Copy( PChave, 07, 14 );
        infEvento.dhEvento              := Now;
        infEvento.tpEvento               := teEncerramento;
        infEvento.nSeqEvento          := 1;
        infEvento.detEvento.nProt  := pProtocolo;
        infEvento.detEvento.dtEnc  := Date;
        infEvento.detEvento.cUF     := StrToInt( PUfDescarga );
        infEvento.detEvento.cMun  := StrToInt( PMunDescarga );
      end;

    WMdfe.EnviarEvento( 1 );  // 1 = Numero do Lote

Ao final da tentativa de encerramento, retorna a mensagem de erro acima.
Ficaria grato pela ajuda.

 

[EMBarbosa]

30 minutos atrás, Robson DAvila disse:

Ao final da tentativa de encerramento, retorna a mensagem de erro acima.
Ficaria grato pela ajuda.

Seria bom você tentar compilar em modo debug e fazer o Debug passo a passo para encontrar exatamente a linha que acontece o erro.
Providencie também os xmls de envio e de retorno para possível avaliação.

[Robson DAvila]

já está em modo de Debug, e mesmo assim, não entendi o porque de não deixar "Encerrar" ou "Cancelar" o MDFe.

já que estou utilizando o mesmo procedimento que consta no Demo, para enviar o evento.
 

Mdfe-EnvioEncerramento.xml

[Italo Giurizzato Junior]

Bom dia Robson,

Esse XML se refere ao retorno de envio do MDF-e e não do retorno de envio do Evento de encerramento.

[Robson DAvila]

Pois é Italo, depois que enviei, percebi isso, mas, acontece que não chegou a receber o arquivo de retorno, já apresenta a mensagem List index out of bounds (0) .
E não consegue realizar o evento de encerramento. 
Aí, para ver se o meu processo está funcionando, fiz um novo registro de manifesto, e ao tentar enviar, retorna a mensagem de que existe um manifesto para a Uf de origem aberto a mais de 05 dias, pois esse que estou tentando encerrar, fiz no dia 26/12/2018, e acho que por conta dele não me deixa fazer um novo manifesto, digo, enviar.

 

[Robson DAvila]

Bom dia

Ítalo, fiz a execução em modo debug, e até onde consegui chegar sem apresentar a mensagem acima, tem a seguinte mensagem:
Rejeição: Chave de Acesso difere da existente em BD [24181202859542000140580010000000041000000043]

E quando chega nesse código: ACBrDFeException 
nesse método:
constructor EACBrDFeException.CreateDef(const Msg: String);
begin
  inherited Create(Msg);
end;

dá o erro: List index out of bounds (0) 

E ao verificar o conteúdo da variável MSG , consta a mensagem: Rejeição: Chave de Acesso difere da existente em BD [24181202859542000140580010000000041000000043]
E quando sigo na execução, apresenta o erro e não passa mais, retorna.

 

[Italo Giurizzato Junior]

Bom dia Robson,

A mensagem da rejeição é clara, existe um MDF-e de numero 4 mas a chave não é essa.

Você tem o XML do MDF-e que deseja encerrar para que possamos comparar as chaves?

Quanto a erro de index precisamos saber descobrir o motivo.