Jump to content

2 Dia do ACBr

Confira o nosso time de palestrantes
Quero conhecer o Evento

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

marcos.gandin

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

Recommended Posts

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


Leandro Gobbo

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...