Pesquisar na Comunidade
Showing results for tags 'banrinsul'.
Encontrado 1 registro
-
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.