API Banco Inter

[Jean Peixoto]

Agora, Victor H. Gonzales - Panda disse:

é necessário remover essa dependência do indy, da forma que está não consigo versionar.

existe credenciais de homologação apenas?

Sim @Victor H. Gonzales - Panda

vc consegue pelo banco inter credenciais para homologação!

[Victor H. Gonzales - Panda]

19 minutos atrás, Jean Peixoto disse:

Sim @Victor H. Gonzales - Panda

vc consegue pelo banco inter credenciais para homologação!

não sou correntista lá, tem algum lugar ?

[Jean Peixoto]

Agora, Victor H. Gonzales - Panda disse:

não sou correntista lá, tem algum lugar ?

@Victor H. Gonzales - Panda

Me perdoe, sou correntista do Inter, conectei agora pra olhar e verifiquei que realmente não tem para Homologação! Algum tempo atrás tinha! Não sei porque tiraram.

 

[Aggille Sistemas de Gestão]

Vou ver se consigo remover a dependência do Indy... dai posto novamente as alterações..

[Aggille Sistemas de Gestão]

Bom dia.. removidas as dependências do Indy.. no final das contas era bem simples.. mas chega no fim do ano o cérebro só pensa em férias...
segue fonte alterado...

ACBrBoletoW_Inter_API.pas

[Victor H. Gonzales - Panda]

6 horas atrás, Aggille Sistemas de Gestão disse:

Bom dia.. removidas as dependências do Indy.. no final das contas era bem simples.. mas chega no fim do ano o cérebro só pensa em férias...
segue fonte alterado...

ACBrBoletoW_Inter_API.pas 26.48 kB · 1 download

Boa tarde,

funcionou desta forma sem o certificado digital (crt e key)?

[Aggille Sistemas de Gestão]

eu sou correntista do banco Inter.. fiz os testes aqui com os meus certificados.. todos os endpoints funcionaram.. 

[Victor H. Gonzales - Panda]

12 minutos atrás, Aggille Sistemas de Gestão disse:

eu sou correntista do banco Inter.. fiz os testes aqui com os meus certificados.. todos os endpoints funcionaram.. 

em qual propriedade você informou os certificados digitais?

digo isso, pois antes você informava CRT e KEY, agora você não passa, ou a vista já está cansada, por isso lhe perguntei, as vezes eles não precisam de certificado.
de qualquer forma para a autenticação eu fiz uma alteração usando a synapse, não testei emissão e demais métodos.

 

[Victor H. Gonzales - Panda]

20 minutos atrás, Aggille Sistemas de Gestão disse:

eu sou correntista do banco Inter.. fiz os testes aqui com os meus certificados.. todos os endpoints funcionaram.. 

Podemos testar em cima dessa, e tentar evoluir se houver sucesso.

na classe base tem CRT e KEY file

ACBrBoletoRet_Inter_API-Synapse.zip

[Aggille Sistemas de Gestão]

na primeira página tem uma postagem aonde eu mandei as primeira alterações.

Criei 2 propriedades na classe TDFeSSL para que sejam informados os arquivos CRT e KEY.

os arquivos CRT e KEY são informados no sistema durante a configuração do componente...

e na Unit ACBrDFeHttpOpenSSL na linha 180 

  if (FpDFeSSl.ArquivoCRT <> String.Empty ) then
    FHttp.Sock.SSL.CertificateFile := FpDFeSSl.ArquivoCRT;
  if (FpDFeSSl.ArquivoKEY <> String.Empty ) then
    FHttp.Sock.SSL.PrivateKeyFile  := FpDFeSSl.ArquivoKEY;
 

[Aggille Sistemas de Gestão]

Em 30/11/2022 at 08:02, Aggille Sistemas de Gestão disse:

na primeira página tem uma postagem aonde eu mandei as primeira alterações.

Criei 2 propriedades na classe TDFeSSL para que sejam informados os arquivos CRT e KEY.

os arquivos CRT e KEY são informados no sistema durante a configuração do componente...

e na Unit ACBrDFeHttpOpenSSL na linha 180 

  if (FpDFeSSl.ArquivoCRT <> String.Empty ) then
    FHttp.Sock.SSL.CertificateFile := FpDFeSSl.ArquivoCRT;
  if (FpDFeSSl.ArquivoKEY <> String.Empty ) then
    FHttp.Sock.SSL.PrivateKeyFile  := FpDFeSSl.ArquivoKEY;
 

@Victor H. Gonzales - Panda

[gutopmc]

Primeira vez q uso a api, vc tem exemplos de utilização? Vou baixar sua pasta acbrboleto para instalar mas queria ver um exemplo de envio, consulta,cancelamento por api. Outra coisa, utilizo o delphi 7

[Aggille Sistemas de Gestão]

bom dia... minha sugestão é que espere se implementação no ACBR... não sei como as alterações que fiz se comportariam no D7...
O exemplo do ACBR é bem simples... por ali tenho certeza que tu vais conseguir se encontrar.. 

 

[Aggille Sistemas de Gestão]

Em 30/11/2022 at 08:02, Aggille Sistemas de Gestão disse:

na primeira página tem uma postagem aonde eu mandei as primeira alterações.

Criei 2 propriedades na classe TDFeSSL para que sejam informados os arquivos CRT e KEY.

os arquivos CRT e KEY são informados no sistema durante a configuração do componente...

e na Unit ACBrDFeHttpOpenSSL na linha 180 

  if (FpDFeSSl.ArquivoCRT <> String.Empty ) then
    FHttp.Sock.SSL.CertificateFile := FpDFeSSl.ArquivoCRT;
  if (FpDFeSSl.ArquivoKEY <> String.Empty ) then
    FHttp.Sock.SSL.PrivateKeyFile  := FpDFeSSl.ArquivoKEY;
 

bom dia @Victor H. Gonzales - Panda  .. conseguiu dar uma olhada nessas alterações..?

Grato;;;

Editado 7 Dezembro, 2022 por Aggille Sistemas de Gestão

[Victor H. Gonzales - Panda]

19 minutos atrás, Aggille Sistemas de Gestão disse:

bom dia @Victor H. Gonzales - Panda  .. conseguiu dar uma olhada nessas alterações..?

Grato;;;

Bom dia,

sim, estamos verificando se vamos acatar, ou se será feita outra camada, pois ela entrou nos documentos fiscais, está pendente uma reunião de time.

[Aggille Sistemas de Gestão]

1 hora atrás, Victor H. Gonzales - Panda disse:

Bom dia,

sim, estamos verificando se vamos acatar, ou se será feita outra camada, pois ela entrou nos documentos fiscais, está pendente uma reunião de time.

ok... obrigado pelo retorno..sim.. de fato adicionei algumas linhas na unit ACBrDFeHttpOpenSSL ... até agora, aqui no meu sistema não teve interferência nenhuma nas rotinas de documentos fiscais

[Jean Peixoto]

Em 07/12/2022 at 09:30, Victor H. Gonzales - Panda disse:

Bom dia,

sim, estamos verificando se vamos acatar, ou se será feita outra camada, pois ela entrou nos documentos fiscais, está pendente uma reunião de time.

@Victor H. Gonzales - Panda tem alguma novidade?

Editado 20 Dezembro, 2022 por Jean Peixoto

[Juliana Tamizou]

Bom dia,

Esta na sprint desta semana.

At.

[Jean Peixoto]

Em 05/12/2022 at 08:23, Aggille Sistemas de Gestão disse:

bom dia... minha sugestão é que espere se implementação no ACBR... não sei como as alterações que fiz se comportariam no D7...
O exemplo do ACBR é bem simples... por ali tenho certeza que tu vais conseguir se encontrar.. 

 

Olá,

@Aggille Sistemas de Gestão consegue me passar como configurou o componente para Enviar Boleto para o Inter? não estou conseguindo fazer essa configuração para comunicar com a API.

[Aggille Sistemas de Gestão]

boa tarde...a configuração é a mesma dos outros bancos.. a diferença é que tem os arquivos dos certificados... minha rotina é assim

      FACBRBoleto.Configuracoes.WebService.ArquivoCRT := FCarteira.ArquivoCRT;// 'E:\\INTER\\Certificados\\Inter API_Certificado.crt';
      FACBRBoleto.Configuracoes.WebService.ArquivoKEY := FCarteira.ArquivoKEY;//'E:\\INTER\\Certificados\\Inter API_Chave.key';

      FACBRBoleto.Configuracoes.WebService.SSLHttpLib           := httpOpenSSL;

      FACBRBoleto.Configuracoes.WebService.SSLHttpLib           := httpOpenSSL;
      FACBRBoleto.Configuracoes.WebService.SSLCryptLib          := cryOpenSSL;
      FACBRBoleto.Configuracoes.WebService.SSLXmlSignLib        := xsLibXml2;
      FACBRBoleto.Configuracoes.WebService.SSLType              := LT_TLSv1_2;
      FACBRBoleto.Configuracoes.WebService.UseCertificateHTTP   := false;
      FACBRBoleto.Configuracoes.WebService.TimeOut              := 10000;
      FACBRBoleto.Configuracoes.WebService.ArquivoPFX           := FCarteira.CERTIFICADO_DIGITAL;
      FACBRBoleto.Configuracoes.WebService.Senha                := FCarteira.SENHA_CERTIFICADO
 

[Jean Peixoto]

4 horas atrás, Aggille Sistemas de Gestão disse:

boa tarde...a configuração é a mesma dos outros bancos.. a diferença é que tem os arquivos dos certificados... minha rotina é assim

      FACBRBoleto.Configuracoes.WebService.ArquivoCRT := FCarteira.ArquivoCRT;// 'E:\\INTER\\Certificados\\Inter API_Certificado.crt';
      FACBRBoleto.Configuracoes.WebService.ArquivoKEY := FCarteira.ArquivoKEY;//'E:\\INTER\\Certificados\\Inter API_Chave.key';

      FACBRBoleto.Configuracoes.WebService.SSLHttpLib           := httpOpenSSL;

      FACBRBoleto.Configuracoes.WebService.SSLHttpLib           := httpOpenSSL;
      FACBRBoleto.Configuracoes.WebService.SSLCryptLib          := cryOpenSSL;
      FACBRBoleto.Configuracoes.WebService.SSLXmlSignLib        := xsLibXml2;
      FACBRBoleto.Configuracoes.WebService.SSLType              := LT_TLSv1_2;
      FACBRBoleto.Configuracoes.WebService.UseCertificateHTTP   := false;
      FACBRBoleto.Configuracoes.WebService.TimeOut              := 10000;
      FACBRBoleto.Configuracoes.WebService.ArquivoPFX           := FCarteira.CERTIFICADO_DIGITAL;
      FACBRBoleto.Configuracoes.WebService.Senha                := FCarteira.SENHA_CERTIFICADO
 

Ótimo consegui!

Tem dois campos que  não estavam sendo preenchidos na classe ACBrBoletoRet_Inter_API, inseri eles (ValorPago  e  CNPJCPF):

ARetornoWS.DadosRet.TituloRet.ValorPago      := AJSonObject.Values['valorTotalRecebimento'].AsNumber; 

ARetornoWS.DadosRet.TituloRet.Sacado.CNPJCPF        := AJSonObject.Values['pagador'].asObject.Values['cpfCnpj'].asString; 

porém não sei por qual motivo o campo não recebe o valor quando é atribuído! Vc teve esse problema tb?

O valor é retornado pelo Json, mais o campo não fica com o valor!

Editado 28 Dezembro, 2022 por Jean Peixoto

[Jean Peixoto]

56 minutos atrás, Jean Peixoto disse:

Ótimo consegui!

Tem dois campos que  não estavam sendo preenchidos na classe ACBrBoletoRet_Inter_API, inseri eles (ValorPago  e  CNPJCPF):

ARetornoWS.DadosRet.TituloRet.ValorPago      := AJSonObject.Values['valorTotalRecebimento'].AsNumber; 

ARetornoWS.DadosRet.TituloRet.Sacado.CNPJCPF        := AJSonObject.Values['pagador'].asObject.Values['cpfCnpj'].asString; 

porém não sei por qual motivo o campo não recebe o valor quando é atribuído! Vc teve esse problema tb?

O valor é retornado pelo Json, mais o campo não fica com o valor!

Resolvido, não tinha recompilado o componente!

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Jean Peixoto]

@Victor H. Gonzales - Panda

Segue alteração na Unit ACBrBoletoRet_Inter_API

Inclusão das linhas:

ARetornoWS.DadosRet.TituloRet.ValorPago      := AJSonObject.Values['valorTotalRecebimento'].AsNumber;
ARetornoWS.DadosRet.TituloRet.Sacado.CNPJCPF := AJSonObject.Values['pagador'].asObject.Values['cpfCnpj'].asString;

ListaRetorno.DadosRet.TituloRet.ValorPago       := AJSonObject.Values['valorTotalRecebimento'].AsNumber; 
ListaRetorno.DadosRet.TituloRet.Sacado.CNPJCPF  := AJSonObject.Values['pagador'].asObject.Values['cpfCnpj'].asString;

 

ACBrBoletoRet_Inter_API.pas

[Aggille Sistemas de Gestão]

bom dia @Victor H. Gonzales - Panda  

Feliz 2023 pra todos ai no projeto ACBR.. muito sucesso pra todos...

Como está o andamento essa demanda ?

sds,

Editado 9 Janeiro, 2023 por Aggille Sistemas de Gestão