Problema Boleto Bradesco (tbBancoEmite)

[Filippe Maymone]

Bom dia pessoal... 

no dia 01/06/2022 teve esse atualização no boleto Bradesco quando esta BancoEmite no manual diz que se o responsavel pela emissão é o banco  e informarmos o campo nosso numero o branco utiliza o nosso numero enviado .. senão o banco gera o nosso numero.. 

Ai na rotina abaixo .. qunado eu informo o nosso numero 00000000009

o arquivo de remessa esta entrando 00000000000

 

Acredito que esse  iF

if (ACBrTitulo.NossoNumero = '') or (ACBrTitulo.NossoNumero = PadLeft(ACBrTitulo.NossoNumero,ACBrBanco.TamanhoMaximoNossoNum,'0')) then
    begin
      ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) );
      ADigVerificador := '0';
    end

 

Teria que ser assim

 

if (ACBrTitulo.NossoNumero = '') Then
    begin
      ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) );
      ADigVerificador := '0';
    end

procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out
  ANossoNumero: String; out ADigVerificador: String;
  const ACBrTitulo: TACBrTitulo);
begin
  ANossoNumero    := '0';
  ADigVerificador := '0';

  if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then
  begin
    if (ACBrTitulo.NossoNumero = '') or (ACBrTitulo.NossoNumero = PadLeft(ACBrTitulo.NossoNumero,ACBrBanco.TamanhoMaximoNossoNum,'0')) then
    begin
      ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) );
      ADigVerificador := '0';
    end
    else
    begin
      ANossoNumero := ACBrTitulo.NossoNumero;
      ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
    end;
  end
  else
  begin
    ANossoNumero := ACBrTitulo.NossoNumero;
    ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
    if (ANossoNumero = EmptyStr) then
      ADigVerificador := '0';
  end;

end;


Manual Bradesco

ACBrBancoBradesco.pas

[Juliana Tamizou]

Bom dia,

Nos desculpe a demora no retorno, este tópico acabou passando... criada em nosso backlog uma task para análise.

TK-3450.

AT.

[Daniel InfoCotidiano]

@Filippe Maymone Boa tarde !
São sei se em questão da data isso ja foi solucionado, pois eu testei aqui sem fazer qualquer alteração e comigo funcionou.

Observe que ao criar o titulo (adicionar o boleto) informei a propriedade CarteiraEnvio = cebanco, informei o nosso numero com 11 posições conforme vc explicou acima, aqui deu td certo.
Pode atualizar o SVN e rodar o instalador e fazer o teste por favor. muito obrigado !

Aguardo um feedback !

[Daniel InfoCotidiano]

Tópico fechado por falta de retorno do usuário