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