Pesquisar na Comunidade

Olá, caros colegas. Nos convênios com 7 dígitos e cuja carteira é 17, o ACBrBoleto não deixa montar o boleto porquê o tamanho do nosso número é de 17 dígitos. Para isso, tive que alterar o fonte do ACBrBancoBrasil (Trunk2). Segue o método para apreciação dos moderadores e posterior commit. Um abraço a todos. function TACBrBancoBrasil.CalcularTamMaximoNossoNumero( const Carteira: String; NossoNumero : String = ''): Integer; var wCarteira : String; wTamConvenio: Integer; begin Result := 10; if (ACBrBanco.ACBrBoleto.Cedente.Convenio = '') then raise Exception.Create(ACBrStr('Banco do Brasil requer que o Convênio do Cedente '+ 'seja informado.')); if (Carteira = '') then raise Exception.Create(ACBrStr('Banco do Brasil requer que a carteira seja '+ 'informada antes do Nosso Número.')); wCarteira:= Trim(Carteira); wTamConvenio:= Length(Trim(ACBrBanco.ACBrBoleto.Cedente.Convenio)); if (Length(trim(NossoNumero)) > 10) and (((wTamConvenio = 6) and ((wCarteira = '16') or (wCarteira = '18'))) or ((wTamConvenio = 7) and (wCarteira = '18'))) then Result:= 17 else if (wTamConvenio <= 4) then Result := 7 else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or (wCarteira = '17'))) then Result := 5 else if (wTamConvenio = 6) then Result := 11 // Geazi - 04.01.2016 // Mudança para atender ao convênio com tamanho = 7 e carteira = '17' else if ((wTamConvenio = 7) and (wCarteira = '17')) then Result := 17 else if (wTamConvenio = 7) then Result := 10; end;