Control de Series Con Impresión de Ticket y/o Factura

Zebra 2844 USB

La impresora Zebra que se conecta por cable USB se comporta de forma similar a cualquier otra impresora de tickets y puede programarse como tal; por ejemplo, vemos que tiene las funciones IniciaDocumento y FinDocumento.
[wpdm_package id='15659']

Sub Main()
Dim rstProds
Dim n

Set rstProds = CreaRecordSet( _
"SELECT * FROM prods WHERE etiquetas > 0",_
Ambiente.Connection )

While Not rstProds.EOF

For n = 1 To rstProds("etiquetas")
ImprimeEtiqueta rstProds
Next

rstProds.MoveNext

Wend


End Sub


Sub ImprimeEtiqueta( rstProds )

'EstableceImpresora "ZDesigner LP 2844"
IniciaDocumento

EstableceFuente "C39HrP24DhTt",35
Say 5.25, 3.53, "*" & Trim(rstProds("articulo")) & "*"
EstableceFuente "Times New Roman", 9
Say 5.1, 3.53, "$ " & PadL(Formato( rstProds("precio1"), Ambiente.FDinero ),6)
'Trim(rstProds("Descrip"))

FinDocumento

End Sub


Cómo abrir y cerrar el verificador de precios?

El sistema cuenta con un verificador de precios de manera parecida a las farmacias del Ahorro.  Esta opción se encuentra en el menú Utilerías -- Verificador.

Un vez abierto el verificador, escriba la clave  del artículo y presione ENTER o bien presione la flecha hacia abajo del teclado y aparecerá el catálogo de productos para seleccionarlo y ver los detalles de este.

Para salir de esta ventana solo deberá de escribir lo siguiente ...1 (tres puntos, después 1 y presionar ENTER)

ZEBRA 2844 CON PRESENTACIONES

'|----------------------------------------------------------------------------------|
'| 2010-10-13 |
'| JOSE FELIX SANCHEZ (jofelchez@gmail.com) |
'| El siguiente procedimiento imprime las etiquetas de cada uno de los articulos, |
'| incluyendo sus presentaciones |
'|----------------------------------------------------------------------------------|

Public Sub Main ()

Set rstPartidas = CreaRecordSet( "SELECT UPPER(prods.articulo) AS articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0", Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas("etiquetas")
ImprimeEtiqueta "LPT1", rstPartidas("articulo"), rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), "" , "" , "" , "" , "" , ""
Next

rstPartidas.MoveNext

Wend

Set rstPartidas = CreaRecordSet( "SELECT UPPER(prods.articulo) AS articulo, prods.descrip, prods.precio1, UPPER(clavesadd.clave) AS clave, clavesadd.dato1, clavesadd.dato2, clavesadd.cantidad, clavesadd.unidad, clavesadd.etiquetas, clavesadd.precio FROM clavesadd INNER JOIN prods ON clavesadd.articulo = prods.articulo WHERE clavesadd.etiquetas > 0", Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas("etiquetas")
' ImprimeEtiqueta "LPT1", rstPartidas("clave"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
ImprimeEtiqueta "LPT1", rstPartidas("articulo"), rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), rstPartidas("clave") , rstPartidas("dato1"), rstPartidas("dato2") , Formato(rstPartidas("cantidad"), "##,##0.00" ), rstPartidas("unidad") , Formato(rstPartidas("precio"), "##,##0.00" )
Next

rstPartidas.MoveNext

Wend


End sub


Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDescrip, cPrecioDeLista, cClave, cDato1, cDato2, cCantidad, cUnidad, cPrecioPresentacion )

cPuerto = Trim( cPuerto )
cArticulo = Trim( cArticulo )
cDescrip = Trim( cDescrip )
cDato1 = Trim( cDato1 )

cClave = Trim( cClave )
cDato2 = Trim( cDato2 )
cUnidad = Trim( cUnidad )


cSalida = ""

' Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del
' lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la
' diseñe por favor mandemelo
' Aqui se muestran los comandos basicos
' El comando N inicia la etiqueta
' El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X
' y el 15 la posición en el eje de las Y
' El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45
' Es la posición de inicio del eje de las Y
' El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir




cSalida = cSalida & "N" & Chr(13) & Chr(10) 'LIBERAMOS LA MEMORIA
cSalida = cSalida & "D14" & Chr(13) & Chr(10) 'DENSIDAD DE LA IMPRESION, DE 0 A 15
'LA SIGUENTE LINEA SE PUEDE EXPLICAR EN LA PÁGINA 22 DEL MANUAL: A = ASCII; 05 = POSICION X; 11=POSICION Y; 0=GIRO 0 GRADOS; 2= TAMAÑO LETRA; 1=ESCALA EN HORIZONTAL; 1 = ESCALA VERICAL; N=LIMPIA MEMORIA
cSalida = cSalida & "A05,11,0,2,1,1,N," & Chr(34) & Mid( cDescrip,1, 12 ) & " $ " & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)
'LA SIGUENTE LINEA SE PUEDE EXPLICAR EN LA PÁGINA 29 DEL MANUAL: B = CODIGO DE BARRAS; 05 = POSICION X; 30=POSICION Y; 0=GIRO 0 GRADOS; 1= TIPO DE CÓDIGO(CODE39); 2=SEPARACIONDE LAS BARRAS; 6 = TAMAÑO HORIZONTAL; 40=TAMAÑO VERTICAL; B=MOSTRAR LOS CARACTERES ABAJO DEL CÓDIGO DE BARRAS
cSalida = cSalida & "B05,30,0,1,2,6,40,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
'--------------------------------------------------------------------------------------------------
'linea de codigo de barras de la version 2011
'cSalida = cSalida & "B05,30,0,2,1,6,25,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
'linea de codigo de barras de la version 2006
'cSalida = cSalida & "B250,60,0,1,2,6,80,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
'--------------------------------------------------------------------------------------------------

'EN CASO DE QUE HAYA UNA CLAVE DE PRESENTACION
if cClave <> "" then

cSalida = cSalida & "A05,81,0,2,1,1,N," & Chr(34) & Mid( cDato1,1, 16 ) & " $ " & cPrecioPresentacion & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "B05,100,0,1,2,6,30,B," & Chr(34) & cClave & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "A05,140,0,1,1,1,N," & Chr(34) & Mid( cDato2,1, 16 ) & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "A05,140,0,1,1,1,N," & Chr(34) & Mid( cCantidad,1, 16 ) & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "A05,155,0,1,1,1,N," & Chr(34) & Mid( cUnidad,1, 16 ) & Chr(34) & Chr(13) & Chr(10)

end if

'cSalida = cSalida & "A220,55,0,4,1,1,N," & Chr(34) & "$" & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)
'CON P1, ESPECIFICAMOS QUE SE DEBE IMPRIMIR UNA ETIQUETA Y FINALIZAMOS ESTA
cSalida = cSalida & "P1" & Chr(13) & Chr(10)

'msgbox csalida


'-------------------------------------------------------------------------------------------
'EL SIGUIENTE BLOQUE QUE APARECE EN VERDE ES POR SI QUISIERAMOS IMPRIMIR VIA USB
'IniciaDocumento
' EstableceFuente "Times New Roman", 9
' Say 2.3, 3.4, Mid( cDescrip,1, 12 ) & " $ " & cPrecioDeLista
' EstableceFuente "C39HrP24DhTt", 40
' Say 2.5, 3.4, cArticulo

'if cClave <> "" then

' EstableceFuente "Times New Roman", 9
' Say 3.1, 3.4, Mid( cDato1,1, 16 ) & " $ " & cPrecioPresentacion
' Say 3.3, 3.4, "Tipo: " & Mid( cDato2,1, 16 )

' EstableceFuente "C39HrP24DhTt", 30
' Say 3.5, 3.4, cClave

' EstableceFuente "Times New Roman", 9
' Say 4.0, 3.4, "Cantidad: " & Mid( cCantidad,1, 16 )
' Say 4.1, 3.4, "Unidad: " & Mid( cUnidad,1, 16 )

'end if

'FinDocumento
'-----------------------------------------------------------------------------------


if Ambiente.rstEstacion("ietiquetas") <> 0 Then
if clAt( "LPT", Ambiente.rstEstacion("ietiquetaspuerto") ) > 0 Then
Out Trim(Ambiente.rstEstacion("ietiquetaspuerto")), cSalida
else
if Ambiente.ImpresoraDeEtiquetas.PortOpen Then
Ambiente.ImpresoraDeEtiquetas.Output = cSalida
end if
end if
end if



Dormir 100
Eventos


End Sub






Formato de etiquetas para zebra 2844

' El siguiente procedimiento imprime las etiquetas de cada uno de los articulos
Public Sub Main ()

Set rstPartidas = CreaRecordSet( "SELECT articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0", Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas("etiquetas")
ImprimeEtiqueta "LPT1", rstPartidas("articulo"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
Next

rstPartidas.MoveNext

Wend


Set rstPartidas = CreaRecordSet( "SELECT clavesadd.clave, prods.descrip, clavesadd.etiquetas, prods.precio1, prods.precio2, prods.precio10 FROM clavesadd INNER JOIN prods ON clavesadd.articulo = prods.articulo WHERE clavesadd.etiquetas > 0", Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas("etiquetas")
ImprimeEtiqueta "LPT1", rstPartidas("clave"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
Next

rstPartidas.MoveNext

Wend


End sub



Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDato1, cDescrip, cPrecioDeLista, cMayoreo, cSugerido )

cPuerto = Trim( cPuerto )
cArticulo = Trim( cArticulo )
cDescrip = Trim( cDescrip )
cDato1 = Trim( cDato1 )

cSalida = ""

' Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del
' lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la
' diseñe por favor mandemelo
' Aqui se muestran los comandos basicos
' El comando N inicia la etiqueta
' El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X
' y el 15 la posición en el eje de las Y
' El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45
' Es la posición de inicio del eje de las Y
' El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir

cSalida = cSalida & "N" & Chr(13) & Chr(10)
cSalida = cSalida & "D14" & Chr(13) & Chr(10)
cSalida = cSalida & "A220,15,0,1,1,1,N," & Chr(34) & Formato( Date, "dd-MM-yyyy" ) & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "A05,11,0,2,1,1,N," & Chr(34) & Mid( cDescrip,1, 12 ) & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "B05,30,0,2,1,6,25,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "A220,55,0,4,1,1,N," & Chr(34) & "$" & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)
'cSalida = cSalida & "A250,95,0,2,1,1,N," & Chr(34) & cMayoreo & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & "P1" & Chr(13) & Chr(10)

if Ambiente.rstEstacion("ietiquetas") <> 0 Then
if clAt( "LPT", Ambiente.rstEstacion("ietiquetaspuerto") ) > 0 Then
Out Trim(Ambiente.rstEstacion("ietiquetaspuerto")), cSalida
else
if Ambiente.ImpresoraDeEtiquetas.PortOpen Then
Ambiente.ImpresoraDeEtiquetas.Output = cSalida
end if
end if
end if

Dormir 100
Eventos


End Sub






Como leer etiquetas generadas por una báscula Torrey

[wpdm_package id='16567']

[wpdm_package id='15019']

[wpdm_package id='15009']

[wpdm_package id='15024']

[wpdm_package id='15025']

[wpdm_package id='15026']

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. Para eso es importante habilitar la venta de ARTÍCULOS A GRANEL en la pestaña de Artículos.

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

Configuracion ZEBRA 2844 a través de USB (Solucionado)

.
Información más reciente en http://helpmybusinesspos.info
Las impresoras de código de barras ZEBRA 2844 son muy eficientes y muestran excelentes resultados. Sin embargo, en MyBusiness POS 2006, en ocasiones genera ciertos conflictos, sobre todo si queremos conectarla vía USB. el siguiente bloque de código está configurado para etiquetas que tienen 1'' de alto X 1.25'' de ancho aprox.

Para configurar la impresora, solo basta realizar los siguientes pasos:

1) instalar el driver de la impresora. esto es debido a que, cuando conectamos cualquier dispositivo vía USB, el Sistema Operativo instala un  controlador para poder hacerlo funcionar correctamente.

2) Definir la impresora ZEBRA 2844 como predeterminada (Inicio->Impresoras y faxes-> Clic derecho sobre la impresora ZEBRA2844 ->Impresora predeterminada). También es necesario configurar el tamaño del papel. para realizar esto, después de configurar la impresora predeterminada, demos clic derecho sobre la impresora ZEBRA 2844 y seleccionamos la opción Propiedades. Ahora damos clic en el botón "preferencias de impresión" y vamos a especificar el tamaño del papel 7 cm de largo X 2.54 cm de alto.

3) Ahora abrimos MyBusinessPOS 2006 y vamos a crear el formato para poder imprimir las etiquetas. En el Business Manager (la columna de enmedio) buscamos la siguiente ruta: Configuración-> Personalización-> Procedimientos o Rutinas de Usuario -> Aquí vamos a crear un nuevo procedimiento, en la parte superior se encuentra la opción "Nuevo". Los datos que debemos escribir en el formulario son:

4) En el área de desarrollo, solo escribimos las siguientes líneas:

Public Sub Main()

    nFila = 1

    Set rstProds = CreaRecordSet( "SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo", Ambiente.Connection )

    nY =0

    nMargensuperior = 100    

    nMargenIzquierda = 25   

    While Not rstProds.EOF        

          cArticulo = Trim( rstProds("articulo") )

          cDescrip = Trim( Mid(rstProds("descrip"),1,25) ) & " " & Trim( rstProds("modelo") ) & " " & Trim( rstProds("talla") )' & " " & Formato( rstProds("precio1"), "$##,##0.00" )

          cEmpresa = Ambiente.Empresa                        

          For i = 1 To rstProds("Etiquetas")

               PosicionX = nMargenIzquierda

              PosicionY = ((nY * nFila) - nY) +  nMargensuperior

               IniciaDocumento                    

                Codigo39 PosicionX, PosicionY, 10, 400, cArticulo, True,,, cDescrip

               FinDocumento         

              if i = rstProds("Etiquetas") Then

                 Exit For

              end if            

          Next

          rstProds.MoveNext

    Wend

End Sub

Muy Bien; bueno espero sus comentarios para hacer más interactivo este blog..
Hasta Pronto.

MyBusiness POS 2006: Etiquetas de Código de Barras en Hoja Tamaño Carta

.
Información más reciente en http://helpmybusinesspos.info
El generador de etiquetas de MyBusiness POS 2006 es una herramienta muy útil para la empresa. Sin embargo, en ocasiones es necesario hacer las adaptaciones necesarias para que se adapte la "caída" sobre hojas tamaño carta con etiquetas.
El código más común es el CODE39.   Este va a ser creado dentro de la siguiente ruta del Business Manager: personalización...formatos del sistema....(aquí creamos un nuevo archivo, llamado CODE39_AJUSTADO,  escribimos en el grupo ETIQUETAS, para que pueda ser utilizado desde la ventana etiquetas)
A continuación se muestra el código:



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.