Problema com o campo "Agência/Código Cedente" do boleto

[marcos.gandin]

Olá pessoal, bom dia...

Estou com um problema quando vou visualizar/imprimir o boleto. 

Estou utilizando o boleto do Bradesco, mas testei com outros bancos e o problema persiste. 

No campo "Agência/Código Cedente" do boleto impresso está aparecendo na seguinte maneira: 2753/2753-7/3565960-2 e deveria aparecer assim 2753-7/3565960-2

O que pode estar acontecendo ? 

Alguém já passou por este problema ? 

Aguardo a ajuda de vocês.

[Gr@c@]

No NossoNumero você está informando a agencia ou está informando o NossoNumero já formatado? Ou informa só o sequencial do NossoNumero?

[marcos.gandin]

Eu informo só o sequencial no campo NossoNumero... mas este campo influi em como deve ser impresso o campo  Agência/Código Cedente ? 

Estou utilizando o Fast Report e Boleto.fr3

[Gr@c@]

No campo codcedente eu informo assim:                        

                       If (edCodCedente.AsInteger <> StrToIntDef(edContaCorrente.Text,0)) then
                         begin
                         Frm_BoletoPrincipal.ACBrBoleto1.Cedente.CodigoCedente     := FormatFloat('0000000',edContaCorrente.AsInteger);   {numero informado pelo banco e que sairá no Header do arquivo remessa}
                         end
                       Else
                         begin
                         Frm_BoletoPrincipal.ACBrBoleto1.Cedente.CodigoCedente     := FormatFloat('0000000',edCodCedente.AsInteger); {o codigo do cedente já é com o digito}
                         end;

Eu uso o FortesReport.

[marcos.gandin]

Seguinte... acho que você não entendeu o que está acontecendo.

Eu informo corretamente os valores para Agencia e CodigoCedente mas quando aparece no boleto o campo "Agência/Código Cedente" aparece dessa maneira:  "2753/2753-7/3565960-2", ou seja, está mostrando a agência sem o dígito, barra (/), agência com o dígito, barra (/) e número do cedente com o código que é gerado pelo ACBr.

Já passei pelo código: 

function TACBrBancoBradesco.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
   Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
             ACBrTitulo.ACBrBoleto.Cedente.Conta+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;
end;

e o Result está retornando perfeito, como deve ser, porém na hora de mostrar o boleto na tela ou imprimir, está aparecendo o valor da agência sem o dígito, e isto não deveria estar mostrando.

[marcos.gandin]

Estou achando que o problema está no arquivo  Boleto.fr3 pois já procurei nas classes ACBrBoleto, ACBrBoletoFCFR e ACBrBancoBradesco e não achei nada. 

[gobbo]

O problema está no relatório do FastReport. Veja que mudaram os "scripts" para visualização desse campo. Abra o arquivo *.fr3 e vá até a aba "Code". Deveria estar tudo em branco lá.

Estou usando esses arquivos como meu padrão:

 

Reports.zip

[marcos.gandin]

É isso mesmo. O problema está nos arquivos .fr3