Ir para conteúdo
  • Cadastre-se

dev botao

ACBrBoleto - Código de barra no QuickReport


João Teixeira
Ver Solução Respondido por João Teixeira,
  • Este tópico foi criado há 1837 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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 por João Teixeira
Link para o comentário
Compartilhar em outros sites

  • Fundadores

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

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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?

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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';

 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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;   

 

  • Curtir 3
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
  • Solution

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!

  • Curtir 3
Link para o comentário
Compartilhar em outros sites

  • Consultores

Obrigado por reportar.

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

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1837 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...