Para que o Manager Client funcione corretamente, é necessário configurar nele os dados de conexão de nossos emissores, podem ser: Manager SaaS ou Manager eDoc.
Configurando as propriedades
As propriedades de configuração, inclui os dados necessários para que o Manager Client estabeleça uma conexão com o servidor de envio.
Podemos configurar as propriedades via código ou pelo Object Inspector do Delphi.
Nome | Descrição |
CNPJ | CNPJ do emitente da nota. |
Grupo | Grupo ao qual o CNPJ está cadastrado no SaaS/eDoc. |
Login | Usuário usado para acessar o SaaS/eDoc. PS: Recomenda-se sempre usar o usuário admin |
Senha | Senha de acesso ao SaaS/eDoc, usada pelo usuário configurado na propriedade "Login" |
Servidor | Endereço/IP/URL do servidor do eDoc/SaaS |
Porta | Porta de conexão com o Servidor |
Timeout | Tempo de espera em milissegundos aguardando o retorno da requisição |
Https | Propriedade booleana que indica o uso do protocolo HTTP (False) ou HTTPS (True) |
Exemplo de Configuração
Delphi
//Carrega o Componente Manager Client CT-eOS com as informações necessárias
procedure TfrmExemplo.AtualizarComponente;
begin
CTeOS.CNPJ := '82529574000116';
CTeOS.Grupo := 'edoc';
CTeOS.Login := 'admin';
CTeOS.Senha := '12345';
CTeOS.Servidor := 'managersaas.tecnospeed.com.br';
CTeOS.Porta := '8081';
CTeOS.Timeout := '30000';
CTeOS.Https := True;
end;
Object Inspector
C#
public void AtualizarComponente()
{
CTeOS.CNPJ = "29062609000177";
CTeOS.Grupo = "edoc";
CTeOS.Login = "admin";
CTeOS.Senha = "12345";
CTeOS.Servidor = "managersaas.tecnospeed.com.br";
CTeOS.Porta = "8081";
CTeOS.Timeout = Convert.ToInt32("30000");
}
Visual Basic 6
Sub AtualizarComponentes()
CTeOS.CNPJ = "82529574000116"
CTeOS.Grupo = "edoc"
CTeOS.Login = "admin"
CTeOS.Senha = "12345"
CTeOS.Servidor = "managersaas.tecnospeed.com.br"
CTeOS.Porta = "8081"
CTeOS.Timeout = Val("30000")
End Sub
Testando as Configurações
Após preencher as propriedades com as configurações, podemos testar se estão corretas via o método SincronizarManager.
O método SincronizarManager verifica as configurações e faz um teste de conexão com o Manager eDoc/SaaS e caso algum problema ocorrer irá retornar a exceção:
- EspdManagerClientSincronizarException
Delphi
procedure TfrmExemplo.btnSincronizarManagerClick(Sender: TObject);
begin
try
CTeOS.SincronizarManager;
memoRetorno.Text := 'Sincronizado com sucesso';
except on E: Exception do
raise Exception.Create(E.Message);
end;
end;
C#
private void btnSincronizarManager_Click(object sender, EventArgs e)
{
try
{
CTeOS.SincronizarManager();
memoRetorno.Text = "Sincronizado com sucesso";
}
catch(Exception ex){
memoRetorno.Text = ex.Message;
}
}
Visual Basic 6
Private Sub btnSincronizarManager_Click()
On Error GoTo ErroSincronizar
CTeOS.SincronizarManager
memoRetorno.Text = "Sincronizado com sucesso"
Exit Sub
ErroSincronizar:
memoRetorno.Text = Err.Description
End Sub
Comentários
0 comentário
Por favor, entre para comentar.