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-e com as informações necessárias
procedure TfrmExemplo.AtualizarComponente;
begin
CTe.CNPJ := '82529574000116';
CTe.Grupo := 'edoc';
CTe.Login := 'admin';
CTe.Senha := '12345';
CTe.Servidor := 'managersaas.tecnospeed.com.br';
CTe.Porta := '8081';
CTe.Timeout := '30000';
CTe.Https := True;
end;
Object Inspector
C#
public void AtualizarComponente()
{
CTe.CNPJ = "29062609000177";
CTe.Grupo = "edoc";
CTe.Login = "admin";
CTe.Senha = "12345";
CTe.Servidor = "managersaas.tecnospeed.com.br";
CTe.Porta = "8081";
CTe.Timeout = Convert.ToInt32("30000");
}
Visual Basic 6
Sub AtualizarComponentes()
CTe.CNPJ = "82529574000116"
CTe.Grupo = "edoc"
CTe.Login = "admin"
CTe.Senha = "12345"
CTe.Servidor = "managersaas.tecnospeed.com.br"
CTe.Porta = "8081"
CTe.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
CTe.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
{
CTe.SincronizarManager();
memoRetorno.Text = "Sincronizado com sucesso";
}
catch(Exception ex){
memoRetorno.Text = ex.Message;
}
}
Visual Basic 6
Private Sub btnSincronizarManager_Click()
On Error GoTo ErroSincronizar
CTe.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.