Erro ao encerrar um MDFe: Falha no schema XML

[Josafar Nascimento da Silv]

Ao tentar encerrar um MDFe já autorizado, aparece o erro código 630: falha no schema XML específico para o evento. 

Já pesquisei no fórum problema semelhante, mas não consegui encontrar a solução.

[Amarildo de Matos]

opa.. josafar..tudo bem..

tem como mandar , o xml gerado , e os logs tambem. para dar uma olhada

[Josafar Nascimento da Silv]

Prezado Amarildo: abaixo a minha rotina de encerramento e anexo o XML que estou tentando encerrar.

procedure TfrmMDFe.btnEncerraClick(Sender: TObject);
begin
  inherited;
  ConfiguraACBRMDFe;
  OpenDialog1.Title := 'Selecione o MDFe';
  OpenDialog1.DefaultExt := '*-MDFe.xml';
  OpenDialog1.Filter := 'Arquivos MDFe (*-MDFe.xml)|*-MDFe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := DM.vpatharqmdf;
  try
  if OpenDialog1.Execute then
  begin
    ACBrMDFe.Manifestos.Clear;
    ACBrMDFe.Manifestos.LoadFromFile(OpenDialog1.FileName);
    ACBrMDFe.EventoMDFe.Evento.Clear;
    with ACBrMDFe.EventoMDFe.Evento.Add do
    begin
      with ACBrMDFe.Manifestos.Items[0].MDFe do
      begin
        vcodmdf:= ide.cMDF;
      end;
      // pesquisa tabela de mdf
      if DM.cdsMDF.Active = True then
        DM.cdsMDF.Close;
      DM.cdsMDF.Params[0].AsInteger:= vcodmdf;
      DM.cdsMDF.Open;
      infevento.chMDFe:= DM.cdsMDFCHAVE.AsString;
      infEvento.CNPJCPF:= DM.vcnpj;
      infEvento.dhEvento:= now;
      infEvento.tpEvento:= teEncerramento;
      infEvento.nSeqEvento:= 1;
      infEvento.detEvento.xJust:= 'Transporte finalizado';
      infEvento.detEvento.nProt:= DM.cdsMDFPROTOCOLOENVIO.AsString;
      infEvento.detEvento.dtEnc := Date;
      infEvento.detEvento.cUF:= strtoint(copy(inttostr(DM.cdsMDFCOD_MUNIENCERRA.AsInteger),1,2));
      infEvento.detEvento.cMun:= DM.cdsMDFCOD_MUNIENCERRA.AsInteger;
    end;
    ACBrMDFe.EnviarEvento(1);
    // atualiza tabela de MDFe
    DM.cdsMDF.Edit;
    DM.cdsMDFSITUACAO.AsString:= 'Encerrado';
    DM.cdsMDFUFFINAL.AsString:= vufencerra;
    DM.cdsMDFDATAENCERRA.AsDateTime:= now;
    DM.cdsMDFCOD_SITUACAO.AsInteger:= 132;
    DM.cdsMDF.Post;
    DM.cdsMDF.ApplyUpdates(0);
    Application.MessageBox('MDFe encerrado com sucesso.','MDFe', MB_OK);
  end
  else
  except
    on E:Exception do
    begin
      raise Exception.Create('TfrmMDFe.ActionEncerrarExecute -> ' + E.Message);
    end;
  end;

end;

Obs.: como estou ainda em ambiente de teste (homologação), nem tudo está redondinho. Neste caso específico, verifiquei agora que na tabela do MDFe não gravei o protocolo de envio e, no entanto, em infEvento.detEvento.nProt:= DM.cdsMDFPROTOCOLOENVIO.AsString passo para o evento um campo que está vazio. Será que não seria este o problema?

 

mdfe nº 185 veículo placa PDK-2320-mdfe.xml

[Amarildo de Matos]

Preciso que mande tambem os log, para ver os erros. mande tambem o xml gerado do mdfe.

[Josafar Nascimento da Silv]

Caro Amarildo: ainda não consegui resolver meu problema. Já atualizei os arquivos da pasta Schema, mas o erro persiste. 

Desculpe meu despreparo, mas não sei como enviar os logs para você. Na verdade nem sei bem que logs são estes.

[Amarildo de Matos]

voce trabalha com fontes, ou com o Acbrmonitorplus.?

e nao se preocupe, aqui estamos para todos se ajudarem.. ate eu preciso de ajuda.

[Josafar Nascimento da Silv]

Obrigado. Eu trabalho com fontes.

[Amarildo de Matos]

opa..tenta fazer o seguinte.. faça outro mdfe, com outra placa, e depois encerra  a mesma.. e depois da um retorno..

[Josafar Nascimento da Silv]

Caro Amarildo:

Problema resolvido. Como eu desconfiava, o que faltava era o número do protocolo que não foi gravado na tabela, quando do envio. No encerramento este número tem que ser informado. Obrigado pela atenção.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.