Encerramento MDFE - Falha no Schema XML

Fernanda Alves · 22 Outubro, 2018

Boa tarde!

Estou implementando a emissão de MDFe no meu sistema, mas não estou conseguindo efetivar o encerramento.

Eu consigo gerar , cancelar, consultar, imprimir. O único que não funciona é o encerramento.

Já baixei as atualizações do pacote ACBr e dos Schemas, porém a mensagem persiste.

Segue abaixo código que estou utilizando e XMLs do MDFe.

Citar

_ACBrMDFe.Manifestos.Clear;
_ACBrMDFe.EventoMDFe.Evento.Clear;

Evento := _ACBrMDFe.EventoMDFe.Evento.Add;

Evento.InfEvento.chMDFe := ChaveMDFe;
Evento.InfEvento.CNPJCPF := CChaveMDFe.CnpjEmitente(ChaveMDFe);
Evento.InfEvento.tpEvento := TipoEvento;
Evento.InfEvento.detEvento.nProt := Protocolo;

if (TipoEvento = teCancelamento) then
begin
Evento.InfEvento.dhEvento := Now;
Evento.InfEvento.detEvento.xJust := Texto;
end else
begin
Evento.InfEvento.detEvento.dtEnc := Now;
Evento.InfEvento.detEvento.cUF := CodUF;
Evento.InfEvento.detEvento.cMun := CodCidade;
end;

numMDFe := StrToInt(CChaveMDFe.NumeroMDFe(ChaveMDFe));

_ACBrMDFe.EnviarEvento(numMDFe + 1000000);

Result := _ACBrMDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
ProtocoloEvento := Result;