Con conocimientos básicos de programación podemos colocar el texto que necesitemos en el encabezado del ticket, todo directo desde la edición del código de Ticket.
Resultados de la búsqueda para: comando para cortar el tiket
Abrir cajón de dinero con impresora USB
Para abrir el cajón de dinero, es necesario enviar la instrucción desde el controlador (driver) de la impresora, en la pestaña Comandos Adicionales aparece una opción para abrir cajón de dinero cada vez que se envía una impresión.
En las propiedades de la impresora genérica USB, los comandos de impresora son los siguientes:
- Comando para Abrir el cajón
<1B>p0<1414> - Comando para Cortar el papel, al finalizar trabajo de impresión
<0A0A0A0A0A1B>i<0D0A>
Cómo importar un formato (.paq) a MyBusiness POS
1. Primero entramos a MyBusinessPOS y damos un clic en la carpeta configuración del Business manager, buscamos la carpeta personalización, y posteriormente el icono “formatos del sistema”.
2. Se abrirá la herramienta Business Manager con la lista de todos los formatos, reportes y o procedimientos, según la carpeta que elijamos. Si da clic en ‘procedimientos’ (por ejemplo) podrá importar reportes o formatos ya que todas las carpetas reciben archivos .paq y tanto formatos como reportes y procedimientos tienen la misma extensión.
3. Clic derecho sobre cualquiera de los formatos y aparecerá una lista de opciones de la cual debe elegir la opción: Importar paquete de procedimientos.
4. Busca el directorio donde esta guardado el archivo y selecciónalo.
5. Aparecerá una mensaje que te dice: ”Paquete importado”. Oprime un clic en Aceptar.
BARTICULOS001
El siguiente bloque de código BARTICULOS001 es el que permite visualizar desde el punto de venta, la ventana de artículos donde se muestra la clave, descripción y precio unitario. Describiremos un poco cada línea de código.
Para abrir y modificar este bloque de código, necesitamo ir a la siguiente ruta, dentro del Business Manager:
CONFIGURACIÓN–PERSONALIZACIÓN–PROCEDIMIENTOS Y RUTINAS DE USUARIO
Public Sub Main()
Dim strSQL 'Definición de variables
Set rstProds = SQLProdsSQLServer() ' invocamos al procedimiento SQLProdsSQLServer y asignamos el resultado a rstProds
SetSessionValue Ambiente, "CONDICIONDEBUSQUEDA", ""
End Sub
'Funcion SQLProdsSQLServer
Function SQLProdsSQLServer()
Dim s
'evaluamos la variable Var1
If clEmpty( Ambiente.Var1 ) Then
Ambiente.Var1 = " prods.descrip "
End If
'Iniciamos con la consulta, aquí mismo definimos también el nombre de los encabezados de cada columna.
s = ""
s = s & "SELECT "
s = s & "prods.articulo As 'Clave', "
s = s & "prods.descrip AS 'UNIDAD DE CONSUMO', "
s = s & "prods.precio1 * ( 1 + (impuestos.valor / 100) ) As 'Precio', "
s = s & "prods.existencia, "
s = s & "existenciaalmacen.existencia As 'Almacen " & Ambiente.Almacen & "', "
s = s & "prods.articulo "
s = s & "FROM prods "
s = s & "INNER JOIN impuestos ON prods.impuesto = impuestos.impuesto "
s = s & "LEFT JOIN existenciaalmacen ON prods.articulo = existenciaalmacen.articulo AND existenciaalmacen.almacen = " & Ambiente.Almacen
s = s & "WHERE prods.bloqueado = 0 "
s = s & cNull(GetSessionValue(Ambiente, "CONDICIONDEBUSQUEDA"))
'Evaluamos filtros adicionales. aquí es donde considera la condición que aplicamos antes de presionar la flecha hacia abajo
If Not clEmpty(cFiltro) Then
If Not clEmpty(Condition) Then
s = s & " AND (prods.descrip LIKE '%" & Cambia("%", " ", cFiltro) & "%' OR prods.articulo LIKE '%" & Cambia("%", " ", cFiltro) & "%') AND " & Condition & " ORDER BY " & Ambiente.Var1
Else
s = s & " AND (prods.descrip LIKE '%" & Cambia("%", " ", cFiltro) & "%' OR prods.articulo LIKE '%" & Cambia("%", " ", cFiltro) & "%') ORDER BY " & Ambiente.Var1
End If
Else
If Not clEmpty(Condition) Then
s = s & " ORDER BY " & Ambiente.Var1
Else
s = s & " ORDER BY " & Ambiente.Var1
End If
End If
'Ejecutamos la consulta antes estructurada y se guarda el resultado en rstProds
Set rstProds = CreaRecordSetEnCliente( (s), Ambiente.Connection)
Set SQLProdsSQLServer = rstProds 'guardamos el arreglo de datos en la variable SQLProdsSQLServer
'Especificamos el ancho de las columnas, iniciando desde la columna 0 y considerando el orden en que estructura la consulta
Set TDBGrid1.DataSource = rstProds
AnchoColumna 0, 2000
AnchoColumna 1, 6500
AnchoColumna 2, 2000
AnchoColumna 3, 1000
AnchoColumna 4, 1000
AnchoColumna 5, 2500
'Para las columnas de tipo numérico podemos colocar el formato numérico y con la cantidad de decimales apropiada
FormatoColumna 2, 1, "##,##0.00"
FormatoColumna 3, 1, Ambiente.FDinero
FormatoColumna 4, 1, Ambiente.FDinero
'Termina la función
End Function
Ventas Pendientes: Cómo atender a múltiples clientes a la vez
Cuando vamos de compras, muchos de nosotros estamos indecisos a la hora de pagar en la caja porque aun hay productos pendientes por incluir en el carrito.
MyBusiness Pos, desde la versión 2006, contiene la funcionalidad para que las ventas se conserven como pendientes y posteriormente permitir recuperar las ventas para continuar con el cobro de la misma.
Desde la ventana de punto de venta, las teclas de acceso rápido son:
- F7 Es para dejar una venta pendiente
- F8 Permite recuperar la venta, muestra el listado de ventas pendientes hacia un cliente específico y ahí podemos seleccionarla. Para concluir la venta que ya se recuperó, presionar la tecla F5
Nota: Si modificas el precio de la venta antes de presionar F7, al recuperar la venta con F8, por default el sistema recalcula y coloca el Percio1 del catálogo de productos. Este bug se puede ajustar.
Contáctenos…