Codigo de barras

[xtsystem]

Alguem teria algum exemplo como fazer codigo de barras de 1 a 20 numeros ou menos, se for o caso, para impressoras matricias epson ?

[xtsystem]

Alguem teria algum exemplo como fazer codigo de barras de 1 a 20 numeros ou menos, se for o caso, para impressoras matricias epson ?

[Theotokos]

vc pode pegar aqui:

http://www.4shared.com/file/NB1Km_CU/barlib.html

Em Cristo! com Maria!!!

Rone O. Coura

************************

xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12 + xDevStudio

************************

A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

[Geo_sts]

BOM DIA..

AQUI TEM UM EX. EM LABEL.

FACINHO...

#include "label.ch"

#include "dbstruct.ch"

static nField

Local oPrn,nLinha,nStartLinha:=020

local nome_get:=Space(40)

local nRecNo:=RecNo()

local oDlg

local oLabel

local aStructure

Local oFont1

Local oFont2

Local oFont3

DEFINE FONT oFont1 NAME "ARIAL" SIZE -4,-06

DEFINE FONT oFont2 NAME "ARIAL" SIZE -4,-09 BOLD

DEFINE FONT oFont3 NAME "c39hrp24dhtt" SIZE 10,-25 // letra que Gera o codigo de barras Obrigatório

DEFINE FONT oFont4 NAME "DingleHopper" SIZE -12,-25 BOLD

aStructure:={}

x:=0

ocodi:=7892597 // codigo de barras

wspac:=space(25) // espaço entre as linhas

xtop:="STR"

wnom:="MINHA LOJA DE CONFECÇÕES LTDA" // Nome Fantasia

wdesc:="BLUSA POLO CENTER M" // nome do produto

xcodi:="1234567" // código interno

wcodi:='*'+strzero(ocodi,7)+'*'

ovalo:=29.99

wvalo:='R$ '+alltrim(str(ovalo,9,2)) // valor do produto

*/

Aadd(aStructure,{xtop,wnom,wnom1,wspac,wdesc,xcodi,wspac,wcodi,wspac,wspac,wspac,wspac,wspac,wspac,wspac,wspac,wspac,wspac,wcodi,wvalo,wdesc}) // aki tem q listar tudo que vai ser impresso

IF len(aStructure) == 0

MsgStop("Ausencia de Dados em array")

RETU NIL

ENDIF

nField := 1

LABEL oLabel SIZE 65.0, 86.0 ; //comprimento x altura // 37.2 21.2

SEPARATORS 0, 0 ; // separação entre etiquetas horizontal x vertical

ON LINE 1 ; // numero de etiquetas por linha

FILE "LABEL.PRN" ;

PREVIEW ;

TO FILE "LABEL.TXT" ;

CAPTION "Etiquetas com código de barras " FONT oFont1,oFont2,oFont3,oFont4

oLabel:oDevice:SetLandscape()

*******************************************************************// aki coloca os list de cima en ordem 1,2,3,4.....

LBLITEM DATA aStructure[nField][1] FONT 4 CENTER // cabeçalho

LBLITEM DATA aStructure[nField][2] FONT 1 CENTER // cabeçalho

LBLITEM DATA aStructure[nField][3] FONT 1 CENTER // cabeçalho

LBLITEM DATA aStructure[nField][4] FONT 1 CENTER // LINHAs

LBLITEM DATA aStructure[nField][5] FONT 1 CENTER // Descrição

LBLITEM DATA aStructure[nField][6] FONT 1 CENTER // codigo produto

LBLITEM DATA aStructure[nField][7] FONT 1 CENTER // linhas

LBLITEM DATA aStructure[nField] FONT 3 CENTER // Fonte código de barras

****************************************************************

LBLITEM DATA aStructure[nField][9] FONT 1 CENTER // LINHAs 1

LBLITEM DATA aStructure[nField][10] FONT 1 CENTER // LINHAs 2

LBLITEM DATA aStructure[nField][11] FONT 1 CENTER // LINHAs 3

LBLITEM DATA aStructure[nField][12] FONT 1 CENTER // LINHAs 4

LBLITEM DATA aStructure[nField][13] FONT 1 CENTER // LINHAs 5

LBLITEM DATA aStructure[nField][14] FONT 1 CENTER // LINHAs 6

LBLITEM DATA aStructure[nField][15] FONT 1 CENTER // LINHAs 7

LBLITEM DATA aStructure[nField][16] FONT 1 CENTER // LINHAs 8

LBLITEM DATA aStructure[nField][17] FONT 1 CENTER // LINHAs 9

LBLITEM DATA aStructure[nField][18] FONT 1 CENTER // LINHAs 10

**********************************************************************

LBLITEM DATA aStructure[nField][19] FONT 3 CENTER // Fonte código de barras

LBLITEM DATA aStructure[nField][20] FONT 2 CENTER // RIGHT

LBLITEM DATA aStructure[nField][21] FONT 1 CENTER // RIGHT

END LABEL oLabel

// acerta as margens superior,inferior e lado esquerdo

* if x=0

oLabel:Margin( 15, RPT_TOP, RPT_MMETERS ) // 11

oLabel:Margin( -24, RPT_BOTTOM, RPT_MMETERS) // 11

oLabel:Margin( -6, RPT_LEFT, RPT_MMETERS ) // 4

* endif

// para controle em impressão com base array

oLabel:bSkip := {|| nField++}

ACTIVATE LABEL oLabel WHILE nField <= len(aStructure)

RETURN NIL

ESPERO TER AJUDADO.

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[xtsystem]

Muito obrigado. Espero ajuda-los tambem. bye

[Geo_sts]

Opa.. conseguiu montar ai?

espero q te ajude..

qqr coisa tamo ai

abraços

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"