Fonte para codigo de barra.

[scom]

OLA AMIGOS

ALGUEM TEM FONTE PARA CODIGO DE BARRAS MAS SIMPLES SEM CODIGO VERIFICADOR, SÓ PRA EMITIR TIPO O CODIGO 000013, 000012 ETC. EM CODIGO DE BARRA, PRA LER EM LEITOR ÓPCTICO COMUM.

ATENCIOSAMENTE

ROBSON

FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99

[scom]

OLA AMIGOS

ALGUEM TEM FONTE PARA CODIGO DE BARRAS MAS SIMPLES SEM CODIGO VERIFICADOR, SÓ PRA EMITIR TIPO O CODIGO 000013, 000012 ETC. EM CODIGO DE BARRA, PRA LER EM LEITOR ÓPCTICO COMUM.

ATENCIOSAMENTE

ROBSON

FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99

[clipeiro]

Veja se ajuda.

function _Code3_9( cCode, lCheck )

static cCars := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%'

STATIC aBarras:={'1110100010101110',;

'1011100010101110',;

'1110111000101010',;

'1010001110101110',;

'1110100011101010',;

'1011100011101010',;

'1010001011101110',;

'1110100010111010',;

'1011100010111010',;

'1010001110111010',;

'1110101000101110',;

'1011101000101110',;

'1110111010001010',;

'1010111000101110',;

'1110101110001010',;//E

'1011101110001010',;

'1010100011101110',;

'1110101000111010',;

'1011101000111010',;

'1010111000111010',;

'1110101010001110',; //K

'1011101010001110',;

'1110111010100010',;

'1010111010001110',;

'1110101110100010',;

'1011101110100010',;//p

'1010101110001110',;

'1110101011100010',;

'1011101011100010',;

'1010111011100010',;

'1110001010101110',;

'1000111010101110',;

'1110001110101010',;

'1000101110101110',;

'1110001011101010',;

'1000111011101010',;//Z

'1000101011101110',;

'1110001010111010',;

'1000111010111010',; // ' '

'1000101110111010',;

'1000100010100010',;

'1000100010100010',;

'1000101000100010',;

'1010001000100010'}

local cCar,m, n, n1,n2, cBarra := '', nCheck := 0

default lCheck := .f.

cCode := upper(cCode)

if len(cCode )>32

cCode := left(cCode,32)

end

cCode := '*'+cCode+'*'

for n:= 1 to len( cCode )

cCar := substr( cCode,n,1)

m:=at( cCar, cCars )

if n>0 // otros caracteres se ignoran :-))

cBarra := cBarra + aBarras[m]

nCheck += (m-1)

end

next

if lCheck

cBarra+= aBarras[nCheck%43 +1]

end

return cBarra

[sygecom]

Se for para imprimir usando xharbour(win32prn) ai posso passar uns fontes...

Leonardo Machado

Porto Alegre-RS

Hwgui + Mysql / xHarbour 1.0.0

[scom]

o leonardo, é no win32prn sim...manda pra mim...valew

abraço

t+

FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99