Para encerrar um MDF-e basta utilizar o método EncerrarMDFe informando a chave de acesso, a data de encerramento, o código da UF de encerramento e o códio do município do encerramento. Segue abaixo os detalhes do método e de seu retorno.
Detalhes EncerrarMDFe
Função: Realiza o encerramento de um MDF-e previamente autorizado.
Classe: TspdMDFeClientX
Método: EncerrarMDFe
Tipo Retorno: spdRetEncerramentoX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aChaveMDFe | Texto | Sim | Chave de acesso do MDF-e previamente autorizado. |
aDataEncerramento | Texto | Sim |
Data de encerramento do MDF-e, no formato: yyyy-mm-dd |
aCodUFEncerramento | Texto | Sim |
Código da UF na qual o MDF-e está sendo encerrado. Exemplo: 41 - Paraná |
aCodMunEncerramento | Texto | Sim |
Código do município onde o MDF-e está sendo encerrado. Exemplo: 415200 - Maringá |
Delphi
procedure TfrmExemplo.btnEncerrarMDFeClick(Sender: TObject);
var
_Retorno: spdRetEncerramentoX;
_Chave: string;
begin
if not InputQuery('Chave do Manifesto', 'Chave do Manifesto:', _Chave) then exit;
// Esse método encerra um mdf-e previamente autorizado via Manager Client
_Retorno := MDFe.EncerrarMDFe(_Chave,'2019-05-23','41','4115200');
//Exibe o retorno no memo
memoRetorno.Clear;
if _Retorno.Status = Sucesso then
memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Mensagem +', 'NumProtocolo: '+ _Retorno.NumeroProcolo);
else
memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao)
end;
C#
private void EncerrarMDFe_Click(object sender, EventArgs e)
{
spdRetEncerramentoX Retorno = null;
string Chave = InputBox("Chave do Manifesto", "Chave do Manifesto:", "");
if (Chave != "")
{
//Esse método exporta o MDFe através do Componente Manager Client
Retorno = MDFe.EncerrarMDFe(Chave,"2019-05-23,"41","4115200");
//Exibe o retorno do memo
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = "NumProcotolo: " + Retorno.NumeroProtocolo + "\n";
else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem;
}
}
Visual Basic 6
Private Sub btnEncerrarMDFe_Click()
Dim Retorno As spdRetEncerramentoX
Dim Chave As String
Chave = InputBox("Chave do Manifesto:", "Chave do Manifesto", "")
'Esse método encerra o MDFe através do Componente Manager Client
Set Retorno = MDFe.EncerrarMDFe(Chave,"2019-05-23","41","4115200")
'Exibe o retorno do memo
If Retorno.Status = Sucesso Then
memoRetorno.Text = "NumProtocolo: " + Retorno.NumeroProtocolo + vbCrLf
Else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
End Sub
Retorno
O tipo spdRetEncerramentoX possui os seguintes campos:
Campo | Tipo | Descrição |
Status | Constante | Retorna o status da operação: Sucesso ou Erro. |
NomeExcecao | Texto | Em caso de erro retorna a classe da Exception. |
Mensagem | Texto | Retorna a descrição da resposta do servidor. |
NumeroProtocolo | Texto | Número do protocolo do evento de encerramento do MDF-e. |
CodigoRetorno | Texto | Código cStat da SEFAZ. |
A mensagem traz o resultado da comunicação, em caso de sucesso, a mensagem será "Evento registrado e vinculado ao MDF-e", e no caso de falha, ele terá a mensagem do motivo da falha.
Comentários
0 comentário
Por favor, entre para comentar.