Problemas na consulta acbrBoletoWS no banco Inter

Rodrigo Cardilo · 8 Fevereiro, 2023

Boa tarde amigos,

Após uma troca de mensagens com o usuário Daniel no discord, o mesmo me pediu pra abrir esse tópico.

Estou tentando utilizar o ACBBoletoWs no Banco inter.

Fiz toda a configuração e coloquei o código abaixo:

  ACBrBoleto1.Configuracoes.WebService.ArquivoCRT := 'D:\AdmCardilo\Boleto\InterAPI_Certificado.crt';
  ACBrBoleto1.Configuracoes.WebService.ArquivoKEY := 'D:\AdmCardilo\Boleto\InterAPI_Chave.key';

  ACBrBoleto1.Configuracoes.WebService.SSLHttpLib := httpOpenSSL;
  ACBrBoleto1.Configuracoes.WebService.SSLCryptLib := cryOpenSSL;
  ACBrBoleto1.Configuracoes.WebService.SSLXmlSignLib := xsLibXml2;
  ACBrBoleto1.Configuracoes.WebService.SSLType := LT_TLSv1_2;
  ACBrBoleto1.Configuracoes.WebService.UseCertificateHTTP := True;
  ACBrBoleto1.Configuracoes.WebService.TimeOut := 10000;

  ACBrBoleto1.Cedente.CedenteWS.ClientID := 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
  ACBrBoleto1.Cedente.CedenteWS.ClientSecret := 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
  ACBrBoleto1.Cedente.CedenteWS.Scope := 'extrato.read boleto-cobranca.read boleto-cobranca.write';

Depois tentei fazer a consulta dos boletos em aberto com o seguinte código:

procedure TForm1.Button2Click(Sender: TObject);
var
  FiltrosAPI: TACBrBoletoWSFiltroConsulta;
  boleto: TACBrBoleto;
  SLRetorno: TStringList;
  Retorno: TListaACBrBoletoRetornoWS;
  I: Integer;
begin
  boleto := ACBrBoleto1;
  FiltrosAPI := boleto.Configuracoes.WebService.Filtro;

  FiltrosAPI.Clear;
  FiltrosAPI.indicadorSituacao := isbAberto;
  FiltrosAPI.dataVencimento.DataInicio := StrToDate('01/01/2023') ;
  FiltrosAPI.dataVencimento.DataFinal := Date + 30;

  boleto.Configuracoes.WebService.Operacao := tpConsulta;

  boleto.Enviar;
  Retorno := boleto.ListaConsultaRetornoWeb;
  if Retorno.Count > 0 then
    begin
      SLRetorno := TStringList.Create;
      try
        SLRetorno.Add('Cod_Retorno=' + Retorno[I].CodRetorno + sLineBreak + 'Msg_Retorno=' + Retorno[I].MsgRetorno +
          sLineBreak + 'Ori_Retorno=' + Retorno[I].OriRetorno + sLineBreak + 'HTTP_Result=' +
          IntToStr(Retorno[I].HTTPResultCode) + sLineBreak + 'JSON=' + Retorno[I].JSON);
        SLRetorno.Add('indicadorContinuidade=' + BoolToStr(Retorno[0].indicadorContinuidade));
        SLRetorno.Add('proximoIndice=' + IntToStr(Retorno[0].proximoIndice));
        SLRetorno.Add(' ');
        SLRetorno.Add(' ');
        for I := 0 to Pred(Retorno.Count) do
          begin
            SLRetorno.Add('[Boletos Index = ' + FormatFloat('000', I) + ']');
            SLRetorno.Add('numeroBoletoBB = ' + Retorno[I].DadosRet.TituloRet.NossoNumero);
            SLRetorno.Add('dataRegistro = ' + DateToStr(Retorno[I].DadosRet.TituloRet.DataRegistro));
            SLRetorno.Add('dataVencimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.Vencimento));
            SLRetorno.Add('valorOriginal = ' + DateToStr(Retorno[I].DadosRet.TituloRet.ValorDocumento));
            SLRetorno.Add('carteiraConvenio = ' + Retorno[I].DadosRet.TituloRet.Carteira);
            SLRetorno.Add('variacaoCarteiraConvenio = ' + IntToStr(Retorno[I].DadosRet.TituloRet.Modalidade));
            SLRetorno.Add('codigoEstadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.codigoEstadoTituloCobranca);
            SLRetorno.Add('estadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.estadoTituloCobranca);
            SLRetorno.Add('contrato = ' + Retorno[I].DadosRet.TituloRet.Contrato);
            SLRetorno.Add('dataMovimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataMovimento));
            SLRetorno.Add('dataCredito = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataCredito));
            SLRetorno.Add('valorAtual = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.valorAtual));
            SLRetorno.Add('valorPago = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.ValorPago));
            SLRetorno.Add('  ---  ');
          end;
        SLRetorno.SaveToFile(PathWithDelim(ExtractFilePath(Application.ExeName)) +
          formatDateTime('yyyy.mm.dd.hh.nn.ss.zzz', now) + '-RetornoConsulta.txt');
      finally
        SLRetorno.Free;
      end;
    end;
  showMessage('Fim');

end;

Retornou o log e retorno em anexo.

Fiz os mesmos testes pelo postman e funcionou.

Se alguém puder me ajudar fico grato.

Enviei os logs para [email protected]

Grato desde já

ArqBoletoWS.log 2023.02.08.18.27.27.868-RetornoConsulta.txt