Ir para conteúdo
  • Cadastre-se

dev botao

Converter codigo de barras para linha digital


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

Recommended Posts

  • Membros Pro
Postado

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
  • Administradores
Postado

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 !!

  • Membros Pro
Postado

Bom dia Juliana

CodBarras:= MontarCodigoBarras(Titulo)

O titulo que passa como parametro eu teria que informar todos os dados? (conta / agencia / etc ?)

Porque no meu caso eu vou armazenar a linha digitavel de boletos de fornecedores, não dos que eu emito.

  • Membros Pro
  • Solution
Postado

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
  • Este tópico foi criado há 3027 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...