Gerar Código de Barras igual Etiqueta de Balança

[datilas]

estou respondendo aqui uma pergunta do usuario @doidopb

do link 

 

pois não sou usario sac não posso responder la.

no caso do produto

ID = 150
TOTAL = 10,50

a barra seria "201500001050" mas como só tem 12 caracteres vamos adicionar o "1" no final ficando assim "2015000010501"

agora vai o codigo:

Var
 sMinhaBarra: String;
Begin
 sMinhaBarra := '2015000010501';
 ACBrValidador1.TipoDocto := docGTIN;
 ACBrValidador1.ExibeDigitoCorreto := True;
 ACBrValidador1.Documento := sMinhaBarra;
 If Not ACBrValidador1.Validar Then
  sMinhaBarra := Copy(sMinhaBarra, 1, 12) + ACBrValidador1.DigitoCalculado;
End;

assim vc pode gerar seu próprio código de barras matematicamente valido e aceito para ser lido com "ACBrInStore1" que é ótimo para essa situação

[bnobre]

3 minutos atrás, datilas disse:

estou respondendo aqui uma pergunta do usuario @doidopb

do link 

 

pois não sou usario sac não posso responder la.

no caso do produto

ID = 150
TOTAL = 10,50

a barra seria "201500001050" mas como só tem 12 caracteres vamos adicionar o "1" no final ficando assim "2015000010501"

agora vai o codigo:

Var
 sMinhaBarra: String;
Begin
 sMinhaBarra := '2015000010501';
 ACBrValidador1.TipoDocto := docGTIN;
 ACBrValidador1.ExibeDigitoCorreto := True;
 ACBrValidador1.Documento := sMinhaBarra;
 If Not ACBrValidador1.Validar Then
  sMinhaBarra := Copy(sMinhaBarra, 1, 12) + ACBrValidador1.DigitoCalculado;
End;

assim vc pode gerar seu próprio código de barras matematicamente valido e aceito para ser lido com "ACBrInStore1" que é ótimo para essa situação

Caro amigo, grato pelo esforço em me responder...

Mas surgiram duas dúvidas:

1 -  Posso simplesmente adicionar o 1 como DV sem problemas? Pois pelo que observei a respeito desse código que postou é que o mesmo serve para encontrar o DV correto.

2 - O que é o ACBrInStore1?

[datilas]

Resposta:

1- Exatamente isso o "1" seria o digito verificador ele pode ser fixo caso ele não seja valido o ACBrValidador vai gerar um digito valido pra vc

2- O ACBrInStore é um componente para ler e decodificar codigo de barras de balanças

da uma olha da nos demos:

Exemplos\ACBrDiversos\ACBrInStore

[bnobre]

18 horas atrás, datilas disse:

Resposta:

1- Exatamente isso o "1" seria o digito verificador ele pode ser fixo caso ele não seja valido o ACBrValidador vai gerar um digito valido pra vc

2- O ACBrInStore é um componente para ler e decodificar codigo de barras de balanças

da uma olha da nos demos:

Exemplos\ACBrDiversos\ACBrInStore

Poxa, que pena que eu não conheci esse ACBrInStore antes... Eu faço esse desmembramento manualmente com um código que criei.

Porque "InStore"???