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