Código de Barras - Argox

Delphi

09/09/2005

Alguém tem o procedimento para criar e enviar o Código de Barras para a Impressora Argox.
Se alguém puder me ajudar eu agradeço.

Leandro


Leufmt

Leufmt

Curtidas 0

Respostas

Lindomar.des

Lindomar.des

09/09/2005

Leandro,

Utilizo o seguinte codigo: para etq de preço (gôndola de supermercado)

conteúdo do grid: colunas

primeira coluna: codigo interno
segunda coluna: codigo de barras
terceira coluna : descriçao do produto
quarta coluna : * quantidade de etq a ser impressa.
quinta coluna : preço de venda

* no caso de etq de cod. de barras divido o valor por 3.

if TipoImpressoraEtq = ´ARGOX OS-214´ then
begin
Qtd := StrToInt(stringgrid1.Cells[3, i]);
ComPort1.WriteStr(#02 + ´L´ + 13);
ComPort1.WriteStr(02 + ´m´ + 13);
ComPort1.WriteStr(02 + ´e´ + 13);
ComPort1.WriteStr(´PC´ + 13);
ComPort1.WriteStr(´D11´ + 13);
ComPort1.WriteStr(´H14´ + 13);
ComPort1.WriteStr(´z´ + 13);

dmmaster.IBTProdutoFilial.Locate(´produto;filial´,
VarArrayOf([Trim(stringgrid1.Cells[0, i]), dmmaster.loja]), []);

ComPort1.WriteStr(´151100002000090´ +
Trim(dmMaster.IBTProdutoFilialDESCRICAOGONDOLA1.Value) + #13);
ComPort1.WriteStr(´121100001600090´ +
Trim(dmMaster.IBTProdutoFilialDESCRICAOGONDOLA2.Value) + 13);
ComPort1.WriteStr(´211100001500050´ + DateToStr(Date) + 13);
ComPort1.WriteStr(´211100001500080´ + Trim(stringgrid1.Cells[0, i]) +
13);
ComPort1.WriteStr(´1F2210000300110´ + Trim(StringGrid1.Cells[1, i]) +
13);
ComPort1.WriteStr(´161100000200480´ + ´R$´ + 13);
ComPort1.WriteStr(´161200000200600´ + Trim(StringGrid1.Cells[4, i]) +
13);

ComPort1.WriteStr(´Q´ + FormatFloat(´0000´, Qtd) + 13);
ComPort1.WriteStr(02 + ´E´ + 13);
end

e para etq de barras (3 carreiras)

if TipoImpressoraEtq = ´ARGOX OS-214´ then
begin
Qtd := Trunc(strtoint(stringgrid1.Cells[3, i]) / 3);
ComPort1.WriteStr(#02 + ´L´ + 13);
ComPort1.WriteStr(02 + ´m´ + 13);
ComPort1.WriteStr(02 + ´e´ + 13);
ComPort1.WriteStr(´PC´ + 13);
ComPort1.WriteStr(´D11´ + 13);
ComPort1.WriteStr(´H14´ + 13);
ComPort1.WriteStr(´z´ + 13);

dmmaster.IBTProdutoFilial.Locate(´produto;filial´,
VarArrayOf([Trim(stringgrid1.Cells[0, i]), dmmaster.loja]), []);

ComPort1.WriteStr(´121100001700050´ +
Trim(dmMaster.IBTProdutoFilialDESCRICAOGONDOLA2.Value) + 13);
ComPort1.WriteStr(´1F2210000300050´ + Trim(stringgrid1.Cells[1, i]) +
13);

ComPort1.WriteStr(´121100001700410´ +
Trim(dmMaster.IBTProdutoFilialDESCRICAOGONDOLA2.Value) + 13);
ComPort1.WriteStr(´1F2210000300410´ + Trim(stringgrid1.Cells[1, i]) +
13);

ComPort1.WriteStr(´121100001700750´ +
Trim(dmMaster.IBTProdutoFilialDESCRICAOGONDOLA2.Value) + 13);
ComPort1.WriteStr(´1F2210000300750´ + Trim(stringgrid1.Cells[1, i]) +
#13);
ComPort1.WriteStr(´Q´ + FormatFloat(´0000´, Qtd) + 13);
ComPort1.WriteStr(02 + ´E´ + 13);
end


GOSTEI 0
Leufmt

Leufmt

09/09/2005

Cara eu não entendi muito bem este código, pois o mesmo possui algumas variaveis que eu não tenho ideia do que seja


GOSTEI 0
POSTAR