Retorno via API do Banco Inter sem resultado

[Luiz Carlos Panoni Junior]

Pessoal, implementei o registro de boleto pelo banco Inter e estou conseguindo registrar os boletos normalmente, porém, nem pelo exemplo consigo obter retorno dos boletos via API, arquivo de retorno anexo.

E logo aqui esta o código que estou utilizando, lembrando que troquei o isbBaixado por isbAberto para testes mais não consigo retorno.

2023.02.06.12.56.53.449-RetornoConsulta.txt

procedure TfrmDemo.btnWSConsultaClick(Sender: TObject);
var
  FiltrosAPI : TACBrBoletoWSFiltroConsulta;
  Boleto : TACBrBoleto;
  SLRetorno : TStringList;
  Retorno : TListaACBrBoletoRetornoWS;
  I: Integer;
begin
  //Exemplo utilizando como Banco do Brasil API
  Boleto     := dm.ACBrBoleto;
  FiltrosAPI := Boleto.Configuracoes.WebService.Filtro;

  FiltrosAPI.Clear;
  FiltrosAPI.indicadorSituacao        := isbBaixado;
  FiltrosAPI.dataMovimento.DataInicio := IncDay(Date,-120);
  FiltrosAPI.dataMovimento.DataFinal  := IncDay(Date,+120);;
  //FiltrosAPI.indiceContinuidade       := 300;

  Boleto.Configuracoes.WebService.Operacao := tpConsulta;

  Boleto.Enviar;
  Retorno := Boleto.ListaConsultaRetornoWeb;
  if Retorno.Count > 0 then
  begin
    SLRetorno := TStringList.Create;
    try
      for I := 0 to Pred(Retorno.Count) do
      begin
      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(' ');

        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;

 

[Antonio Gomes]

no que eu tenho aqui, é preciso vincular um certificado e colocar a conta no header, fez isso?

e o codigo do retorno, salvo engano, é 200, teve qual numero de retorno ?

[Aggille Sistemas de Gestão]

o erro 400 ( bad format ) ocorre quando faltam os arquivos de certificado... .key e .crt

[Luiz Carlos Panoni Junior]

28 minutos atrás, Aggille Sistemas de Gestão disse:

o erro 400 ( bad format ) ocorre quando faltam os arquivos de certificado... .key e .crt

Estou fazendo pelo proprio exemplo do acbr portanto não deveria estar faltando indicar os arquivos key e crt, a emissão ocorre normalmente

[Aggille Sistemas de Gestão]

Nesse tópico tem a explicação de como configurar corretamente o componente para todos os bancos..

sds,

 

[Luiz Carlos Panoni Junior]

57 minutos atrás, Aggille Sistemas de Gestão disse:

Nesse tópico tem a explicação de como configurar corretamente o componente para todos os bancos..

sds,

 

Sim, isso eu ja fiz, tanto que como disse está emitindo normalmente, o problema esta no retorno

[Antonio Gomes]

ah: me peguei confuso com esse buscar hoje, da api nova... quando é filtrado por situacao pago, o filtro do campo datainicial e datafinal, é a data de pagamento...
Logo, tive que ajustar hoje em um cliente, para pegar data inicial - 7 e datafinal = date.

ou o seu ai, é caso de erro mesmo ?

 

[Luiz Carlos Panoni Junior]

21 minutos atrás, Antonio Gomes disse:

ah: me peguei confuso com esse buscar hoje, da api nova... quando é filtrado por situacao pago, o filtro do campo datainicial e datafinal, é a data de pagamento...
Logo, tive que ajustar hoje em um cliente, para pegar data inicial - 7 e datafinal = date.

ou o seu ai, é caso de erro mesmo ?

 

Cara testei de varias formas kkkkkk, com 7 com 30, data data de emissao, da data de pagamento, enfim, aqui fui até um pouco estúpido, mandei 120 dias rsrsrsrs

 

FiltrosAPI.Clear;
  FiltrosAPI.indicadorSituacao        := isbBaixado;
  FiltrosAPI.dataMovimento.DataInicio := IncDay(Date,-120);
  FiltrosAPI.dataMovimento.DataFinal  := IncDay(Date,+120);;
  //FiltrosAPI.indiceContinuidade       := 300;

[Antonio Gomes]

clientid e clientsecret, informou? 

[Luiz Carlos Panoni Junior]

55 minutos atrás, Antonio Gomes disse:

clientid e clientsecret, informou? 

Sim, senão o boleto também não registra! 

[Aggille Sistemas de Gestão]

tinha um erro na unit ACBrBoletoW_Inter_API;, nas linhas 265 e 266.. ali ele estava fazendo o filtro por Vencimento mas usando as datas de Movimento.. segue unit alterada..

ACBrBoletoW_Inter_API.pas

[Rodrigo Cardilo]

26 minutos atrás, Aggille Sistemas de Gestão disse:

tinha um erro na unit ACBrBoletoW_Inter_API;, nas linhas 265 e 266.. ali ele estava fazendo o filtro por Vencimento mas usando as datas de Movimento.. segue unit alterada..

ACBrBoletoW_Inter_API.pas 24.67 kB · 0 downloads

Passei pelo mesmo problema do amigo acima e resolvi fazendo as modificações na unit conforme o amigo @Aggille Sistemas de Gestão.

Agora funcionou perfeitamente.

[Luiz Carlos Panoni Junior]

5 horas atrás, Aggille Sistemas de Gestão disse:

tinha um erro na unit ACBrBoletoW_Inter_API;, nas linhas 265 e 266.. ali ele estava fazendo o filtro por Vencimento mas usando as datas de Movimento.. segue unit alterada..

ACBrBoletoW_Inter_API.pas 24.67 kB · 0 downloads

 

 

5 horas atrás, Rodrigo Cardilo disse:

Passei pelo mesmo problema do amigo acima e resolvi fazendo as modificações na unit conforme o amigo @Aggille Sistemas de Gestão.

Agora funcionou perfeitamente.

Boa tarde pessoal, usei a unit enviada mais acho que o grande lance era mudar no exemplo do acbr de 

  FiltrosAPI.indicadorSituacao        := isbAberto;
  FiltrosAPI.dataMovimento.DataInicio := IncDay(Date,-30);
  FiltrosAPI.dataMovimento.DataFinal  := incDay(Date+30);

para 

  FiltrosAPI.indicadorSituacao        := isbAberto;
  FiltrosAPI.dataVencimento.DataInicio := IncDay(Date,-30);
  FiltrosAPI.dataVencimento.DataFinal  := incDay(Date+30);

Pelo dataMovimento nunca há retorno nem mesmo pela unit alterada, mais em geral a ajuda de vocês foi fundamental, muito obrigado a todos.

[Aggille Sistemas de Gestão]

eu faço desta forma.. e vêm retorno em todos os fitros...

 

// em aberto por vencimento
  aFiltros[0] := TACBrBoletoWSFiltroConsulta.Create;
  aFiltros[0].Clear;
  aFiltros[0].indicadorSituacao   := TACBrIndicadorSituacaoBoleto.isbAberto;
  aFiltros[0].boletoVencido := ibvSim;
  aFiltros[0].dataVencimento.DataInicio := AInicio;
  aFiltros[0].dataVencimento.DataFinal  := AFinal;

  // em aberto por emissao
  aFiltros[1] := TACBrBoletoWSFiltroConsulta.Create;
  aFiltros[1].Clear;
  aFiltros[1].indicadorSituacao   := TACBrIndicadorSituacaoBoleto.isbAberto;
  aFiltros[1].dataRegistro.DataInicio := AInicio;
  aFiltros[1].dataRegistro.DataFinal  := aFinal;
  aFiltros[1].boletoVencido := ibvSim;

  // liquidados
  aFiltros[2] := TACBrBoletoWSFiltroConsulta.Create;
  aFiltros[2].Clear;
  aFiltros[2].indicadorSituacao   := TACBrIndicadorSituacaoBoleto.isbBaixado;
  aFiltros[2].dataMovimento.DataInicio := AInicio;
  aFiltros[2].dataMovimento.DataFinal  := AFinal;

[Rodrigo Cardilo]

Em 14/02/2023 at 07:50, Aggille Sistemas de Gestão disse:

eu faço desta forma.. e vêm retorno em todos os fitros...

 

// em aberto por vencimento
  aFiltros[0] := TACBrBoletoWSFiltroConsulta.Create;
  aFiltros[0].Clear;
  aFiltros[0].indicadorSituacao   := TACBrIndicadorSituacaoBoleto.isbAberto;
  aFiltros[0].boletoVencido := ibvSim;
  aFiltros[0].dataVencimento.DataInicio := AInicio;
  aFiltros[0].dataVencimento.DataFinal  := AFinal;

  // em aberto por emissao
  aFiltros[1] := TACBrBoletoWSFiltroConsulta.Create;
  aFiltros[1].Clear;
  aFiltros[1].indicadorSituacao   := TACBrIndicadorSituacaoBoleto.isbAberto;
  aFiltros[1].dataRegistro.DataInicio := AInicio;
  aFiltros[1].dataRegistro.DataFinal  := aFinal;
  aFiltros[1].boletoVencido := ibvSim;

  // liquidados
  aFiltros[2] := TACBrBoletoWSFiltroConsulta.Create;
  aFiltros[2].Clear;
  aFiltros[2].indicadorSituacao   := TACBrIndicadorSituacaoBoleto.isbBaixado;
  aFiltros[2].dataMovimento.DataInicio := AInicio;
  aFiltros[2].dataMovimento.DataFinal  := AFinal;

Também fiz dessa forma e funcionou muito bem.

@Luiz Carlos Panoni Junior o exemplo é somente para dar um norteio. O componente é bem flexível seguindo o padrão do Banco.

 

[Aggille Sistemas de Gestão]

@Victor H. Gonzales - Panda , boa tarde.. consegue analisar a pequena correção feita acima para colocar na fila do trunk ?

Grato

[Victor H. Gonzales - Panda]

Em 13/02/2023 at 11:33, Aggille Sistemas de Gestão disse:

tinha um erro na unit ACBrBoletoW_Inter_API;, nas linhas 265 e 266.. ali ele estava fazendo o filtro por Vencimento mas usando as datas de Movimento.. segue unit alterada..

ACBrBoletoW_Inter_API.pas 24.67 kB · 3 downloads

TK-3629

[Victor H. Gonzales - Panda]

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

[Luiz Carlos Panoni Junior]

9 horas atrás, Victor H. Gonzales - Panda disse:

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

9 horas atrás, Victor H. Gonzales - Panda disse:

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

Olá Victor, obrigado a emissão e consulta esta OK mais continuo não conseguindo enviar instrução de juros e multas, por mais que saia no boleto impresso as informações não são enviadas para o banco e na consulta no Internet Banking do Inter aparece Isento de Juros e Multas

[Victor H. Gonzales - Panda]

13 horas atrás, Luiz Carlos Panoni Junior disse:

Olá Victor, obrigado a emissão e consulta esta OK mais continuo não conseguindo enviar instrução de juros e multas, por mais que saia no boleto impresso as informações não são enviadas para o banco e na consulta no Internet Banking do Inter aparece Isento de Juros e Multas

Bom dia,
 

ValorMoraJuros está maior que 0 ?

e qual o CodigoMoraJuros ou CodigoMora você está informando?

para estar indo isento, possivelmente está recebendo código 3, cjIsento

na multa tem que estar informado no percentualMulta > 0

caso o problema persista, abra um tópico novo por favor.

[Victor H. Gonzales - Panda]

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.