Impressão boleto Banrisul FastReport

[Rafael Cardoso]

Boa tarde.

Ao fazer a impressão do boleto do Banrisul, notei um problema de duplicidade na Agência no campo Agência/Beneficiário.

Analisando os códigos fontes percebi na função:

function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string;
begin
  Result := copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 1, 4)+'-'+
            ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
            copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' +
            copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' +
            copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2);
end;

me retorna a concatenação da agência e o número da conta,  até aqui tudo bem, mas no arquivo BoletoFatura.fr3 na procedure:

procedure MDOnBeforePrint(Sender: TfrxComponent);
begin
  if Trim(<Banco."DirLogo">) <> '' then
  begin              
     Logo_1.Picture.LoadFromFile(<Banco."DirLogo"> + '\' + <Banco."Numero"> + '.bmp');
     Logo_2.Picture.Assign(Logo_1.Picture);
  end;
  if <Banco."Numero"> = '104' then
  begin              
    CedenteAgencia.Text  := <Titulo."CodCedente">;
    CedenteAgencia2.Text := <Titulo."CodCedente">;
  end else 
  begin
    CedenteAgencia.Text  := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
    CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
  end;      
end;
 

Temos a concatenação da agência e do cedente novamente, assim duplicando na hora da impressão.

[Fenix]

Olá,

No meu caso eu modifiquei os meus FR3, isso começou quando migrei para o trunk2 , como trabalho com layouts diferentes acabei não comentando nada aqui.

[EMBarbosa]

Por favor, anexe os arquivos alterados e corrigidos.