Consulta Retorno para Banco Bancoob

[C4Dev]

Olá.

Tentei implementar a consulta de retorno por período para o banco Bancoob, conforme o exemplo do Demo do ACBr. O código em minha aplicação ficou da seguinte forma:

  FiltrosAPI := ACBrBoleto.Configuracoes.WebService.Filtro;

  FiltrosAPI.Clear;
  FiltrosAPI.indicadorSituacao        := isbBaixado;
  FiltrosAPI.dataMovimento.DataInicio := IncDay(Date,-1);
  FiltrosAPI.dataMovimento.DataFinal  := Date;

  ACBrBoleto.Configuracoes.WebService.Operacao := tpConsulta;

  try
    Result := ACBrBoleto.Enviar;
    Retorno := ACBrBoleto.ListaConsultaRetornoWeb;

Porém recebi o seguinte retorno:

TBoletoW_BancoobOperação CONSULTA_BOLETO nao Implementado para este Banco

Gostaria de confirmar se de fato para o Bancoob não permite a consulta de boletos baixados por período, e se existe outra forma de fazer para receber o retorno de todos os boletos que foram pagos (semelhante ao arquivo de remessa baixado pelo banco)?

Obrigado.

[Daniel InfoCotidiano]

Bom dia @C4Dev
Infelizmente o Bancoob tem uma particuladirade que os outros bancos não tem que é a forma da consulta.
Hoje só está implementado a tpConsultaDetalhe
Pois a consulta que traz a lista de boletos (tpConsulta) como nos outros bancos é diferente, precisa solicitar, esperar o processamento e baixar a lista e nos testes ficou inviável pela demora, mais detalhes dos testes realizados:

 

[C4Dev]

Obrigado @Daniel InfoCotidiano pelo retorno.

O problema que acabamos caindo é que a API do Bancoob está limitando a quantidade de requisições por minuto.

Pelo que identificamos o limite está em 20, pois se passamos mais de 20 boletos para consultar o retorno, retorna erro 500 a partir do 21, aí tem que esperar mais 1 minuto para consultar novamente.

Alguém talvez já relatou essa situação para vocês?

[Daniel InfoCotidiano]

@C4Dev
Nossa mãe será mais fácil consultar via CNAB.
Tem o comunicado dele para nos passar ?

[C4Dev]

@Daniel InfoCotidiano

Fiz contato com o atendimento do Sicoob para APIs e me passaram que não teria limite de consultas.

Fiz alguns testes pelo Insomnia e realmente não bloqueou, porém fazendo pelo ACBr chegava em um determinado momento que retornava o erro:

{"mensagens": [{"mensagem": "A URL requisitada foi rejeitada. Favor consultar seu Administrador.","codigo": "12082918984423845463"}]}

Debugando o ACBr encontrei um problema, que aparentemente ajustando resolveu.

Na classe ACBrBoletoW_Bancoob.pas, na procedure TBoletoW_Bancoob.RequisicaoConsultaDetalhe é adicionado no StringList o Header do client para cada boleto. Ficando repetido o mesmo Header várias vezes no FPHeaders .

No momento de fazer a request, na classe ACBrBoletoWS.Rest.pas, na procedure procedure TBoletoWSREST.Executar é adicionado o FPHeaders ao HTTP, porém ele vai estar com dezenas de linhas.

O que fiz foi na procedure TBoletoW_Bancoob.RequisicaoConsultaDetalhe da classe ACBrBoletoW_Bancoob.pas limpar o FPHeaders antes de passar o valor, e não ocorreu mais o erro.

[Diego Foliene]

Em 06/09/2023 at 14:19, C4Dev disse:

@Daniel InfoCotidiano

Fiz contato com o atendimento do Sicoob para APIs e me passaram que não teria limite de consultas.

Fiz alguns testes pelo Insomnia e realmente não bloqueou, porém fazendo pelo ACBr chegava em um determinado momento que retornava o erro:

{"mensagens": [{"mensagem": "A URL requisitada foi rejeitada. Favor consultar seu Administrador.","codigo": "12082918984423845463"}]}

Debugando o ACBr encontrei um problema, que aparentemente ajustando resolveu.

Na classe ACBrBoletoW_Bancoob.pas, na procedure TBoletoW_Bancoob.RequisicaoConsultaDetalhe é adicionado no StringList o Header do client para cada boleto. Ficando repetido o mesmo Header várias vezes no FPHeaders .

No momento de fazer a request, na classe ACBrBoletoWS.Rest.pas, na procedure procedure TBoletoWSREST.Executar é adicionado o FPHeaders ao HTTP, porém ele vai estar com dezenas de linhas.

O que fiz foi na procedure TBoletoW_Bancoob.RequisicaoConsultaDetalhe da classe ACBrBoletoW_Bancoob.pas limpar o FPHeaders antes de passar o valor, e não ocorreu mais o erro.

Bom dia!

Muito obrigado pela contribuição!

Por favor, pode disponibilizar o(s) arquivo(s) alterados para validação e possível inclusão no SVN?

[C4Dev]

Boa tarde @Diego Foliene

Tentei anexar o arquivo, mas está a limitando 4.7Kb de anexos.

Segue trecho alterado na unit ACBrBoletoW_Bancoob.pas.

Antes:

procedure TBoletoW_Bancoob.RequisicaoConsultaDetalhe;
begin
  FPHeaders.Add(C_SICOOB_CLIENT+': '+Boleto.Cedente.CedenteWS.ClientID);
end;

 

Depois:

procedure TBoletoW_Bancoob.RequisicaoConsultaDetalhe;
begin
  FPHeaders.Clear;
  FPHeaders.Add(C_SICOOB_CLIENT+': '+Boleto.Cedente.CedenteWS.ClientID);
end;

Se tiver outra forma de lhe enviar o arquivo posso estar compartilhando também.

[Alexandre de Paula]

@C4Dev Boa tarde,

Aqui no forum mesmo... na parte superior no seu perfil tem uma opção "Meus anexos".

Nessa opção vc pode localizar anexos mais antigos e eliminar. Assim libera espaço e vc pode anexar novos documentos.

[C4Dev]

Obrigado @Alexandre de Paula

Segue arquivo:

ACBrBoletoW_Bancoob.pas

[Alexandre de Paula]

Criada a TK-4419 para avaliar a contribuição.

Obrigado!

[Daniel InfoCotidiano]

Bom dia !
Subimos uma correção, favor atualizar os repositorios e rodar o instalador !
 

[C4Dev]

Obrigado pelo retorno @Daniel InfoCotidiano.

Testei aqui e funcionou corretamente agora. Obrigado.

[Daniel InfoCotidiano]

Obrigado por reportar.

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