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