En caso de que su empresa sea un supermercado o una carnicería, en ocasiones necesario leer las etiquetas de código de barras generadas por las básculas expendedoras.

En el siguiente vídeo se muestra el tutorial con el código fuente.

[youtube video = “qBu_uXld_30”]

Para eso es importante habilitar la venta de ARTÍCULOS A GRANEL en la pestaña de Artículos.

Báscula TORREY de Código 2006 (por Peso)

1 archivo(s) 136.00 KB

Descarga

Báscula TORREY de Código 2011 y 2012 (por Peso)

1 archivo(s) 128.00 KB

Descarga

Bascula Torrey Códigos 2011 por (por PRECIO)

1 archivo(s) 132.00 KB

Descarga

Bascula Torrey Códigos 2012 (por PRECIO)

1 archivo(s) 136.00 KB

Descarga

Bascula torrey 2012 (por PESO)

1 archivo(s) 136.00 KB

Descarga

El formato de código de barra que generan estas básculas son:

• 20cccccwwwwwV (Formato por peso weight)

En donde cada campo representa:

El dígito inicial siempre es 20

ccccc representa el código del producto registrado en la báscula, una clave de 5 digitos

wwwww es el PESO en gramos 01250 es igual a un kilo con 250 gramos

V es el digito verificador

Es decir la báscula se configura para generar formatos por peso o por precio.

Es necesario dar de alta el producto en forma especial siguiendo estas reglas:

• La clave debe ser de 5 digitos, por ejemplo 00022 Milanesa de Res, tal y como estan registrados los productos en la báscula.
• En la unidad poner KG
• Impuesto normalmente es cero
• Dar el precio correcto por kilo

En el Punto de Venta al escanear el código de barras con clave: 2000022001054 el sistema identificará que se trata de un código de barra generado por báscula y lo convertira en la venta de 105 gramos del producto 00022.

Ejemplo práctico: basculas torrey

El siguiente código es impreso por la báscula y lleva la siguiente estructura.

Es un código ean 13

201234501245

Explicación de la estructura del código de barras

20=código a despreciar

12345=código del ARTÍCULO (es el que se da de alta en el sistema, con 5 dígitos)

01245=peso del articulo

Esto representa una simulación mediante la lectura del código.

Entonces el peso será 01265*0.01=12.65

Luego entonces lo que leerá MyBusiness POS será lo siguiente, según la simulación:

12345*12.45

12345=es el código del ARTÍCULO (es el que se da de alta en el sistema, con 5 dígitos)

*=es el multiplicador lo da por defecto ferrum.

12.45=es el peso de la etiqueta que leyó el sistema, como resultado del factor.

cualquier duda o comentaio, por favor hazlo saber al correo jofelchez@gmail.com

El cargo Como leer ? Báscula Etiquetadora Torrey desde la PC apareció primero en José Félix ♞.

Editor de Etiquetas, generar e imprimir código de barras

1 archivo(s) 16.34 KB

Descarga

Código de barras en hoja Carta

1 archivo(s) 88.00 KB

Descarga

Public Sub Main()

‘TIPO DE PAPEL: 6287 T. CARTA
‘MARCA DE PAPEL: BIC PIMACO
‘ETIQUETAS/HOJA: 80
‘CONSEGUIRLO EN OFFICE DEPOT
‘IMPRESORA LÁSER
‘cada milimetro es equivalente a 57.1428571428571 pixels

IniciaDocumento

‘DEBIDO A QUE NUESTRA HOJA TIENE VARIAS FILAS Y COLUMNAS, SOLICITAMOS A PARTIR DE QUÉ FILA Y COLUMNA SE DEBE EMPEZAR A IMPRIMIR, POR SI EN ALGUN MOMENTO ESTÁ CASI COMPLETA LA HOJA

nColumna = InputBox( “Comenzar con la columna no.:”, 0 )
nFila = InputBox( “Comenzar con la fila no.:”, 0 )

‘EN CASO DE QUE SE CONTESTE 0 EN ALGUNO DE LOS CASOS, NO SE IMPRIMIRÁ NADA
if Val2( nColumna ) <= 0 Then
Exit Sub
end if

if Val2( nFila ) <= 0 Then Exit Sub end if ‘REALIZAMOS LA CONSULTA Set rstProds = CreaRecordSet( “SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo”, Ambiente.Connection )

‘ESPECIFICAMOS EL LA SEPARACIÓN ENTRE CADA ETIQUETA, EN PIXELES, TANTO EN X(HORIZONTAL) COMO Y(VERTICAL)
nX = 2714.28571428571
nY = 725.714285714286

‘DEFINIMOS LOS MÁRGENES DE LA HOJA, EL SUPERIOR Y EL IZQUIERDO
nMargensuperior = 400
nMargenIzquierda = 828.57

While Not rstProds.EOF

cArticulo = Trim( rstProds(“articulo”) )
cDescrip = Trim( Mid(rstProds(“descrip”),1,16) ) & ” ” & Trim( rstProds(“modelo”) ) & ” ” & Trim( rstProds(“talla”) ) & ” ” & Formato( rstProds(“precio1?), “$##,##0.00? )
cEmpresa = Ambiente.Empresa

For i = 1 To rstProds(“Etiquetas”)

‘AQUÍ SE REALIZAN LAS OPERACIONES CON LAS VARIABLES QUE ANTES HABÍAMOS DEFINIDO
PosicionX = ((nX * nColumna) – nX) + nMargenIzquierda
PosicionY = ((nY * nFila) – nY) + nMargensuperior

‘EN LA SIGUIENTE LÍNEA, EL 10 ES EL GROSOR DE LAS BARRITAS, EL 200 ES LA ALTURA (EN PIXELS) DEL CÓDIGO DE BARRAS
Codigo39 PosicionX, PosicionY, 10, 200, cArticulo, True,, cDescrip

nColumna = nColumna + 1

‘EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS COLUMNAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 4)
if nColumna > 4 Then
nColumna = 1
nFila = nFila + 1
end if

if i = rstProds(“Etiquetas”) Then
Exit For
end if

‘EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS FILAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 20)
if nFila > 20 Then
nFila = 1
PaginaNueva

end if
Next
rstProds.MoveNext
Wend
FinDocumento
End Sub

Y listo!!!
ya tenemos nuestro formato totalmente funcional para imprimir.
Cabe aclarar que el rendimiento de una impresora láser es menor a comparación de una impresora especial para etiquetas, ya que la primera no está totalmente diseñada para este fin.

Espero sus comentarios y dudas.

El cargo Etiquetas de Código de Barras en Hoja Tamaño Carta apareció primero en José Félix ♞.