Impressão Duplicada da Agência

[alfredudu]

Bom  Dia Pessoal,

Esta ocorrendo a seguinte situação, quando imprimo um boleto pelo sistema, usando os bancos do Brasil e Itau, a agência aparece de forma duplicada, para a Caixa Econômica por exemplo aparece normal, somente uma vez.

O que pode estar causando isso?

Alguém poderia me ajudar

 

[Juliana Tamizou]

Boa tarde.

Qual gerador de relatórios está sendo utilizado?

Att.

[alfredudu]

Boa Tarde Juliana,

Fast Reports versão 5.5

[Henrique Paraiba]

Boa tarde!

A situação ocorre na linha seguinte na montagem do Relatório:

Field_CodCendente.AsString := Banco.MontarCampoCodigoCedente(ListadeBoletos[iFor]);

O ACBR agora já monta a impressão completa de acordo com cada banco.

Essa chamada MontarCampoCodigoCedente() pode já está montando Agencia + Conta(Cedente) e se o seu Layout estivar com [Titulo.Conta] / [Titulo.CodigoCedente] a agencia pode se repetir pq o ACBR já o colocou no CodigoCedente a montagem completa. Nesse caso deixa apenas [Titulo.CodigoCedente] no Layout do seu Boleto.

Att.

[farnetani]

48 minutos atrás, Henrique Paraiba disse:

Boa tarde!

A situação ocorre na linha seguinte na montagem do Relatório:

Field_CodCendente.AsString := Banco.MontarCampoCodigoCedente(ListadeBoletos[iFor]);

O ACBR agora já monta a impressão completa de acordo com cada banco.

Essa chamada MontarCampoCodigoCedente() pode já está montando Agencia + Conta(Cedente) e se o seu Layout estivar com [Titulo.Conta] / [Titulo.CodigoCedente] a agencia pode se repetir pq o ACBR já o colocou no CodigoCedente a montagem completa. Nesse caso deixa apenas [Titulo.CodigoCedente] no Layout do seu Boleto.

Att.

Me diga uma coisa, se eu estiver usando a última versão do acbr (atualizada), o arquivo .fr3 do fastreports já não está tratando isso? Eu tenho então que ir nele e mudar isso?

[Henrique Paraiba]

17 minutos atrás, farnetani disse:

Me diga uma coisa, se eu estiver usando a última versão do acbr (atualizada), o arquivo .fr3 do fastreports já não está tratando isso? Eu tenho então que ir nele e mudar isso?

O ACBR não alterou esse campos nos .fr3, portanto vc deve fazê-lo se quiser que funcione até que eles atualizem.

Att.

[Juliomar Marchetti]

Caso alguém tenha implementações ou correções deve anexar o arquivo aqui para isso!

lembrando que o fast report deve de ser da 5.5 superior!

[alfredudu]

Detectei realmente o problema, está realmente no .fr3. No caso, temos que remover a propriedade: <Cedente." Agencia">+'/'+

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);
     Logo_3.Picture.Assign(Logo_1.Picture);
  end;     
  if <Banco."Numero"> = '104' then
  begin              
    CedenteAgencia.Text  := <Titulo."CodCedente">;
    CedenteAgencia2.Text := <Titulo."CodCedente">;
    CedenteAgencia3.Text := <Titulo."CodCedente">;          
  end else 
  begin
    CedenteAgencia.Text  := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
    CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
    CedenteAgencia3.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
  end;                  
end;

e o correto é ficar

 

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);
     Logo_3.Picture.Assign(Logo_1.Picture);
  end;     
  if <Banco."Numero"> = '104' then
  begin              
    CedenteAgencia.Text  := <Titulo."CodCedente">;
    CedenteAgencia2.Text := <Titulo."CodCedente">;
    CedenteAgencia3.Text := <Titulo."CodCedente">;          
  end else 
  begin
    CedenteAgencia.Text  := <Cedente."CodigoCedente">;
    CedenteAgencia2.Text := <Cedente."CodigoCedente">;
    CedenteAgencia3.Text := <Cedente."CodigoCedente">;
  end;                  
end;

 

[Juliomar Marchetti]

Anexe o arquivo

[alfredudu]

Juliomar segue o anexo.

Neste arquivo consta os campos de Outras Deduções / Abatimento e Outros Acréscimos, a pedido da Caixa Econômica para homologação realizada.

Boleto.fr3

Editado 10 Agosto, 2016 por alfredudu
Acrescentando informações sobre novos campos

[alfredudu]

Arquivo anexado acima

Editado 10 Agosto, 2016 por alfredudu
OK

[Juliomar Marchetti]

20 horas atrás, alfredudu disse:

Juliomar segue o anexo.

Neste arquivo consta os campos de Outras Deduções / Abatimento e Outros Acréscimos, a pedido da Caixa Econômica para homologação realizada.

Boleto.fr3

Baseado em qual arquivo você fez?

e poderia anexar um pdf dele gerado?

[farnetani]

Juliomar, foi implementado esses campos a pedido do próprio Banco no processo de homologação. Vou pedir para o Alfredo gerar um .pdf do mesmo e anexar também. Geramos esse arquivo baseado no boleto.fr3 do ACBR mesmo, só que eu implementei esses novos campos.

[alfredudu]

28 minutos atrás, Juliomar Marchetti disse:

Baseado em qual arquivo você fez?

e poderia anexar um pdf dele gerado?

Juliomar segue o pdf gerado.

Boleto_ACBR.pdf

[Juliomar Marchetti]

17 horas atrás, alfredudu disse:

Juliomar segue o pdf gerado.

Boleto_ACBR.pdf

Bom dia!

farei o seguinte vou adicionar como um novo arquivo !

e conforme o pessoal for usando e testando após eu removo os outros fr3 do svn!

Obrigado pela colaboração

[alfredudu]

Agora, Juliomar Marchetti disse:

Bom dia!

farei o seguinte vou adicionar como um novo arquivo !

e conforme o pessoal for usando e testando após eu removo os outros fr3 do svn!

Obrigado pela colaboração

Disponha!