Ir para conteúdo
  • Cadastre-se

dev botao

Recommended Posts

  • Membros Pro
Postado

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

 

  • Curtir 1
  • 1 mês depois ...
  • Consultores
Postado

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.
image.png

Consultor SAC ACBr

Daniel de Morais (Infocotidiano)
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

  • 3 semanas depois ...
  • Membros Pro
Postado

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.

 

 

Retorno Sicoob.PNG

Arquivo Zip Sicoob.PNG

Site decodificar Sicoob.PNG

Arquivo Decodificado.png

AcbrBoletoRet_Bancoob Retorno.PNG

  • Consultores
Postado

@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
image.jpeg

Consultor SAC ACBr

Daniel de Morais (Infocotidiano)
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

  • 1 mês depois ...
  • Consultores
Postado

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:

 

 

Consultor SAC ACBr

Daniel de Morais (Infocotidiano)
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.