Manager Client Status da licença CT-eOS

Para verificar o status da licença do documento CT-eOS no Manager SaaS/eDoc basta utilizar o método StatusLicense. Segue abaixo os detalhes do método e de seu retorno.

Detalhes StatusLicense

Função: Verifica qual a situação da licença do documento CT-eOS no Manager SaaS/eDoc.
Classe: TspdCTeOSClientX
Método: StatusLicense
Tipo Retorno: spdRetStatusLicenseX

Parâmetros aceitos: Sem parâmetros.

Delphi

procedure TfrmExemplo.btnStatusLicenseCTeOSClick(Sender: TObject);
var
  _Retorno: spdRetStatusLicenseX;
begin
  _Retorno := CTeOS.StatusLicense;
  memoRetorno.Clear;
  if _Retorno.Status = Sucesso then
  begin
    memoRetorno.Lines.Add('Situacao: ' + _Retorno.Situacao);
    memoRetorno.Lines.Add('Status: ' + 'Sucesso');
  end
  else if _Retorno.Status = Erro then
  begin
    memoRetorno.Lines.Add('Situacao: ' + _Retorno.Situacao);
    memoRetorno.Lines.Add('Status: ' + 'Erro');
  end
  else
    memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
end;

C#

private void btnStatusLicenseCTeOS_Click(object sender, EventArgs e)
{
  spdRetStatusLicenseX Retorno = null;
  Retorno = CTeOS.StatusLicense();

  //Exibe o retorno do método no memo
  if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
    memoRetorno.Text = "Situação Licença: " + Retorno.Situacao;
  else
    memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem;
}

Visual Basic 6

Private Sub btnStatusLicenseCTeOS_Click()
  Dim Retorno As spdRetStatusLicenseX
 
  Set Retorno = CTeOS.StatusLicense
 
  If Retorno.Status = Sucesso Then
    memoRetorno.Text = "Status Licença: " + Retorno.Ambiente + vbCrLf
  Else
    memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
  End If
End Sub

Retorno

O tipo spdRetStatusLicenseX possui os seguintes campos: