Consultar Titulos Usando CriarTituloNaLista - ACBrBoleto - Banco do Brasil

[automacaosamos]

estou començando agora usar o ACBrBoleto API e apareceu essa situação na consulta individiual de titulos.

ACBrBoletoLocal.Configuracoes.WebService.Operacao =   tpConsulta,  eu consigo trazer os titulos baseados nos filtros normalmente

mas preciso consultar individual a partir da lista, ai tenho a mensage: Campo nosso numero preenchido com dados inválidos.

pesquisei aqui no forum e nao achei nada, o que posso ter faltado preencher ??

coloquei em anexo a minha procedure, alguem poderia dar umas dicas de como consultar individual o titulo ??

Obrigado

Lazarus 3.6 - FPC 3.2.2

 

ConsultaAPI.pas

Editado Ontem às 13:56 por automacaosamos

[Juliomar Marchetti]

No caso os dados que inseriu não gerou o nosso numero correto e está falando que o nosso numero que mandou não existe lá

mas creio que a consulta seria a detalhada e não a normal

[Juliomar Marchetti]

olhe a unit ACBrBoletoW_BancoBrasil_API do fontes

o procedimento function TBoletoW_BancoBrasil_API.DefinirParametros: String;

se tu usar a Consulta

senão a detalhe é só isso daqui que vai

e ainda se o boleto é com pix é outra consulta que deve usar

[automacaosamos]

Obrigado por responder.

Desculpe mas não entendi, estou alimentando o componente da forma abaixo, com o nossonumero com 10 digitos 

estou fazendo a consulta em produção, porque já tinha um outro sistema em uso lá, usando a consulta , e conferi que 

o nosso numero esta alocado no banco.

estou alimentando a lista de boleto da forma abaixo, não sei sé e a forma correta.

             ACBrTitulos := ACBrBoletoLocal.CriarTituloNaLista;
               with ACBrTitulos do
                 begin
                   EspecieDoc             := 'DM';
                   Carteira                    := DataSetPortadores.FindField('PORTADORES_CARTEIRA').AsString;
                   NossoNumero         := StrZero(DataSetFinanceiros.FindField('FINANCEIROS_NOSSONUMERO').AsInteger,10,0);
                   NumeroDocumento := Valor_Str(DataSetFinanceiros.FindField('FINANCEIROS_NUMERO').AsInteger);
                   Vencimento              := DataSetFinanceiros.FindField('FINANCEIROS_VENCIMENTO').AsDateTime;
                   ValorDocumento      := DataSetFinanceiros.FindField('FINANCEIROS_ORIGINAL').AsFloat;
                   Sacado.CNPJCPF    := DataSetFinanceiros.FindField('PESSOAS_CPFCNPJ').AsString;
                 end;
               ACBrBoletoLocal.ListadeBoletos.Add(ACBrTitulos);        

e se uso a Operacao := tpConsultaDetalhe;  ele apresenta a mensagem:  Campo nosso numero preenchido com dados inválidos.

tentei de varias formas preencher no NossoNumero com 6 digitos, 10 digitos, colocando o convenio na frente e nada

minha duvida é como preencho nesse caso o nosso numero para que os titulos possam vir de forma detalhada

obrigado.

 

[Juliomar Marchetti]

No caso da consulta detalhe não precisa alimentar o titulo e sim os dados que ele mostra ali na imagem

[automacaosamos]

tentei dessa forma, conforme um exemplo que achei no forum, mas mesmo assim não funciona, se não carrega a lista de boleto ele da a mensagem que a lista esta vazia

se carrega a lista ele diz que o nosso numero esta com dados inválido, mesmo pegando exatamente como esta no banco.

 

  ACBrBoletoLocal := TACBrBoleto.Create(nil);

     ConfiguraACBrBoleto;

     FiltrosAPI                          := ACBrBoletoLocal.Configuracoes.WebService.Filtro;
     FiltrosAPI.Clear;
     FiltrosAPI.indicadorSituacao        := isbAberto;
     FiltrosAPI.indiceContinuidade       := 0;

     FiltrosAPI.dataMovimento.DataInicio := StrToDate('01/02/2024');
     FiltrosAPI.dataMovimento.DataFinal  := StrToDate('22/02/2025');

     ACBrBoletoLocal.Configuracoes.WebService.Operacao := TOperacao(4);

     FPURL     := 'https://api.bb.com.br/cobrancas/v2';
     DevAPP    := '?gw-dev-app-key=' + ACBrBoletoLocal.Cedente.CedenteWS.KeyUser;
     NConvenio := '0003150107';
     ID        := '0000259795';

     case ACBrBoletoLocal.Configuracoes.WebService.Operacao of
       tpConsultaDetalhe  : FPURL := FPURL + '/boletos/'+ ID + DevAPP + '&numeroConvenio='+ NConvenio;
       tpConsultar        : FPURL := FPURL + '/boletos/'+ ID + DevAPP + '&numeroConvenio='+ NConvenio;
       tpPIXConsultar     : FPURL := FPURL + '/boletos/'+ ID + DevAPP + '&numeroConvenio='+ NConvenio;
     end;

     try
       ACBrBoletoLocal.Enviar;

       if ACBrBoletoLocal.TotalListaRetornoWeb > 0 then
         begin
           RetornoDetalhe  := ACBrBoletoLocal.ListaRetornoWeb[0];
           result  := RetornoDetalhe.JSON;
         end;
     except
       on e: exception do gera_log(e.message);
     end;                                   

obrigado

boletosbb.log

Editado Há 6 horas por automacaosamos