Consulta API Banco do Brasil com erro no Nosso Número na ConsultaDetalhe

[ClausquellerMitome]

Olá,

var
  LRetorno : Boolean;
  doc : TACBrTitulo;
  LNossoNumero : String;
begin
  FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;

  LNossoNumero := TACBrTitulo(FBoleto.ListadeBoletos.Items[0]).NossoNumero;
  FBoleto.ListadeBoletos.Clear;
  FBoleto.Configuracoes.WebService.Filtro.Clear;
  FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;
  FBoleto.Configuracoes.WebService.Filtro.indiceContinuidade := 0;
  FBoleto.Configuracoes.WebService.Filtro.indicadorSituacao := TACBrIndicadorSituacaoBoleto.isbAberto;
  FBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio := Date - 1;
  FBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataFinal  := Date + 1;

  Result := rrbSalvo;

  // doc => TACBrTitulo;
  doc := FBoleto.CriarTituloNaLista;
  doc.Carteira    := '17';
  doc.NossoNumero := LNossoNumero; // nosso número no formato 0000001099 : NOSSONUMERO = 0000001 e Código  = 099

  LRetorno := FBoleto.EnviarBoleto; // 

  if LRetorno then
  begin
    Result := rrbRegistrado;
  end;
end;

0000001099 : NOSSONUMERO = 0000001 e Código  = 099

0000001099 = Erro de Nosso número invalido retornado pela API;
0000001 = Usando dessa forma funciona funciona normal;

Alguma sugestão para resolver esse problema?

[Victor H. Gonzales - Panda]

Boa tarde,

o que é Código 099?

Se o NossoNumero é 1 então você precisa informar só o literal 1

[ClausquellerMitome]

Então esse código estar vindo ao pegar 
   LNossoNumero := TACBrTitulo(FBoleto.ListadeBoletos.Items[0]).NossoNumero;

O motivo e de onde vem esse código eu não sei.

 

[Victor H. Gonzales - Panda]

boa noite,

se você pega o nosso numero montado, ele é composto por várias informações, como prefixo, convenio, carteira, numero do boleto, dv etc...

veja como é a montagem que tu entenderá...

mas possivelmente ali só está pedindo para você passar o numero base do boleto, sem os demais complementos, se na geração voce informou 1, informe apenas 1. se informou 500, informe 500...

da mesma forma para imprimir, voce vai passar a configuração para o componente da carteira etc e passar somente o numero do nosso número, e não o numero completo (já montado)... acho que é isso o problema

[ClausquellerMitome]

Fiz funciona usando o copy(LNossoNumero := TACBrTitulo(FBoleto.ListadeBoletos.Items[0]).NossoNumero, 0, lenght(LNossoNumero := TACBrTitulo(FBoleto.ListadeBoletos.Items[0]).NossoNumero) - 3)
Mas vamos ve o comportamento em outros bancos.

Obrigado