Clipper x Codigo de Barras

[Marcio Zoccal]

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

[alaminojunior]

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.

[billy1943]

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.

[alaminojunior]

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.

[BHS]

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

[alaminojunior]

Código: Selecionar todos

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.

[BHS]

obrigado Alamino

vou testar

valeu

[wfr123]

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

[billy1943]

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.

[Linguagemclipper]

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?

[JoséQuintas]

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.

[Linguagemclipper]

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.