Envio de boletos em lote Banco Inter API

[jefferson01]

Boa tarde!

Estou com dúvida de como gerar enviar vários boletos utilizando a API do banco Inter. No envio para cada boleto é gerado um token, porém esse banco tem um limite de 5 token por minuto. Como fazer para gerar apenas 1 token e enviar todos os boletos preenchidos?

Desde já agradeço pela atenção.

Editado 10 Março, 2023 por jefferson01
Escrevi errado

[Luiz Carlos Panoni Junior]

Rapaz estou na mesma situação, quando preciso emitir 10 boletos de um parcelamento só emite 5, também não sei o que fazer

[Antonio Gomes]

tem que colocar no cadastro da sua conta corrente, um campo campo com data e hora

Ex: pega no cadastro de conta:

        Clear;
          Add('select ');
          Add('    CONTA_CORRENTE_SERV_BANCARIO.CODIGO_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.CLIENT_ID_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.CLIENT_SECRET_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_DATA_HORA_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_VALIDADE_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.NOME_CRT_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.CRT_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.NOME_KEY_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.KEY_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.NOME_PFX_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.PFX_SER');

          // SENHA_CRT_KEY_SER
          Add('from CONTA_CORRENTE_SERV_BANCARIO');
          Add('where CONTA_CORRENTE_SERV_BANCARIO.CODIGO_SER = ' + AServicoBancario.ToString);

          TFuncoesBancoDeDados.ExecuteReaderFD(Text, ATransacao, FDS);
        finally
          DisposeOf;
        end;

      AToken       := FDS.FieldByName('SESSAO_TOKEN_SER').AsString;
      ATokenTime   := FDS.FieldByName('SESSAO_TOKEN_VALIDADE_SER').AsDateTime;
      ClientId     := FDS.FieldByName('CLIENT_ID_SER').AsString;
      ClientSecret := FDS.FieldByName('CLIENT_SECRET_SER').AsString;

 

 // venceu ou nao tem
  if (AToken = '') or (ATokenTime <= Now) then
  begin
    HoraTmp := Now;

    Inter := TBancoInter.Create(nil);
    try

      Inter.ClientId     := ClientId;
      Inter.ClientSecret := ClientSecret;
      Inter.CertFile     := CrtTmp;
      Inter.KeyFile      := KeyTmp;

      Inter.GetToken;

      AToken     := Inter.Token;
      ATokenTime := Inter.TokenTime;

      if AToken <> '' then
      begin
        with TStringList.Create do
          try
            Clear;
            Add('update CONTA_CORRENTE_SERV_BANCARIO set');
            Add('       CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_SER           = ' + QuotedStr(AToken));
            Add('      ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_DATA_HORA_SER = ' + TFuncoesSQL.DataHoraSQL(HoraTmp));
            Add('      ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_VALIDADE_SER  = ' + TFuncoesSQL.DataHoraSQL(HoraTmp));
            Add('where CONTA_CORRENTE_SERV_BANCARIO.CODIGO_SER = ' + AServicoBancario.ToString);

            TFuncoesBancoDeDados.ExecuteCommand(Text, ATransacao);
          finally
            DisposeOf;
          end;
      end;
    finally
      Inter.DisposeOf;
    end;
  end;

[Luiz Carlos Panoni Junior]

43 minutos atrás, Antonio Gomes disse:

tem que colocar no cadastro da sua conta corrente, um campo campo com data e hora

Ex: pega no cadastro de conta:

        Clear;
          Add('select ');
          Add('    CONTA_CORRENTE_SERV_BANCARIO.CODIGO_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.CLIENT_ID_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.CLIENT_SECRET_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_DATA_HORA_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_VALIDADE_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.NOME_CRT_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.CRT_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.NOME_KEY_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.KEY_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.NOME_PFX_SER');
          Add('   ,CONTA_CORRENTE_SERV_BANCARIO.PFX_SER');

          // SENHA_CRT_KEY_SER
          Add('from CONTA_CORRENTE_SERV_BANCARIO');
          Add('where CONTA_CORRENTE_SERV_BANCARIO.CODIGO_SER = ' + AServicoBancario.ToString);

          TFuncoesBancoDeDados.ExecuteReaderFD(Text, ATransacao, FDS);
        finally
          DisposeOf;
        end;

      AToken       := FDS.FieldByName('SESSAO_TOKEN_SER').AsString;
      ATokenTime   := FDS.FieldByName('SESSAO_TOKEN_VALIDADE_SER').AsDateTime;
      ClientId     := FDS.FieldByName('CLIENT_ID_SER').AsString;
      ClientSecret := FDS.FieldByName('CLIENT_SECRET_SER').AsString;

 

 // venceu ou nao tem
  if (AToken = '') or (ATokenTime <= Now) then
  begin
    HoraTmp := Now;

    Inter := TBancoInter.Create(nil);
    try

      Inter.ClientId     := ClientId;
      Inter.ClientSecret := ClientSecret;
      Inter.CertFile     := CrtTmp;
      Inter.KeyFile      := KeyTmp;

      Inter.GetToken;

      AToken     := Inter.Token;
      ATokenTime := Inter.TokenTime;

      if AToken <> '' then
      begin
        with TStringList.Create do
          try
            Clear;
            Add('update CONTA_CORRENTE_SERV_BANCARIO set');
            Add('       CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_SER           = ' + QuotedStr(AToken));
            Add('      ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_DATA_HORA_SER = ' + TFuncoesSQL.DataHoraSQL(HoraTmp));
            Add('      ,CONTA_CORRENTE_SERV_BANCARIO.SESSAO_TOKEN_VALIDADE_SER  = ' + TFuncoesSQL.DataHoraSQL(HoraTmp));
            Add('where CONTA_CORRENTE_SERV_BANCARIO.CODIGO_SER = ' + AServicoBancario.ToString);

            TFuncoesBancoDeDados.ExecuteCommand(Text, ATransacao);
          finally
            DisposeOf;
          end;
      end;
    finally
      Inter.DisposeOf;
    end;
  end;

Ola Antonio, sempre ajudando por aqui hein... obrigado, mais no caso estou usando o componente do ACBR precisa ver onde ele faz a requisição do Token, vou tentar debugar o codigo para entender, pois pelo que vi na documentação, o token é valido por 1 hora.

 

 

Código HTTP 401 - Token inválido

Você precisa adicionar o Bearer token OAuth que foi gerado em Como gerar um token OAuth?. Caso já esteja adicionado, este token provavelmente expirou (validade de 1h) e é necessário emitir um novo.

[Antonio Gomes]

10 horas atrás, Luiz Carlos Panoni Junior disse:

Ola Antonio, sempre ajudando por aqui hein... obrigado, mais no caso estou usando o componente do ACBR precisa ver onde ele faz a requisição do Token, vou tentar debugar o codigo para entender, pois pelo que vi na documentação, o token é valido por 1 hora.

 

 

Código HTTP 401 - Token inválido

Você precisa adicionar o Bearer token OAuth que foi gerado em Como gerar um token OAuth?. Caso já esteja adicionado, este token provavelmente expirou (validade de 1h) e é necessário emitir um novo.

o meu tem uma falha ali, ao salvar o valor do tokentime.

a proposito, no acbr, é aqui que valida o token

 

function TBoletoW_Inter_API.GerarTokenAutenticacao: string;
begin
  OAuth.Payload := True;
  Result := inherited GerarTokenAutenticacao;
end;

Na funcao: GerarTokenAutenticacao chama a funcao da boletaws base dessa derivacao:   TBoletoW_Inter_API = class(TBoletoWSREST)

o tempo de validade, vem no retorno do 

 if OAuth.GerarToken then
      Result := OAuth.Token

para mim, o tempo deve ser aqui:  property Expire          : TDateTime        read FExpire; na unit ACBrBoletoWS.Rest.OAuth

Sempre que posso ajudo ...

[jefferson01]

Bom dia!

@Antonio Gomes, obrigado pela orientação. Na função tem o código abaixo:

function TOAuth.GerarToken: Boolean;
begin

  if ( Token <> '' ) and ( CompareDateTime( Expire, Now ) = 1 ) then                                        //Token ja gerado e ainda válido
    Result := True
  else                                                                                                      //Converte Basic da Autenticação em Base64
    Result := Executar( 'Basic ' + String(EncodeBase64(AnsiString(ClientID + ':' + ClientSecret))) );

end;

Vou verificar o motivo para está sempre sendo gerado o token.

Editado 13 Março, 2023 por jefferson01

[Luiz Carlos Panoni Junior]

1 hora atrás, jefferson01 disse:

Bom dia!

@Antonio Gomes, obrigado pela orientação. Na função tem o código abaixo:

function TOAuth.GerarToken: Boolean;
begin

  if ( Token <> '' ) and ( CompareDateTime( Expire, Now ) = 1 ) then                                        //Token ja gerado e ainda válido
    Result := True
  else                                                                                                      //Converte Basic da Autenticação em Base64
    Result := Executar( 'Basic ' + String(EncodeBase64(AnsiString(ClientID + ':' + ClientSecret))) );

end;

Vou verificar o motivo para está sempre sendo gerado o token.

Se conseguir entender o motivo da um toque por favor

[jefferson01]

Seguindo a sugestão do @Antonio Gomes, fiz alteração nos fontes criando 2 propriedades no TACBrWebService, que são Token e Expire. Ao gerar o Token eu armazeno as informações nessas novas propriedades com isso consigo gerar um novo token apenas se já tiver expirado ou se não existir um token gerado.

Segue os fontes para analise. Já fiz testes em produção e funcionou corretamente enviando vários boletos(mais de 5) por fez.

Att. Jefferson

ACBrBoleto.zip

[Antonio Gomes]

3 minutos atrás, jefferson01 disse:

Seguindo a sugestão do @Antonio Gomes, fiz alteração nos fontes criando 2 propriedades no TACBrWebService, que são Token e Expire. Ao gerar o Token eu armazeno as informações nessas novas propriedades com isso consigo gerar um novo token apenas se já tiver expirado ou se não existir um token gerado.

Segue os fontes para analise. Já fiz testes em produção e funcionou corretamente enviando vários boletos(mais de 5) por fez.

Att. Jefferson

ACBrBoleto.zip 48.57 kB · 0 downloads

Eu salvo o meu no banco de dados, e se caso o operador sair do sistema, fica gravado os dados do token, para nao precisar processar de novo, a cada boleto, é verificado o tempo. Pois ele é fixo, o retorno do inter ja vem com o tempo somado, bom, era assim...

Tipo, entra o comando no endpoint as 15hs, vem que ele vale ate 16hs

[jefferson01]

Com essas novas propriedades vai ser possível gravar o token e a validade no banco de dados.

[Jean Peixoto]

Em 13/03/2023 at 14:53, jefferson01 disse:

Seguindo a sugestão do @Antonio Gomes, fiz alteração nos fontes criando 2 propriedades no TACBrWebService, que são Token e Expire. Ao gerar o Token eu armazeno as informações nessas novas propriedades com isso consigo gerar um novo token apenas se já tiver expirado ou se não existir um token gerado.

Segue os fontes para analise. Já fiz testes em produção e funcionou corretamente enviando vários boletos(mais de 5) por fez.

Att. Jefferson

ACBrBoleto.zip 48.57 kB · 0 downloads

@Juliana Tamizou
Acredito ser uma boa idéia essa alteração!

[Daniel InfoCotidiano]

Em 14/03/2023 at 19:56, Jean Peixoto disse:

Acredito ser uma boa idéia essa alteração!

@Jean Peixoto
Boa tarde , coloquei na mesma tarefa da sua outra contribuição para análise TK-3798

[Daniel InfoCotidiano]

@jefferson01
Bom dia !
Primeiramente obrigado pela contribuição.
Estava falando com o time de boleto e como padrão de autenticação OAuth ele só gera outro token caso necessário automaticamente.
Poderia detalhar melhor por favor a necessidade de salvar no banco por exemplo, igual citado no post acima.
Obrigado

[Antonio Gomes]

7 minutos atrás, Daniel InfoCotidiano disse:

@jefferson01
Bom dia !
Primeiramente obrigado pela contribuição.
Estava falando com o time de boleto e como padrão de autenticação OAuth ele só gera outro token caso necessário automaticamente.
Poderia detalhar melhor por favor a necessidade de salvar no banco por exemplo, igual citado no post acima.
Obrigado

Uai, suspeito que seja pelo tempo que ele pede, vc nao pode gerar outro token, se o anterior tiver valido, mas apenas usar, contar o tempo em minutos.

Senao eles poem a gente na geladeira: olha:

Obter token oAuth

POSThttps://cdpj.partners.bancointer.com.br/oauth/v2/token

A autenticação OAuth é a mais recente forma de autenticar os novos serviços disponibilizados pelo Inter. O Token gerado será necessário para consumir as APIs do Inter.

• O tempo de vida de um token gerado é de uma hora. Com isso, é possível realizar um número determinado de requisições nas apis, de acordo com o rate limit de cada api, utilizando um único token.
• Rate limit: 5 chamadas por minuto

fonte: https://developers.bancointer.com.br/reference/token-1

 

[jefferson01]

Bom dia!

@Daniel InfoCotidiano, o detalhamento que o @Antonio Gomes fez acima é exatamente o motivo da necessidade de armazenar o token gerado, pois se for enviado uma sequencia de 10 boletos por exemplo, a API vai recusar, já que só pode solicitar 5 token por minuto. No caso salvando o token, podemos utilizar o mesmo dentro do prazo, que no caso é de 1 hora.

Att. Jefferson

[Daniel InfoCotidiano]

bom dia @jefferson01 e @Antonio Gomes
A equipe de boleto esta analisando a TK

[jefferson01]

Ok, @Daniel InfoCotidiano. Muito obrigado.

[Daniel InfoCotidiano]

@jefferson01 @Antonio Gomes
Foram criado os eventos OnAntesAutenticar, onDepoisAutenticar para que possam capturar ou informar as informações

Favor atualizar seus repositórios e rodar o instalador.
 

 

 

[Antonio Gomes]

7 horas atrás, Daniel InfoCotidiano disse:

@jefferson01 @Antonio Gomes
Foram criado os eventos OnAntesAutenticar, onDepoisAutenticar para que possam capturar ou informar as informações

Favor atualizar seus repositórios e rodar o instalador.
 

 

 

ficou bacana mano.

[Leandro Ricardo Quadros Faria]

Em 17/04/2023 at 09:15, Antonio Gomes disse:

Uai, suspeito que seja pelo tempo que ele pede, vc nao pode gerar outro token, se o anterior tiver valido, mas apenas usar, contar o tempo em minutos.

Senao eles poem a gente na geladeira: olha:

Obter token oAuth

POSThttps://cdpj.partners.bancointer.com.br/oauth/v2/token

A autenticação OAuth é a mais recente forma de autenticar os novos serviços disponibilizados pelo Inter. O Token gerado será necessário para consumir as APIs do Inter.

• O tempo de vida de um token gerado é de uma hora. Com isso, é possível realizar um número determinado de requisições nas apis, de acordo com o rate limit de cada api, utilizando um único token.
• Rate limit: 5 chamadas por minuto

fonte: https://developers.bancointer.com.br/reference/token-1

 

Nesse caso, com o mesmo token, podemos realizar quantas requisições precisarmos? Exemplo, podemos enviar 10, 20, 30 requisições por minuto?

Ou são apenas 5 requisições po minuto, independete de qual Token está utilizando?

Saberia informar?

[Daniel InfoCotidiano]

@Leandro Ricardo Quadros Faria
Boa tarde !
Como diz o banco, são 5 requisições por minuto.

Acesse a documentação, clique aqui

[Arimateia Jr]

On 5/10/2023 at 3:38 PM, Leandro Ricardo Quadros Faria said:

Ou são apenas 5 requisições po minuto, independete de qual Token está utilizando?

Essa limitação é apenas para a requisição de obtenção de novos tokens.

Já a limitação para emissão de boletos é de 120 por minuto, conforme a documentação:

Fonte: https://developers.inter.co/references/cobranca#tag/Boletos