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.
