ACBrBoleto - Código de barra no QuickReport

[João Teixeira]

Boa tarde!

Tenho um cliente que a formatação do boleto é em formato de carnê (são impressos 12 boletos ) e está em QuickReport  e estou trocando o componente antigo pelo ACBrBoleto.

Já acertei praticamente o relatório todo para o componente ACBrBoleto. Só não estou sabendo como obter a imagem do código de barra para passar para o componente “qrImagem” do QuickReport para imprimir.

Meu problema é mesmo a impressão do código de barra no boleto, porque os dígitos consigo pela função MontarCodigoBarras() do ACBrBoleto,

Abracos!!!

Editado 15 Março, 2019 por João Teixeira

[Rafael Dias]

Você vai precisa de um componente que converta os numeros em imagem, no caso da para usar o ACBrBarcode utilizando o tipo bcCode_2_5_interleaved e carregando do canvas.

[Daniel Simoes]

Você está criando um novo Relatório de Ficha de compensação ?

Se é algo novo...não compensa usar um gerador de relatórios mais novo ? Ou até mesmo o Fortes Report, que já é usado no ACBr ?

Com eles, o Cód.Barras não seria um problema

[João Teixeira]

4 horas atrás, Rafael Dias disse:

Você vai precisa de um componente que converta os numeros em imagem, no caso da para usar o ACBrBarcode utilizando o tipo bcCode_2_5_interleaved e carregando do canvas.

oi Rafael, tentei utilizar o ACBrBarcode com typ ‘bcCode_2_5_interleaved’, mas é estranho o comportamento do componente com essa opção, por exemplo:

Se definir a propriedade text com um conteúdo com mais de 13 dígitos da a seguinte mensagem ‘Numero Invalido para EAN13’, mesmo definindo a propriedade typ com ‘bcCode_2_5_interleaved’.

Outra coisa que achei estranho é que todas as opções ficam parecendo escrito em negrito e quando define a opção ‘bcCode_2_5_interleaved’ parece que fica diferente.

Verifiquei várias vezes se não estava fazendo alguma coisa errada, mas parece que está tudo certo?

[João Teixeira]

4 horas atrás, Daniel Simoes disse:

Você está criando um novo Relatório de Ficha de compensação ?

Se é algo novo...não compensa usar um gerador de relatórios mais novo ? Ou até mesmo o Fortes Report, que já é usado no ACBr ?

Com eles, o Cód.Barras não seria um problema

oi  Daniel, seria a minha vontade, mas já utilizo a alguns anos e o layout está todo desenhado no QuickReport.

[João Teixeira]

para a questão do problema do ACBrBarcode com typ ‘bcCode_2_5_interleaved’ é melhor abrir um novo tópico?

[Rafael Dias]

Em 15/03/2019 at 19:37, João Teixeira disse:

oi Rafael, tentei utilizar o ACBrBarcode com typ ‘bcCode_2_5_interleaved’, mas é estranho o comportamento do componente com essa opção, por exemplo:

Se definir a propriedade text com um conteúdo com mais de 13 dígitos da a seguinte mensagem ‘Numero Invalido para EAN13’, mesmo definindo a propriedade typ com ‘bcCode_2_5_interleaved’.

Outra coisa que achei estranho é que todas as opções ficam parecendo escrito em negrito e quando define a opção ‘bcCode_2_5_interleaved’ parece que fica diferente.

Verifiquei várias vezes se não estava fazendo alguma coisa errada, mas parece que está tudo certo?

Eu fiz uns testes aqui e não consegui reproduzir seu problema, por favor tente da seguinte maneira.

ACBrBarCode1.Transparent := True;
ACBrBarCode1.Height := 50;
ACBrBarCode1.Width := 350;
ACBrBarCode1.Typ := bcCode_2_5_interleaved;
// Codigo de barras do boleto
ACBrBarCode1.Text := '836400000011787601990007318913720195021001030192';

 

[Daniel Simoes]

Adicionei um demo em:

\ACBr\Exemplos\ACBrDiversos\ACBrBarCode\Lazarus

Talvez esse trecho de código, para copiar o conteúdo do ACBrBarCode, para um componente Image, lhe interesse:

procedure TForm1.btParaImagemClick(Sender: TObject);
begin
  Image1.Width := ACBrBarCode1.Width;
  Image1.Height := ACBrBarCode1.Height;
  Image1.Canvas.Brush.Color := clWhite;
  Image1.Canvas.Brush.Style := bsSolid;
  Image1.Canvas.FillRect(ClientRect);
  ACBrBarCode1.DrawBarcode(Image1.Canvas);
end;   

 

[João Teixeira]

Depois que reinicie o computado e refiz o procedimento utilizando  a configuração sugerida pelo Rafael, incluindo apenas na cláusula Uses ‘AJBarcode’, consegui gerar o código de barra em ‘bcCode_2_5_interleaved’

Para atribuir ao componente de imagem fiz baseando nas linhas de código que o Daniel passou  e o exemplo ‘\ACBr\Exemplos\ACBrDiversos\ACBrBarCode\Lazarus ‘ também  é muito útil. Além de abordar as questões acima, mostra também com atribuir os tipos de código de Barra em um ComboBox 

Obrigado pela ajuda Rafael e Daniel, solucionado!

Abraços!

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.