Para realizar o descarte de um CT-e basta utilizar o método DescartarCTe informando a chave de acesso. Segue abaixo os detalhes do método e de seu retorno.
Detalhes DescartarCTe
Função: Realiza o descarte de um CT-e.
Classe: TspdCTeClientX
Método: DescartarCTe
Tipo Retorno: spdRetDescartaX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aChaveCTe | Texto | Sim | Chave de acesso do CT-e. |
Atenção! Somente conhecimentos com status REJEITADA, REGISTRADA E INUTILIZADA poderão ser descartados.
Delphi
procedure TfrmExemplo.btnDescartarCTeClick(Sender: TObject);
var
_Retorno: spdRetDescartaX;
_ChaveCTe: string;
begin
if not InputQuery('Chave do Conhecimento', 'Chave do Conhecimento:', _ChaveCTe) then exit;
//Esse método faz o descarte do conhecimento no Manager eDoc através do Componente Manager Client
_Retorno := CTe.DescartarCTe(_ChaveCTe);
//Exibe o retorno no memo
memoRetorno.Clear;
if _Retorno.Status = Sucesso then
memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Mensagem)
else
memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
end;
C#
private void btnDescartarCTe_Click(object sender, EventArgs e)
{
spdRetDescartaX Retorno = null;
string _ChaveCTe = InputBox("Chave do Conhecimento", "Chave do Conhecimento:", "");
if (_ChaveCTe != "")
{
//Esse método faz o descarte de um conhecimento através do Componente Manager Client
Retorno = CTe.DescartarCTe(_ChaveCTe);
//Exibe o retorno no memo
memoRetorno.Text = "";
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = ("Mensagem: " + Retorno.Mensagem);
else
memoRetorno.Text = ("Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem);
}
}
Visual Basic 6
Private Sub btnDescartarCTe_Click()
Dim Retorno As spdRetDescartaX
Dim Chave As String
Chave = InputBox("Chave do Conhecimento:", "Chave do Conhecimento", "")
'Esse método faz o descarte do CTe através do Componente Manager Client
Set Retorno = CTe.DescartarCTe(Chave)
'Exibe o retorno do memo
If Retorno.Status = Sucesso Then
memoRetorno.Text = "Mensagem: " + Retorno.Mensagem + vbCrLf
Else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
End Sub
Retorno
O tipo spdRetDescartaX 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. |
A mensagem traz o resultado da comunicação, em caso de sucesso, a mensagem será "OK Operação realizada com sucesso" e no caso de falha, ele terá a mensagem do motivo da falha.
Comentários
0 comentário
Por favor, entre para comentar.