Página 1 de 1
Clipper x Codigo de Barras
Enviado: 09 Set 2009 10:18
por 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
Re: Clipper x Codigo de Barras
Enviado: 09 Set 2009 10:49
por 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.
Re: Clipper x Codigo de Barras
Enviado: 09 Set 2009 14:44
por 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.
Re: Clipper x Codigo de Barras
Enviado: 09 Set 2009 15:14
por alaminojunior
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.
Re: Clipper x Codigo de Barras
Enviado: 09 Set 2009 17:03
por 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
Re: Clipper x Codigo de Barras
Enviado: 09 Set 2009 17:29
por 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.
Re: Clipper x Codigo de Barras
Enviado: 10 Set 2009 07:54
por BHS
obrigado Alamino
vou testar
valeu
Re: Clipper x Codigo de Barras
Enviado: 29 Mar 2010 09:16
por 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
Re: Clipper x Codigo de Barras
Enviado: 29 Mar 2010 09:33
por 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.
Clipper x Codigo de Barras
Enviado: 29 Ago 2020 11:23
por 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?
Clipper x Codigo de Barras
Enviado: 29 Ago 2020 17:04
por 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.
Clipper x Codigo de Barras
Enviado: 29 Ago 2020 22:52
por 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.