Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Converter codigo de barras para linha digital


sgeinformatica
  • Este tópico foi criado há 1862 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Tenho um cliente que quer guardar a linha digitavel dos boletos, mas os numeros do codigo de barras são diferentes que a leitora retorna.

Eu vi que tem uma maneira de chegar na linha digitavel mudando o posicionamento de alguns numeros e efetuando o calculo de alguns digitos de conferencia.

No acbr ja existe alguma função pronta que faça isso?

Nesse site faz essa conversão : http://boletobancario-codigodebarras.blogspot.com.br/

Exemplo de codigo de barras : 03396682100000232009166486700000100090600102

Linha digitavel já convertida : 03399.16645 86700.000101 00906.001029 6 68210000023200

Obrigado

  • Like 1
Link to comment
Share on other sites

  • Consultores

Bom dia.

O método MontarLInhaDigitavel() é publico e pode ser usado, porém antes você deve utilizar o método MontarCodigoBarras() para obter a informação necessária para a montagem da linha digitavel.

CodBarras:= MpontarCodigoBarras(Titulo)

LinhaDigitavel:= MontarLinhaDigitavel(CodBarras)

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Membros Pro

Consegui fazer assim :

procedure TForm1.Button1Click(Sender: TObject);
var
  Titulo : TACBrTitulo;
  LinhaDigitavel, CodBarras : String;
begin
  Titulo := ACBrBoleto1.CriarTituloNaLista;
  CodBarras := '10491682600000050000545006478709270000048974';
  LinhaDigitavel := ACBrBoleto1.Banco.MontarLinhaDigitavel(CodBarras, Titulo);
  ShowMessage(LinhaDigitavel);
end;
 

Obrigado pela ajuda

  • Like 2
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.