Resultados de la búsqueda para: como redondear articulos en mybusiness pos

Publicado el por — 7 comentarios

Imprimir una remisión de más de una hoja (solución)

Hoy voy a compartir con ustedes el tip sobre la impresión de una remisión o cualquier otro documento en tamaño carta que tenga bastantes partidas.

El código se encuentra en la siguiente ruta, dentro del sistema MyBusinessPOS:

Configuración–Personalización–Formatos del Sistema. Ahi se encuentra el formato REMISIONES

Damos doble clic y podemos modoficarlo. Dentro del reporte encontramos un bloque grande IF. Antes de que termine el bloque IF y FinDocumento, colocamos el siguiente código:

'-----------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------
'2011-04-01
'Jose Felix jofelchez@gmail.com
'ESTE BLOQUECITO DE CÓDIGO ES EL QUE PERMITE QUE SE REALICE EL SALTO DE PÁGINA
'

if val2(Row( Incremento )) > 0.025 Then 'EN ESTE CASO, EL VALOR 0.025 SON PULGADAS
Incremento = 1
PaginaNueva
end if

'-----------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------

Incremento = Incremento + 1
rstPartidas.MoveNext
Wend

End If

Guardamos y listo

Pero no se preocupen si les parece confuso, les dejo tambien el código fuente y el archivo .paq; y como siempre les recomiendo que antes de hacer pruebas, se haga un respaldo. Este es el link de descarga:

remision en varias paginas EJEMPLO.paq

REMISION_VARIAS_PAGINAS_Ejemplo_codigo_TEXTO

Publicado el por — 28 comentarios

Personalizar los reportes

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:

Configuración – Personalización – Reportes

Aquí encontramos todos los reportes. Podemos crear nuestros propios reportes o solo modificar alguno existente.


Es importante mencionar la necesidad de conocer las tablas con las que se está trabajando y los campos de cada una de estas. Una forma simple de conocer los campos es utilizando la herramienta “Editor SQL”, el cual se encuentra en el módulo de Programación (en la parte inferior izquierda).
Continuando con las modificaciones de reportes sencillas, para agregar solo una columna de la misma tabla a la que está consultando dicho reporte, simplemente ubicamos las líneas de código que realizan la consulta y le agregamos el campo que deseamos.


En otras ocasiones es necesario agregar los bloques de código que especifican el ancho de la columna (Título y Datos), espaciado y fuentes.
Publicado el por — 29 comentarios

Configurar impresora ZEBRA 2844 a través de USB (Solucionado)

zebra2844_mybusinesspos2

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.

Icono

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

1 archivo(s) 16.34 KB
Descarga
Para configurar la impresora, solo basta realizar los siguientes pasos:
https://youtu.be/TuhCVlZrM-0
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.
[products ids=’18217,19645′]
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 .

 

 

Publicado el por — 45 comentarios

Etiquetas de Código de Barras en Hoja Tamaño Carta

Icono

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

1 archivo(s) 16.34 KB
Descarga

Icono

Código de barras en hoja Carta

1 archivo(s) 88.00 KB
Descarga

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.