Integração com a API da Sicoob - Consulta

[Rafaelbudag]

Boa Tarde, 

Devido a uma necessidade implementei a parte de consulta via API que não estava disponível com a Sicoob.

Vi em outro tópico que havia sido descontinuado pela demora do retorno no processamento da solicitação na Sicoob.

Porém desenvolvi essa parte separando as 3 requisições (Solicitação das Movimentações, Consulta dos Arquivos da Solicitação, Consulta por arquivo), sendo assim o desenvolvedor que for utilizar pode tratar o intervalo entre uma requisição e outra.

 

Segue abaixo o meu código das chamadas das funções:

 

var

  AcBrBoleto: TACBrBoleto;
  FiltrosAPI : TACBrBoletoWSFiltroConsulta;
  RetornoAPI : TListaACBrBoletoRetornoWS;
  VpfLacoArquivos: Integer;

begin
    FiltrosAPI.Clear;
    FiltrosAPI.indicadorSituacao        := TACBrIndicadorSituacaoBoleto.isbBaixado;
    FiltrosAPI.dataMovimento.DataInicio := VpaDatInicio; // Data de Início
    FiltrosAPI.dataMovimento.DataFinal  := VpaDatFinal; // Data Final

    AcBrBoleto.Configuracoes.WebService.Operacao := tpFazSolicitacaoConsultaMovimentacao;   
    AcBrBoleto.Enviar;

    if AcBrBoleto.Configuracoes.WebService.Filtro.CodigoSolicitacaoConsultaMovimentacao > 0 then
    begin 
      AcBrBoleto.Configuracoes.WebService.Operacao := tpConsultaListaArquivosSolicitacaoMovimentacao;
      AcBrBoleto.Enviar;

      RetornoAPI := AcBrBoleto.ListaConsultaRetornoWeb;

      if (RetornoAPI[0].HTTPResultCode = 400) then
      begin
        Sleep(10000);
        AcBrBoleto.Enviar;
        RetornoAPI := AcBrBoleto.ListaConsultaRetornoWeb;
      end;

      if (RetornoAPI.Count > 0) and (RetornoAPI[0].HTTPResultCode = 200) then
      begin

        for VpfLacoArquivos := 0 to RetornoAPI[0].ListaArquivosConsultaMovimentacao.Count-1 do
        begin
          AcBrBoleto.Configuracoes.WebService.Operacao := tpConsultaArquivoSolicitacaoMovimentacao;
          AcBrBoleto.Configuracoes.WebService.Filtro.IDArquivoSolicitacaoConsultaMovimentacao :=      StrToInt(RetornoAPI[0].ListaArquivosConsultaMovimentacao[VpfLacoArquivos]);
          AcBrBoleto.Enviar;

      end;
    end;

 

 

 

Na pasta Fontes/ACBrBoleto alterei os seguintes fontes:

ACBrBoleto.pas
ACBrBoletoConversao.pas
ACBrBoletoWS.pas
ACBrBoletoWS.Rest.pas

Na pasta Fontes/ACBrBoleto/WS alterei os seguintes fontes:

ACBrBoletoRet_Bancoob.pas
ACBrBoletoRetorno.pas
ACBrBoletoW_Bancoob.pas

 

Seguem em anexo os fontes alterados 

ACBrBoletoWS.pasACBrBoletoConversao.pasACBrBoleto.pasACBrBoletoWS.Rest.pas

ACBrBoletoRetorno.pasACBrBoletoRet_Bancoob.pasACBrBoletoW_Bancoob.pas

 

[Juliomar Marchetti]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Daniel InfoCotidiano]

Bom dia @Rafaelbudag
Criado a tarefa TK-5472 para analise do time.
Reportamos aqui após conclusão da análise.

[Daniel InfoCotidiano]

Bom dia @Rafaelbudag
Como nao existe mais sandbox na atual, estou testando sua contribuição na V3.
Mas infelizmente qdo realizo o download do arquivo de movimento em base64 tento pelo componente, quanto pelo postman, esta vindo corrompido e comuniquei o suporte mes passado.
Enviei a eles os logs do postman e os prints com o erro.
Cobrei eles semana passada e estou aguardando um posicionamento deles.

[Rafaelbudag]

Bom dia Daniel,

Tenta fazer o seguinte procedimento para abrir o arquivo e conferir:

Pega o que esta dentro do campo "arquivo" do seu retorno e cola dentro de um arquivo txt e depois muda a extensão para .zip.

 

Após isso importa o arquivo nesse site https://www.base64decode.org/pt/ e decodifica.

Ele vai gerar o Zip decodificado e dentro dele vai estar o json já pronto. 

 

Foi esse o procedimento que fiz conforme orientação da Sicoob para poder implementar na consulta.

 

 

[Daniel InfoCotidiano]

@Rafaelbudag
Bom dia !
Falei com o suporte eles me informaram que V3 dados ficticio nao ha como decodificar. mas passaram os arquivos p eu simular aqui.
Terminiei a migracao para V3 (v2 nao tem mais sandbox) agora vou validar com o time de boleto todo o processo.
Se aprovado ou criar a noticia e liberar para testes.
Obrigado mais uma vez

[Daniel InfoCotidiano]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo
 

Obrigado pela contribuição, fizemos alguns ajustes e disponibilizamos, veja o topico abaixo, como utilizar: