Erro: arquivo de remessa para o banco Bradesco quando o responsável pela emissão é o banco

[Valdecir Santos]

//ARQUIVO ACBrBancoBradesco.pas

 

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

  if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then //QUANDO INFORMAMOS QUE O BANCO EMITE O BOLETO
  begin
    if (ACBrTitulo.NossoNumero = '') or (ACBrTitulo.NossoNumero = PadLeft(ACBrTitulo.NossoNumero,ACBrBanco.TamanhoMaximoNossoNum,'0')) then
    begin
      ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) ); //ESSA FUNÇÃO RETORNA ZEROS E ISSO INVALIDA O ARQUIVO
      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;

 

//PARA CONSEGUIR EMITIR O ARQUIVO FIZ ISSO

procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out
  ANossoNumero: String; out ADigVerificador: String;
  const ACBrTitulo: TACBrTitulo);
begin
  ANossoNumero:= '0';
  ADigVerificador:= '0';
  ANossoNumero := ACBrTitulo.NossoNumero;
  ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
  if (ANossoNumero = EmptyStr) then
    ADigVerificador := '0';

end;

[Juliomar Marchetti]

anexe a unit caso queira contribuir