Gerar Código De Barras Próprio

[Daniel Paixão-Cascavel]

Galera, eu tenho uma função para gerar código de barras que está dando o seguinte B.O.:

O sistema gera certinho o código de barras e imprime a eitqueta porém, quando passo o leitor, ele tira o primeiro dígito do meu código de barras. É como se o leitor não reconhecesse aquele código de barras em específico. Alguém tem ai um exemplo de função que gere um código de barras, imprima e o leitor leia corretamente??? Help, please.

Segue minha função que gera o código de barras:

Function EAN13(const CodigoBarras : String ) : String;
var nX    : Integer;
   nPeso  : Integer;
   nSoma  : Double;
   nMaior  : Double;
   nDigito : Integer;
Begin
   nPeso := 3;
   nSoma := 0;

   for nX := 12 downto 1 do
   begin
      nSoma := nSoma + StrToInt( CodigoBarras[ nX ] ) * nPeso;
      If nPeso = 3 Then
         nPeso := 1
      Else
         nPeso := 3;
   End;
   nMaior      := ( ( Trunc( nSoma / 10 ) + 1 ) * 10 );
   nDigito  := Trunc( nMaior ) - Trunc( nSoma );
   If nDigito = 10 Then
      nDigito := 0;
   Result := CodigoBarras + IntToStr( nDigito );
End;

[datilas]

eu uso o acbr validador para gerar codigo de barras,

sempre funcionou muito bem,

como vc esta imprimindo as etiquetas,

ja tentou mudar o ratio e modu?

Editado 24 Abril, 2014 por datilas

[Daniel Paixão-Cascavel]

Estou imprimindo as etiquetas atraves do ACBrETQ, na impressora Argox.

[datilas]

Estou imprimindo as etiquetas atraves do ACBrETQ, na impressora Argox.

tente gerar o código de barras assim:

lembrando que a leitora também tem configurações que podem ser modificadas.

Você já tentou ler com outra leitora?

[TI Garrido]

Estou imprimindo as etiquetas atraves do ACBrETQ, na impressora Argox.

Meu caro estou com um pequeno problema parecido, sendo que eu queria gerar o código de Barras por quantidade de produto. Ex: existe 10 latas de ervilhar só consigo gerar um código de barras eu gostaria de gerar as 10. se der para enviar a resposta para o meu email fico agradecido. Uso o sistema Delphi 7

 

[email protected]

Helton Garrido

[Daniel Paixão-Cascavel]

Helton, nesse caso é só você informar quantidade na funcao imprimir:

ACBrETQ1.Imprimir(NrCopias,Avanco);