Array
(
)

gerar valor do código de barras

Ovidiojr
   - 03 dez 2005

Olá, tudo bem ? Espero que sim.

Estou precisando saber como faço para gerar o valor do código de barras para os produtos no padrão EAN-13 e outros padrões tb. Será que alguem tem alguma função que faça isso ? Gerar o valor do código de barras para dai gerar as barras para a etiqueta.
Se alguem tiver algum exemplo, favor me enviar.

Sem mais, agradeço desde já.

Ovidio Jr.


Nasguone
   - 03 dez 2005

Geralmente eu uso um componente Chamado TserialCom pq utilizo uma impressora termica pela com.
Os valores do codigo de barra geralmente e uma sequencia e dados tipo 789 pais 1000 cod empresa 100 cod produto 103 ref do prod.

segue abaixo um exemplo onde a linguagem que aparece na serialcom.WriteString e do tipo ZPL II propria para impressoras termicas, e esta recebendo os dados do produto do meu banco de dados.
Se este for seu caso espero que te ajude


procedure TfrmMain.btImprimirClick(Sender: TObject);
var x , numEtq :integer;
begin
// entItem ... generator //

serialcom.Open;

for x := 1 to StrToInt(edQtd.Text) do
begin
dm.cdEtiq.Execute;

numEtq := dm.cdEtiq.Params[0].AsInteger;

serialcom.WriteString(´^XA´);

//^FX Quadro negro ^FS
serialcom.WriteString(´FO0,0´);
serialcom.WriteString(´^GB 600,250,250 ^FS´);

serialcom.WriteString(´^LH0,0´);
serialcom.WriteString(´^FO20,260´); // Posição X , Y
serialcom.WriteString(´^A0N,20,20´); // Texto Altura , Largura
serialcom.WriteString(´^FR´);
serialcom.WriteString(´^FD Texto cabeçalho ^FS´); // O que vai ser impresso //

// Numero da Etiqueta ... o mesmo que o codigo de Barras //
serialcom.WriteString(´^LH0,0´);
serialcom.WriteString(´^FO50,50´); // Posição X , Y
serialcom.WriteString(´^A0N,150,130´); // Texto Altura , Largura
serialcom.WriteString(´^FR´);
serialcom.WriteString(´^FD´+ IntToStr(numEtq)+´^FS´); // O que vai ser impresso //

// Codigo de Barras //
serialcom.WriteString(´^FO630,40´); // x , y
serialcom.WriteString(´^BY2´);
serialcom.WriteString(´^BCR,150,N´);
serialcom.WriteString(´^FR´);
serialcom.WriteString(´^FD´+ IntToStr(numEtq)+´^FS´);

serialcom.WriteString(´^XZ´);

Sleep(1200);
end;