Manager Client Descartar CT-eOS

Para realizar o descarte de um CT-eOS basta utilizar o método DescartarCTeOS informando a chave de acesso. Segue abaixo os detalhes do método e de seu retorno.

Detalhes DescartarCTeOS

Função:  Realiza o descarte de um CT-eOS.
Classe:  TspdCTeOSClientX
Método:  DescartarCTeOS
Tipo Retorno: spdRetDescartaX

Parâmetros aceitos:

Atenção! Somente conhecimentos com status REJEITADA, REGISTRADA E INUTILIZADA poderão ser descartados.

Delphi

procedure TfrmExemplo.btnDescartarCTeOSClick(Sender: TObject);
var
  _Retorno: spdRetDescartaX;
  _ChaveCTeOS: string;
begin
  if not InputQuery('Chave do Conhecimento', 'Chave do Conhecimento:', _ChaveCTeOS) then exit;

  //Esse método faz o descarte do conhecimento no Manager eDoc através do Componente Manager Client
  _Retorno := CTeOS.DescartarCTeOS(_ChaveCTeOS);
  
  //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 btnDescartarCTeOS_Click(object sender, EventArgs e)
{
  spdRetDescartaX Retorno = null;
  string _ChaveCTeOS = InputBox("Chave do Conhecimento", "Chave do Conhecimento:", "");
  if (_ChaveCTeOS != "")
  {
    //Esse método faz o descarte de um conhecimento através do Componente Manager Client
    Retorno = CTeOS.DescartarCTeOS(_ChaveCTeOS);
   
    //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 btnDescartarCTeOS_Click()
  Dim Retorno As spdRetDescartaX
  Dim Chave As String
 
  Chave = InputBox("Chave do Conhecimento:", "Chave do Conhecimento", "")
 
  'Esse método faz o descarte do CTeOS através do Componente Manager Client
  Set Retorno = CTeOS.DescartarCTeOS(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:

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.