Boleto Inter Erro HTTP_Code=429

[Dangelo2010]

Bom dia! estou gerando os boletos do banco inter, porem quando vou gerar mais de 4 boletos eu recebo essa mensagem 'Falha na Autenticação: HTTP_Code=429 Errp=', depois de 1 minuto eu gero mais 4. como posso resolver isso e gerar mais de 4 boletos em menos de 1 minuto?

[Daniel InfoCotidiano]

Obrigado por reportar.
Criado a tarefa tk-6035 para analise e possivel correção.
Assim que concluido reporto aqui.

[Daniel InfoCotidiano]

@Dangelo2010 boa tarde !
Vou enviar uma unit para que vc possa realizar um teste em seu ambiente.
Segue o arquivo:
ACBrBoletoW_Inter_API.pas

Salve na pasta:
..\ACBr\Fontes\ACBrBoleto\WS

Rode o instalador e realize os testes por favor.

[Dangelo2010]

Mesma mensagem 'Falha na Autenticação: HTTP_Code=429 Erro='

 

Será que estou fazendo algo errado?

[Daniel InfoCotidiano]

Se enviar um boleto apenas ele passa?
isso acontece com mais de um boleto?
Deu falha de Falha na Autenticação ? certificado nao esta vencido ?
 

[Dangelo2010]

De 10 boletos marcados para validar, somente valida 4, no quinto ele ja da mensagem. Ai tenho que esperar 1 minuto para validar mais 4, e assim vai. Ou seja, 4 boletos por minuto somente

 

[Daniel InfoCotidiano]

Pode entrar em contato com o suporte do Inter e reportar se estao com alguma instabilidade?
Header Resposta:HTTP/1.1 429 Too Many Requests
Pq por enq no inter nao tivemos relatos

https://developers.inter.co/contacts

[Dangelo2010]

Isso não e de hoje, já estou a 1 semana assim. Porem hoje eu esgotei  e vim pedir ajuda 

 

Vou entrar em contato com eles. Obrigado

[Dangelo2010]

@Daniel InfoCotidiano, mim tire um duvida por favor

Cada boleto que tento validar eu faço assim, esta correto? Ou seja eu Limpo "FACBrBoleto.ListadeBoletos.Clear"

    While FDMReceber.Eof = False Do Begin

      Application.ProcessMessages;

      Gauge.Progress := Gauge.Progress + 1;

      If (FDMReceberNOSSO_NUMERO.AsString = '') And (FDMReceberTOTAL_BOLETO.AsFloat > 0) And (FDMReceberMES_ANO.AsString <> '') Then Begin

        FACBrBoleto.ListadeBoletos.Clear;

        Titulo                           := FACBrBoleto.CriarTituloNaLista;
        Titulo.Vencimento                := FDMReceberDATA_VENCIMENTO.AsDateTime;
        Titulo.DataDocumento             := FDMReceberDATA_EMISSAO.AsDateTime;
 

[Juliomar Marchetti]

43 minutos atrás, Dangelo2010 disse:

@Daniel InfoCotidiano, mim tire um duvida por favor

Cada boleto que tento validar eu faço assim, esta correto? Ou seja eu Limpo "FACBrBoleto.ListadeBoletos.Clear"

    While FDMReceber.Eof = False Do Begin

      Application.ProcessMessages;

      Gauge.Progress := Gauge.Progress + 1;

      If (FDMReceberNOSSO_NUMERO.AsString = '') And (FDMReceberTOTAL_BOLETO.AsFloat > 0) And (FDMReceberMES_ANO.AsString <> '') Then Begin

        FACBrBoleto.ListadeBoletos.Clear;

        Titulo                           := FACBrBoleto.CriarTituloNaLista;
        Titulo.Vencimento                := FDMReceberDATA_VENCIMENTO.AsDateTime;
        Titulo.DataDocumento             := FDMReceberDATA_EMISSAO.AsDateTime;
 

sim para consulta detalhada e um a um sim.

só deve pegar o retorno e tratar em seu banco

[Dangelo2010]

Eu não expliquei direito, desculpe

Nesse caso ai eu estou gerando um boleto e registrando ele online

[Juliomar Marchetti]

1 minuto atrás, Dangelo2010 disse:

Eu não expliquei direito, desculpe

Nesse caso ai eu estou gerando um boleto e registrando ele online

Sim também serve, e pode ser feito.

pois tem alguns bancos não aceita fazer todos de uma vez. e senão me engano o componente até trata isso pra enviar um a um

mas se tu quer ter certeza de todos que enviou desse formato tu pode enviar

[Dangelo2010]

Obrigado!

[Dangelo2010]

Como eu uso esses dois eventos

procedure TFBoletoAutomatico.ACBrBoleto1AntesAutenticar(var aToken: string;
  var aValidadeToken: TDateTime);
begin

end;

procedure TFBoletoAutomatico.ACBrBoleto1DepoisAutenticar(const aToken: string;
  const aValidadeToken: TDateTime);
begin

end;
 

[Juliomar Marchetti]

44 minutos atrás, Dangelo2010 disse:

Como eu uso esses dois eventos

procedure TFBoletoAutomatico.ACBrBoleto1AntesAutenticar(var aToken: string;
  var aValidadeToken: TDateTime);
begin

end;

procedure TFBoletoAutomatico.ACBrBoleto1DepoisAutenticar(const aToken: string;
  const aValidadeToken: TDateTime);
begin

end;
 

é por conta dele que está ocorrendo o Erro HTTP_Code=429?

[Dangelo2010]

24 minutos atrás, Juliomar Marchetti disse:

é por conta dele que está ocorrendo o Erro HTTP_Code=429?

Sim

Pode fechar eu consegui entender e ajustar aqui. Fiz assim e deu certinho. Registro vários boletos em menos de 1 minuto. Obrigado!

 

procedure TFBoletoAutomatico.ACBrBoletoAntesAutenticar(var aToken: string;
  var aValidadeToken: TDateTime);
begin
  aToken := sToken;
  aValidadeToken := sExpira;
end;

procedure TFBoletoAutomatico.ACBrBoletoDepoisAutenticar(const aToken: string;
  const aValidadeToken: TDateTime);
begin
  sToken := aToken;
  sExpira := aValidadeToken;
end;
 

[Juliomar Marchetti]

Obrigado por reportar.

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