Para obter as configurações do Manager SaaS e eDoc para o documento CT-eOS basta utilizar o método ObterConfiguracoes. Segue abaixo os detalhes do método e de seu retorno.
Detalhes ObterConfiguracoes
Função: Obtém as configurações do Manager SaaS/eDoc do documento CT-eOS.
Classe: TspdCTeOSClientX
Método: ObterConfiguracoes
Tipo Retorno: spdRetObterConfiguracoesX
Parâmetros aceitos: Sem parâmetros
Delphi
procedure TfrmObterConfiguracoesCTeOS.btnObterConfiguracoesClick(Sender: TObject);
var
_Retorno: spdRetObterConfiguracoesX;
_ini: TIniFile;
_Arquivo: TStringList;
begin
_Retorno := CTeOS.ObterConfiguracoes;
//todo o conteudo do ini está na propriedade Mensagem
if _Retorno.Status = Sucesso then
begin
//uma sugestão de uso é salvar este conteudo em um arquivo e
//depois abrí-lo com a classe TIniFile para facilitar o uso dessa informação
_Arquivo := TStringList.Create;
try
_Arquivo.Text := _Retorno.Mensagem;
_Arquivo.SaveToFile('C:\MeuIni.ini');
_ini := TIniFile.Create('C:\MeuIni.ini');
Result := 'Auto Imprimir = '+ ini.ReadString('CTEOS', 'AutoImprimir', '1');
finally
FreeAndNil(_ini)
FreeAndNil(_Arquivo);
end;
end
else
Result := 'Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem;
end;
Atenção!
- A mensagem traz o resultado da comunicação, em caso de sucesso, a mensagem será o conteúdo do arquivo .ini do Manager SaaS/eDoc , e no caso de falha, ele terá a mensagem do motivo da falha.
C#
private void btnObterConfiguracoesCTeOS_Click(object sender, EventArgs e)
{
spdRetObterConfiguracoesX Retorno = null;
//Esse método obtem as configurações do Manager SaaS/eDoc através do Componente Manager Client
Retorno = CTeOS.ObterConfiguracoes();
//Exibe o retorno do método no memo
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = Retorno.Mensagem;
else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem;
}
Visual Basic 6
Private Sub btnObterConfiguracoesCTeOS_Click()
Dim Retorno As spdRetObterConfiguracoesX
'Esse método obtem as configurações do Manager eDoc através do Componente Manager Client
Set Retorno = CTeOS.ObterConfiguracoes
'Exibe o retorno do método no memo
If Retorno.Status = Sucesso Then
memoRetorno.Text = Retorno.Mensagem + vbCrLf
Else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
End Sub
Retorno
O tipo spdRetObterConfiguracoesX 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. No caso de sucesso o conteúdo do arquivo .ini das configurações e em caso de erro a mensagem do mesmo. |
Comentários
0 comentário
Por favor, entre para comentar.