Clipper x Codigo de Barras

por **Marcio Zoccal** » 09 Set 2009 10:18

Srs.,

Possuo um sistema em Clipper e um cliente meu quer usar o tal codigo de barras agora.... Não sei nem por onde começar.... Onde posso encontrar algum material/tutorial a respeito do assunto ?

No aguardo e agradeço desde já.

Márcio Zoccal
Barra do Garças-Mt

por **alaminojunior** » 09 Set 2009 10:49

A leitura dos códigos atravéz do leitor não tem segredo, pois a interface é a mesma: teclado, ou seja, é espetar o leitor e está pronto. Talvez tenha que rever algumas rotinas suas de pesquisa por código, mas é baba.
Agora, para imprimir os códigos, veja com ele a possibilidade de adquirir uma impressora específica para isso, pois te dará menos dor de cabeça e ele terá mais qualidade. Se não puder, pesquise neste fórum a respeito de de "código de barras", que vai aparecer muita coisa, porém para impressão em matriciais a qualidade se perde.
Boa sorte.

por **billy1943** » 09 Set 2009 14:44

Ao colega Márcio:

1. você quer produzir os códigos de barras em qual padrão ?
- pois existem EAN13, EAN10, cada qual com sua finalidade ?
2. você tem uma impressora laser ou jato de tinta das boas ?
- pois em impressora de agulhas esquece

O seu sistema (que presumo ser de estoque) deverá ser capaz de gerar, ao menos, um arquivo texto para então utilizar programas específicos em Windows, para então imprimir em etiquetas gomadas (padrão Pimaco) etc.
Nem pense em gerar tudo em Clipper.

por **alaminojunior** » 09 Set 2009 15:14

billy1943 escreveu:Nem pense em gerar tudo em Clipper.

Como eu disse, se o cliente optar por comprar uma Argox por exemplo, o desenvolvimento é super simples. É necessário apenas enviar um arquivo texto para ela e está feito. Eu tinha isso no programa em Clipper e hoje foi portado para xHarbour, mas é a mesma coisa.
Mas vamos esperar o colega responder qual o cenário.

por **BHS** » 09 Set 2009 17:03

boa tarde

Alamino, eu possuo aqui na empresa uma impressora Argox OS 214 porém utilizo o BarTender para imprimir as etiquetas. Vc poderia nos dar um exemplo de arquivio texto que vc envia pra essa impressora ?

obrigado

por **alaminojunior** » 09 Set 2009 17:29

FUNCTION I_PRODUTO2(vQtde)
cdbar001->(dbgotop())
cARGOXfile := "MERCADOR.DAT"
cCrLf      := chr(13)+chr(10)
errhandle := fcreate(cARGOXfile)
       FOR x = 1 TO vqtde
       lin_01 := usuario
       lin_02 := alltrim(strzero(val(cdbar001->barean),13,0))
       lin_03 := alltrim(strzero(val(cdbar001->barean),13,0))
       lin_04 := cdbar001->bardsc
       lin_05 := "R$"+ Tran(cdbar001->barvnd,"@ZE 9,999.99")
       cARGOXcmd := "c0000"  + cCRLF
       //cARGOXcmd += "f0100"  + cCRLF
       cARGOXcmd += "L"      + cCRLF
       cARGOXcmd += "C0000"   + cCRLF
       cARGOXcmd += "H14"     + cCRLF
       cARGOXcmd += "D11"     + cCRLF
       cARGOXcmd += "SC"      + cCRLF
       cARGOXcmd += "PD"      + cCRLF
       cARGOXcmd += "R0000"   + cCRLF
       cARGOXcmd += "z"       + cCRLF
       cARGOXcmd += "W"       + cCRLF
       cARGOXcmd += "131101000800010"+lin_01 + cCRLF
       IF x+1 <= vqtde
          cARGOXcmd += "131101000800210"+lin_01 + cCRLF
       ENDIF
       cARGOXcmd +=    "1F5203000400010"+lin_02 + cCRLF
       cARGOXcmd +=    "131201000400115"+lin_05 + cCRLF
       IF x+1 <= vqtde
          cdbar001->(dbskip())
          lin_02 := alltrim(strzero(val(cdbar001->barean),13,0))
          lin_05 := "R$"+ Tran(cdbar001->barvnd,"@ZE 9,999.99")
          cARGOXcmd += "1F5203000400210"+lin_02 + cCRLF
          cARGOXcmd += "131201000400315"+lin_05 + cCRLF
          cdbar001->(dbskip(-1))
       ENDIF
       //cARGOXcmd +=    "121100000300010"+lin_03 + cCRLF
       cARGOXcmd +=    "121100000200010"+lin_04 + cCRLF
       IF x+1 <= vqtde
          cdbar001->(dbskip())
          lin_03 := alltrim(strzero(val(cdbar001->barean),13,0))
          lin_04 := cdbar001->bardsc
          //cARGOXcmd += "121100000300210"+lin_03 + cCRLF
          cARGOXcmd += "121100000200210"+lin_04 + cCRLF
          cdbar001->(dbskip(-1))
          x += 1
       ENDIF
       cARGOXcmd += "Q0001" + cCRLF
       cARGOXcmd += "E"     + cCRLF
       cARGOXcmd += "Q"     + cCRLF
       fwrite(errhandle, cARGOXcmd )
       if x+1 <= vqtde
          cdbar001->(dbskip(+2))
       endif
   NEXT
   fClose(errhandle)
   ! COPY &cARGOXfile LPT1 > NUL
   return

Esse código imprime naquelas etiquetas que vêm em rolo contínuo, duas colunas, colantes.
Uma descrição completa do que significa cada comando, está no manual da mesma.

por **BHS** » 10 Set 2009 07:54

obrigado Alamino

vou testar

valeu

por **wfr123** » 29 Mar 2010 09:16

bom dia, desculpe estar utilizando este topico, mas não encontrei outro.

Consegui gerar o codigo de barra bar128 atraves da utiliazação da gdlib e da libbgd, mas para gerar o GIF com o codigo de barra ele pede uma dll, que é o BGD.DLL. e este arquivo fica fora do sistema.

Gostaria de saber se tem como incorporar esta DLL para junto com o sistema ou mesmo alguma lib que possa substituir.

No aguardo.

obs: Abaixo o programa de geração co codigo de barra, no link ele pede mais as duas libs: gdlib; libbgd

Function Main()
bar("123456789012","arq128")
return

function bar(numero,arq)
local bar
bar:=TCode():New(128)
bar:Configure(050,{0,0,0},{255,255,255},1,4) // 1-Thickness; 2-Color barra; 3-Color spaces; 4-Resolution; 5-Text Font (0-5)
bar:CreateBar(173,38,arq,{255,255,255}) // bar:create-> 1-Width; 2-Height; 3-Filename; 4-Background color */
bar:Draw128(numero,"B") // A- Alphanumeric uppercase; B- Alphanumeric Upper and lowercase; C- Numeric pairs of integer
bar:Finish(8)
return nil

por **billy1943** » 29 Mar 2010 09:33

Agora que vários colegas indicaram vários caminhos a seguir, incluo mais uma opção:

-em meus sistemas a geração de código de barras é feita juntamente com a gravação de um arquivo em .RTF, onde o campo que contém o referido código será impresso usando o fonte "Interleaved 2of5".

- depois é só direcionar o relatório para o Word e está pronto o documento a ser impresso com o código de barras.

- mas ressalto novamente, a impressora tem de ter um padrão igual a laser.

por **Linguagemclipper** » 29 Ago 2020 11:23

Olá wfr123!
Dessa forma aí que você indicou é no xHarbour, não é? Eu estou convertendo meu programa para Harbour 3.2, como é que eu consigo linkar a BGD agora para usar código de barras?

por **JoséQuintas** » 29 Ago 2020 17:04

O Harbour tem a lib zebra para código de barras.
Tem exemplos na pasta tests da lib

Fora do Harbour, tem algumas LIBs que usam código de barras, inclusive pra boletos.
Pode dar uma olhada nelas.

por **Linguagemclipper** » 29 Ago 2020 22:52

Obrigado pela dica.
Eu queria manter o mesmo código para as duas versões: xharbour e harbour. Só diferenciando pela compilação via defines.
Enfim, qualquer coisa vou ver essa lib zebra aí que já ví que tenho ela aqui na pasta.