Para poder modificar un reporte, solo es necesario tener algunos conocimientos acerca de SQL. Dentro de My Business POS, nos ubicamos en la parte central (Business Manager) y nos ubicamos la siguiente ruta:
Resultados de la búsqueda para: mybusiness pos vpn
Configurar impresora ZEBRA 2844 a través de USB (Solucionado)
Las impresoras de código de barras ZEBRA 2844 son muy eficientes y muestran excelentes resultados. Sin embargo, en MyBusiness POS, 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.
Editor de Etiquetas, generar e imprimir código de barras
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.
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
Otra de las recomendaciones es, cuando mandamos imprimir y de la imporesora Zebra sale el papel en blanco, es apoyarnos con una impresora virtual con PDF Creator y poco a poco vamos identificando dònde se encuentra el código impreso para ajustar la caída de forma correcta. hay que ser un poquito pacientes ya que encontrar la coordenada de impresión ideal puede tomar más de media hora a prueba y error.
Nota: Si su lector de códigos de barras no detecta la impresión, posiblemente le hace falta colocar un asterisco (*) al inicio y otro asterisco (*) al final del código de barras .
Etiquetas de Código de Barras en Hoja Tamaño Carta
Editor de Etiquetas, generar e imprimir código de barras
Código de barras en hoja Carta
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.