Encerramento Do Mdfe

[rrodrigoffernandes]

Olá amigos, estou implementando o MDFE em meu sistema, e estou com algumas dúvidas, alguém poderia me ajudar a fazer a implementação do botão de encerramento?

 

with ACBrMDFe.EventoMDFe.Evento.Add do

    begin

     infEvento.chMDFe   := Copy(ACBrMDFe.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);

     infEvento.CNPJ     := SomenteNumeros(DM_Principal.CDSParametrosPACNPJ.AsString);

     infEvento.dhEvento := now;

     infEvento.tpEvento   := teEncerramento;

     infEvento.nSeqEvento := 1;

 

     infEvento.detEvento.nProt := ACBrMDFe.Manifestos.Items[0].MDFe.procMDFe.nProt;

     infEvento.detEvento.dtEnc := Date;

     infEvento.detEvento.cUF   := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2));

     infEvento.detEvento.cMun  := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga;

 

     ACBrMDFe.EnviarEventoMDFe( 1 ); // 1 = Numero do Lote

end;

 

esse bloco foi extraído do exemplo do acbr. estou em dúvida sobre quais informações colocar nas linhas abaixo: 

     infEvento.detEvento.nProt := ACBrMDFe.Manifestos.Items[0].MDFe.procMDFe.nProt; 

de onde devo pegar esse número de protocolo? é o protocolo de transmissão?

 

      infEvento.detEvento.cUF   := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2));

     infEvento.detEvento.cMun  := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga;

percebi que devo informar o município de descarregamento, mas e se no caso o meu manifesto possui mais de um local de descarregamento? qual deverei informar? 

 

[Italo Giurizzato Junior]

Bom dia Rodrigo,

 

O protocolo é o de autorização, ou seja, ao emitir o MDF-e a SEFAZ retorna o protocolo de autorização, portanto é esse numero a ser utilizado ao efetuar o encerramento.

 

Um MDF-e só será encerrado uma unica vez, se você tem vários descarregamentos dentro da mesma UF, pela lógica seria o último.

[rrodrigoffernandes]

Ótimo Italo, deu certo. só estou com um problema, não estou conseguindo pegar o número de protocolo de encerramento, estou passando da seguinte forma, mas o número de protocolo que está pegando é o mesmo número do manifesto transmitido...

 

  ACBrMDFe.Manifestos.Clear;

  ACBrMDFe.Manifestos.LoadFromFile(vArquivo);

  ACBrMDFe.Consultar;

  vprotocolo := ACBrMDFe.Manifestos.Items[0].MDFe.procMDFe.nProt;