Ir para conteúdo
  • Cadastre-se

dev botao

Converter codigo de barras para linha digital


sgeinformatica
Ver Solução Respondido por sgeinformatica,
  • Este tópico foi criado há 3007 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

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

  • Administradores

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

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros sites

  • Membros Pro
  • Solution

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

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

  • Este tópico foi criado há 3007 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...
The popup will be closed in 10 segundos...