Encerramento do MDF-e

[Turbo Drive]

Boa tarde

   ACBrMDFe1.Manifestos.Clear;
   ACBrMDFe1.Manifestos.LoadFromFile(ArqMdfe);
   ACBrMDFe1.EventoMDFe.Evento.Clear;

   with ACBrMDFe1.EventoMDFe.Evento.Add do
    begin
     infEvento.chMDFe   := chvMdfe;
     infEvento.CNPJ     := MeuCnpj;
     infEvento.dhEvento := now;
     infEvento.tpEvento   := teEncerramento;
     infEvento.nSeqEvento := nseq;
     infEvento.detEvento.nProt := protMdfe;
     infEvento.detEvento.dtEnc := Date;
     infEvento.detEvento.cUF   := Ufcli;
     infEvento.detEvento.cMun  := CodCid;
    end;

   ACBrMDFe1.EnviarEvento( LoteAtual );    

Estou tentando encerrar um MDF-e de acordo com o código acima, mas não estou conseguindo capturar os retornos do evento.

Para o código de retorno estou usando

  ACBrMDFe1.WebServices.EnvEvento.cStat

Caso o valor de cStat seja superior a 200, eu uso

   ACBrMDFe1.WebServices.EnvEvento.RetWS

para exibir ao usuário.

Existe alguma outra forma de se capturar os retornos ao encerrar um MDF-e ?

Desde já agradeço a atenção.

 

[Marcelo A. Rodrigues]

Bom dia,

Eu pego os retornos do manifesto da seguinte forma:

with ACBrMDFe.WebServices.EnvEvento do begin

	EventoRetorno.retEvento.Items[0].RetInfEvento.cStat
	EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo
	EventoRetorno.retEvento.Items[0].RetInfEvento.nProt
	EventoRetorno.RetEvento.Items[0].RetInfEvento.tpEvento
	EventoRetorno.RetEvento.Items[0].RetInfEvento.chMDFe
	EventoRetorno.RetEvento.Items[0].RetInfEvento.nSeqEvento

end;

att.